cvsuser 02/01/07 03:43:42
Modified: . Configure.pl
Log:
Gobble the + before catenating.
Revision Changes Path
1.74 +3 -3 parrot/Configure.pl
Index: Configure.pl
===================================================================
RCS file: /cvs/public/parrot/Configure.pl,v
retrieving revision 1.73
retrieving revision 1.74
diff -u -w -r1.73 -r1.74
--- Configure.pl 6 Jan 2002 18:03:57 -0000 1.73
+++ Configure.pl 7 Jan 2002 11:43:42 -0000 1.74
@@ -2,7 +2,7 @@
#
# Configure.pl
#
-# $Id: Configure.pl,v 1.73 2002/01/06 18:03:57 dan Exp $
+# $Id: Configure.pl,v 1.74 2002/01/07 11:43:42 simon Exp $
#
# Author: Brent Dax
#
@@ -42,7 +42,7 @@
if($opt_version) {
print "Parrot Version $parrot_version Configure\n";
- print '$Id: Configure.pl,v 1.73 2002/01/06 18:03:57 dan Exp $' . "\n";
+ print '$Id: Configure.pl,v 1.74 2002/01/07 11:43:42 simon Exp $' . "\n";
exit;
}
@@ -631,7 +631,7 @@
print "$message [$c{$field}] ";
chomp($input=<STDIN>);
- if($input =~ /^\+/) {
+ if($input =~ s/^\+//) {
$input="$c{$field} $input";
}
