michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-02-03 14:13:29 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix more perl warnings

Browse Source
This commit is contained in:
Jamie Cameron
2021-04-11 17:42:45 -07:00
parent 26abfef1ab
commit eb122dff5e
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
bind8/index.cgi
View File

@@ -501,6 +501,8 @@ sub compare_zones
my @sp0 = split(/\./, lc($_[0] || ""));
my @sp1 = split(/\./, lc($_[1] || ""));
for(my $i=0; $i<@sp0 || $i<@sp1; $i++) {
$sp0[$i] = "" if (!defined($sp0[$i]));
$sp1[$i] = "" if (!defined($sp1[$i]));
if ($sp0[$i] =~ /^\d+$/ && $sp1[$i] =~ /^\d+$/) {
return -1 if ($sp0[$i] < $sp1[$i]);
return 1 if ($sp0[$i] > $sp1[$i]);