head	1.1;
access;
symbols
	pkgsrc-2026Q1:1.1.0.46
	pkgsrc-2026Q1-base:1.1
	pkgsrc-2025Q4:1.1.0.44
	pkgsrc-2025Q4-base:1.1
	pkgsrc-2025Q3:1.1.0.42
	pkgsrc-2025Q3-base:1.1
	pkgsrc-2025Q2:1.1.0.40
	pkgsrc-2025Q2-base:1.1
	pkgsrc-2025Q1:1.1.0.38
	pkgsrc-2025Q1-base:1.1
	pkgsrc-2024Q4:1.1.0.36
	pkgsrc-2024Q4-base:1.1
	pkgsrc-2024Q3:1.1.0.34
	pkgsrc-2024Q3-base:1.1
	pkgsrc-2024Q2:1.1.0.32
	pkgsrc-2024Q2-base:1.1
	pkgsrc-2024Q1:1.1.0.30
	pkgsrc-2024Q1-base:1.1
	pkgsrc-2023Q4:1.1.0.28
	pkgsrc-2023Q4-base:1.1
	pkgsrc-2023Q3:1.1.0.26
	pkgsrc-2023Q3-base:1.1
	pkgsrc-2023Q2:1.1.0.24
	pkgsrc-2023Q2-base:1.1
	pkgsrc-2023Q1:1.1.0.22
	pkgsrc-2023Q1-base:1.1
	pkgsrc-2022Q4:1.1.0.20
	pkgsrc-2022Q4-base:1.1
	pkgsrc-2022Q3:1.1.0.18
	pkgsrc-2022Q3-base:1.1
	pkgsrc-2022Q2:1.1.0.16
	pkgsrc-2022Q2-base:1.1
	pkgsrc-2022Q1:1.1.0.14
	pkgsrc-2022Q1-base:1.1
	pkgsrc-2021Q4:1.1.0.12
	pkgsrc-2021Q4-base:1.1
	pkgsrc-2021Q3:1.1.0.10
	pkgsrc-2021Q3-base:1.1
	pkgsrc-2021Q2:1.1.0.8
	pkgsrc-2021Q2-base:1.1
	pkgsrc-2021Q1:1.1.0.6
	pkgsrc-2021Q1-base:1.1
	pkgsrc-2020Q4:1.1.0.4
	pkgsrc-2020Q4-base:1.1
	pkgsrc-2020Q3:1.1.0.2
	pkgsrc-2020Q3-base:1.1;
locks; strict;
comment	@# @;


1.1
date	2020.07.22.21.45.41;	author gutteridge;	state Exp;
branches;
next	;
commitid	Lnsz9ELzHFQxG7hC;


desc
@@


1.1
log
@weblint: fix the package so it actually runs

This is a very dated package that has Perl 4 era expectations. It used
an expression that would never have worked as intended (at least, not in
any version of Perl 5) and is past deprecation in modern Perl. It also
expects Perl 4 versions of what modern Perl 5 provides as Getopt::Long
and File::Find. It was simplest to satisfy its requirements by depending
on p5-Perl4-CoreLibs, rather than rewriting multiple lines of code to
modernize to the Perl 5 versions of these modules. With these changes,
the package now runs, and passes all of its test suite. Addresses
PR pkg/55511 by Stefan Schaeckeler.
@
text
@$NetBSD$

Fix incorrect test of whether a hash is defined.

--- weblint.orig	1997-09-04 09:19:55.000000000 +0000
+++ weblint
@@@@ -843,7 +843,7 @@@@ sub WebLint
          }
          elsif ($closing == 0 && $id =~ /^($expectArgsRE)$/io)
          {
-            &whine($., 'expected-attribute', $id) unless defined %args;
+            &whine($., 'expected-attribute', $id) unless %args;
          }
 
          #--------------------------------------------------------
@