[Pkg-nagios-devel] Bug#691012: check_packages: Embedded Perl failed to compile /usr/lib/nagios/plugins/check_packages

[Salvatore Bonaccorso]

Package: nagios-plugins-contrib
Version: 4.20120702
Severity: normal

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA512

Hi

If Embedded Perl support is enabled (enable_embedded_perl=1, is activated by
default in icinga in Debian) the check_packages plugin fails with:

- ----cut---------cut---------cut---------cut---------cut---------cut-----
[1350711108.214044] [2320.2] [pid=19530] Raw Command Input: /usr/lib/nagios/plugins/check_packages
[1350711108.214057] [2320.2] [pid=19530] Expanded Command Output: /usr/lib/nagios/plugins/check_packages
[1350711108.214067] [001.0] [pid=19530] process_macros_r()
[1350711108.214078] [2048.1] [pid=19530] **** BEGIN MACRO PROCESSING ***********
[1350711108.214087] [2048.1] [pid=19530] Processing: '/usr/lib/nagios/plugins/check_packages'
[1350711108.214099] [2048.2] [pid=19530]   Processing part: '/usr/lib/nagios/plugins/check_packages'
[1350711108.214112] [2048.2] [pid=19530]   Not currently in macro.  Running output (38): '/usr/lib/nagios/plugins/check_packages'
[1350711108.214123] [2048.1] [pid=19530]   Done.  Final output: '/usr/lib/nagios/plugins/check_packages'
[1350711108.214132] [2048.1] [pid=19530] **** END MACRO PROCESSING *************
[1350711108.214143] [064.1] [pid=19530] Making callbacks (type 13)...
[1350711108.214244] [016.1] [pid=19530] Check result output will be written to '/tmp/checkgGBe9K' (fd=6)
[1350711108.214416] [016.1] [pid=19530] ** Using Embedded Perl interpreter to run service check...
[1350711108.223185] [016.0] [pid=19530] Embedded Perl failed to compile /usr/lib/nagios/plugins/check_packages, compile error **ePN failed to compile /usr/lib/nagios/plugins/check_packages: "Variable "%CODE" will not stay shared at (eval 2) line 53," at /usr/lib/icinga/p1.pl line 248.
 - skipping plugin
- ----cut---------cut---------cut---------cut---------cut---------cut-----

In check_packages script the subroutine record is using global
variables %CODE and $EXITCODE. In the guidelines for writing Perl
written plugins this is mentioned at [1].

 [1]: http://nagiosplug.sourceforge.net/developer-guidelines.html#PERLPLUGIN

Many thanks for your work!

Regards,
Salvatore

- -- System Information:
Debian Release: wheezy/sid
  APT prefers unstable
  APT policy: (500, 'unstable'), (1, 'experimental')
Architecture: amd64 (x86_64)

Kernel: Linux 2.6.32-5-amd64 (SMP w/8 CPU cores)
Locale: LANG=C, LC_CTYPE=C (charmap=ANSI_X3.4-1968)
Shell: /bin/sh linked to /bin/dash

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.12 (GNU/Linux)

iQIcBAEBCgAGBQJQgkiEAAoJEHidbwV/2GP+ad8QAJcXrjK/uMyeHWGMdZNRwVIb
uCo+MBcxtyRDqxgkSViKOmqWvvEQyq44oHtNadRRd3bPoOvp46kqMFjXeX3WSYA4
cWXgJus3My9ZNNnb9V2g+dvY/D3rLkfYI8pN155fhWNGbls8ajkYjb9nLwjlRlG4
U6KwsDW3tBiSueecqmBH/XgTXLGyWq67btdzxDksAOodel32//wlek8ar79rGqVg
r+ZmrCiuk+xktLTauWnBcIeiZk/bDu4NbRlJGFb/sIkuVzKBHxblEqTPkJ4LaWyc
ASCh16Bjm2OZD8PZqPvRChX25Ub04Bmzj98Iza1V+/zAifpxRagu633mZ1MOYgg3
LEao3LbLD9FTtlY1ex59KQQrhaYU8yI2KZ8yFjtoTB34SagRf2IqlnJf7lEjnBcK
0qfpbkchoGDdGyJg80yH2YdXPKEITKFwM/YBGqpTMDioNNi4Q1XHo9bw3DnFn+J6
8Lt4PVswF4thlWzgakv8WPty/wfXfFQNlyPChyZQi3A6fJkHQxtmmu9f//CtKOut
Rl98BNUDEUk8d0WlESGy7izAvd8BDokwdX1BcU9okC4bJh76blqrz/Ezm5+osoCP
OH3WPic7QFt0Qh/lNzNs4/XSNJhVrV/yAAg/5KarE2zknLmZGXXFq6yuFcdln3ud
NZkrlJfufXqNdLo9vtzN
=3/tl
-----END PGP SIGNATURE-----