remove unneeded shebang

[p5sagit/Devel-Declare.git] / t / scanstr.t

diff --git a/t/scanstr.t b/t/scanstr.t
index 3344b8d..3c0d0f2 100644 (file)
--- a/t/scanstr.t
+++ b/t/scanstr.t
@@ -14,7 +14,8 @@ sub my_quote_parser {
   my $content = Devel::Declare::get_lex_stuff();
   Devel::Declare::clear_lex_stuff();
   my $linestr = Devel::Declare::get_linestr();
-  die "suprising len=$len" if $len <= 0;
+  die "surprising len=undef" if !defined($len);
+  die "surprising len=$len" if $len <= 0;
   $content =~ s/(.)/sprintf("\\x{%x}", ord($1))/seg;
   substr $linestr, $offset, $len, "(\"$content\")";
   Devel::Declare::set_linestr($linestr);