cvs commit: parrot assemble.pl

[grunblatt]

cvsuser     02/06/01 01:06:53

  Modified:    .        assemble.pl
  Log:
  Unescape \\.
  
  Revision  Changes    Path
  1.54      +1 -0      parrot/assemble.pl
  
  Index: assemble.pl
  ===================================================================
  RCS file: /home/perlcvs/parrot/assemble.pl,v
  retrieving revision 1.53
  retrieving revision 1.54
  diff -u -w -r1.53 -r1.54
  --- assemble.pl       1 Jun 2002 03:54:13 -0000       1.53
  +++ assemble.pl       1 Jun 2002 08:06:53 -0000       1.54
  @@ -564,6 +564,7 @@
     my ($self,$constant) = @_;
     $constant=~s/\\n/\n/;
     $constant=~s/\\t/\t/;
  +  $constant=~s/\\\\/\\/;
   
     my $value = substr($constant,1,length($constant)-2);
     unless(defined $self->{constants}{s}{$value}) {