This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
plumb a leak with pos().
authorAdrian M. Enache <enache@rdslink.ro>
Mon, 8 Dec 2003 03:30:16 +0000 (03:30 +0000)
committerEnache Adrian <enache@rdslink.ro>
Mon, 8 Dec 2003 03:30:16 +0000 (03:30 +0000)
commit26ef79ca764308aafc052155f9b90d39f1d9c77a
treedeaa20c10aaa12fb0b7c9173f5d712a8c2e21c01
parent47b1b33c554896606d6ccea2662feb267c51cf40
plumb a leak with pos().

#! perl
while (1) {
my $a = "\x{1ff}"; $a =~ /\x{1ff}/g; pos($a);
}
__END__

p4raw-id: //depot/perl@21866
sv.c