diff options
Diffstat (limited to 'Perl')
| -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"; } |