"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Basic/Gen/PP.pm" between
PDL-2.075.tar.gz and PDL-2.076.tar.gz

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

PP.pm  (PDL-2.075):PP.pm  (PDL-2.076)
skipping to change at line 1556 skipping to change at line 1556
# Append a final cut if it doesn't exist due to heredoc shinanigans # Append a final cut if it doesn't exist due to heredoc shinanigans
$fulldoc .= "\n\n=cut\n" unless $fulldoc =~ /\n=cut\n*$/; $fulldoc .= "\n\n=cut\n" unless $fulldoc =~ /\n=cut\n*$/;
# Make sure the =head1 FUNCTIONS section gets added # Make sure the =head1 FUNCTIONS section gets added
$::DOCUMENTED++; $::DOCUMENTED++;
return $fulldoc; return $fulldoc;
} }
), ),
PDL::PP::Rule->new("PdlDoc", ["Name",\"Pars","OtherPars","Doc",\"BadDoc"], PDL::PP::Rule->new("PdlDoc", ["Name",\"Pars","OtherPars","Doc",\"BadDoc"],
sub { sub {
my ($name,$pars,$otherpars,$doc,$baddoc) = @_; my ($name,$pars,$otherpars,$doc,$baddoc) = @_;
return '' if !defined $doc # Allow explcit non-doc using Doc=>undef return '' if !defined $doc # Allow explicit non-doc using Doc=>undef
or $doc =~ /^\s*internal\s*$/i; or $doc =~ /^\s*internal\s*$/i;
# If the doc string is one line let's have to for the # If the doc string is one line let's have two for the
# reference card information as well # reference card information as well
$doc = "=for ref\n\n".$doc if $doc !~ /\n/; $doc = "=for ref\n\n".$doc if $doc !~ /\n/;
$::DOCUMENTED++; $::DOCUMENTED++;
$pars = "P(); C()" unless $pars; $pars = "P(); C()" unless $pars;
# Strip leading whitespace and trailing semicolons and whitespace # Strip leading whitespace and trailing semicolons and whitespace
$pars =~ s/^\s*(.+[^;])[;\s]*$/$1/; $pars =~ s/^\s*(.+[^;])[;\s]*$/$1/;
$otherpars =~ s/^\s*(.+[^;])[;\s]*$/$1/ if $otherpars; $otherpars =~ s/^\s*(.+[^;])[;\s]*$/$1/ if $otherpars;
my $sig = "$pars".( $otherpars ? "; $otherpars" : ""); my $sig = "$pars".( $otherpars ? "; $otherpars" : "");
$doc =~ s/\n(=cut\s*\n)+(\s*\n)*$/\n/m; # Strip extra =cut's $doc =~ s/\n(=cut\s*\n)+(\s*\n)*$/\n/m; # Strip extra =cut's
if ( defined $baddoc ) { if ( defined $baddoc ) {
 End of changes. 2 change blocks. 
2 lines changed or deleted 2 lines changed or added

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