Make the perl modules consistent for the multiple regression tests.

This includes coding style, better error messages and variable
naming.

1 files changed, 10 insertions, 9 deletions

diff --git a/regress/usr.sbin/ospfd/Client.pm b/regress/usr.sbin/ospfd/Client.pm
index 4f3c07a3c64..ef0e1fb0af5 100644
--- a/regress/usr.sbin/ospfd/Client.pm
+++ b/regress/usr.sbin/ospfd/Client.pm
@@ -1,4 +1,4 @@
-#	$OpenBSD: Client.pm,v 1.2 2014/07/11 22:28:51 bluhm Exp $
+#	$OpenBSD: Client.pm,v 1.3 2014/08/18 22:58:19 bluhm Exp $
 
 # Copyright (c) 2010-2014 Alexander Bluhm <bluhm@openbsd.org>
 # Copyright (c) 2014 Florian Riehm <mail@friehm.de>
@@ -244,21 +244,22 @@ sub new {
 sub child {
     my $self = shift;
 
-    $area = $self->{area} or die "area id missing";
+    $area = $self->{area}
+	or croak ref($self), " area id missing";
     $hello_interval = $self->{hello_intervall}
-	or die "hello_interval missing";
+	or croak ref($self), " hello_interval missing";
     $ism_mac = $self->{mac_address}
-	or die "client mac address missing";
+	or croak ref($self), " client mac address missing";
     $ism_ip = $self->{ospf_address}
-	or die "client ospf address missing";
+	or croak ref($self), " client ospf address missing";
     $ism_rtrid = $self->{router_id}
-	or die "client router id missing";
+	or croak ref($self), " client router id missing";
     $tun_number =  $self->{tun_number}
-	or die "tun device number missing";
+	or croak ref($self), " tun device number missing";
     $ospfd_ip = $self->{ospfd_ip}
-	or die "ospfd ip missing";
+	or croak ref($self), " ospfd ip missing";
     $ospfd_rtrid = $self->{ospfd_rtrid}
-	or die "ospfd router id missing";
+	or croak ref($self), " ospfd router id missing";
 
     my $tun = opentun($tun_number);