Index: Parser.pm
===================================================================
--- Parser.pm	(revision 112)
+++ Parser.pm	(revision 113)
@@ -55,7 +55,9 @@
 			return $self;
 		}
 	}
-    } elsif ((ref $input eq "GLOB") or (ref $input eq 'Apache::Upload') or (ref $input eq 'IO::File')) {
+    } elsif ( ref $input eq 'Apache::Upload' ) {
+	$fh = $input->fh;
+    } elsif ((ref $input eq "GLOB") or (ref $input eq 'IO::File')) {
 	$fh = $input;
     } elsif (ref $input eq "SCALAR") {
 	$fh = IO::Scalar->new($input);