1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
Description: Fixes "defined(@array) is deprecated" Perl warning
Author: Axel Beckert <[email protected]>
Index: librtf-document-perl/Document.pm
===================================================================
--- librtf-document-perl.orig/Document.pm 2015-07-21 22:49:05.937818261 0200
librtf-document-perl/Document.pm 2015-07-21 22:51:37.656018946 0200
@@ -582,7 582,7 @@
$self->add_raw ($fattr, escape_simple($name) );
my @alternates = ();
- @alternates = @{${$attributes}{alternates}} if ( defined @{${$attributes}{alternates}} );
@alternates = @{${$attributes}{alternates}} if @{${$attributes}{alternates}};
if (@alternates) {
while ($_ = shift @alternates) {
$self->add_raw ($fattr, [ '\*\falt '.escape_simple($_) ] );
|