From 0d65d7d555c9e685ae54e22c9f9eb33ec635ea81 Mon Sep 17 00:00:00 2001 From: "Michael G. Schwern" Date: Fri, 22 Jul 2005 04:51:15 -0700 Subject: Re: [perl #36622] y/// at end of file Message-ID: <20050722185115.GB28829@windhund.schwern.org> p4raw-id: //depot/perl@25252 --- t/op/tr.t | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 't/op/tr.t') diff --git a/t/op/tr.t b/t/op/tr.t index 3a4f610c02..b3661a4fea 100755 --- a/t/op/tr.t +++ b/t/op/tr.t @@ -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/], ''); -- cgit v1.2.1