p5pRT
commented
17 years ago From simon.kissane@mq.edu.au
Created by simon.kissane@mq.edu.au
$/ = "" should according to docs: "Setting to "" will treat two or more consecutive empty lines as a single empty line."
Works fine when write file out to disk and read it back in but fails with in memory files\, even though they should be equivalent.
Reproduce script: ========= BEGIN REPRODUCE SCRIPT ============= #!/usr/bin/perl -w =head1 perlbug.pl
This script demonstrates a perl bug - $/ = "" does not work properly for in-memory files.
=cut use strict; use Data::Dumper; use File::Temp qw(tempfile);
my $s = \<\<END; This is the contents of paragraph 1
This is the contents of paragraph 2
END
$/ = "";
my ($tmp\, $filename) = tempfile(); print $tmp $s; flush $tmp;
my $fh1; open($fh1\, "\<"\, $filename); my $o1 = scalar \<$fh1>;
my $fh2; open($fh2\, "\<"\, \$s); my $o2 = scalar \<$fh2>;
print Dumper [ $o1\, $o2]; ========= END REPRODUCE SCRIPT =============
Migrated from rt.perl.org#44833 (status was 'resolved')
Searchable as RT44833$