dammit i want to catch export subclass compilation problems

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

diff --git a/FS/FS/part_export.pm b/FS/FS/part_export.pm
index f4f46b0..ae20146 100644 (file)
--- 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";
   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);
 }
 
   bless($self, $class);
 }