diff options
| author | Claes Jacobsson <claes@surfar.nu> | 2003-07-12 18:30:42 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-07-13 20:02:34 +0000 |
| commit | 4da5364c43ce63810edc2b31320de60d9df11ad2 (patch) | |
| tree | df9b2b8319c9b014104fc693a738dc264a8e8365 /lib/Attribute | |
| parent | 5aca436449cd62a9a59230a9a638565b1de6c2fb (diff) | |
| download | perl-4da5364c43ce63810edc2b31320de60d9df11ad2.tar.gz | |
incorrect error message from Attribute::Handlers
Message-Id: <6A6A99C4-B475-11D7-AB05-000393C12F9E@surfar.nu>
p4raw-id: //depot/perl@20159
Diffstat (limited to 'lib/Attribute')
| -rw-r--r-- | lib/Attribute/Handlers.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Attribute/Handlers.pm b/lib/Attribute/Handlers.pm index 9dfe783c66..b41a332a1c 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 {} |