diff options
| author | Jesse Luehrs <doy@tozt.net> | 2010-11-21 18:21:39 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2010-11-21 18:21:39 -0600 |
| commit | edbcd55071558952e722fad1551cb4b3ec361c60 (patch) | |
| tree | ccd6ad4c64ac5dc541600fa36cd2dff99abbfbd4 | |
| parent | 7ff55144b9c6f9c4933f1b21cc04c1199e9f5de5 (diff) | |
| download | dist-checkconflicts-edbcd55071558952e722fad1551cb4b3ec361c60.tar.gz dist-checkconflicts-edbcd55071558952e722fad1551cb4b3ec361c60.zip | |
silence warnings during module loading
| -rw-r--r-- | lib/Dist/CheckConflicts.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/Dist/CheckConflicts.pm b/lib/Dist/CheckConflicts.pm index ec87fc3..5ec66b4 100644 --- a/lib/Dist/CheckConflicts.pm +++ b/lib/Dist/CheckConflicts.pm @@ -85,8 +85,12 @@ sub calculate_conflicts { my @ret; + CONFLICT: for my $conflict (keys %conflicts) { - eval "require $conflict; 1" or next; + { + local $SIG{__WARN__} = sub { }; + eval "require $conflict; 1" or next CONFLICT; + } my $installed = $conflict->VERSION; push @ret, { package => $conflict, |