projects / platform / upstream / perl.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 47b1b33) | patch
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
treedeaa20c10aaa12fb0b7c9173f5d712a8c2e21c01tree | snapshot
parent47b1b33c554896606d6ccea2662feb267c51cf40commit | diff
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 diff | blob | history
Domain: System / Base;