diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-12 03:30:07 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-12 03:30:07 +0000 |
| commit | 169da83847a2059e4bc997fdd0d3f1afb5af3a3f (patch) | |
| tree | 3d623a89f24b50d0f909587b26bb09f7b9189584 /t/op/concat.t | |
| parent | b0f2b690b4ba59b02c372a35658748cb0f31c38e (diff) | |
| download | perl-169da83847a2059e4bc997fdd0d3f1afb5af3a3f.tar.gz | |
Drop all the unnecessary "use utf8" clauses and some of
the unnecessary "use bytes" ones.
TODO: scour the documentation for unnecessary "use utf8"
and prominently display it in perldelta when the time comes.
("use utf8" should be necessary ONLY if one wants the script
to be in UTF-8.) Also should be checked in some non-ASCII
non-Latin-1 platform, like EBCDIC.
p4raw-id: //depot/perl@11638
Diffstat (limited to 't/op/concat.t')
| -rw-r--r-- | t/op/concat.t | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/t/op/concat.t b/t/op/concat.t index 76074e0f28..5ae7da51b9 100644 --- a/t/op/concat.t +++ b/t/op/concat.t @@ -28,7 +28,6 @@ my $test = 4; $_ = $dx = "\x{10f2}"; s/($dx)/$dx$1/; { - use bytes; print "not " unless $_ eq "$dx$dx"; print "ok $test\n"; $test++; @@ -37,7 +36,6 @@ my $test = 4; $_ = $dx = "\x{10f2}"; s/($dx)/$1$dx/; { - use bytes; print "not " unless $_ eq "$dx$dx"; print "ok $test\n"; $test++; @@ -47,7 +45,6 @@ my $test = 4; $_ = "\x{10f2}\x{10f2}"; s/($dx)($dx)/$1$2/; { - use bytes; print "not " unless $_ eq "$dx$dx"; print "ok $test\n"; $test++; |