--- lib/twiki/ui/upload.pm_old	Thu Jul  3 20:08:44 2008
+++ lib/twiki/ui/upload.pm	Thu Jul  3 16:14:46 2008
@@ -212,6 +212,12 @@
             my @stats = stat $stream;
             $fileSize = $stats[7];
             $fileDate = $stats[9];
+
+            # SMELL size of an open file on VMS is 0 until the stream is flushed
+            # Perl on VMS currently never flushes the stream even if you ask
+            if ($fileSize == 0 && $^O eq 'VMS') {
+                $fileSize = 1;
+            }
         }
         unless( $fileSize && $fileName ) {
             throw TWiki::OopsException(