Change 33092 by [EMAIL PROTECTED] on 2008/01/28 14:06:59
Warning cleanup, and avoid a double call to uc
Affected files ...
... //depot/perl/lib/TAP/Parser/Grammar.pm#4 edit
Differences ...
==== //depot/perl/lib/TAP/Parser/Grammar.pm#4 (text) ====
Index: perl/lib/TAP/Parser/Grammar.pm
--- perl/lib/TAP/Parser/Grammar.pm#3~33091~ 2008-01-28 05:58:55.000000000
-0800
+++ perl/lib/TAP/Parser/Grammar.pm 2008-01-28 06:06:59.000000000 -0800
@@ -133,7 +133,7 @@
}
return $self->_make_test_token(
$line, $ok, $num, $desc,
- uc $dir, $explanation
+ $dir, $explanation
);
},
},
@@ -372,7 +372,7 @@
ok => $ok,
test_num => $num,
description => _trim($desc),
- directive => uc($dir),
+ directive => uc($dir || ""),
explanation => _trim($explanation),
raw => $line,
type => 'test',
End of Patch.
