[Templates-cvs] cvs commit: TT3/t/directive if.t

[cvs@template-toolkit.org]

cvs         04/12/01 18:12:34

  Modified:    t/directive if.t
  Log:
  * removed (Compiled Perl Code) from file/line comments
  
  Revision  Changes    Path
  1.8       +12 -12    TT3/t/directive/if.t
  
  Index: if.t
  ===================================================================
  RCS file: /template-toolkit/TT3/t/directive/if.t,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -r1.7 -r1.8
  --- if.t	2004/12/01 11:05:22	1.7
  +++ if.t	2004/12/01 18:12:34	1.8
  @@ -9,7 +9,7 @@
   # This is free software; you can redistribute it and/or modify it
   # under the same terms as Perl itself.
   #
  -# $Id: if.t,v 1.7 2004/12/01 11:05:22 abw Exp $
  +# $Id: if.t,v 1.8 2004/12/01 18:12:34 abw Exp $
   #
   #========================================================================
   
  @@ -449,10 +449,10 @@
   -- expect --
   if ($stash->get('x') < 10) {
   $output .= "blah\n";
  -\#line 3 "test file (compiled Perl code)"
  +\#line 3 "test file"
   $output .= $stash->get('x');
   $output .= "\n";
  -\#line 4 "test file (compiled Perl code)"
  +\#line 4 "test file"
   }
   
   -- test perl if/else --
  @@ -464,11 +464,11 @@
   -- expect --
   if ($stash->get('y') < 20) {
   $output .= "hello\n";
  -\#line 3 "test file (compiled Perl code)"
  +\#line 3 "test file"
   }
   else {
   $output .= "world\n";
  -\#line 5 "test file (compiled Perl code)"
  +\#line 5 "test file"
   }
   
   -- test perl if/elsif --
  @@ -480,12 +480,12 @@
   -- expect --
   if ($stash->get('y') < 20) {
   $output .= "hello\n";
  -\#line 3 "test file (compiled Perl code)"
  +\#line 3 "test file"
   }
   else {
   if ($stash->get('z') < 30) {
   $output .= "world\n";
  -\#line 5 "test file (compiled Perl code)"
  +\#line 5 "test file"
   }
   }
   
  @@ -500,16 +500,16 @@
   -- expect --
   if ($stash->get('y') < 30) {
   $output .= "hello\n";
  -\#line 3 "test file (compiled Perl code)"
  +\#line 3 "test file"
   }
   else {
   if ($stash->get('z') < 40) {
   $output .= "world\n";
  -\#line 5 "test file (compiled Perl code)"
  +\#line 5 "test file"
   }
   else {
   $output .= "goodbye\n";
  -\#line 7 "test file (compiled Perl code)"
  +\#line 7 "test file"
   }
   }
   
  @@ -529,10 +529,10 @@
       
       eval { BLOCK: {
   $output .= "blah blah\n";
  -\#line 2 "test file (compiled Perl code)"
  +\#line 2 "test file"
   if ($stash->get('x')) {
   $output .= "\nhello\n";
  -\#line 4 "test file (compiled Perl code)"
  +\#line 4 "test file"
   }
       } };
       if ($@) {