Use perl from PATH, not from absolute shebang (#2304)
这个提交包含在:
@@ -1,4 +1,4 @@
|
|||||||
#!/usr/bin/perl -w
|
#!/usr/bin/env perl
|
||||||
# Copyright (c) 2015 - 2021 Advanced Micro Devices, Inc. All rights reserved.
|
# Copyright (c) 2015 - 2021 Advanced Micro Devices, Inc. All rights reserved.
|
||||||
#
|
#
|
||||||
# Permission is hereby granted, free of charge, to any person obtaining a copy
|
# 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
|
# Need perl > 5.10 to use logic-defined or
|
||||||
use 5.006; use v5.10.1;
|
use 5.006; use v5.10.1;
|
||||||
|
use warnings;
|
||||||
use File::Basename;
|
use File::Basename;
|
||||||
use File::Temp qw/ :mktemp /;
|
use File::Temp qw/ :mktemp /;
|
||||||
use Cwd;
|
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.
|
# Copyright (c) 2015 - 2021 Advanced Micro Devices, Inc. All rights reserved.
|
||||||
#
|
#
|
||||||
# Permission is hereby granted, free of charge, to any person obtaining a copy
|
# 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
|
# Need perl > 5.10 to use logic-defined or
|
||||||
use 5.006; use v5.10.1;
|
use 5.006; use v5.10.1;
|
||||||
|
use warnings;
|
||||||
use Getopt::Long;
|
use Getopt::Long;
|
||||||
use Cwd;
|
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.
|
# Copyright (c) 2015 - 2021 Advanced Micro Devices, Inc. All rights reserved.
|
||||||
#
|
#
|
||||||
@@ -22,6 +22,7 @@
|
|||||||
##
|
##
|
||||||
#usage hipify-cmakefile [OPTIONS] INPUT_FILE
|
#usage hipify-cmakefile [OPTIONS] INPUT_FILE
|
||||||
use Getopt::Long;
|
use Getopt::Long;
|
||||||
|
use warnings;
|
||||||
|
|
||||||
GetOptions(
|
GetOptions(
|
||||||
"print-stats" => \$print_stats # print the command-line, like a header.
|
"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.
|
# Copyright (c) 2015 - 2021 Advanced Micro Devices, Inc. All rights reserved.
|
||||||
@@ -26,6 +26,7 @@
|
|||||||
|
|
||||||
#usage hipify-perl [OPTIONS] INPUT_FILE
|
#usage hipify-perl [OPTIONS] INPUT_FILE
|
||||||
|
|
||||||
|
use warnings;
|
||||||
use Getopt::Long;
|
use Getopt::Long;
|
||||||
my $whitelist = "";
|
my $whitelist = "";
|
||||||
my $fileName = "";
|
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.
|
# Copyright (c) 2020 - 2021 Advanced Micro Devices, Inc. All rights reserved.
|
||||||
#
|
#
|
||||||
# Permission is hereby granted, free of charge, to any person obtaining a copy
|
# Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||||
@@ -20,6 +20,7 @@
|
|||||||
# THE SOFTWARE.
|
# THE SOFTWARE.
|
||||||
|
|
||||||
package hipvars;
|
package hipvars;
|
||||||
|
use warnings;
|
||||||
use Getopt::Long;
|
use Getopt::Long;
|
||||||
use Cwd;
|
use Cwd;
|
||||||
use File::Basename;
|
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.
|
# Copyright (c) 2016 - 2021 Advanced Micro Devices, Inc. All rights reserved.
|
||||||
#
|
#
|
||||||
# Permission is hereby granted, free of charge, to any person obtaining a copy
|
# Permission is hereby granted, free of charge, to any person obtaining a copy
|
||||||
@@ -20,6 +20,7 @@
|
|||||||
# THE SOFTWARE.
|
# THE SOFTWARE.
|
||||||
|
|
||||||
use 5.006; use v5.10.1;
|
use 5.006; use v5.10.1;
|
||||||
|
use warnings;
|
||||||
use File::Basename;
|
use File::Basename;
|
||||||
use File::Spec;
|
use File::Spec;
|
||||||
|
|
||||||
|
|||||||
在新工单中引用
屏蔽一个用户