develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33637 - trunk/languages/perl6/build

From:
infinoid
Date:
December 7, 2008 14:29
Subject:
[svn:parrot] r33637 - trunk/languages/perl6/build
Message ID:
20081207222854.527E9CB9AF@x12.develooper.com
Author: infinoid
Date: Sun Dec  7 14:28:53 2008
New Revision: 33637

Modified:
   trunk/languages/perl6/build/gen_metaop_pir.pl

Log:
[cage] Fix some trailing spaces.

Modified: trunk/languages/perl6/build/gen_metaop_pir.pl
==============================================================================
--- trunk/languages/perl6/build/gen_metaop_pir.pl	(original)
+++ trunk/languages/perl6/build/gen_metaop_pir.pl	Sun Dec  7 14:28:53 2008
@@ -34,7 +34,7 @@
 my $output = $ARGV[0] || '-';
 
 
-my $assignfmt = 
+my $assignfmt =
     "    optable.'newtok'('infix:%s=', 'equiv'=>'infix::=', 'lvalue'=>1)\n";
 my $reducefmt =
     "    optable.'newtok'('prefix:[%s]', 'equiv'=>'infix:=')\n";
@@ -63,7 +63,7 @@
 }
 
 my $gtokens = join('', @gtokens);
-  
+
 open my $fh, "> $output" or die "Could not write $output: $!";
 print $fh qq(
 .namespace []



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About