diff options
author | lpsolit%gmail.com <> | 2007-08-09 19:36:07 +0200 |
---|---|---|
committer | lpsolit%gmail.com <> | 2007-08-09 19:36:07 +0200 |
commit | 1226f7f22e4a706b1755d359c07736575ed3af2b (patch) | |
tree | daf80a17edb8e5a3edfe40ae3ee89cadfe115210 /Bugzilla/Util.pm | |
parent | 1e87283250635a69e5d855d1bd5d075253796e88 (diff) | |
download | bugzilla-1226f7f22e4a706b1755d359c07736575ed3af2b.tar.gz bugzilla-1226f7f22e4a706b1755d359c07736575ed3af2b.tar.xz |
Bug 361149: Bugzilla now requires Perl 5.8.1 or newer (Perl 5.8.0 throws warnings about deprecated pseudo-hashes) - Patch by Frédéric Buclin <LpSolit@gmail.com> r/a=mkanat
Diffstat (limited to 'Bugzilla/Util.pm')
-rw-r--r-- | Bugzilla/Util.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Bugzilla/Util.pm b/Bugzilla/Util.pm index c6560dd11..87caa0527 100644 --- a/Bugzilla/Util.pm +++ b/Bugzilla/Util.pm @@ -106,8 +106,8 @@ sub html_light_quote { require HTML::Parser; }; - # We need utf8_mode() from HTML::Parser 3.40 if running Perl >= 5.8. - if ($@ || ($] >= 5.008 && $HTML::Parser::VERSION < 3.40)) { # Package(s) not installed. + # We need utf8_mode() from HTML::Parser 3.40. + if ($@ || $HTML::Parser::VERSION < 3.40) { # Package(s) not installed. my $safe = join('|', @allow); my $chr = chr(1); @@ -171,10 +171,10 @@ sub html_light_quote { comment => 0, process => 0); - # Avoid filling the web server error log with Perl 5.8.x. + # Avoid filling the web server error log. # In HTML::Scrubber 0.08, the HTML::Parser object is stored in # the "_p" key, but this may change in future versions. - if ($] >= 5.008 && ref($scrubber->{_p}) eq 'HTML::Parser') { + if (ref($scrubber->{_p}) eq 'HTML::Parser') { $scrubber->{_p}->utf8_mode(1); } return $scrubber->scrub($text); |