find-use.pl - Fehlergebnisse per Regex rausfiltern

diff --git a/scripts/find-use.pl b/scripts/find-use.pl
index 320a369..351ed86 100755 (executable)
--- a/scripts/find-use.pl
+++ b/scripts/find-use.pl
@@ -81,6 +81,7 @@ find(sub {
     next if /SL::/;
     next if /Support::Files/; # our own test support module
     next if /use (warnings|strict|vars|lib|constant|utf8)/;
+    next if /^use (with|the)/;
 
     my ($useline) = m/^use\s+(.*?)$/;