Fix handling of ignore regexes and test them properly

[gitmo/Package-DeprecationManager.git] / lib / Package / DeprecationManager.pm

diff --git a/lib/Package/DeprecationManager.pm b/lib/Package/DeprecationManager.pm
index ba85924..a79f19c 100644 (file)
--- a/lib/Package/DeprecationManager.pm
+++ b/lib/Package/DeprecationManager.pm
@@ -75,7 +75,7 @@ sub _build_warn {
 
         my $skipped = 1;
 
-        if ( keys %ignore ) {
+        if ( @ignore_res || keys %ignore ) {
             while ( defined $package
                 && ( $ignore{$package} || any { $package =~ $_ } @ignore_res )
                 ) {