Upgrade to Test::Harness 3.05

[p5sagit/p5-mst-13.2.git] / t / lib / sample-tests / shbang_misparse

diff --git a/t/lib/sample-tests/shbang_misparse b/t/lib/sample-tests/shbang_misparse
index bc1b524..ab93b46 100644 (file)
--- a/t/lib/sample-tests/shbang_misparse
+++ b/t/lib/sample-tests/shbang_misparse
@@ -8,5 +8,5 @@ print "1..2\n";
 print "ok 1\n";
 my $warning = '';
 $SIG{__WARN__} = sub { $warning .= $_[0] };
-eval("#" . substr($0, 0, 0));
+eval( "#" . substr( $0, 0, 0 ) );
 print $warning ? "not ok 2\n" : "ok 2\n";