1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
Description: call constant from other package as a function, otherwise
perl -wc fails with
# Bareword "Sms::Token::UDH::UDH1_LENGTH" not allowed while "strict subs" in use at /usr/share/perl5/Device/Gsm/Pdu.pm line 205.
# Compilation failed in require at /usr/share/perl5/Device/Gsm/Sms/Token/UDH.pm line 16.
# BEGIN failed--compilation aborted at /usr/share/perl5/Device/Gsm/Sms/Token/UDH.pm line 16.
# Compilation failed in require at /usr/share/perl5/Device/Gsm/Pdu.pm line 22.
# BEGIN failed--compilation aborted at /usr/share/perl5/Device/Gsm/Pdu.pm line 22.
.
Cf. https://ci.debian.net/data/autopkgtest/testing/amd64/libd/libdevice-gsm-perl/9312113/log.gz
Origin: vendor
Forwarded: no
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2021-01-19
--- a/lib/Device/Gsm/Pdu.pm
+++ b/lib/Device/Gsm/Pdu.pm
@@ -202,7 +202,7 @@
#below add 7 septets length for udh1
return
- sprintf("%02X", $decoded_length + Sms::Token::UDH::UDH1_LENGTH)
+ sprintf("%02X", $decoded_length + Sms::Token::UDH::UDH1_LENGTH())
. $udh1
. $pdu_msg;
}
|
