cvs commit: parrot assemble.pl

[simon]

cvsuser     01/09/23 18:17:50

  Modified:    .        assemble.pl
  Log:
  Shit-sweeping.
  
  Revision  Changes    Path
  1.42      +4 -3      parrot/assemble.pl
  
  Index: assemble.pl
  ===================================================================
  RCS file: /home/perlcvs/parrot/assemble.pl,v
  retrieving revision 1.41
  retrieving revision 1.42
  diff -u -w -r1.41 -r1.42
  --- assemble.pl       2001/09/24 00:56:45     1.41
  +++ assemble.pl       2001/09/24 01:17:50     1.42
  @@ -21,10 +21,11 @@
                      'listing=s',
                      'include=s@'));
   
  -my @include=(@{$options{'include'}},'.');
  +my @include = qw(.);
  +push @include,  @{$options{'include'}} if $options{'include'};
   
   if($options{'version'}) {
  -    print $0,'Version $Id: assemble.pl,v 1.41 2001/09/24 00:56:45 bdwheele Exp $ 
',"\n";
  +    print $0,'Version $Id: assemble.pl,v 1.42 2001/09/24 01:17:50 simon Exp $ 
',"\n";
       exit;
   }
   
  @@ -79,7 +80,7 @@
   my ($file,$line,$pline,$sline);
   my %equate=('*'=>sub { return $pc },
            '__DATE__'=>'"'.scalar(localtime).'"',
  -         '__VERSION__'=>'" $Revision: 1.41 $ "',
  +         '__VERSION__'=>'" $Revision: 1.42 $ "',
            '__LINE__' => sub { return $line },
            '__FILE__' => sub { return "\"$file\"" });