Good Morning Monks.
I'm getting the following error: "can't use an undefined value as an ARRAY reference at: C:/Perl64/site/lib/PDF/Reuse.pm line 995
PDF::Reuse::skrivSida() called at C:/Perl64/site/lib/PDF/Reuse.pm line 1017
The entire section of code from the PDF/Reuse.pm module is below. This code works fine on WinXP and not on Win7 as stated in my previous posts. Thanks in advance.
$stream = ''; my $tSida = $sida + 1; # OLD PERL WINXP #if ((@annots) #|| (defined @{$links{'-1'}}) #|| (defined @{$links{$tSida}})) if( @annots || @{$links{'-1'}} || @{$links{$tSida}} ) { $sidObjekt .= '/Annots ' . mergeLinks() . ' 0 R'; } if (defined $AAPageSaved) { $sidObjekt .= "/AA $AAPageSaved"; undef $AAPageSaved; } $sidObjekt .= ">>endobj\n"; $objekt[$sidObjNr] = $pos; $pos += syswrite UTFIL, $sidObjekt; push @{$kids[0]}, $sidObjNr; $sida++; $counts[0]++; if ($counts[0] > 9) { ordnaNoder(8); } } sub prEnd { if (! $pos) { return; } if ($stream) { skrivSida(); } skrivUtNoder();
In reply to Can't use undefined value as an ARRAY reference by PilotinControl
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |