fixed bug where a filehandle is seen as a file https://rt.cpan.org/Pu…

…blic/Bug/Display.html?id=97461
mirod · Oct 5, 2014 · a8f9205 · a8f9205
1 parent 3f631e8
commit a8f9205
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/Twig_pm.slow b/Twig_pm.slow
@@ -763,6 +763,7 @@ sub parse
     if(    !$t 
         && $@=~m{(syntax error at line 1, column 0, byte 0|not well-formed \(invalid token\) at line 1, column 1, byte 1)} 
         && -f $_[0]
+        && ref( $_[0]) && ref( $_[0]) ne 'GLOB' # -f works on a filehandle, so this make sure $_[0] is a real file
       )
       { croak "you seem to have used the parse method on a filename ($_[0]), you probably want parsefile instead"; }
     return _checked_parse_result( $t, $@);