[Templates-cvs] cvs commit: Template2/bin ttree

cvs         06/01/30 13:37:27

  Modified:    bin      ttree
  Log:
  * applied fix from Yuri Pimenov to avoid warning with --depend_debug on
  
  Revision  Changes    Path
  2.79      +8 -6      Template2/bin/ttree
  
  Index: ttree
  ===================================================================
  RCS file: /template-toolkit/Template2/bin/ttree,v
  retrieving revision 2.78
  retrieving revision 2.79
  diff -u -r2.78 -r2.79
  --- ttree	2004/09/17 07:26:36	2.78
  +++ ttree	2006/01/30 13:37:26	2.79
  @@ -23,7 +23,7 @@
   #
   #------------------------------------------------------------------------
   #
  -# $Id: ttree,v 2.78 2004/09/17 07:26:36 abw Exp $
  +# $Id: ttree,v 2.79 2006/01/30 13:37:26 abw Exp $
   #
   #========================================================================
   
  @@ -37,7 +37,7 @@
   use Text::ParseWords qw(quotewords);
   
   my $NAME     = "ttree";
  -my $VERSION  = sprintf("%d.%02d", q$Revision: 2.78 $ =~ /(\d+)\.(\d+)/);
  +my $VERSION  = sprintf("%d.%02d", q$Revision: 2.79 $ =~ /(\d+)\.(\d+)/);
   my $HOME     = $ENV{ HOME } || '';
   my $RCFILE   = $ENV{"\U${NAME}rc"} || "$HOME/.${NAME}rc";
   my $TTMODULE = 'Template';
  @@ -181,8 +181,10 @@
       if ($depends && $DEP_DEBUG) {
           print "Dependencies:\n";
           foreach my $key ('*', grep { !/\*/ } keys %$depends) {
  -            printf("    %-16s %s\n", $key, 
  -                   join(', ', @{ $depends->{ $key } }));
  +            printf( "    %-16s %s\n", $key, 
  +                    join(', ', @{ $depends->{ $key } }) ) 
  +                if defined $depends->{ $key };
  +
           }
       }
       print "\n";
  @@ -1053,8 +1055,8 @@
   
   =head1 VERSION
   
  -2.69, distributed as part of the
  -Template Toolkit version 2.13, released on 30 January 2004.
  +2.35, distributed as part of the
  +Template Toolkit version 2.15, released on 27 January 2006.
   
   =head1 COPYRIGHT