From 31867b10c11defb596f15ed6567e2e4e1f2bbb93 Mon Sep 17 00:00:00 2001
From: mertz
Date: Fri, 21 Mar 2003 13:25:41 +0000
Subject: 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 '

---
 Perl/t/TestLog.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'Perl/t/TestLog.pm')

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