# New Ticket Created by Andy Lester
# Please include the string: [perl #64982]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=64982 >
From: Andy Lester <a...@petdance.com>
---
build/gen_metaop_pir.pl | 13 ++++---------
1 files changed, 4 insertions(+), 9 deletions(-)
diff --git a/build/gen_metaop_pir.pl b/build/gen_metaop_pir.pl
index 78e4fce..9af1746 100644
--- a/build/gen_metaop_pir.pl
+++ b/build/gen_metaop_pir.pl
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# Copyright (C) 2008, The Perl Foundation.
+# Copyright (C) 2008-2009, The Perl Foundation.
# $Id$
use strict;
@@ -52,9 +52,6 @@ my @ops = qw(
);
-my $output = $ARGV[0] || '-';
-
-
my $assignfmt =
" optable.'newtok'('infix:%s=', 'equiv'=>'infix::=', 'lvalue'=>1)\n";
my $reducefmt =
@@ -163,8 +160,7 @@ while (@ops) {
my $gtokens = join('', @gtokens);
-open my $fh, "> $output" or die "Could not write $output: $!";
-print $fh qq(
+print qq(
.namespace []
.sub '' :init :load
.local pmc optable
@@ -174,7 +170,6 @@ $gtokens
);
-print $fh @code;
+print @code;
-close $fh;
-0;
+exit 0;
--
1.6.2.4
