diff options
Diffstat (limited to 'Perl/t')
-rw-r--r-- | Perl/t/TestLog.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/Perl/t/TestLog.pm b/Perl/t/TestLog.pm index 9488dcd..e50374a 100644 --- a/Perl/t/TestLog.pm +++ b/Perl/t/TestLog.pm @@ -181,14 +181,17 @@ sub printableItem { return printableArray ( @{$value} ); } elsif ($ref eq 'Tk::Photo') { - return "Tk::Photo(\"". $value->cget(-file) . "\)"; + return 'Tk::Photo("'. $value->cget(-file) . '")'; } elsif ($ref eq '') { # scalar if (defined $value) { if ($value eq '') { return "''"; + } elsif ($value =~ /^-[a-zA-Z_]+$/) { + ## for the -attribut + return $value; } elsif ($value =~ /\s/ - or $value =~ /^[a-zA-Z]/ + or $value =~ /[a-zA-Z]/ or $value =~ /^[\W]$/ ) { return "'$value'"; } else { @@ -232,7 +235,7 @@ sub printableList { while (@_) { my $v = shift @_; $res .= &printableItem($v); - if (defined $v and $v =~ /^-\w+/) { + if (defined $v and $v =~ /^-\w+/ and @_) { $res .= " => "; } elsif (@_) { $res .= ", "; |