"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

---