Well, I don't think that this is fixed, according to
http://search.cpan.org/~jesse/perl-5.14.0/pod/perl5135delta.pod#Use_of_qw%28...%29_as_parentheses
the qw() function has to be wrapped in parentheses in order to be parsed
correctly by perl 5.
If you do grep 'qw(' /usr/share/munin/plugins/* -n in Ubuntu 13.04 you
get:
apache_processes:169: foreach my $type (qw(busy idle)) {
asterisk_channelstypes:77:my @CHANNELS = exists $ENV{'channels'} ? split '
',$ENV{'channels'} : qw(Zap IAX2 SIP);
asterisk_codecs:82:my @CODECS = exists $ENV{'codecs'} ? split '
',$ENV{'codecs'} : qw(gsm ulaw alaw);
asterisk_codecs:83:my @CODECSX = exists $ENV{'codecsx'} ? split '
',$ENV{'codecsx'} : qw(0x2 0x4 0x8);
asterisk_sipchannels:80:my @CODECS = exists $ENV{'codecs'} ? split '
',$ENV{'codecs'} : qw(gsm ulaw alaw);
asterisk_sipchannels:81:my @CODECSX = exists $ENV{'codecsx'} ? split '
',$ENV{'codecsx'} : qw(0x2 0x4 0x8);
diskstat_:544: qw(major minor devname
diskstats:15:use Storable qw(nfreeze thaw);
diskstats:420: qw(major minor devname
...
and many more.
--
You received this bug notification because you are a member of Ubuntu
Bugs, which is subscribed to Ubuntu.
https://bugs.launchpad.net/bugs/1052815
Title:
Perl warnings break plugins
To manage notifications about this bug go to:
https://bugs.launchpad.net/ubuntu/+source/munin/+bug/1052815/+subscriptions
--
ubuntu-bugs mailing list
ubuntu-bugs@lists.ubuntu.com
https://lists.ubuntu.com/mailman/listinfo/ubuntu-bugs
