diff options
| author | Niko Tyni <ntyni@debian.org> | 2023-07-29 18:54:01 +0100 |
|---|---|---|
| committer | gregor herrmann <gregoa@debian.org> | 2023-07-30 15:21:26 +0200 |
| commit | 757942f751d77dca066a4f382cc08d8aea1dd763 (patch) | |
| tree | e3e075bdd66919b066d7eb59b2b1c85a0f038282 | |
| parent | e7e5441c3088f20f2f1912ae57ddeeb7624786e6 (diff) | |
[PATCH] Fix MIME::QuotedPrint version parsingarchive/debian/5.510-2
Perl 5.38 bundles MIME::QuotedPrint at version 3.16_01 which is not
numeric, causing spurious warnings on usage.
Bug-Debian: https://bugs.debian.org/1040377
Forwarded: https://rt.cpan.org/Ticket/Display.html?id=149225
Bug: https://rt.cpan.org/Ticket/Display.html?id=149225
Gbp-Pq: Name 0001-Fix-MIME-QuotedPrint-version-parsing.patch
| -rw-r--r-- | lib/MIME/Decoder/QuotedPrint.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/MIME/Decoder/QuotedPrint.pm b/lib/MIME/Decoder/QuotedPrint.pm index 89bb3da..1a8a7ec 100644 --- a/lib/MIME/Decoder/QuotedPrint.pm +++ b/lib/MIME/Decoder/QuotedPrint.pm @@ -1,6 +1,7 @@ package MIME::Decoder::QuotedPrint; use strict; use warnings; +use version; =head1 NAME @@ -73,7 +74,7 @@ $VERSION = "5.510"; # The following code is horrible. I know. Beat me up. --dfs BEGIN { if (!defined(&encode_qp_threearg)) { - if ($::MIME::QuotedPrint::VERSION >= 3.03) { + if (version->parse($::MIME::QuotedPrint::VERSION) >= version->parse(3.03)) { eval 'sub encode_qp_threearg ( $$$ ) { encode_qp(shift, shift, shift); }'; } else { eval 'sub encode_qp_threearg ( $$$ ) { encode_qp(shift); }'; |