Lines 1-6
Link Here
|
1 |
package MIME::Decoder::QuotedPrint; |
1 |
package MIME::Decoder::QuotedPrint; |
2 |
use strict; |
2 |
use strict; |
3 |
use warnings; |
3 |
use warnings; |
|
|
4 |
use version; |
4 |
|
5 |
|
5 |
|
6 |
|
6 |
=head1 NAME |
7 |
=head1 NAME |
Lines 73-79
$VERSION = "5.510";
Link Here
|
73 |
# The following code is horrible. I know. Beat me up. --dfs |
74 |
# The following code is horrible. I know. Beat me up. --dfs |
74 |
BEGIN { |
75 |
BEGIN { |
75 |
if (!defined(&encode_qp_threearg)) { |
76 |
if (!defined(&encode_qp_threearg)) { |
76 |
if ($::MIME::QuotedPrint::VERSION >= 3.03) { |
77 |
if (version->parse($::MIME::QuotedPrint::VERSION) >= version->parse(3.03)) { |
77 |
eval 'sub encode_qp_threearg ( $$$ ) { encode_qp(shift, shift, shift); }'; |
78 |
eval 'sub encode_qp_threearg ( $$$ ) { encode_qp(shift, shift, shift); }'; |
78 |
} else { |
79 |
} else { |
79 |
eval 'sub encode_qp_threearg ( $$$ ) { encode_qp(shift); }'; |
80 |
eval 'sub encode_qp_threearg ( $$$ ) { encode_qp(shift); }'; |
80 |
- |
|
|