initialize debug flag

diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm
index b6f7912..5a6c683 100644 (file)
--- a/FS/FS/part_pkg.pm
+++ b/FS/FS/part_pkg.pm
@@ -1,7 +1,7 @@
 package FS::part_pkg;
 
 use strict;
-use vars qw( @ISA );
+use vars qw( @ISA $DEBUG );
 use FS::Record qw( qsearch dbh dbdef );
 use FS::pkg_svc;
 use FS::part_svc;
@@ -12,6 +12,8 @@ use FS::Conf;
 
 @ISA = qw( FS::Record );
 
+$DEBUG = 0;
+
 =head1 NAME
 
 FS::part_pkg - Object methods for part_pkg objects