Good Evening Fine monks. I've come to a bump in the road with my perl script when I execute the script it loads up fine with this exception. I must also state that this is perl 5.16.3 running on Windows 7 64 bit and this same script runs with out error on WinXP :
defined(@array) is deprecated at C:/Perl64/site/lib/PDF/Reuse.pm line 993 (#1) (D deprecated) defined() is not usually on arrays because it checks for an undefined scalar value. If you want to see if the array is empty, just use if (@array) { # not empty } for example. (Maybe you should just omit the defined()?)
As stated my script loads fine below is the code from the Reuse.pm
my $tSida = $sida + 1; if ((@annots) || (defined @{$links{'-1'}}) || (defined @{$links{$tSida +}})) { $sidObjekt .='/Annots ' . mergeLinks() . ' 0 R'; }
In reply to Define(@array) is Deprecated by PilotinControl
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |