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;
$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);
}
}
$args1 = join(' ', @cmd1);
$args2 = join(' ', @cmd2);
-# Common mistake: if you don't set any traceflags this often isn't
+# Common mistake: if you don't set any debugflags this often isn't
# doing what you want.
-if ($args1 !~ /--trace-flags/) {
+if ($args1 !~ /--debug-flags/) {
print "****\n";
- print "**** WARNING: no trace flags set... you may not be diffing much!\n";
+ print "**** WARNING: no debug flags set... you may not be diffing much!\n";
print "****\n";
}