fix export_info sub to return an empty hashref instead of undef
authorivan <ivan>
Mon, 29 Mar 2004 06:03:21 +0000 (06:03 +0000)
committerivan <ivan>
Mon, 29 Mar 2004 06:03:21 +0000 (06:03 +0000)
FS/FS/part_export.pm

index 061f07d..bd12389 100644 (file)
@@ -513,7 +513,7 @@ on the export:
 
 sub export_info {
   #warn $_[0];
-  return $exports{$_[0]} if @_;
+  return $exports{$_[0]} || {} if @_;
   #{ map { %{$exports{$_}} } keys %exports };
   my $r = { map { %{$exports{$_}} } keys %exports };
 }