1 files changed, 1 insertions, 3 deletions
diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm
index 21dbb68f0..405559a37 100644
--- a/perl-install/harddrake/data.pm
+++ b/perl-install/harddrake/data.pm
@@ -4,13 +4,11 @@ package data;
 
 use strict;
 use lib qw(/usr/lib/libDrakX);
-use vars qw(@ISA @EXPORT_OK);
 use detect_devices;
 use MDK::Common;
 use class_discard;
 
-@ISA = qw(Exporter);
-@EXPORT_OK = (qw(version tree));
+our (@ISA, @EXPORT_OK) = (qw(Exporter), (qw(version tree)));
 
 our ($version, $sbindir) = ("1.1.5", "/usr/sbin/");