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
