make search for priv case independent

[spider.git] / perl / Script.pm

diff --git a/perl/Script.pm b/perl/Script.pm
index 15f4d464082fa080766f46eabb05edc0b39a44c3..3128dcde6486021bdce8ef15379f70f505108873 100644 (file)
--- a/perl/Script.pm
+++ b/perl/Script.pm
@@ -56,6 +56,7 @@ sub run
                        } else {
                                dbg($_) for @out;
                        }
+                       last if @out && $l =~ /^pri?v?/i;
                }
        }
 }