Bug 390442: Bugzilla/Template.pm fails on perl 5.9.5 (and Perl 5.10) - Patch by Max...

diff --git a/Bugzilla/Template.pm b/Bugzilla/Template.pm
index edb2e148d32ea764246cb8a7707a1a6c3bd565d6..3c42ea30e6c6a573c01b93ff391735badde4abc2 100644 (file)
--- a/Bugzilla/Template.pm
+++ b/Bugzilla/Template.pm
@@ -56,7 +56,7 @@ my %constants;
 foreach my $constant (@Bugzilla::Constants::EXPORT,
                       @Bugzilla::Constants::EXPORT_OK)
 {
-    if (defined &{$Bugzilla::Constants::{$constant}}) {
+    if (defined Bugzilla::Constants->$constant) {
         # Constants can be lists, and we can't know whether we're getting
         # a scalar or a list in advance, since they come to us as the return
         # value of a function call, so we have to retrieve them all in list