From: Claes Jacobsson <claes@surfar.nu>
Date: Sat, 12 Jul 2003 16:30:42 +0000 (+0200)
Subject: incorrect error message from Attribute::Handlers
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4da5364c43ce63810edc2b31320de60d9df11ad2;p=p5sagit%2Fp5-mst-13.2.git

incorrect error message from Attribute::Handlers
Message-Id: <6A6A99C4-B475-11D7-AB05-000393C12F9E@surfar.nu>

p4raw-id: //depot/perl@20159
---

diff --git a/lib/Attribute/Handlers.pm b/lib/Attribute/Handlers.pm
index 9dfe783..b41a332 100644
--- a/lib/Attribute/Handlers.pm
+++ b/lib/Attribute/Handlers.pm
@@ -103,7 +103,7 @@ sub AUTOLOAD {
 	my ($class) = $AUTOLOAD =~ m/(.*)::/g;
 	$AUTOLOAD =~ m/_ATTR_(.*?)_(.*)/ or
 	    croak "Can't locate class method '$AUTOLOAD' via package '$class'";
-	croak "Attribute handler '$3' doesn't handle $2 attributes";
+	croak "Attribute handler '$2' doesn't handle $1 attributes";
 }
 
 sub DESTROY {}