diff options
| author | Marty Pauley <marty+p5p@kasei.com> | 2002-10-18 22:02:38 +0100 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-11-05 01:43:27 +0000 |
| commit | 107c23634640452662c18f6ae1ae0d2920a4cf3b (patch) | |
| tree | 79f3189a07c04925ae8f31520702d1fed10a2b12 /lib/utf8.t | |
| parent | dd58e686a56f2e2b79be702b8652140afcbfc717 (diff) | |
| download | perl-107c23634640452662c18f6ae1ae0d2920a4cf3b.tar.gz | |
new test based on:
Subject: [TEST] for [PATCH] bug in utf8.c(?)
Message-ID: <20021018200238.GY3764@soto.kasei.com>
p4raw-id: //depot/perl@18106
Diffstat (limited to 'lib/utf8.t')
| -rw-r--r-- | lib/utf8.t | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/lib/utf8.t b/lib/utf8.t index 8fc44816f4..41a7368509 100644 --- a/lib/utf8.t +++ b/lib/utf8.t @@ -37,7 +37,7 @@ no utf8; # Ironic, no? # # -plan tests => 94; +plan tests => 95; { # bug id 20001009.001 @@ -265,3 +265,18 @@ BANG like ($result, $expect, $why); } } + +# +# bug fixed by change #17928 +# separate perl used because we rely on 'strict' not yet loaded; +# before the patch, the eval died with an error like: +# "my" variable $strict::VERSION can't be in a package +# +ok('' eq runperl(prog => <<'CODE')); + my $code = qq{ my \$\xe3\x83\x95\xe3\x83\xbc = 5; }; + { + use utf8; + eval $code; + print $@ if $@; + } +CODE |