diff options
| author | Eric Brine <ikegami@adaelis.com> | 2010-08-21 22:17:26 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-08-31 00:19:35 +0200 |
| commit | 37bb7629a18d7cb6c4b7296491831c35197edbde (patch) | |
| tree | 5d1de89fcd2258e2a35a8fbf7111d84e45fa8b79 /lib/utf8.t | |
| parent | 96d9949f9ef2c5c9eb1346746102adfa7f3dfaeb (diff) | |
| download | perl-37bb7629a18d7cb6c4b7296491831c35197edbde.tar.gz | |
Avoid needless use of UTF8=1 format [RT#56336]
Some literals (e.g. q'abc') don't set the UTF8 flag for pure ASCII literals.
Others (e.g. -abc) do. This should be consistent.
Diffstat (limited to 'lib/utf8.t')
| -rw-r--r-- | lib/utf8.t | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/lib/utf8.t b/lib/utf8.t index 7f8481c928..0bd06f9291 100644 --- a/lib/utf8.t +++ b/lib/utf8.t @@ -458,7 +458,6 @@ SKIP: { ok( !utf8::is_utf8( 'asd' ), "Wasteful format - q{}" ); ok( !utf8::is_utf8( qw(asd) ), "Wasteful format - qw{}" ); ok( !utf8::is_utf8( (asd => 1)[0] ), "Wasteful format - =>" ); - local $TODO = 'Avoid needless use of UTF8=1 format [RT#56336]'; ok( !utf8::is_utf8( asd ), "Wasteful format - bareword" ); ok( !utf8::is_utf8( -asd ), "Wasteful format - -word" ); ok( !utf8::is_utf8( asd:: ), "Wasteful format - word::" ); |