general-functions.pl: Subroutine getnetworkip() accepted multiple arguments

diff --git a/config/cfgroot/general-functions.pl b/config/cfgroot/general-functions.pl
index 8ed87fc80e58d5b40f3a5cc108d2d3e36fb767c8..7c88cfc6878757ff031edea7e24394f9ddd79e0a 100644 (file)
--- a/config/cfgroot/general-functions.pl
+++ b/config/cfgroot/general-functions.pl
@@ -388,7 +388,9 @@ sub iporsubtocidr
 }
 
 sub getnetworkip {
-       return &Network::get_netaddress(shift);
+       my $arg = join("/", $@);
+
+       return &Network::get_netaddress($arg);
 }
 
 sub getccdbc