Prefer "use Exporter qw(import)" to inheriting from it

[debbugs.git] / Debbugs / Control / Service.pm

diff --git a/Debbugs/Control/Service.pm b/Debbugs/Control/Service.pm
index 520db3eb7820bfb9133638c9c266b09e5f712d80..42f3801e90758151e2e6ad88840c967e36be0ece 100644 (file)
--- a/Debbugs/Control/Service.pm
+++ b/Debbugs/Control/Service.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;