b88c8b2d34
- Added patch Class-Tangram-1.57-RT108841.patch (defined @array is deprecated) - Regenerate spec with newest cpanspec * Add PERL_USE_UNSAFE_INC Build passes again OBS-URL: https://build.opensuse.org/request/show/736709 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Class-Tangram?expand=0&rev=4
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
|
|
|