diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-06-21 09:41:26 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-06-21 09:41:26 -0400 |
commit | 55182a60dc956f445dd883a67c6abc334e5e109f (patch) | |
tree | 02b33631acc4ed307b51b7c7635f5a030217872d | |
parent | b890920c31dbf99694e9ead88c1961a7cd4bc9d6 (diff) | |
download | dist-checkconflicts-55182a60dc956f445dd883a67c6abc334e5e109f.tar.gz dist-checkconflicts-55182a60dc956f445dd883a67c6abc334e5e109f.zip |
oops
-rw-r--r-- | lib/Dist/CheckConflicts.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Dist/CheckConflicts.pm b/lib/Dist/CheckConflicts.pm index 03aaf80..f422537 100644 --- a/lib/Dist/CheckConflicts.pm +++ b/lib/Dist/CheckConflicts.pm @@ -3,7 +3,7 @@ use strict; use warnings; # ABSTRACT: declare version conflicts for your dist -use Exporter 'import'; +use base 'Exporter'; our @EXPORT = our @EXPORT_OK = ( qw(conflicts check_conflicts calculate_conflicts dist) ); @@ -91,6 +91,7 @@ my %HAS_CONFLICTS; my %DISTS; sub import { + my $pkg = shift; my $for = caller; my ($conflicts, $alsos, $dist); @@ -165,7 +166,7 @@ sub import { \%CONFLICTS, # arbitrary but unique, see above ]; - goto $import; + $pkg->export_to_level(1, @_); } sub _strip_opt { |