/[webpac]/trunk2/lib/WebPAC/Tree.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk2/lib/WebPAC/Tree.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 454 by dpavlin, Wed Sep 15 22:36:23 2004 UTC revision 455 by dpavlin, Mon Sep 20 19:13:27 2004 UTC
# Line 194  sub unroll { Line 194  sub unroll {
194    
195          my ($level,$start_code) = @_;          my ($level,$start_code) = @_;
196    
         my $next_level = $level + 1;  
   
197          my $log = $self->_get_logger();          my $log = $self->_get_logger();
198    
199            if (! defined($level)) {
200                    $log->warn("level is undef, stoping recursion...");
201                    return;
202            }
203    
204            my $next_level = $level + 1;
205    
206          $log->logconfess("need level") unless (defined($level));          $log->logconfess("need level") unless (defined($level));
207          $log->logconfess("need start_code") unless (defined($start_code));          $log->logconfess("need start_code") unless (defined($start_code));
208    

Legend:
Removed from v.454  
changed lines
  Added in v.455

  ViewVC Help
Powered by ViewVC 1.1.26