diff options
| author | Craig A. Berry <craigberry@mac.com> | 2012-01-06 14:23:59 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2012-01-14 14:18:31 -0600 |
| commit | 06ecd9c7d6f2e180fba0ccf7dcf604546e6d0f27 (patch) | |
| tree | f9c627ab551faf805916ebc23acc8b5f2ad52636 | |
| parent | 34024f3519b60b2efca47c69c90d78a802538f8f (diff) | |
| download | perl-06ecd9c7d6f2e180fba0ccf7dcf604546e6d0f27.tar.gz | |
Stop inadvertently skipping Spec.t on VMS.
ae5a807c7dcf moved a check against $@ away from the eval it was
checking and inserted another eval in between, the effect of which
was to make the tests that can only run on VMS get skipped there
too. Ouch.
There are other problems with ae5a807c7dcf, but this is a start.
| -rw-r--r-- | dist/Cwd/t/Spec.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/dist/Cwd/t/Spec.t b/dist/Cwd/t/Spec.t index 950fa7aa4f..983c53131a 100644 --- a/dist/Cwd/t/Spec.t +++ b/dist/Cwd/t/Spec.t @@ -7,10 +7,6 @@ require_ok('File::Spec'); require Cwd; -eval { - require VMS::Filespec ; -} ; - my $vms_unix_rpt; my $vms_efs; @@ -29,6 +25,10 @@ if ($^O eq 'VMS') { my $skip_exception = "Install VMS::Filespec (from vms/ext)" ; +eval { + require VMS::Filespec ; +} ; + if ( $@ ) { # Not pretty, but it allows testing of things not implemented solely # on VMS. It might be better to change File::Spec::VMS to do this, |