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 []
