diff options
| author | Damian Conway <damian@cs.monash.edu.au> | 2007-11-23 18:43:05 +1100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-11-25 17:20:33 +0000 |
| commit | 0ca820942675126fc56ee5a83d8c533552b33365 (patch) | |
| tree | 2ef7f7728e0dee90f2960668c454e85037ab26ad /lib | |
| parent | f48042757ac0dd79c882340490f8467f79bc8c63 (diff) | |
| download | perl-0ca820942675126fc56ee5a83d8c533552b33365.tar.gz | |
Change to Attribute::Handlers suggested by Damian in
Subject: Re: [PATCH] Attribute::Handlers till ears are bleeding
Message-ID: <4745E9D9.1050102@conway.org>
p4raw-id: //depot/perl@32488
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Attribute/Handlers.pm | 4 | ||||
| -rw-r--r-- | lib/Attribute/Handlers/t/data_convert.t | 2 |
2 files changed, 2 insertions, 4 deletions
diff --git a/lib/Attribute/Handlers.pm b/lib/Attribute/Handlers.pm index ac3db2837f..0cf380cd24 100644 --- a/lib/Attribute/Handlers.pm +++ b/lib/Attribute/Handlers.pm @@ -192,9 +192,7 @@ sub _apply_handler_AH_ { no warnings; my $evaled = !$raw && eval("package $pkg; no warnings; no strict; local \$SIG{__WARN__}=sub{die}; [$data]"); - $data = ($evaled && $data =~ /^\s*\[/) ? [$evaled] - : ($evaled) ? $evaled - : [$data]; + $data = $evaled || [$data]; $pkg->$handler($sym, (ref $sym eq 'GLOB' ? *{$sym}{ref $ref}||$ref : $ref), $attr, diff --git a/lib/Attribute/Handlers/t/data_convert.t b/lib/Attribute/Handlers/t/data_convert.t index 56e66c4be0..b0c37c360d 100644 --- a/lib/Attribute/Handlers/t/data_convert.t +++ b/lib/Attribute/Handlers/t/data_convert.t @@ -26,7 +26,7 @@ sub test1 :Loud(till=>ears=>are=>bleeding) { } sub test2 :Loud(['till','ears','are','bleeding']) { - [[qw(till ears are bleeding)]] + [qw(till ears are bleeding)] } sub test3 :Loud(qw/till ears are bleeding/) { |