X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FControl.pm;h=416abc150104741bff85625bb03353ab0930a3dd;hb=4118f90e5b711616eeff28aef36615b0a892b57f;hp=49b902e62b00e6358550df57fd0efbb8ca0b98fc;hpb=6872923378dd43f8998da52f8cc8e5502266dd81;p=debbugs.git

diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm
index 49b902e..416abc1 100644
--- a/Debbugs/Control.pm
+++ b/Debbugs/Control.pm
@@ -75,7 +75,7 @@ is true, the above options must be present, and their values are used.
 use warnings;
 use strict;
 use vars qw($VERSION $DEBUG %EXPORT_TAGS @EXPORT_OK @EXPORT);
-use base qw(Exporter);
+use Exporter qw(import);
 
 BEGIN{
      $VERSION = 1.00;
@@ -2748,7 +2748,7 @@ sub _summary {
 	 print {$debug} "Removing $cmd fields\n";
 	 $action = "Removed $cmd";
     }
-    elsif ($param{$cmd} =~ /^\d+$/) {
+    elsif ($param{$cmd} =~ /^-?\d+$/) {
 	 my $log = [];
 	 my @records = Debbugs::Log::read_log_records(bug_num => $param{bug});
 	 if ($param{$cmd} == 0 or $param{$cmd} == -1) {