cvs commit: parrot assemble.pl

[dan]

cvsuser     01/09/19 14:42:41

  Modified:    .        assemble.pl
  Log:
  Binmodes the output filehandles now. (No more bytecode munching...)
  
  Revision  Changes    Path
  1.29      +4 -2      parrot/assemble.pl
  
  Index: assemble.pl
  ===================================================================
  RCS file: /home/perlcvs/parrot/assemble.pl,v
  retrieving revision 1.28
  retrieving revision 1.29
  diff -u -w -r1.28 -r1.29
  --- assemble.pl       2001/09/19 19:54:12     1.28
  +++ assemble.pl       2001/09/19 21:42:41     1.29
  @@ -17,7 +17,7 @@
                      'listing=s'));
   
   if($options{'version'}) {
  -    print $0,'Version $Id: assemble.pl,v 1.28 2001/09/19 19:54:12 thgibbs Exp $ 
',"\n";
  +    print $0,'Version $Id: assemble.pl,v 1.29 2001/09/19 21:42:41 n Exp $ ',"\n";
       exit;
   }
   
  @@ -75,7 +75,7 @@
   my $line=0;
   my %equate=('*'=>sub { return $pc },
            '__DATE__'=>'"'.scalar(localtime).'"',
  -         '__VERSION__'=>'" $Revision: 1.28 $ "',
  +         '__VERSION__'=>'" $Revision: 1.29 $ "',
            '__LINE__' => sub { return $line });
   while(<>) {
       $line++;
  @@ -335,9 +335,11 @@
   if(!$options{'checksyntax'}) {
       if(defined $options{'output'} and $options{'output'} ne "") {
        open O,">$options{'output'}" || die $!;
  +     binmode O;
        print O $output;
        close O;
       } else {
  +     binmode STDOUT;
        print $output;
       }
   }