| Subject: | Use of uninitialized value $caller in string eq at Array/Compare.pm line 328. |
| Date: | Sun, 19 Apr 2009 19:59:17 +0200 |
| To: | bug-Array-Compare [...] rt.cpan.org |
| From: | Karl Moens <karl.moens [...] telenet.be> |
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Dear Dave,
It seems your module throws a warning when you directly call the
simple_compare method.
See http://www.perlmonks.org/?node_id=758555
I think this due to the following:
327: my ($pkg, $caller) = (caller(1))[0, 3];
328: my $perm = $caller eq __PACKAGE__ . "::perm";
$caller is undef if 'simple-compare' is called directly from a
top-level in a script (and not from within a sub-routine)
This will solve it:
327: my ($pkg, $caller) = (caller(1))[0, 3];
327_1: $caller = '' unless $caller; # added
328: my $perm = $caller eq __PACKAGE__ . "::perm";
Best regards,
Karl
CountZero of Perlmonks
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (MingW32)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org
iEYEARECAAYFAknrZmgACgkQJeU7XmmCbf8ILQCdEKJFO+ujuOHL4ry/Ldz2MCxr
+0AAn26MZY8SotUUZzn6XCi6Q29ZOi8c
=rGfM
-----END PGP SIGNATURE-----