From 426c4f4bcad9dd890ad8dbbc28be5b3690fd6664 Mon Sep 17 00:00:00 2001
From: "David A. Madore" <david+config@madore.org>
Date: Tue, 16 Feb 2010 17:32:23 +0100
Subject: Rewrap long lines.

---
 emergencyc.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'emergencyc.pl')

diff --git a/emergencyc.pl b/emergencyc.pl
index 296297f..86c9da7 100755
--- a/emergencyc.pl
+++ b/emergencyc.pl
@@ -39,7 +39,8 @@ my $key;
 if ( defined($opts{K}) ) {
     $key = $opts{K};
 } elsif ( defined($opts{k}) ) {
-    open my $key_file, "<", $opts{k} or die "Cannot open key file $opts{k}: $!";
+    open my $key_file, "<", $opts{k}
+	or die "Cannot open key file $opts{k}: $!";
     $key = <$key_file>;
     chomp $key;
     close $key_file;
@@ -59,7 +60,8 @@ bind $socket, sockaddr_in6(0, in6addr_any);
 
 sub curtime {
     my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time);
-    return sprintf("%04d-%02d-%02dT%02d:%02d:%02dZ",$year+1900,$mon+1,$mday,$hour,$min,$sec);
+    return sprintf("%04d-%02d-%02dT%02d:%02d:%02dZ",
+		   $year+1900,$mon+1,$mday,$hour,$min,$sec);
 }
 
 my $command = $ARGV[0] // "PING";
-- 
cgit v1.2.3