From ae4422e16e6bfff83d476440d3e90cf2f338ce57 Mon Sep 17 00:00:00 2001
From: short <>
Date: Mon, 29 Apr 2002 18:16:37 +0000
Subject: [PATCH] Fixed $cfg->userdata==0 case  - bugreported by Pavel Machek

---
 GSM/SMS/Transport/Print.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/GSM/SMS/Transport/Print.pm b/GSM/SMS/Transport/Print.pm
index 9ac6b8c..c687c2b 100644
--- a/GSM/SMS/Transport/Print.pm
+++ b/GSM/SMS/Transport/Print.pm
@@ -23,8 +23,8 @@ my @config_vars = qw(
 sub send	{
 	my ($self, $msisdn, $pdu) = @_;
 
-	print "$msisdn:"        if !$self->{"cfg"}{"nomsisdn"};
-	print "$pdu\n",return 0 if !$self->{"cfg"}{"userdata"};
+	print "$msisdn:"                 if !$self->{"cfg"}{"nomsisdn"};
+	do { print "$pdu\n"; return 0; } if !$self->{"cfg"}{"userdata"};
 
 	$pdu=pack "H*",$pdu;  #unhex
 	$pdu=substr($pdu,0
-- 
1.8.3.1