Mercurial Mercurial > hg > sap-vpn / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
- cosmetic
authorheiko
Thu, 13 Nov 2008 22:16:35 +0000
changeset 8 9f1f562a69a1
parent 7 f9fbeced9093
child 9 b8eabdc8e452
- cosmetic
sap-vpn.pl file | annotate | diff | comparison | revisions 
--- 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__
sap-vpn