From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 5 Feb 2007 18:53:18 +0000 (+0000)
Subject: t/lib/common.pl can be warnings clean.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=742dc32d6acf0f4dd57e97fd4c64104357557a1c;p=p5sagit%2Fp5-mst-13.2.git

t/lib/common.pl can be warnings clean.

p4raw-id: //depot/perl@30136
---

diff --git a/t/lib/common.pl b/t/lib/common.pl
index e4c1463..36d45f3 100644
--- a/t/lib/common.pl
+++ b/t/lib/common.pl
@@ -9,6 +9,7 @@ use File::Path;
 use File::Spec::Functions;
 
 use strict;
+use warnings;
 our $pragma_name;
 
 $| = 1;
@@ -76,7 +77,7 @@ for (@prgs){
     $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$@";