From: ivan <ivan>
Date: Fri, 31 May 2002 20:34:03 +0000 (+0000)
Subject: dammit i want to catch export subclass compilation problems
X-Git-Tag: freeside_1_4_0_pre14~46
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=0466aab2988c550d1ff76c0017059c06228c2045

dammit i want to catch export subclass compilation problems
---

diff --git a/FS/FS/part_export.pm b/FS/FS/part_export.pm
index f4f46b0e9..ae201464d 100644
--- a/FS/FS/part_export.pm
+++ b/FS/FS/part_export.pm
@@ -370,7 +370,8 @@ sub rebless {
   my $self = shift;
   my $exporttype = $self->exporttype;
   my $class = ref($self). "::$exporttype";
-  eval "use $class;" or die $@;
+  eval "use $class;";
+  die $@ if $@;
   bless($self, $class);
 }