Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Check perl version (prevent injection attack)

  • Loading branch information...
commit f82a435f28380dff07c3f089c26b482c435e0265 1 parent 94e0fd9
Steven Haryanto (on Asus Zenbook) authored
Showing with 2 additions and 0 deletions.
  1. +2 −0  lib/App/LintPrereqs.pm
View
2  lib/App/LintPrereqs.pm
@@ -120,6 +120,8 @@ sub lint_prereqs {
$log->tracef("mods_from_scanned: %s", \%mods_from_scanned);
my $perlv = $mods_from_ini{perl} // $mods_from_scanned{perl} // '5.010000';
+ return [400, "Invalid syntax in perl version: $perlv"]
+ unless $perlv =~ /\A\d+(\.\d+)*\z/;
my %core_mods;
my $clpath = which("corelist")
Please sign in to comment.
Something went wrong with that request. Please try again.