diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2005-07-22 04:51:15 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-08-01 07:49:58 +0000 |
| commit | 0d65d7d555c9e685ae54e22c9f9eb33ec635ea81 (patch) | |
| tree | 439da84aef3b59d3a9246611e92078f1d5af5ba3 /t/op/tr.t | |
| parent | 6e73205105f5b52e070fbca13411b9ab4e21ee43 (diff) | |
| download | perl-0d65d7d555c9e685ae54e22c9f9eb33ec635ea81.tar.gz | |
Re: [perl #36622] y/// at end of file
Message-ID: <20050722185115.GB28829@windhund.schwern.org>
p4raw-id: //depot/perl@25252
Diffstat (limited to 't/op/tr.t')
| -rwxr-xr-x | t/op/tr.t | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -6,7 +6,7 @@ BEGIN { require './test.pl'; } -plan tests => 99; +plan tests => 100; my $Is_EBCDIC = (ord('i') == 0x89 & ord('J') == 0xd1); @@ -383,3 +383,7 @@ is( scalar keys %foo, 0, " doesn't extend the hash"); $x = \"foo"; is( $x =~ tr/A/A/, 2, 'non-modifying tr/// on a scalar ref' ); is( ref $x, 'SCALAR', " doesn't stringify its argument" ); + +# rt.perl.org 36622. Perl didn't like a y/// at end of file. No trailing +# newline allowed. +fresh_perl_is(q[$_ = "foo"; y/A-Z/a-z/], ''); |