From 1419714787e372d3510961ce9fb7a97bfdf28c45 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Thu, 13 Jan 2011 22:54:01 -0600 Subject: on some perls, this was producing "1\n0" --- lib/Dist/CheckConflicts.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 ]; -- cgit v1.2.3-54-g00ecf