diff options
| author | markm <markm@FreeBSD.org> | 1999-05-02 14:33:17 +0000 |
|---|---|---|
| committer | markm <markm@FreeBSD.org> | 1999-05-02 14:33:17 +0000 |
| commit | 77644ee620b6a79cf8c538abaf7cd301a875528d (patch) | |
| tree | b4adabf341898a4378f4b7f8c7fb65f3f7c77769 /contrib/perl5/t/op/pat.t | |
| parent | 4fcbc3669aa997848e15198cc9fb856287a6788c (diff) | |
| download | FreeBSD-src-77644ee620b6a79cf8c538abaf7cd301a875528d.zip FreeBSD-src-77644ee620b6a79cf8c538abaf7cd301a875528d.tar.gz | |
Maintenance releace 3 of perl5.005. Includes support for threads.
Diffstat (limited to 'contrib/perl5/t/op/pat.t')
| -rwxr-xr-x | contrib/perl5/t/op/pat.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/contrib/perl5/t/op/pat.t b/contrib/perl5/t/op/pat.t index 7d4278f..ed8c778 100755 --- a/contrib/perl5/t/op/pat.t +++ b/contrib/perl5/t/op/pat.t @@ -4,7 +4,7 @@ # the format supported by op/regexp.t. If you want to add a test # that does fit that format, add it to op/re_tests, not here. -print "1..141\n"; +print "1..142\n"; BEGIN { chdir 't' if -d 't'; @@ -595,3 +595,8 @@ print "not " if @_; print "ok $test\n"; $test++; +# see if matching against temporaries (created via pp_helem()) is safe +{ foo => "ok $test\n".$^X }->{foo} =~ /^(.*)\n/g; +print "$1\n"; +$test++; + |
