diff options
author | mertz | 2005-06-27 08:32:03 +0000 |
---|---|---|
committer | mertz | 2005-06-27 08:32:03 +0000 |
commit | ab482cfb020ab2979616a4f0490a35d6164f3d38 (patch) | |
tree | bbc7438e64f815b4a715abd4ee6b4a884901903b /Perl/Zinc | |
parent | 23a7028c9f64190b0f7fc7b1569aa418c59c9f62 (diff) | |
download | tkzinc-ab482cfb020ab2979616a4f0490a35d6164f3d38.zip tkzinc-ab482cfb020ab2979616a4f0490a35d6164f3d38.tar.gz tkzinc-ab482cfb020ab2979616a4f0490a35d6164f3d38.tar.bz2 tkzinc-ab482cfb020ab2979616a4f0490a35d6164f3d38.tar.xz |
previous update was totally buggy (and not tested at all)... shame on me.
Diffstat (limited to 'Perl/Zinc')
-rw-r--r-- | Perl/Zinc/TraceUtils.pm | 17 |
1 files changed, 8 insertions, 9 deletions
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"; } |