[Templates-cvs] cvs commit: Template2/lib/Template Document.pm

[cvs@template-toolkit.org]

cvs         04/09/17 07:58:36

  Modified:    lib/Template Document.pm
  Log:
  * tab damage
  
  Revision  Changes    Path
  2.74      +9 -9      Template2/lib/Template/Document.pm
  
  Index: Document.pm
  ===================================================================
  RCS file: /template-toolkit/Template2/lib/Template/Document.pm,v
  retrieving revision 2.73
  retrieving revision 2.74
  diff -u -r2.73 -r2.74
  --- Document.pm	2004/07/23 12:49:53	2.73
  +++ Document.pm	2004/09/17 07:58:36	2.74
  @@ -20,7 +20,7 @@
   # 
   #----------------------------------------------------------------------------
   #
  -# $Id: Document.pm,v 2.73 2004/07/23 12:49:53 abw Exp $
  +# $Id: Document.pm,v 2.74 2004/09/17 07:58:36 abw Exp $
   #
   #============================================================================
   
  @@ -33,7 +33,7 @@
   use base qw( Template::Base );
   use Template::Constants;
   
  -$VERSION = sprintf("%d.%02d", q$Revision: 2.73 $ =~ /(\d+)\.(\d+)/);
  +$VERSION = sprintf("%d.%02d", q$Revision: 2.74 $ =~ /(\d+)\.(\d+)/);
   
   BEGIN {
       # UNICODE is supported in versions of Perl from 5.008 onwards
  @@ -239,17 +239,17 @@
       $block =~ s/\s+$//;
   
       $defblocks = join('', map {
  -	my $code = $defblocks->{ $_ };
  -	$code =~ s/\n/\n        /g;
  -	$code =~ s/\s*$//;
  -	"        '$_' => $code,\n";
  +        my $code = $defblocks->{ $_ };
  +        $code =~ s/\n/\n        /g;
  +        $code =~ s/\s*$//;
  +        "        '$_' => $code,\n";
       } keys %$defblocks);
       $defblocks =~ s/\s+$//;
   
       $metadata = join('', map { 
  -	my $x = $metadata->{ $_ }; 
  -	$x =~ s/(['\\])/\\$1/g; 
  -	"        '$_' => '$x',\n";
  +        my $x = $metadata->{ $_ }; 
  +        $x =~ s/(['\\])/\\$1/g; 
  +        "        '$_' => '$x',\n";
       } keys %$metadata);
       $metadata =~ s/\s+$//;