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 (file)
--- 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 {}