--- lib/autodie/t/hints.t;-0	2009-07-08 01:44:17 -0500
+++ lib/autodie/t/hints.t	2009-07-08 07:28:50 -0500
@@ -15,6 +15,7 @@ use constant NO_SUCH_FILE2 => "this_file
 
 use constant PERL510  => ( $] >= 5.0100 );
 use constant PERL5101 => ( $] >= 5.0101 );
+use constant PERL5102 => ( $] >= 5.0102 );
 
 use Hints_test qw(
     fail_on_empty fail_on_false fail_on_undef
@@ -66,6 +67,9 @@ SKIP: {
     skip("File::Copy is weird on Win32 before 5.10.1", 1)
         if ( ! PERL5101 and $^O eq "MSWin32" );
 
+    skip("File::Copy is weird on VMS before 5.10.2", 1)
+        if ( ! PERL5102 and $^O eq "VMS" );
+
     is($@->return, 0, "File::Copy returns zero on failure");
 }
 
@@ -88,6 +92,9 @@ SKIP: {
     skip("File::Copy is weird on Win32 before 5.10.1", 1)
         if ( ! PERL5101 and $^O eq "MSWin32" );
 
+    skip("File::Copy is weird on VMS before 5.10.2", 1)
+        if ( ! PERL5102 and $^O eq "VMS" );
+
     is_deeply($@->return, [0], "File::Copy returns zero on failure");
 }
 is($@->context, "list", "File::Copy called in list context");