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 '

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 .= ", ";