diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-01-17 13:37:49 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-01-17 13:37:49 -0600 |
commit | 7e30e5e91662820a7498bc7024b9515fc3bb5bda (patch) | |
tree | cb7bd7f8407db1f643d7465306e04f7028feebef | |
parent | d711238061ae1c09f9e40d93b5b04f3d83efeab4 (diff) | |
download | dist-checkconflicts-7e30e5e91662820a7498bc7024b9515fc3bb5bda.tar.gz dist-checkconflicts-7e30e5e91662820a7498bc7024b9515fc3bb5bda.zip |
be less obscure here
-rw-r--r-- | lib/Dist/CheckConflicts.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lib/Dist/CheckConflicts.pm b/lib/Dist/CheckConflicts.pm index 960c5ac..ac860c7 100644 --- a/lib/Dist/CheckConflicts.pm +++ b/lib/Dist/CheckConflicts.pm @@ -156,8 +156,14 @@ sub import { _check_version($HAS_CONFLICTS{$mod}, $mod); - my $i = 1; - return sub { $_ = $i-- if $i }; # the previous require already handled it + # the previous require already handled it + my $called; + return sub { + return 0 if $called; + $_ = "1;"; + $called = 1; + return 1; + }; }, \%CONFLICTS, # arbitrary but unique, see above ]; |