X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FScript.pm;h=3128dcde6486021bdce8ef15379f70f505108873;hb=43d8bcf5a429cdd1bb675a4c2793ffa2965cdb84;hp=15f4d464082fa080766f46eabb05edc0b39a44c3;hpb=dbf7523a9b228dbdf1d03109afde351b8b194fab;p=spider.git diff --git a/perl/Script.pm b/perl/Script.pm index 15f4d464..3128dcde 100644 --- 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; } } }