Use perl from PATH, not from absolute shebang (#2304)
This commit is contained in:
@@ -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
@@ -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;
|
||||
|
||||
|
||||
@@ -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
@@ -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
@@ -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
@@ -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;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user