- using modern perl idiom

1 files changed, 3 insertions, 4 deletions

diff --git a/Auth.pm b/Auth.pm
index 8155056..a3dde6a 100644
--- a/Auth.pm
+++ b/Auth.pm
@@ -19,15 +19,14 @@
 package Auth;
 
 require Exporter;
-@ISA = qw(Exporter);
-@EXPORT = qw(require_root_capability
-         ask_for_authentication);
-
+use base qw(Exporter);
 use strict;
 use warnings;
 use diagnostics;
 use Data::Dumper;
 
+our @EXPORT = qw(require_root_capability
+         ask_for_authentication);
 
 sub require_root_capability {
     return 0 if(!$>);