diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-08-25 08:43:22 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-25 08:51:17 -0700 |
commit | 71ba8c50f1810bb0a513a7156198036c67261f97 (patch) | |
tree | 6b576f632833e01e30bb8dee2b2003430c864d86 /t/op/coresubs.t | |
parent | a652020edec48a12d7ba5ed923427c10f2327059 (diff) | |
download | perl-71ba8c50f1810bb0a513a7156198036c67261f97.tar.gz |
coresubs.t: Minor clean-up
This fixes some infelicities in the new tests I added to this
file recently.
Diffstat (limited to 't/op/coresubs.t')
-rw-r--r-- | t/op/coresubs.t | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/t/op/coresubs.t b/t/op/coresubs.t index 2a2ce19f56..b744a3538d 100644 --- a/t/op/coresubs.t +++ b/t/op/coresubs.t @@ -257,12 +257,6 @@ lis [&mywantarray],[wantarray], '&wantarray itself in list context'; { last if is_miniperl; require File::Spec::Functions; - my($me) = File::Spec::Functions::catfile( - 'op', (File::Spec::Functions::splitpath(__FILE__))[2], - ); - open my $h, "<", $me or die "Cannot open $me: $!"; - {local $/; $me = <$h>} - close $h; my $keywords_file = File::Spec::Functions::catfile( File::Spec::Functions::updir,'regen','keywords.pl' @@ -272,7 +266,8 @@ lis [&mywantarray],[wantarray], '&wantarray itself in list context'; while(<$kh>) { if (m?__END__?..${\0} and /^[-](.*)/) { my $word = $1; - next if $word =~ /^(?:CORE|and|cmp|dump|eq|ge|gt|le|lt|ne|or|x|xor)/; + next if + $word =~ /^(?:CORE|and|cmp|dump|eq|ge|gt|le|lt|ne|or|x|xor)\z/; $tests ++; ok exists &{"my$word"} || (eval{&{"CORE::$word"}}, $@ =~ /cannot be called directly/), |