diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-11-14 18:05:04 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-11-15 15:57:12 -0800 |
| commit | b64eceeb91f70b17b679334dce71d8dff6c4cfc7 (patch) | |
| tree | 01b80784bf01526e4d6b9b9a7ab2191a545b955d /Porting/leakfinder.pl | |
| parent | 00ec60ba0b8283af9a17ca1eddf992ca371f0411 (diff) | |
| download | perl-b64eceeb91f70b17b679334dce71d8dff6c4cfc7.tar.gz | |
leakfinder.pl: More exceptions
Diffstat (limited to 'Porting/leakfinder.pl')
| -rw-r--r-- | Porting/leakfinder.pl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Porting/leakfinder.pl b/Porting/leakfinder.pl index 7aa0322d54..985cea2367 100644 --- a/Porting/leakfinder.pl +++ b/Porting/leakfinder.pl @@ -50,6 +50,8 @@ end BEGIN { @exceptions = split /^/, <<'end'; +1 while some_condition_with_side_effects; */ +$a{buttons}[2*$a{default_button}] = [$a{buttons}[2*$a{default_button}]]; $aliases{$code_point} = [ $aliases{$code_point} ]; $aliases_maps->[$i] = [ $aliases_maps->[$i] ] $allow ? $hash{$acc} = $allow : push @list, $acc; @@ -110,7 +112,10 @@ s![^/+]*$!man!&&-d&&!$s{$_}++&&push@m,#_;END{print"@m"}' $spec = [$spec, $_[0]]; $stack[$i++] &= ~1; $step = [$step]; +the while clause. */ Time::HiRes - High resolution alarm, sleep, gettimeofday, interval timers +*tmpl = ~*tmpl; +*tmps = ~*tmps; weaken($objs[@objs] = $h{$_} = []); weaken($objs[@objs] = $$h{$_} = []); while (1) { my $k; } |