From 0466aab2988c550d1ff76c0017059c06228c2045 Mon Sep 17 00:00:00 2001 From: ivan Date: Fri, 31 May 2002 20:34:03 +0000 Subject: [PATCH] dammit i want to catch export subclass compilation problems --- FS/FS/part_export.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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); } -- 2.11.0