Change 30136 by [EMAIL PROTECTED] on 2007/02/05 18:53:18
t/lib/common.pl can be warnings clean.
Affected files ...
... //depot/perl/t/lib/common.pl#9 edit
Differences ...
==== //depot/perl/t/lib/common.pl#9 (text) ====
Index: perl/t/lib/common.pl
--- perl/t/lib/common.pl#8~30123~ 2007-02-04 16:12:25.000000000 -0800
+++ perl/t/lib/common.pl 2007-02-05 10:53:18.000000000 -0800
@@ -9,6 +9,7 @@
use File::Spec::Functions;
use strict;
+use warnings;
our $pragma_name;
$| = 1;
@@ -76,7 +77,7 @@
$todo = $prog =~ s/^#\s*TODO\s*(.*)\n//m and $todo_reason = $1;
# If the TODO reason starts ? then it's taken as a code snippet to evaluate
# This provides the flexibility to have conditional TODOs
- if ($todo_reason =~ s/^\?//) {
+ if ($todo_reason && $todo_reason =~ s/^\?//) {
my $temp = eval $todo_reason;
if ($@) {
die "# In TODO code reason:\n# $todo_reason\n$@";
End of Patch.
