New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
y/// at end of file #8031
Comments
From pfusik@op.plThis is a bug report for perl from pfusik@op.pl, Among perl golf players, it is widely known that perl doesn't like If you forget to add something after y///, the error messages are very #!/usr/bin/perl -0 when syntax-checked by perl -c gives the following error message: (do you see any \x81 here?) I think this should be finally resolved, because it can even crash perl: #!/usr/bin/perl -0 when syntax-checked gives a page fault. It's the same on perl 5.8.0 and 5.8.6. Flags: Site configuration information for perl v5.8.0: Configured by ActiveState at Mon Mar 31 00:45:28 2003. Summary of my perl5 (revision 5 version 8 subversion 0) configuration: Locally applied patches: @INC for perl v5.8.0: Environment for perl v5.8.0: PATH=C:\WINDOWS;C:\WINDOWS\COMMAND;C:\U;C:\JAVA\JDK\BIN;C:\C\DJGPP\BIN;C |
From @schwernOn Thu, Jul 21, 2005 at 11:45:30AM -0700, Piotr Fusik wrote:
First let me say how bonkers I went to get either vim or emacs to stop
Bleadperl appears to have this fixed. A test is attached. Ironically -- |
From @schwerntr.patch--- t/test.pl 2005/07/22 18:43:05 1.1
+++ t/test.pl 2005/07/22 18:43:09
@@ -579,7 +579,7 @@
{if (-e _ and -f _)}
}
- print TEST $prog, "\n";
+ print TEST $prog;
close TEST or die "Cannot close $tmpfile: $!";
my $results = runperl(%$runperl_args);
--- t/op/tr.t 2005/07/22 18:37:29 1.1
+++ t/op/tr.t 2005/07/22 18:42:16
@@ -6,7 +6,7 @@
require './test.pl';
}
-plan tests => 99;
+plan tests => 100;
my $Is_EBCDIC = (ord('i') == 0x89 & ord('J') == 0xd1);
@@ -383,3 +383,7 @@
$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/], '');
|
The RT System itself - Status changed from 'new' to 'open' |
From @rgsMichael G Schwern wrote:
Thanks, applied as change #25252. |
@rgs - Status changed from 'open' to 'resolved' |
Migrated from rt.perl.org#36622 (status was 'resolved')
Searchable as RT36622$
The text was updated successfully, but these errors were encountered: