Revert "remove old test files"

[freeside.git] / FS / FS / pkg_referral.pm

diff --git a/FS/FS/pkg_referral.pm b/FS/FS/pkg_referral.pm
index 0983ff6..a5ac795 100644 (file)
--- a/FS/FS/pkg_referral.pm
+++ b/FS/FS/pkg_referral.pm
@@ -1,9 +1,11 @@
 package FS::pkg_referral;
-use base qw( FS::Record );
 
 use strict;
+use vars qw( @ISA );
 use FS::Record qw( dbh );
 
+@ISA = qw(FS::Record);
+
 =head1 NAME
 
 FS::pkg_referral - Object methods for pkg_referral records