FileHandle.t vs. VMS: empty filenames legal

Trying to ensure you can't create a file with a zero-length
name doesn't work out so well when you can can create such
a file, so skip that test.  It's the equivalent of:

$ create sys$disk:[].
^Z
$ dir/since .

Directory DSA0:[blead.t]

.;1

Total of 1 file.

Author: craigberry

lib/FileHandle.t

@@ -90,6 +90,10 @@ ok($|, "handle auto-flushing current output channel");
     }
 }
 
-ok(!FileHandle->new('', 'r'), "Can't open empty filename");
+SKIP: {
+    skip "Empty filename perfectly legal on VMS", 1 if $^O eq 'VMS';
+    ok(!FileHandle->new('', 'r'), "Can't open empty filename");
+}
+
 
 done_testing();