japanese/p5-PDFJ/files/patch-Object.pm


1
2
3
4
5
6
7
8
9
10

--- PDFJ/Object.pm.orig	Thu Oct 24 16:32:34 2002
+++ PDFJ/Object.pm	Thu Oct 24 16:37:38 2002
@@ -133,6 +133,7 @@
 
 sub makeoutput {
 	my $self = shift;
+	$self->{outputtype} = "" if (not defined $self->{outputtype});
 	if( $self->{outputtype} !~ /^(literal|hex|hexliteral)$/ ) {
 		$self->{outputtype} = 
 			$self->{value} =~ /[\x80-\xff]/ ? 'hex' : 'literal';