--- weblint-1.9.3/lib/Weblint.pm	1999-04-08 12:46:24.000000000 +0100
+++ weblint-1.9.3/lib/Weblint.pm	2008-04-11 14:42:48.000000000 +0100
@@ -525,7 +525,7 @@
     {
 	my $i;
 
-	for ($i=$#{@{ $self->{tags}}}; $self->{tags}->[$i] ne $tag; --$i)
+	for ($i=$#{ $self->{tags} }; $self->{tags}->[$i] ne $tag; --$i)
 	{
 	}
 	$self->whine('nested-element', $tag, $self->{taglines}->[$i]);
--- weblint-1.9.3/lib/Weblint/Constants.pm	2008-03-12 18:41:14.000000000 +0000
+++ weblint-1.9.3/lib/Weblint/Constants.pm	2008-03-12 18:41:55.000000000 +0000
@@ -12,6 +12,7 @@
 package Weblint::Constants;
 use 5.004;
 use strict;
+require Exporter;
 
 use vars qw( $VERSION @ISA @EXPORT );
 $VERSION = '';