From: simonmar <unknown>
Date: Thu, 9 Jan 2003 15:49:25 +0000 (+0000)
Subject: [project @ 2003-01-09 15:49:25 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1278
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=34a7ef9c84fedbbb8d181dd1cfeb8aee5601c206;p=ghc-hetmet.git

[project @ 2003-01-09 15:49:25 by simonmar]
small fix:  'if ($x)' is not the same as 'if ($x ne "")'
---

diff --git a/glafp-utils/runstdtest/runstdtest.prl b/glafp-utils/runstdtest/runstdtest.prl
index 26ba0cb..e6a3534 100644
--- a/glafp-utils/runstdtest/runstdtest.prl
+++ b/glafp-utils/runstdtest/runstdtest.prl
@@ -305,7 +305,7 @@ exit 0;
 sub grab_arg_arg {
     local($option, $rest_of_arg) = @_;
     
-    if ($rest_of_arg) {
+    if ($rest_of_arg ne "") {
 	return($rest_of_arg);
     } elsif ($#ARGV >= 0) {
 	local($temp) = $ARGV[0]; shift(@ARGV);