[win32] integrate mainline

[p5sagit/p5-mst-13.2.git] / ext / B / B / CC.pm

diff --git a/ext/B/B/CC.pm b/ext/B/B/CC.pm
index fc7cf6d..4c877d9 100644 (file)
--- 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;