lua-releng: removed the dependencies File::Slurp and ack.

Author: agentzh

lua-releng

@@ -3,8 +3,6 @@
 use strict;
 use warnings;
 
-use File::Slurp qw(read_file);
-
 sub file_contains ($$);
 
 my $version;
@@ -44,16 +42,22 @@ for my $file (map glob, qw{ *.lua lib/*.lua lib/*/*.lua lib/*/*/*.lua lib/*/*/*/
     print "Checking use of Lua global variables in file $file ...\n";
     system("luac -p -l $file | grep ETGLOBAL | grep -vE 'require|type|tostring|error|ngx|ndk|jit|setmetatable|getmetatable|string|table|io|os|print|tonumber|math|pcall|xpcall|unpack|pairs|ipairs|assert|module|package|coroutine|[gs]etfenv|next'");
     #file_contains($file, "attempt to write to undeclared variable");
+    system("grep -H -n -E --color '.{81}' $file");
 }
 
 sub file_contains ($$) {
     my ($file, $regex) = @_;
-    my $content = read_file($file);
+    open my $in, $file
+        or die "Cannot open $file fo reading: $!\n";
+    my $content = do { local $/; <$in> };
+    close $in;
     #print "$content";
     return scalar ($content =~ /$regex/);
 }
 
-system("ack '.{81}' `find lib -name '*.lua'`");
-system(q{ack '\b(?:ONLY|LAST)\b' t});
-system(q{ack -l '\r\n' t});
+if (-d 't') {
+    for my $file (map glob, qw{ t/*.t t/*/*.t t/*/*/*.t }) {
+        system(qq{grep -H -n --color -E '\\--- ?(ONLY|LAST)' $file});
+    }
+}