make search for priv case independent

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