=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== falselogin-0.3/debian/upstream.pl-15-my $pwd = `pwd`; falselogin-0.3/debian/upstream.pl:16:my $basepwd = `basename $pwd`; falselogin-0.3/debian/upstream.pl-17- ############################################## falselogin-0.3/debian/upstream.pl-31-print "Creating new orig files for the new upstream version: $neworig\n"; falselogin-0.3/debian/upstream.pl:32:system ("mkdir $neworig.orig"); falselogin-0.3/debian/upstream.pl-33- ############################################## falselogin-0.3/debian/upstream.pl-37-foreach my $file (@files) { falselogin-0.3/debian/upstream.pl:38: system("cp -R $file $neworig.orig/") unless ($file =~ /^debian$/ || $file =~ /^$neworig.orig$/); falselogin-0.3/debian/upstream.pl-39-} ############################################## falselogin-0.3/debian/upstream.pl-43-# directory falselogin-0.3/debian/upstream.pl:44:system("tar czf ../$neworig.orig.tar.gz $neworig.orig/"); falselogin-0.3/debian/upstream.pl:45:system("rm -rf $neworig.orig/"); falselogin-0.3/debian/upstream.pl-46-