diff options
Diffstat (limited to 'util/tracediff')
-rwxr-xr-x | util/tracediff | 7 |
1 files 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); } } |