my @attributes;
BEGIN {
- @attributes = qw/tag name version desc author email url banner/;
+ @attributes = qw<tag name version desc author email url banner>;
}
local *PH;
*$ph->{$_} = $opts{$_} for @attributes;
*$ph->{buf} = '';
- Xchat::register(@opts{qw/name version banner/}, sub {
+ Xchat::register(@opts{qw<name version banner>}, sub {
$ph->flush;
if (*$ph->{atexit_id}) {
my @callbacks = sort { *$ph->{atexit}{$b} <=> *$ph->{atexit}{$a} }