From 1edb10ed44c801a1f1a20404d842f288e5a29380 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 3 Aug 2005 09:07:11 +0000 Subject: add and cleanup --- test/check_dmidecode.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'test/check_dmidecode.pl') diff --git a/test/check_dmidecode.pl b/test/check_dmidecode.pl index 53adb90d..d81cfbc9 100755 --- a/test/check_dmidecode.pl +++ b/test/check_dmidecode.pl @@ -17,7 +17,7 @@ foreach my $file (glob("dmidecode.*")) { my @surprise = difference2([ keys %got ], [ keys %wanted ]); if (@surprise) { - warn "for $file, surprise: ", join(' ', map { "$_ => $got{$_}" } @surprise), "\n"; + warn "for $file, surprise: ", join(' ', map { "(=> $_: $got{$_})" } @surprise), "\n"; } my @bad = grep { $wanted{$_} ne $got{$_} } intersection([ keys %wanted ], [ keys %got ]); -- cgit v1.2.1