diff options
| -rwxr-xr-x | regress/fml4to8/test.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/regress/fml4to8/test.pl b/regress/fml4to8/test.pl index 24aa668a..b70c9b51 100755 --- a/regress/fml4to8/test.pl +++ b/regress/fml4to8/test.pl @@ -1,6 +1,6 @@ #!/usr/bin/env perl # -# $FML: test.pl,v 1.1 2006/02/24 12:49:13 fukachan Exp $ +# $FML: test.pl,v 1.2 2006/02/24 13:53:51 fukachan Exp $ # use strict; @@ -99,7 +99,8 @@ sub expand } } - $v =~ s/\s*//g; + $v =~ s/^\s*//g; + $v =~ s/\s*$//g; if ($v =~ /^\d+$/) { print $wh "\$${name} = $v;\n\n"; } |