"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "IO/Pnm/Pic.pm" between
PDL-2.078.tar.gz and PDL-2.079.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.078):Pic.pm  (PDL-2.079)
skipping to change at line 268 skipping to change at line 268
my($converter) = $PDL::IO::Pic::converter; my($converter) = $PDL::IO::Pic::converter;
if (defined($converter{$type}->{referral})) { if (defined($converter{$type}->{referral})) {
if(ref ($converter{$type}->{referral}->{'get'}) eq 'CODE') { if(ref ($converter{$type}->{referral}->{'get'}) eq 'CODE') {
return &{$converter{$type}->{referral}->{'get'}}(@_); return &{$converter{$type}->{referral}->{'get'}}(@_);
} else { } else {
barf "rpic: internal error with referral (format is $type)\n"; barf "rpic: internal error with referral (format is $type)\n";
} }
} }
my $fh; my $fh;
if ($converter{$type}->{'get'} =~ /^NONE/) { if ($converter{$type}->{'get'} and $converter{$type}->{'get'} =~ /^NONE/) {
open $fh, $file; open $fh, $file;
} else { } else {
my @cmd = $converter{$type}->{get}; my @cmd = $converter{$type}{get} // barf "No converter for '$type'";
push @cmd, shellwords $converter{$type}->{FLAGS} // $Dflags; push @cmd, shellwords $converter{$type}{FLAGS} // $Dflags;
push @cmd, shellwords $$hints{XTRAFLAGS} if defined($$hints{XTRAFLAGS}); push @cmd, shellwords $$hints{XTRAFLAGS} if defined($$hints{XTRAFLAGS});
open $fh, '-|', @cmd, $file open $fh, '-|', @cmd, $file
or barf "spawning '@cmd' failed: $? ($!)"; or barf "spawning '@cmd' failed: $? ($!)";
print "conversion by '@cmd'\n" if $PDL::IO::Pic::debug > 10; print "conversion by '@cmd'\n" if $PDL::IO::Pic::debug > 10;
} }
binmode $fh; binmode $fh;
my @frames; my @frames;
while (!eof $fh) { while (!eof $fh) {
push @frames, rpnm $fh; push @frames, rpnm $fh;
} }
 End of changes. 2 change blocks. 
3 lines changed or deleted 3 lines changed or added

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