From: Tim Pope <code@tpope.net>
Date: Wed, 1 Jun 2005 05:11:25 +0000 (+0000)
Subject: Debugging this makes me want to shoot somebody
X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=commitdiff_plain;h=a22a62d098eae8c3e9c1dc04408e6d85e894aed9

Debugging this makes me want to shoot somebody
---

diff --git a/perl/mobile-phone-monitor b/perl/mobile-phone-monitor
index 5c7065f..dbc549f 100755
--- a/perl/mobile-phone-monitor
+++ b/perl/mobile-phone-monitor
@@ -51,7 +51,6 @@ while($status{"is_active"} ne 0) {
 	} elsif(!defined($number)) { $status{"is_active"}=0; last; };
     }
     my %newstatus=gather_data($gsm);
-    print $newstatus{'call'}." ".$status{'call'}."\n";
     ring() if($newstatus{"call"}!=0 && $status{"call"}==0 && !$status{"number"});
     foreach (keys %newstatus) {
 	$status{$_} = $newstatus{$_} if(defined ($newstatus{$_}));