make import() compatible with Exporter

Signed-off-by: Mike Rylander <mrylander@gmail.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/CStoreEditor.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/CStoreEditor.pm
index bab4afd..9954610 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/CStoreEditor.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/CStoreEditor.pm
@@ -59,11 +59,17 @@ sub personality {
 
 sub import {
     my $class = shift;
-    my %args = @_;
 
-    $class->personality( $args{personality} ) if ($args{personality});
+    my @super_args = ();
+    while ( my $a = shift ) {
+        if ($a eq 'personality') {
+            $class->personality( shift );
+        } else {
+            push @super_args, $a;
+        }
+    }
 
-    return 1;
+    return $class->SUPER::import( @super_args );
 }
 
 sub new_editor { return OpenILS::Utils::CStoreEditor->new(@_); }