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 (file)
--- 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