# HG changeset patch
# User heiko
# Date 1226614595 0
# Node ID 9f1f562a69a19fef187300d453d2b971bc9eef47
# Parent  f9fbeced909348567cec715738be6ba14673d522
- cosmetic

diff -r f9fbeced9093 -r 9f1f562a69a1 sap-vpn.pl
--- a/sap-vpn.pl	Thu Nov 13 22:12:32 2008 +0000
+++ b/sap-vpn.pl	Thu Nov 13 22:16:35 2008 +0000
@@ -273,7 +273,7 @@
 sub do_kill($) {
     my $linkname = shift;
     open((my $fh), $_ = "/var/run/ppp-$linkname.pid")
-	or die ME . ": Can't open the link file \"$_\": $!\n";
+      or die ME . ": Can't open the link file \"$_\": $!\n";
 
     my $pid   = <$fh>;
     my $iface = <$fh>;
@@ -284,10 +284,13 @@
     # real uid is 0
     kill 15, $pid or die ME . ": Can't kill pid $pid: $!\n";
 
-    waitpid $pid, 0 != -1 
-	or die ME . ": was not able to wait for the ppp process: $!\n";
+    waitpid $pid, 0 != -1
+      or die ME . ": was not able to wait for the ppp process: $!\n";
 
-    verbose "% process killed, rc: @{[$? >> 8]}, sig: @{[$? & 0xff]}\n";
+    verbose "% process killed, rc: "
+      . ($? >> 8)
+      . ", sig: "
+      . ($? & 0xff) . "\n";
 }
 
 __END__