Accepting request 346266 from home:mnhauke:branches:devel:languages:perl
Test 12-html_fragment_ok.t fails o perl >= 5.18 Added patch from Upstream to address this issue - add patch: perl-HTML-Lint-fix-tests-on-newer-perl-version.patch see https://github.com/petdance/html-lint/issues/39 OBS-URL: https://build.opensuse.org/request/show/346266 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-HTML-Lint?expand=0&rev=4
This commit is contained in:
committed by
Git OBS Bridge
parent
249a99728b
commit
b359a94573
43
perl-HTML-Lint-fix-tests-on-newer-perl-version.patch
Normal file
43
perl-HTML-Lint-fix-tests-on-newer-perl-version.patch
Normal file
@@ -0,0 +1,43 @@
|
||||
From f5115c7369627fbbd8f28f453f695af02beb0582 Mon Sep 17 00:00:00 2001
|
||||
From: Andy Lester <andy@petdance.com>
|
||||
Date: Tue, 7 Apr 2015 09:57:09 -0500
|
||||
Subject: [PATCH] doc-tag-required errors are now sorted by tag name.
|
||||
|
||||
---
|
||||
Changes | 9 +++++++++
|
||||
lib/HTML/Lint/Parser.pm | 2 +-
|
||||
2 files changed, 10 insertions(+), 1 deletion(-)
|
||||
|
||||
diff --git a/Changes b/Changes
|
||||
index 01f254c..3093c8a 100644
|
||||
--- a/Changes
|
||||
+++ b/Changes
|
||||
@@ -6,6 +6,15 @@ NOTE: All bugs and requests are now being handled through GitHub.
|
||||
|
||||
Please DO NOT send bug reports to http://rt.cpan.org/.
|
||||
|
||||
+NEXT
|
||||
+
|
||||
+ [FIXES]
|
||||
+ Errors of the type doc-tag-required did not come out in any defined
|
||||
+ order. They are now sorted by tag name. This was discovered
|
||||
+ because hash randomization caused tests to fail on Perl 5.18 and
|
||||
+ above. Thanks, Slaven Rezic and Andrew Main.
|
||||
+
|
||||
+
|
||||
2.22 Mon Apr 6 15:47:11 CDT 2015
|
||||
[CHANGES THAT COULD BREAK YOUR CODE]
|
||||
Previously, html_ok() would not check the entire structure of a web
|
||||
diff --git a/lib/HTML/Lint/Parser.pm b/lib/HTML/Lint/Parser.pm
|
||||
index aa1e337..5c60915 100644
|
||||
--- a/lib/HTML/Lint/Parser.pm
|
||||
+++ b/lib/HTML/Lint/Parser.pm
|
||||
@@ -102,7 +102,7 @@ sub _start_document {
|
||||
sub _end_document {
|
||||
my ($self,$line,$column) = @_;
|
||||
|
||||
- for my $tag ( keys %isRequired ) {
|
||||
+ for my $tag ( sort keys %isRequired ) {
|
||||
if ( !$self->{_first_seen}->{$tag} ) {
|
||||
$self->gripe( 'doc-tag-required', tag => $tag );
|
||||
}
|
Reference in New Issue
Block a user