cvs commit: parrot assemble.pl

[bdwheele]

cvsuser     01/09/23 18:21:46

  Modified:    .        assemble.pl
  Log:
  fixed dumb code when --include was not specified.
  
  Revision  Changes    Path
  1.43      +6 -4      parrot/assemble.pl
  
  Index: assemble.pl
  ===================================================================
  RCS file: /home/perlcvs/parrot/assemble.pl,v
  retrieving revision 1.42
  retrieving revision 1.43
  diff -u -w -r1.42 -r1.43
  --- assemble.pl       2001/09/24 01:17:50     1.42
  +++ assemble.pl       2001/09/24 01:21:46     1.43
  @@ -21,11 +21,13 @@
                      'listing=s',
                      'include=s@'));
   
  -my @include = qw(.);
  -push @include,  @{$options{'include'}} if $options{'include'};
  +my(@include)=('.');
  +if($options{'include'}) {
  +    unshift(@include,@{$options{'include'}});
  +}
   
   if($options{'version'}) {
  -    print $0,'Version $Id: assemble.pl,v 1.42 2001/09/24 01:17:50 simon Exp $ 
',"\n";
  +    print $0,'Version $Id: assemble.pl,v 1.43 2001/09/24 01:21:46 bdwheele Exp $ 
',"\n";
       exit;
   }
   
  @@ -80,7 +82,7 @@
   my ($file,$line,$pline,$sline);
   my %equate=('*'=>sub { return $pc },
            '__DATE__'=>'"'.scalar(localtime).'"',
  -         '__VERSION__'=>'" $Revision: 1.42 $ "',
  +         '__VERSION__'=>'" $Revision: 1.43 $ "',
            '__LINE__' => sub { return $line },
            '__FILE__' => sub { return "\"$file\"" });