From ab482cfb020ab2979616a4f0490a35d6164f3d38 Mon Sep 17 00:00:00 2001
From: mertz
Date: Mon, 27 Jun 2005 08:32:03 +0000
Subject: previous update was totally buggy (and not tested at all)... shame on
 me.

---
 Perl/Zinc/TraceUtils.pm | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

(limited to 'Perl/Zinc')

diff --git a/Perl/Zinc/TraceUtils.pm b/Perl/Zinc/TraceUtils.pm
index 95327ce..b7baa54 100644
--- a/Perl/Zinc/TraceUtils.pm
+++ b/Perl/Zinc/TraceUtils.pm
@@ -50,16 +50,15 @@ sub Item {
             } else {
               return $value;
             }
+          } elsif ($value eq ''
+                   or $value =~ /\s/
+                   or $value =~ /^[a-zA-Z]/
+                   or $value =~ /^[\W]/
+                  ) {
+            return "'$value'";
+          } else {
+            return $value;
           }
-        } elsif ($value eq ''
-		     or $value =~ /\s/
-		     or $value =~ /^[a-zA-Z]/
-		     or $value =~ /^[\W]/
-		     ) {
-		return "'$value'";
-	    } else {
-		return $value;
-	    }
 	} else {
 	    return "_undef";
 	}
-- 
cgit v1.1