-
package CheckVulnerabilities;
my $NAME = 'test-vulnerabilities.pl';
my $found_makefile = 0;
while (defined (my $line = <TAR>)) {
if ($line =~ /Makefile.in/i) {
- $found_makefile = 1;
- last;
+ $found_makefile = 1;
+ last;
}
}
close(TAR); # We don't care about errors here; the pipe can cause non-zero exit codes when tar is unhappy that it's asked to stop
my $found_cve_2012_3386 = 0;
while (defined (my $line = <TAR>)) {
if ($line =~ /perm -777 -exec chmod a\+rwx|chmod 777 \$\(distdir\)/) {
- $found_cve_2009_4029 = 1;
+ $found_cve_2009_4029 = 1;
}
if ($line =~ /chmod a\+w \$\(distdir\)/) {
- $found_cve_2012_3386 = 1;
+ $found_cve_2012_3386 = 1;
}
}
close(TAR); # We don't care about errors here; the pipe can cause non-zero exit codes when tar is unhappy that it's asked to stop