From 3701794d330e9c86595761989cc8d59bbe8c88b1 Mon Sep 17 00:00:00 2001 From: Steve Reinhardt Date: Mon, 17 Nov 2008 11:22:16 -0800 Subject: [PATCH] Minor tracediff bug fixes. --- util/tracediff | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/util/tracediff b/util/tracediff index 5f980ea5c..5349c303d 100755 --- a/util/tracediff +++ b/util/tracediff @@ -87,8 +87,11 @@ if (@ARGV < 1) { foreach $arg (@ARGV) { $a1 = $a2 = ''; - @subargs = split('#', $arg, -1); + @subargs = split('#', $arg); foreach $subarg (@subargs) { + if ($subarg eq '') { + next; + } @pair = split('\|', $subarg, -1); # -1 enables null trailing fields if (@pair == 1) { $a1 .= $subarg; @@ -97,7 +100,7 @@ foreach $arg (@ARGV) { $a1 .= $pair[0]; $a2 .= $pair[1]; } else { - print 'Parse error: too many |s in ', $arg, '\n'; + print 'Parse error: too many |s in ', $arg, "\n"; exit(1); } } -- 2.30.2