diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-01-13 22:54:01 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-01-13 22:54:01 -0600 |
commit | 1419714787e372d3510961ce9fb7a97bfdf28c45 (patch) | |
tree | 856e25dc093cdd657732853ce5a57aeb32408cd7 | |
parent | e43c59e5e57a753f89a828b2363f4ef9825620ec (diff) | |
download | dist-checkconflicts-1419714787e372d3510961ce9fb7a97bfdf28c45.tar.gz dist-checkconflicts-1419714787e372d3510961ce9fb7a97bfdf28c45.zip |
on some perls, this was producing "1\n0"
-rw-r--r-- | lib/Dist/CheckConflicts.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Dist/CheckConflicts.pm b/lib/Dist/CheckConflicts.pm index 0725e07..960c5ac 100644 --- a/lib/Dist/CheckConflicts.pm +++ b/lib/Dist/CheckConflicts.pm @@ -157,7 +157,7 @@ sub import { _check_version($HAS_CONFLICTS{$mod}, $mod); my $i = 1; - return sub { $_ = $i-- }; # the previous require already handled it + return sub { $_ = $i-- if $i }; # the previous require already handled it }, \%CONFLICTS, # arbitrary but unique, see above ]; |