From 3b1a99a97217243630cd7d92f0547f541e48b55e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 4 Jul 2002 15:51:24 +0000
Subject: get rid of 'use vars'

---
 perl-install/harddrake/data.pm | 4 +---
 1 file changed, 1 insertion(+), 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/");
 
-- 
cgit v1.2.1