Re: File::Copy, autodie, VMS (was Re: maint-5.10-1531-ga5f97a6 on VMS status)
"Craig A. Berry" <[email protected]>
| Newsgroups | gmane.comp.lang.perl.ports.vms,gmane.comp.lang.perl.perl5.porters |
|---|---|
| Message-ID | <[email protected]> |
On Jul 8, 2009, at 4:18 AM, Dave Mitchell wrote: > On Tue, Jul 07, 2009 at 10:48:12PM -0500, Craig A. Berry wrote: >> >>>> I can patch autodie to skip this test on VMS, >> >> Thanks, Paul. That would be ok with me for 5.10.1, and I think would >> just mean adding a clause to the Windows skippage that's already >> there. > > For 5.10.1, that sounds like the lowest risk option. Patch attached. ________________________________________ Craig A. Berry mailto:[email protected] "... getting out of a sonnet is much more difficult than getting in." Brad Leithauser
vms_hints_t.patch
(application/octet-stream, 1 KB)
--- 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");