"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Doc/Doc/Perldl.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).

Perldl.pm  (PDL-2.078):Perldl.pm  (PDL-2.079)
skipping to change at line 287 skipping to change at line 287
print $out "\n=back\n\n=head1\n\n To see item number \$n, use 'help ${ topic}\[\$n\]'. \n\n=cut\n\n"; print $out "\n=back\n\n=head1\n\n To see item number \$n, use 'help ${ topic}\[\$n\]'. \n\n=cut\n\n";
} }
if (@match > 0 and $num_pdl_pod_matches > 1) { if (@match > 0 and $num_pdl_pod_matches > 1) {
print $out "\n=head1 Displaying item $pdl_pod_matchnum:\n\n=head1 ---- ----------------------------------\n\n=cut\n\n"; print $out "\n=head1 Displaying item $pdl_pod_matchnum:\n\n=head1 ---- ----------------------------------\n\n=cut\n\n";
} }
my $m = shift @match; my $m = shift @match;
my $Ref = $m->[2]{Ref}; my $Ref = $m->[2]{Ref};
if ( $Ref =~ /^(Module|Manual|Script): / ) { if ( $Ref && $Ref =~ /^(Module|Manual|Script): / ) {
# We've got a file name and we have to open it. With the relocatable db, we have to reconstitute the absolute pathname. # We've got a file name and we have to open it. With the relocatable db, we have to reconstitute the absolute pathname.
my $relfile = $m->[2]{File}; my $relfile = $m->[2]{File};
my $absfile = undef; my $absfile = undef;
my @scnd = @{$PDL::onlinedoc->{Scanned}}; my @scnd = @{$PDL::onlinedoc->{Scanned}};
for my $dbf(@scnd){ for my $dbf(@scnd){
$dbf =~ s:\/[^\/]*$::; # Trim file name off the end of the databas e file to get just the directory $dbf =~ s:\/[^\/]*$::; # Trim file name off the end of the databas e file to get just the directory
$dbf .= "/$relfile"; $dbf .= "/$relfile";
$absfile = $dbf if( -e $dbf ); $absfile = $dbf if( -e $dbf );
} }
unless ($absfile) { unless ($absfile) {
skipping to change at line 569 skipping to change at line 569
whatis_r($pre,$indent + $PDL::Doc::Perldl::hash_indent, $x->{$key}); whatis_r($pre,$indent + $PDL::Doc::Perldl::hash_indent, $x->{$key});
} }
return; return;
} }
if(ref $x eq 'CODE') { if(ref $x eq 'CODE') {
print "${prefix}Perl CODE ref\n"; print "${prefix}Perl CODE ref\n";
return; return;
} }
if(ref $x eq 'SCALAR' | ref $x eq 'REF') { if(ref $x eq 'SCALAR' || ref $x eq 'REF') {
whatis_r($prefix." Ref -> ",$indent+8,$$x); whatis_r($prefix." Ref -> ",$indent+8,$$x);
return; return;
} }
if(UNIVERSAL::can($x,'px')) { if(UNIVERSAL::can($x,'px')) {
my $y; my $y;
local $PDL::debug = 1; local $PDL::debug = 1;
$y = ( (UNIVERSAL::isa($x,'PDL') && $x->nelem < 5 && $x->ndims < 2) $y = ( (UNIVERSAL::isa($x,'PDL') && $x->nelem < 5 && $x->ndims < 2)
? ?
skipping to change at line 724 skipping to change at line 724
my $func = shift; my $func = shift;
die "Usage: badinfo \$funcname\n" unless defined $func; die "Usage: badinfo \$funcname\n" unless defined $func;
die "no online doc database" unless defined $PDL::onlinedoc; die "no online doc database" unless defined $PDL::onlinedoc;
local $SIG{PIPE}= sub {}; # Prevent crashing if user exits the pager local $SIG{PIPE}= sub {}; # Prevent crashing if user exits the pager
my @match = search_docs("m/^(PDL::)?$func\$|\:\:$func\$/",['Name']); my @match = search_docs("m/^(PDL::)?$func\$|\:\:$func\$/",['Name']);
my $count = @match; my $count = @match;
if ( $count ) { if ( $count ) {
my ($pagerstr, $noinfostr); my ($pagerstr, $noinfostr) = ('', '');
foreach my $m(@match) { foreach my $m(@match) {
my ($name,$module,$hash) = @{$m}; my ($name,$module,$hash) = @{$m};
my $info = $hash->{Bad}; my $info = $hash->{Bad};
if ( defined $info ) { if ( defined $info ) {
$name=~s/^(.*)\:\:(\w*)$/$2/; $name=~s/^(.*)\:\:(\w*)$/$2/;
$pagerstr .= "=head1 Bad value support for $name (in module $modu le)\n\n$info\n"; $pagerstr .= "=head1 Bad value support for $name (in module $modu le)\n\n$info\n";
} else { } else {
$noinfostr .= "\n No information on bad-value support found for $func (in module $module)\n"; $noinfostr .= "\n No information on bad-value support found for $func (in module $module)\n";
} }
 End of changes. 3 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)