diff options
author | mertz | 2003-03-21 13:25:41 +0000 |
---|---|---|
committer | mertz | 2003-03-21 13:25:41 +0000 |
commit | 31867b10c11defb596f15ed6567e2e4e1f2bbb93 (patch) | |
tree | fea46bb2cef386eeef77f2d2ad788ae01085541d /Perl/t | |
parent | dc52b76e565ab6d780e65860eeb34dced5be1f1a (diff) | |
download | tkzinc-31867b10c11defb596f15ed6567e2e4e1f2bbb93.zip tkzinc-31867b10c11defb596f15ed6567e2e4e1f2bbb93.tar.gz tkzinc-31867b10c11defb596f15ed6567e2e4e1f2bbb93.tar.bz2 tkzinc-31867b10c11defb596f15ed6567e2e4e1f2bbb93.tar.xz |
encore quelques am�liorations de l'afficahge des listes perl � un format lisible:
- les items de type -option ne sont pas entre quote
- les fl�che => ne sont pas affich� en fin de liste
- les chaines de style 10x20 ou #ff00ff sont encadr�es par des '
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 .= ", "; |