From 177a05d0ce75eeee49a98944b9c7e7efa971a0a6 Mon Sep 17 00:00:00 2001 From: "H. Peter Anvin (Intel)" Date: Fri, 9 Aug 2019 13:30:19 -0700 Subject: perl files: clean up warnings Clean up some perl warnings, some of which were legitimate (apparently undef doesn't actually take a list of arguments, a common enough mistake that it is mentioned in the man page!, and a list of variables after "my" can be cantankerous), and some of which were nuisance but were easy enough to clean up. Maybe this can resolve the problems with very old version of Perl? Signed-off-by: H. Peter Anvin (Intel) --- tools/mkdep.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tools') diff --git a/tools/mkdep.pl b/tools/mkdep.pl index 8c89f39a..1966660d 100755 --- a/tools/mkdep.pl +++ b/tools/mkdep.pl @@ -49,7 +49,7 @@ use Fcntl; $barrier = "#-- Everything below is generated by mkdep.pl - do not edit --#\n"; # This converts from filenames to full pathnames for our dependencies -%dep_path = {}; +%dep_path = (); # List of files that cannot be found; these *must* be excluded @must_exclude = (); @@ -134,7 +134,7 @@ sub _insert_deps($$) { open(my $in, '<', $file) or die "$0: Cannot open input: $file\n"; - my $line, $parm, $val; + my ($line, $parm, $val); my $obj = '.o'; # Defaults my $sep = '/'; my $cont = "\\"; -- cgit v1.2.1