| … | |
… | |
| 119 | my ($data, $dw, $dh); |
119 | my ($data, $dw, $dh); |
| 120 | |
120 | |
| 121 | if (exists $self->{resource_path}) { |
121 | if (exists $self->{resource_path}) { |
| 122 | open my $fh, "<:raw", DC::find_rcfile $self->{resource_path}; |
122 | open my $fh, "<:raw", DC::find_rcfile $self->{resource_path}; |
| 123 | local $/; |
123 | local $/; |
|
|
124 | delete $self->{internalformat}; |
| 124 | $self->{image} = <$fh>; |
125 | $self->{image} = <$fh>; |
| 125 | $self->{delete_image} = 1; |
126 | $self->{delete_image} = 1; |
| 126 | } |
127 | } |
| 127 | |
128 | |
| 128 | if (defined $self->{data}) { |
129 | if (defined $self->{data}) { |
