diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2001-04-29 18:09:30 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-30 11:22:03 +0000 |
| commit | 12d33761ed16a63d0b1b4afd6443ea446d40b38e (patch) | |
| tree | d8a7a6306b8d417f3518ef3a5dac554e8a62d1aa /t/op/subst.t | |
| parent | a453c1697467fe606ef79b5ab7a0eafaa8e78e7a (diff) | |
| download | perl-12d33761ed16a63d0b1b4afd6443ea446d40b38e.tar.gz | |
Re: [PATCH bleadperl] [ID 20010426.002] Word boundry regex [...]
Message-Id: <200104291609.RAA17790@crypt.compulink.co.uk>
p4raw-id: //depot/perl@9911
Diffstat (limited to 't/op/subst.t')
| -rwxr-xr-x | t/op/subst.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/op/subst.t b/t/op/subst.t index 7dd7a1c92c..907d0dadf6 100755 --- a/t/op/subst.t +++ b/t/op/subst.t @@ -6,7 +6,7 @@ BEGIN { require Config; import Config; } -print "1..84\n"; +print "1..85\n"; $x = 'foo'; $_ = "x"; @@ -379,3 +379,7 @@ $_ = "C:/"; s/^([a-z]:)/\u$1/ and print "not "; print "ok 84\n"; +$_ = "Charles Bronson"; +s/\B\w//g; +print $_ eq "C B" ? "ok 85\n" : "not ok 85\n# \$_ eq '$_'\n"; + |