Cosmetic fix to allow conversion of --alcatel-name containing newlines

diff --git a/GSM/SMS/NBS/Lib.pm b/GSM/SMS/NBS/Lib.pm
index 4fdc87a..675e4fb 100644 (file)
--- a/GSM/SMS/NBS/Lib.pm
+++ b/GSM/SMS/NBS/Lib.pm
@@ -34,10 +34,10 @@ sub encode_payload {
        # assumed 7==dcs_to_bits($dcs)
 
        my $bits="";
-       $bits.=unpack("b7",$&) while ($payload=~s/^.//);
+       $bits.=unpack("b7",$&) while ($payload=~s/^.//s);
        $bits.="0"x7; # trailing padding
        my $r="";
-       $r.=pack("b8",$&) while ($bits=~s/^.{8}//);
+       $r.=pack("b8",$&) while ($bits=~s/^.{8}//s);
 
        return $r;
 }