#! /usr/bin/perl -w
 #
 # System startup script for tinc
-# $Id: init.d,v 1.14 2000/06/01 20:21:27 guus Exp $
+# $Id: init.d,v 1.14.2.1 2000/06/03 23:32:03 zarq Exp $
 #
 # Based on Lubomir Bulej's Redhat init script.
 #
 
     if(!defined($VPNMASK)) {
        $VPNMASK = $MSK;
+       $VPNMASK = join(".", unpack('C4', $VPNMASK));
     }
-    
-    $VPNMASK = pack('C4', split(/\./, $VPNMASK));
-    $VPNMASK = join(".", unpack('C4', $VPNMASK));
     $ADR = join(".", unpack('C4', $ADR));
     $MSK = join(".", unpack('C4', $MSK));