28 lines
927 B
Diff
28 lines
927 B
Diff
|
From 32789b1aa513671205f1fc51c56d25f8614330f5 Mon Sep 17 00:00:00 2001
|
||
|
|
From: Slaven Rezic <slaven@rezic.de>
|
||
|
|
Date: Sun, 4 Mar 2018 20:57:32 +0100
|
||
|
|
Subject: [PATCH] fix for "Can't used defined ..." errors (RT #108841)
|
||
|
|
|
||
|
|
---
|
||
|
|
lib/Class/Tangram/Generator.pm | 4 ++--
|
||
|
|
1 file changed, 2 insertions(+), 2 deletions(-)
|
||
|
|
|
||
|
|
diff --git a/lib/Class/Tangram/Generator.pm b/lib/Class/Tangram/Generator.pm
|
||
|
|
index b624dab..a1225c9 100644
|
||
|
|
--- a/lib/Class/Tangram/Generator.pm
|
||
|
|
+++ b/lib/Class/Tangram/Generator.pm
|
||
|
|
@@ -147,8 +147,8 @@ sub load_class {
|
||
|
|
.join (" ", map {
|
||
|
|
(defined &{ $class."::$_" } ? "&" : "")
|
||
|
|
.(defined ${ $class."::$_" } ? "\$" : "")
|
||
|
|
- .(defined @{ $class."::$_" } ? "\@" : "")
|
||
|
|
- .(defined %{ $class."::$_" } ? "\%" : "")
|
||
|
|
+ .( @{ $class."::$_" } ? "\@" : "")
|
||
|
|
+ .( %{ $class."::$_" } ? "\%" : "")
|
||
|
|
."$_"
|
||
|
|
} keys %{ $class."::" }));
|
||
|
|
(DEBUG) && debug_out
|
||
|
|
--
|
||
|
|
2.1.4
|
||
|
|
|