Skip Menu |

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the HTML-StripScripts CPAN distribution.

Report information
The Basics
Id: 104221
Status: resolved
Priority: 0/
Queue: HTML-StripScripts

Owner: Nobody in particular
Requestors: jplesnik [...]

Bug Information
Severity: (no value)
Broken in: 1.05
Fixed in: (no value)


Subject: Missing right brace in regex
Download (untitled) / with headers
text/plain 1.1k
Tests run against Perl 5.21.11 failed with following error: PERL_DL_NONLAZY=1 "/usr/bin/perl" "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(0, 'blib/lib', 'blib/arch')" t/*.t # Failed test 'use HTML::StripScripts;' # at t/10basic.t line 7. # Tried to use 'HTML::StripScripts'. # Error: Unescaped left brace in regex is deprecated, passed through in regex; marked by <-- HERE in m/^\s*([+-]?\d{1,20}(?:\.\d{ <-- HERE 1,20)?)\s*((?:\%|\*|ex|px|pc|cm|mm|in|pt|em)?)\s*$/ at /builddir/build/BUILD/HTML-StripScripts-1.05/blib/lib/HTML/ line 1633. # Compilation failed in require at t/10basic.t line 7. # BEGIN failed--compilation aborted at t/10basic.t line 7. Can't locate object method "_hss_prepare_ban_list" via package "HTML::StripScripts" at /builddir/build/BUILD/HTML-StripScripts-1.05/blib/lib/HTML/ line 411. # Looks like you planned 9 tests but ran 1. # Looks like you failed 1 test of 1 run. # Looks like your test exited with 255 just after 1. t/10basic.t ............ The right brace is missing in the regex. The patch with fix is attached.
Subject: HTML-StripScripts-1.05-Fix-typo-in-regex.patch
diff -up HTML-StripScripts-1.05/ HTML-StripScripts-1.05/ --- HTML-StripScripts-1.05/ 2015-05-05 09:12:33.495920443 +0200 +++ HTML-StripScripts-1.05/ 2015-05-05 09:53:33.099908066 +0200 @@ -1630,7 +1630,7 @@ size or length. sub _hss_attval_size { $_[3] - =~ /^\s*([+-]?\d{1,20}(?:\.\d{1,20)?)\s*((?:\%|\*|ex|px|pc|cm|mm|in|pt|em)?)\s*$/i + =~ /^\s*([+-]?\d{1,20}(?:\.\d{1,20})?)\s*((?:\%|\*|ex|px|pc|cm|mm|in|pt|em)?)\s*$/i ? lc "$1$2" : undef; }
Fixed in 1.06 - thanks for the patch and sorry for the delay

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to