From 3710241ae71c43bda5281a0b118888e0ed4d526e Mon Sep 17 00:00:00 2001 From: Matteo Pasotti Date: Wed, 7 Nov 2012 11:24:11 +0000 Subject: - using modern perl idiom --- Auth.pm | 7 +++---- 1 file 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(!$>); -- cgit v1.2.1