[PATCH] Remove the code that optionally gets a file to print to. We always want to print to STDOUT.

[andy]

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