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

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

From:
pmichaud
Date:
December 9, 2008 11:29
Subject:
[svn:parrot] r33722 - trunk/languages/perl6/build
Message ID:
20081209192944.B3DECCB9AF@x12.develooper.com
Author: pmichaud
Date: Tue Dec  9 11:29:42 2008
New Revision: 33722

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

Log:
[rakudo]:  Clean up some minor errors in hyperop generator.


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	Tue Dec  9 11:29:42 2008
@@ -100,7 +100,7 @@
         .end\n);
 
     # LHS-dwimming hyper ops.
-    my $hypername = qq(unicode:"infix:\u00bbb$opname\\u00bb");
+    $hypername = qq(unicode:"infix:\u00bb$opname\\u00bb");
     push @gtokens, sprintf($hyper_no_dwim_fmt, $hypername, $opname, "<<$opname<<", $opname, $hypername);
     push @code, qq(
         .sub $hypername
@@ -110,7 +110,7 @@
         .end\n);
 
     # RHS-dwimming hyper ops.
-    my $hypername = qq(unicode:"infix:\\u00ab$opname\\u00ab");
+    $hypername = qq(unicode:"infix:\\u00ab$opname\\u00ab");
     push @gtokens, sprintf($hyper_no_dwim_fmt, $hypername, $opname, ">>$opname>>", $opname, $hypername);
     push @code, qq(
         .sub $hypername
@@ -120,7 +120,7 @@
         .end\n);
 
     # Dwimming hyper ops.
-    my $hypername = qq(unicode:"infix:\\u00bb$opname\\u00ab");
+    $hypername = qq(unicode:"infix:\\u00bb$opname\\u00ab");
     push @gtokens, sprintf($hyper_no_dwim_fmt, $hypername, $opname, "<<$opname>>", $opname, $hypername);
     push @code, qq(
         .sub $hypername



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