diff options
| author | ivan <ivan> | 2002-05-31 20:34:03 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-05-31 20:34:03 +0000 |
| commit | 0466aab2988c550d1ff76c0017059c06228c2045 (patch) | |
| tree | 0db7fd7d1abfcce4f07dcb44a063a9691cb0cbf3 /FS | |
| parent | 439a47a6cfd81793c34bf5ded2cee3bb29becfe4 (diff) | |
dammit i want to catch export subclass compilation problems
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/part_export.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/FS/FS/part_export.pm b/FS/FS/part_export.pm index f4f46b0..ae20146 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); } |