- local($bugcount); # Total number of bugs so far
- local($count); # Number of bugs for this package
- local($remtotal); # Total number of bugs for packages marked REMOVE
- local($patchtotal); # Total number of bugs marked patch
- local($pendingtotal); # Total number of bugs marked pending
- local($ignoretotal); # Total number of bugs marked ignore
- local($nottestingtotal); # Total number of bugs on packages not in testing
- local($worrytotal); # Total number of bugs we're actually worried about
- local($p); # Index variable
- local(%list); # List of bugnumber associated with package
+ my $bugcount; # Total number of bugs so far
+ my $count; # Number of bugs for this package
+ my $remtotal; # Total number of bugs for packages marked REMOVE
+ my $patchtotal; # Total number of bugs marked patch
+ my $pendingtotal; # Total number of bugs marked pending
+ my $ignoretotal; # Total number of bugs marked ignore
+ my $nottestingtotal; # Total number of bugs on packages not in testing
+ my $worrytotal; # Total number of bugs we're actually worried about
+ my $p; # Index variable
+ my %list; # List of bugnumber associated with package