"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Doc/mkpdlfuncpod" between
PDL-2.082.tar.gz and PDL-2.083.tar.gz

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

mkpdlfuncpod  (PDL-2.082)	:	mkpdlfuncpod  (PDL-2.083)
skipping to change at line 74		skipping to change at line 74
$strip =~ s/PDL.*::(.*)$/$1/;		$strip =~ s/PDL.*::(.*)$/$1/;
$val->{Stripped} = $strip;		$val->{Stripped} = $strip;
}		}
@match = $onldc->search('.*',['Name'],1);		@match = $onldc->search('.*',['Name'],1);
@match = sort {lc $a->[1]->{Stripped} cmp lc $b->[1]->{Stripped}} @match;		@match = sort {lc $a->[1]->{Stripped} cmp lc $b->[1]->{Stripped}} @match;
for (@match) {		for (@match) {
next if $_->[1]->{Ref} =~ /(Module|Manual):/ ||		next if $_->[1]->{Ref} =~ /(Module|Manual):/ ||
nofunc $_->[1]->{Stripped}, $_->[1];		nofunc $_->[1]->{Stripped}, $_->[1];
$sh = new StrHandle;		$sh = StrHandle->new;
print STDERR "function $_->[0] ($_->[1]->{Stripped})\n";		print STDERR "function $_->[0] ($_->[1]->{Stripped})\n";
$onldc->funcdocs($_->[0],$sh);		$onldc->funcdocs($_->[0],$sh);
$mod = "\n\nModule: $_->[1]->{Module}\n\n";		$mod = "\n\nModule: $_->[1]->{Module}\n\n";
$stripped = $_->[1]->{Stripped};		$stripped = $_->[1]->{Stripped};
$txt = $sh->text;		$txt = $sh->text;
$txt =~ s/=head2 (.*)$/=item $stripped$mod/mg;		$txt =~ s/=head2 (.*)$/=item $stripped$mod/mg;
$txt =~ s/^=cut\s*$//mg;		$txt =~ s/^=cut\s*$//mg;
$txt =~ s/^=for.*$//mg;		$txt =~ s/^=for.*$//mg;
$txt =~ s/Docs from .*$//mg;		$txt =~ s/Docs from .*$//mg;
print $txt;		print $txt;
End of changes. 1 change blocks.
1 lines changed or deleted		1 lines changed or added

---