use warnings;
use strict;
use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
-use base qw(Exporter);
+use Exporter qw(import);
BEGIN{
($VERSION) = q$Revision: 1221 $ =~ /^Revision:\s+([^\s+])/;
}
return;
}
- my ($p, $addmaint);
- my $anymaintfound=0; my $anymaintnotfound=0;
+ my ($addmaint);
my $ref = $param{data}{bug_num};
for my $p (splitpackages($param{data}{package})) {
$p = lc($p);