diff options
| author | fukachan <fukachan> | 2006-03-20 06:03:07 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2006-03-20 06:03:07 +0000 |
| commit | c0426efdf3e95e0d08d97db2b63c3587c27e1075 (patch) | |
| tree | 6d77431088fac62ae803b148fc2ff17785f3f395 | |
| parent | 03a582af86981af9e5984a9113a35dd4411b6caf (diff) | |
| download | fml8-c0426efdf3e95e0d08d97db2b63c3587c27e1075.tar.gz fml8-c0426efdf3e95e0d08d97db2b63c3587c27e1075.tar.bz2 fml8-c0426efdf3e95e0d08d97db2b63c3587c27e1075.zip | |
fix \s handling bugf
| -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"; } |