diff options
| author | Jesse Luehrs <doy@tozt.net> | 2013-07-08 17:36:06 -0400 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2013-07-08 17:36:27 -0400 |
| commit | f9f91368fd716bd684d89013b92b6995f29b24d5 (patch) | |
| tree | e625e5451c889526f9b2570976fe67c607ad82dc /lib | |
| parent | 04a6fd13f7ea3a45881d6e75ea1dffba38a999fd (diff) | |
| download | dist-checkconflicts-f9f91368fd716bd684d89013b92b6995f29b24d5.tar.gz dist-checkconflicts-f9f91368fd716bd684d89013b92b6995f29b24d5.zip | |
restore the behavior of suppressing warnings in loaded modules
the only thing we care about is getting $VERSION out of the modules, we
don't actually want to use them, so the warnings are just noise.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Dist/CheckConflicts.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/Dist/CheckConflicts.pm b/lib/Dist/CheckConflicts.pm index b1c78ef..6357b31 100644 --- a/lib/Dist/CheckConflicts.pm +++ b/lib/Dist/CheckConflicts.pm @@ -268,7 +268,10 @@ sub calculate_conflicts { CONFLICT: for my $conflict (keys %conflicts) { - my $success = eval { require_module($conflict) }; + my $success = do { + local $SIG{__WARN__} = sub {}; + eval { require_module($conflict) }; + }; my $error = $@; my $file = module_notional_filename($conflict); next if not $success and $error =~ /Can't locate \Q$file\E in \@INC/; |