X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FB%2FB%2FCC.pm;h=4c877d9c5b1fed862bccb5e9d7948c62152de660;hb=6ee623d521a149edc6574c512fa951a192cd086a;hp=fc7cf6dad2746359e390c14079c2557136564ff9;hpb=20408e3ccf502b6ce4033d8203710405ec9ef8f6;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/B/B/CC.pm b/ext/B/B/CC.pm
index fc7cf6d..4c877d9 100644
--- a/ext/B/B/CC.pm
+++ b/ext/B/B/CC.pm
@@ -788,7 +788,7 @@ BEGIN {
     my $divide_op = infix_op("/");
     my $modulo_op = infix_op("%");
     my $lshift_op = infix_op("<<");
-    my $rshift_op = infix_op("<<");
+    my $rshift_op = infix_op(">>");
     my $ncmp_op = sub { "($_[0] > $_[1] ? 1 : ($_[0] < $_[1]) ? -1 : 0)" };
     my $scmp_op = prefix_op("sv_cmp");
     my $seq_op = prefix_op("sv_eq");
@@ -1438,7 +1438,7 @@ sub compile {
 	    last OPTION;
 	} elsif ($opt eq "o") {
 	    $arg ||= shift @options;
-	    open(STDOUT, ">$arg") or return "$arg: $!\n";
+	    open(STDOUT, ">$arg") or return "open '>$arg': $!\n";
 	} elsif ($opt eq "n") {
 	    $arg ||= shift @options;
 	    $module_name = $arg;