Use perl from PATH, not from absolute shebang (#2304)

This commit is contained in:
Harmen Stoppels
2021-08-19 06:56:03 +02:00
committed by GitHub
parent 402211e28e
commit 526d0bf97b
6 changed files with 12 additions and 6 deletions
+2 -1
View File
@@ -1,4 +1,4 @@
#!/usr/bin/perl -w
#!/usr/bin/env perl
# Copyright (c) 2015 - 2021 Advanced Micro Devices, Inc. All rights reserved.
#
# Permission is hereby granted, free of charge, to any person obtaining a copy
@@ -21,6 +21,7 @@
# Need perl > 5.10 to use logic-defined or
use 5.006; use v5.10.1;
use warnings;
use File::Basename;
use File::Temp qw/ :mktemp /;
use Cwd;
+2 -1
View File
@@ -1,4 +1,4 @@
#!/usr/bin/perl -w
#!/usr/bin/env perl
# Copyright (c) 2015 - 2021 Advanced Micro Devices, Inc. All rights reserved.
#
# Permission is hereby granted, free of charge, to any person obtaining a copy
@@ -21,6 +21,7 @@
# Need perl > 5.10 to use logic-defined or
use 5.006; use v5.10.1;
use warnings;
use Getopt::Long;
use Cwd;
+2 -1
View File
@@ -1,4 +1,4 @@
#!/usr/bin/perl -w
#!/usr/bin/env perl
##
# Copyright (c) 2015 - 2021 Advanced Micro Devices, Inc. All rights reserved.
#
@@ -22,6 +22,7 @@
##
#usage hipify-cmakefile [OPTIONS] INPUT_FILE
use Getopt::Long;
use warnings;
GetOptions(
"print-stats" => \$print_stats # print the command-line, like a header.
+2 -1
View File
@@ -1,4 +1,4 @@
#!/usr/bin/perl -w
#!/usr/bin/env perl
##
# Copyright (c) 2015 - 2021 Advanced Micro Devices, Inc. All rights reserved.
@@ -26,6 +26,7 @@
#usage hipify-perl [OPTIONS] INPUT_FILE
use warnings;
use Getopt::Long;
my $whitelist = "";
my $fileName = "";
+2 -1
View File
@@ -1,4 +1,4 @@
#!/usr/bin/perl -w
#!/usr/bin/env perl
# Copyright (c) 2020 - 2021 Advanced Micro Devices, Inc. All rights reserved.
#
# Permission is hereby granted, free of charge, to any person obtaining a copy
@@ -20,6 +20,7 @@
# THE SOFTWARE.
package hipvars;
use warnings;
use Getopt::Long;
use Cwd;
use File::Basename;
+2 -1
View File
@@ -1,4 +1,4 @@
#!/usr/bin/perl -w
#!/usr/bin/env perl
# Copyright (c) 2016 - 2021 Advanced Micro Devices, Inc. All rights reserved.
#
# Permission is hereby granted, free of charge, to any person obtaining a copy
@@ -20,6 +20,7 @@
# THE SOFTWARE.
use 5.006; use v5.10.1;
use warnings;
use File::Basename;
use File::Spec;