"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Basic/SourceFilter/FilterSimple.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).

FilterSimple.pm  (PDL-2.075):FilterSimple.pm  (PDL-2.076)
# This is the new Filter::Simple engine for PDL::NiceSlice # This is the new Filter::Simple engine for PDL::NiceSlice
# #
use Filter::Simple; use Filter::Simple;
use strict; use strict;
use warnings; use warnings;
{
no warnings 'redefine';
sub PDL::NiceSlice::FilterSimple::code_no_comments {
print STDERR "***** Input: \n$_\n" if $PDL::NiceSlice::debug_filter;
$_ = perldlpp('PDL::NiceSlice', $_);
print STDERR "***** Output: $_\n" if $PDL::NiceSlice::debug_filter;
}
}
FILTER_ONLY FILTER_ONLY
code_no_comments => code_no_comments => \&PDL::NiceSlice::FilterSimple::code_no_comments,
sub {
my ($text1,$text2) = ($_,'');
print STDERR "**************** Input: \n$text1\n" if $PDL::NiceSlice::debu
g_filter;
$text2 = perldlpp('PDL::NiceSlice', $text1);
print STDERR "**************** Output: $text2\n" if $PDL::NiceSlice::debug
_filter;
$_ = $text2;
},
all => sub { print STDERR "*** Final: $_\n" if $PDL::NiceSlice::debug_filter }; all => sub { print STDERR "*** Final: $_\n" if $PDL::NiceSlice::debug_filter };
1; 1;
 End of changes. 2 change blocks. 
10 lines changed or deleted 10 lines changed or added

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