"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "IO/Pnm/Pic.pm" between
PDL-2.076.tar.gz and PDL-2.077.tar.gz

About: PDL (Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).

Pic.pm  (PDL-2.076):Pic.pm  (PDL-2.077)
skipping to change at line 897 skipping to change at line 897
return chkext(getext($file)); # then try extensions return chkext(getext($file)); # then try extensions
} }
# helper proc for wpic # helper proc for wpic
# process hints for direct converter control and try to guess from extension # process hints for direct converter control and try to guess from extension
# otherwise # otherwise
sub getconv { sub getconv {
my ($pdl,$file,$hints) = @_; my ($pdl,$file,$hints) = @_;
return ($$hints{CONVERTER},$$hints{FLAGS}) return ($$hints{CONVERTER},$$hints{FLAGS})
if defined($$hints{CONVERTER}); # somebody knows what he is doing if defined($$hints{CONVERTER}); # somebody knows what they're doing
my $type = ""; my $type = "";
if (defined($$hints{'FORMAT'})) { if (defined($$hints{'FORMAT'})) {
$type = $$hints{'FORMAT'}; $type = $$hints{'FORMAT'};
barf "unsupported (output) image format" barf "unsupported (output) image format"
unless (exists($converter{$type}) unless (exists($converter{$type})
&& $converter{$type}->{'put'} !~ /NA/); && $converter{$type}->{'put'} !~ /NA/);
} }
else { else {
$type = chkext(getext($file),1); $type = chkext(getext($file),1);
 End of changes. 1 change blocks. 
1 lines changed or deleted 1 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)