SecBSD's official ports repository
This commit is contained in:
commit
2c0afcbbf3
64331 changed files with 5339189 additions and 0 deletions
14
shells/perlsh/patches/patch-lib_Psh_pm
Normal file
14
shells/perlsh/patches/patch-lib_Psh_pm
Normal file
|
@ -0,0 +1,14 @@
|
|||
defined() used against arrays is fatal since Perl 5.22
|
||||
|
||||
Index: lib/Psh.pm
|
||||
--- lib/Psh.pm.orig
|
||||
+++ lib/Psh.pm
|
||||
@@ -367,7 +367,7 @@ sub find_array_name {
|
||||
|
||||
sub defined_and_nonempty
|
||||
{
|
||||
- if (!defined(@_)) { return 0; }
|
||||
+ if (!@_) { return 0; }
|
||||
if (scalar(@_) == 0) { return 0; }
|
||||
|
||||
if (scalar(@_) == 1) {
|
Loading…
Add table
Add a link
Reference in a new issue