"Redundant argument in printf" warning on Debug.pm line 98 with perl 5.32 about perl-convert-asn1

[timlegge]

diff --git a/lib/Convert/ASN1/Debug.pm b/lib/Convert/ASN1/Debug.pm
index 905600b..099189a 100644
--- a/lib/Convert/ASN1/Debug.pm
+++ b/lib/Convert/ASN1/Debug.pm
@@ -95,7 +95,7 @@ sub asn_dump {
     my $label = $type{sprintf("%02X",$tag & ~0x20)}
                || $type{sprintf("%02X",$tag & 0xC0)}
                || "[UNIVERSAL %d]";
-    printf $label, $tnum;
+    printf "%s: %d\n", $label, $tnum;
 
     if ($tag & ASN_CONSTRUCTOR) {
       print " {\n";

[chrisridd]

You shouldn't include the "\n" in the format string, otherwise LGTM thanks @timlegge !

With the \n and a certificate as data you output:

0000 1294: SEQUENCE: 16
 {
0004   64:   SEQUENCE: 16
 {
0006    9:     OBJECT ID: 6
 = 1.2.840.113549.1.5.13
0011   51:     SEQUENCE: 16
 {
[...]

without the \n you output the "nicer" (at least for us ASN.1 fanboys):

0000 1294: SEQUENCE: 16 {
0004   64:   SEQUENCE: 16 {
0006    9:     OBJECT ID: 6 = 1.2.840.113549.1.5.13
0011   51:     SEQUENCE: 16 {
[...]

[timlegge]

Good point @chrisridd - I changed it to a print in a commit that I will be pushing soon. I will make sure the formatting is correct. I am tracking down an issue with the decoding of certificates that are not rsa (i.e. dsa and ecdsa)...