From c0426efdf3e95e0d08d97db2b63c3587c27e1075 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Mon, 20 Mar 2006 06:03:07 +0000
Subject: fix \s handling bugf

---
 regress/fml4to8/test.pl | 5 +++--
 1 file 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";
 	    }
-- 
cgit v1.2.1