From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 28 Jan 2008 14:06:59 +0000 (+0000)
Subject: Warning cleanup, and avoid a double call to uc
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a62d3a1b93ee0907eb56a77cae3c306f3bc68d59;p=p5sagit%2Fp5-mst-13.2.git

Warning cleanup, and avoid a double call to uc

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

diff --git a/lib/TAP/Parser/Grammar.pm b/lib/TAP/Parser/Grammar.pm
index d82b455..1f5f2c3 100644
--- a/lib/TAP/Parser/Grammar.pm
+++ b/lib/TAP/Parser/Grammar.pm
@@ -133,7 +133,7 @@ my %language_for;
                 }
                 return $self->_make_test_token(
                     $line,   $ok, $num, $desc,
-                    uc $dir, $explanation
+                    $dir, $explanation
                 );
             },
         },
@@ -372,7 +372,7 @@ sub _make_test_token {
         ok          => $ok,
         test_num    => $num,
         description => _trim($desc),
-        directive   => uc($dir),
+        directive   => uc($dir || ""),
         explanation => _trim($explanation),
         raw         => $line,
         type        => 'test',