diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-12-26 13:11:28 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-12-26 13:11:28 +0100 |
| commit | e7049783a827d931f30447582253605eb3b93210 (patch) | |
| tree | 45914068b4a0d1f27bb1ea24dc8e92b5fd5885f6 /t/run/switchI.t | |
| parent | b16c2e4a254d31480561f2bca5aeaeb75328de9c (diff) | |
| download | perl-e7049783a827d931f30447582253605eb3b93210.tar.gz | |
Revert "[perl #6665] Different behavior using the -Idir option on the command line and inside a perl script"
This reverts commit ccb8f6a64f3dd06b4360bc27c194b28e6766a6ad.
Diffstat (limited to 't/run/switchI.t')
| -rw-r--r-- | t/run/switchI.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/run/switchI.t b/t/run/switchI.t index cfb0f6e949..41192cd765 100644 --- a/t/run/switchI.t +++ b/t/run/switchI.t @@ -15,11 +15,11 @@ my $Is_VMS = $^O eq 'VMS'; my $lib; $lib = $Is_MacOS ? ':Bla:' : 'Bla'; -ok(grep { $_ eq $lib } @INC[0..($#INC-1)]); +ok(grep { $_ eq $lib } @INC); SKIP: { skip 'Double colons not allowed in dir spec', 1 if $Is_VMS; $lib = $Is_MacOS ? 'Foo::Bar:' : 'Foo::Bar'; - ok(grep { $_ eq $lib } @INC[0..($#INC-1)]); + ok(grep { $_ eq $lib } @INC); } $lib = $Is_MacOS ? ':Bla2:' : 'Bla2'; |