cvs commit: parrot assemble.pl

[thgibbs]

cvsuser     01/09/26 11:30:43

  Modified:    .        assemble.pl
  Log:
  Error now returns a non-zero status
  
  Courtesy of: Andrew Kuchling <[EMAIL PROTECTED]>
  
  Revision  Changes    Path
  1.47      +3 -3      parrot/assemble.pl
  
  Index: assemble.pl
  ===================================================================
  RCS file: /home/perlcvs/parrot/assemble.pl,v
  retrieving revision 1.46
  retrieving revision 1.47
  diff -u -w -r1.46 -r1.47
  --- assemble.pl       2001/09/26 17:38:17     1.46
  +++ assemble.pl       2001/09/26 18:30:43     1.47
  @@ -65,7 +65,7 @@
   # %equate maps assembler directives to their replacements.
   my %equate=('*'=>sub { return $pc },
            '__DATE__'=>'"'.scalar(localtime).'"',
  -         '__VERSION__'=>'" $Revision: 1.46 $ "',
  +         '__VERSION__'=>'" $Revision: 1.47 $ "',
            '__LINE__' => sub { return $line },
            '__FILE__' => sub { return "\"$file\"" });
   
  @@ -126,7 +126,7 @@
     }
     
     if($options{'version'}) {
  -    print $0,'Version $Id: assemble.pl,v 1.46 2001/09/26 17:38:17 thgibbs Exp $ 
',"\n";
  +    print $0,'Version $Id: assemble.pl,v 1.47 2001/09/26 18:30:43 thgibbs Exp $ 
',"\n";
       exit;
     }
     
  @@ -635,7 +635,7 @@
   sub error {
       my($message,$file,$line)=@_;
       print STDERR "Error ($file:$line): $message\n";
  -    exit;
  +    exit 1;
   }
   
   # log_message