Skip to content

Instantly share code, notes, and snippets.

@hirose31

hirose31/gist:33897

Created December 9, 2008 13:26
Show Gist options
  • Save hirose31/33897 to your computer and use it in GitHub Desktop.
Save hirose31/33897 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.pl
#!/usr/bin/perl
use utf8;
my $s;
$s=<<'EOS'; # NG
foo
bar
EOS
#$s=<<'EOS'; # NG
#foo
#EOS
#$s = "foo\nbar\n"; # OK
print $s =~ /\w/ ? "t\n" : "f\n";
__END__
Use of uninitialized value in pattern match (m//) at /usr/share/perl/5.8/utf8_heavy.pl line 211.
Use of uninitialized value in scalar assignment at /usr/share/perl/5.8/utf8_heavy.pl line 227.
Use of uninitialized value in pattern match (m//) at /usr/share/perl/5.8/utf8_heavy.pl line 228.
Use of uninitialized value in scalar assignment at /usr/share/perl/5.8/utf8_heavy.pl line 288.
Use of uninitialized value in pattern match (m//) at /usr/share/perl/5.8/utf8_heavy.pl line 329.
Use of uninitialized value in scalar assignment at /usr/share/perl/5.8/utf8_heavy.pl line 346.
Use of uninitialized value in pattern match (m//) at /usr/share/perl/5.8/utf8_heavy.pl line 347.
f
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment