add sysop defined 'run' script and privilege commands

[spider.git] / perl / Script.pm

diff --git a/perl/Script.pm b/perl/Script.pm
index 15f4d464082fa080766f46eabb05edc0b39a44c3..434109ceaf688b0f4966874014ce95a83d77a34e 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?/;
                }
        }
 }