use blessed

diff --git a/FS/FS/part_pkg_taxclass.pm b/FS/FS/part_pkg_taxclass.pm
index 6e3acf2..824fd17 100644 (file)
--- a/FS/FS/part_pkg_taxclass.pm
+++ b/FS/FS/part_pkg_taxclass.pm
@@ -2,6 +2,7 @@ package FS::part_pkg_taxclass;
 
 use strict;
 use vars qw( @ISA );
+use Scalar::Util qw( blessed );
 use FS::UID qw( dbh );
 use FS::Record; # qw( qsearch qsearchs );
 use FS::cust_main_county;

diff --git a/FS/FS/phone_device.pm b/FS/FS/phone_device.pm
index 1bdbc34..914f735 100644 (file)
--- a/FS/FS/phone_device.pm
+++ b/FS/FS/phone_device.pm
@@ -2,6 +2,7 @@ package FS::phone_device;
 
 use strict;
 use base qw( FS::Record );
+use Scalar::Util qw( blessed );
 use FS::Record qw( dbh qsearchs ); # qsearch );
 use FS::part_device;
 use FS::svc_phone;