From b12e4ef92a152454ec0d7422eb694c52171e2fc8 Mon Sep 17 00:00:00 2001 From: edoapra Date: Mon, 3 Jun 2019 16:41:43 -0700 Subject: [PATCH] perl refresh --- src/config/hasblas.pl | 4 ++-- src/config/hasdblas.pl | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/config/hasblas.pl b/src/config/hasblas.pl index 498e2734e0..a3f5e2b713 100644 --- a/src/config/hasblas.pl +++ b/src/config/hasblas.pl @@ -43,7 +43,7 @@ while () @newtokens = split(' '); $num_tokens = @newtokens ; if($debug){print "tokens: @newtokens $#newtokens $num_tokens \n";} - push(tokens,@newtokens); + push(@tokens,@newtokens); } } close (DATA); @@ -75,7 +75,7 @@ foreach $file (@ARGV){ } } } - if ($found) {push(found_files,$file);} + if ($found) {push(@found_files,$file);} close(FIXEDFILE); } $num_found_files = @found_files; diff --git a/src/config/hasdblas.pl b/src/config/hasdblas.pl index e36c518c31..37b9415f9a 100644 --- a/src/config/hasdblas.pl +++ b/src/config/hasdblas.pl @@ -43,7 +43,7 @@ while () @newtokens = split(' '); $num_tokens = @newtokens ; if($debug){print "tokens: @newtokens $#newtokens $num_tokens \n";} - push(tokens,$newtokens[0]); + push(@tokens,$newtokens[0]); } } close (DATA); @@ -75,7 +75,7 @@ foreach $file (@ARGV){ } } } - if ($found) {push(found_files,$file);} + if ($found) {push(@found_files,$file);} close(FIXEDFILE); } $num_found_files = @found_files;