Rewind exhausted globs before attempting a read

(on a side note all this IO::Scalar business is just silly, not touching because a rewrite is imminent anyway)

diff --git a/lib/SQL/Translator.pm b/lib/SQL/Translator.pm
index e089e70..99e250d 100644 (file)
--- a/lib/SQL/Translator.pm
+++ b/lib/SQL/Translator.pm
@@ -318,6 +318,7 @@ sub data {
                 $data = join '', @$data;
             }
             elsif (isa($data, 'GLOB')) {
+                seek ($data, 0, 0) if eof ($data);
                 local $/;
                 $data = <$data>;
             }