[PATCH] Remove the code that can optionally generate to a filename. We only use stdout.

[andy]

From: Andy Lester <a...@petdance.com>

---
 build/Makefile.in         |    6 +++---
 build/gen_junction_pir.pl |   12 +++---------
 build/gen_uprop_pir.pl    |   13 ++++---------
 build/gen_whatever_pir.pl |   12 +++---------
 4 files changed, 13 insertions(+), 30 deletions(-)

diff --git a/build/Makefile.in b/build/Makefile.in
index ebf1a82..5ebb49f 100644
--- a/build/Makefile.in
+++ b/build/Makefile.in
@@ -203,13 +203,13 @@ src/gen_metaop.pir: build/gen_metaop_pir.pl
        $(PERL) build/gen_metaop_pir.pl > src/gen_metaop.pir
 
 src/gen_junction.pir: build/gen_junction_pir.pl
-       $(PERL) build/gen_junction_pir.pl src/gen_junction.pir
+       $(PERL) build/gen_junction_pir.pl > src/gen_junction.pir
 
 src/gen_whatever.pir: build/gen_whatever_pir.pl
-       $(PERL) build/gen_whatever_pir.pl src/gen_whatever.pir
+       $(PERL) build/gen_whatever_pir.pl > src/gen_whatever.pir
 
 src/gen_uprop.pir: build/gen_uprop_pir.pl
-       $(PERL) build/gen_uprop_pir.pl src/gen_uprop.pir
+       $(PERL) build/gen_uprop_pir.pl > src/gen_uprop.pir
 
 src/gen_setting.pm: Makefile build/gen_setting_pm.pl $(SETTING)
        $(PERL) build/gen_setting_pm.pl $(SETTING) > src/gen_setting.pm
diff --git a/build/gen_junction_pir.pl b/build/gen_junction_pir.pl
index 3597321..3a8f05c 100644
--- a/build/gen_junction_pir.pl
+++ b/build/gen_junction_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;
@@ -19,12 +19,8 @@ my @unary = qw(
   prefix:++ prefix:-- postfix:++ postfix:--
 );
 
-my $output = $ARGV[0] || '-';
-
-open my $fh, "> $output" or die "Could not write $output: $!";
-
 for (@unary) {
-    print $fh qq(
+    print qq(
         .namespace []
         .sub '$_' :multi('Junction')
             .param pmc x
@@ -34,7 +30,7 @@ for (@unary) {
 }
 
 for (@binary) {
-    print $fh qq(
+    print qq(
         .namespace []
         .sub '$_' :multi('Junction', _)
             .param pmc x
@@ -49,5 +45,3 @@ for (@binary) {
         .end
     );
 }
-
-close $fh or die $!;
diff --git a/build/gen_uprop_pir.pl b/build/gen_uprop_pir.pl
index 8304a7e..eddf40f 100644
--- a/build/gen_uprop_pir.pl
+++ b/build/gen_uprop_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;
@@ -271,14 +271,11 @@ my @prop = qw(
     Zs
 );
 
-my $output = $ARGV[0] || '-';
-
-open my $fh, "> $output" or die "Could not write $output: $!";
-print $fh qq{
+print qq{
 
     .HLL 'parrot'
     .namespace ['PGE';'Match']
-    
+
     .sub '!uprop' :anon
         .param pmc mob
         .param string uprop
@@ -295,11 +292,9 @@ print $fh qq{
 };
 
 for (@prop) {
-    print $fh qq(
+    print qq(
         .sub 'is$_' :method
             .tailcall '!uprop'(self, '$_')
         .end
     );
 }
-        
-close $fh or die $!;
diff --git a/build/gen_whatever_pir.pl b/build/gen_whatever_pir.pl
index b7a1507..39ed799 100644
--- a/build/gen_whatever_pir.pl
+++ b/build/gen_whatever_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;
@@ -10,10 +10,6 @@ my @ops = qw(
   infix:== infix:!= infix:<  infix:>  infix:<= infix:>= infix:<=>
 );
 
-my $output = $ARGV[0] || "-";
-
-open my $fh, "> $output" or die "Could not write $output: $!";
-
 for (@ops) {
     my $gen = '
         .namespace []
@@ -47,10 +43,10 @@ for (@ops) {
         .end
     ';
     $gen =~ s/\$_/$_/g;
-    print $fh $gen;
+    print $gen;
 }
 
-print $fh '
+print '
 .sub "!whatever_helper_left"
     .param pmc left 
     $P0 = find_lex "$op"
@@ -64,5 +60,3 @@ print $fh '
     .tailcall $P0($P1, right)
 .end
 ';
-
-close $fh or die $!;
-- 
1.6.2.4