From: short <>
Date: Mon, 29 Apr 2002 18:16:37 +0000 (+0000)
Subject: Fixed $cfg->userdata==0 case
X-Git-Url: https://git.jankratochvil.net/?p=gsmperl.git;a=commitdiff_plain;h=ae4422e16e6bfff83d476440d3e90cf2f338ce57

Fixed $cfg->userdata==0 case
 - bugreported by Pavel Machek
---

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