cvs commit: parrot assemble.pl

[gregor]

cvsuser     01/09/24 09:01:58

  Modified:    .        assemble.pl
  Log:
    * Fixed a typo: s/Line/line/
  
  Revision  Changes    Path
  1.45      +3 -3      parrot/assemble.pl
  
  Index: assemble.pl
  ===================================================================
  RCS file: /home/perlcvs/parrot/assemble.pl,v
  retrieving revision 1.44
  retrieving revision 1.45
  diff -u -w -r1.44 -r1.45
  --- assemble.pl       2001/09/24 14:34:34     1.44
  +++ assemble.pl       2001/09/24 16:01:58     1.45
  @@ -27,7 +27,7 @@
   }
   
   if($options{'version'}) {
  -    print $0,'Version $Id: assemble.pl,v 1.44 2001/09/24 14:34:34 gregor Exp $ 
',"\n";
  +    print $0,'Version $Id: assemble.pl,v 1.45 2001/09/24 16:01:58 gregor Exp $ 
',"\n";
       exit;
   }
   
  @@ -82,7 +82,7 @@
   my ($file,$line,$pline,$sline);
   my %equate=('*'=>sub { return $pc },
            '__DATE__'=>'"'.scalar(localtime).'"',
  -         '__VERSION__'=>'" $Revision: 1.44 $ "',
  +         '__VERSION__'=>'" $Revision: 1.45 $ "',
            '__LINE__' => sub { return $line },
            '__FILE__' => sub { return "\"$file\"" });
   
  @@ -437,7 +437,7 @@
   ###############################
   
   sub error {
  -    my($message,$file,$Line)=@_;
  +    my($message,$file,$line)=@_;
       print STDERR "Error ($file:$line): $message\n";
       exit;
   }