Changeset 26039

Timestamp:

12/07/08 14:22:43 (4 years ago)

Author:

gfx

Message:

fix importer

Files:

• lang/perl/Shika/trunk/lib/Shika/Util/TypeConstraints.pm (modified) (1 diff)

lang/perl/Shika/trunk/lib/Shika/Util/TypeConstraints.pm

@@ -17 +17 @@
         if (defined $args{'-export'} && ref($args{'-export'}) eq 'ARRAY') {
             no strict 'refs';
-            *{"$caller\::import"} = \&_import;
+            *{"$caller\::import"} = sub{ _import(@_) };
         }