initial commit

This commit is contained in:
SWG Master
2015-08-04 12:05:18 -05:00
commit 37ab0ad070
104847 changed files with 14347244 additions and 0 deletions
+12
View File
@@ -0,0 +1,12 @@
#!/usr/bin/perl
opendir(SCRIPTLINT, $ARGV[0]);
@lints = readdir(SCRIPTLINT);
foreach $lint (@lints)
{
if($lint =~ /.pl/)
{
system("perl $ARGV[0]/$lint $ARGV[1]");
}
}