sub End {
my $self = shift;
+ # if the pdf stream is utf8, explicitly set it to utf8; this avoids at lease some wide character errors -chris_n
+ utf8::encode($PDF::Reuse::stream) if utf8::is_utf8($PDF::Reuse::stream);
prEnd();
}
sub prAltJpeg
{ my ($iData, $iWidth, $iHeight, $iFormat,$aiData, $aiWidth, $aiHeight, $aiFormat) = @_;
my ($namnet, $utrad);
- if (! $PDF::Reuse::pos) { # If no output is active, it is no use to continue
- return;
+ if (! $PDF::Reuse::pos) # If no output is active, it is no use to continue
+ { return undef;
}
prJpegBlob($aiData, $aiWidth, $aiHeight, $aiFormat);
my $altObjNr = $PDF::Reuse::objNr;
sub prJpegBlob
{ my ($iData, $iWidth, $iHeight, $iFormat, $altArrayObjNr) = @_;
my ($iLangd, $namnet, $utrad);
- if (! $PDF::Reuse::pos) { # If no output is active, it is no use to continue
- return;
+ if (! $PDF::Reuse::pos) # If no output is active, it is no use to continue
+ { return undef;
}
my $checkidOld = $PDF::Reuse::checkId;
if (!$iFormat)