diff options
| author | Hugo van der Sanden <hv@crypt.org> | 1997-11-22 14:45:23 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-03-03 02:57:33 +0000 |
| commit | a2c066523a8ce75a281ac073b929d59e1a2fbb5f (patch) | |
| tree | 27d2f4087cbb51f834a7e4fb8bbdf3940ede9c06 /t/base | |
| parent | 02aa26ce6162a9d065cb15d5d527e880d9b325cd (diff) | |
| download | perl-a2c066523a8ce75a281ac073b929d59e1a2fbb5f.tar.gz | |
[win32] merge another maintpatch to toke.c
Message-Id: <199711221445.OAA14153@crypt.compulink.co.uk>
Subject: Re: [PERL] Here-doc in s///e (was: Bug)
p4raw-id: //depot/win32/perl@629
Diffstat (limited to 't/base')
| -rwxr-xr-x | t/base/lex.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/base/lex.t b/t/base/lex.t index 6d03b9e8df..31bb056b5b 100755 --- a/t/base/lex.t +++ b/t/base/lex.t @@ -2,7 +2,7 @@ # $RCSfile: lex.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:04 $ -print "1..27\n"; +print "1..28\n"; $x = 'x'; @@ -105,3 +105,9 @@ print "ABC" =~ /^$ary[$A]$/ ? "ok 25\n" : "not ok 25\n"; print "FOOZ" =~ /^$foo[$A-Z]$/ ? "ok 26\n" : "not ok 26\n"; print (((q{{\{\(}} . q{{\)\}}}) eq '{{\(}{\)}}') ? "ok 27\n" : "not ok 27\n"); + +$foo = "not ok 28\n"; +$foo =~ s/^not /substr(<<EOF, 0, 0)/e; + Ignored +EOF +print $foo; |