"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Perldl2/Profile/Perldl2.pm" 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).

Perldl2.pm  (PDL-2.082)	:	Perldl2.pm  (PDL-2.083)
skipping to change at line 136		skipping to change at line 136
if (!$_[0]) {		if (!$_[0]) {
require List::Util;		require List::Util;
my @kw = sort grep $_ ne 'pdl', PDL::Demos->keywords;		my @kw = sort grep $_ ne 'pdl', PDL::Demos->keywords;
my $maxlen = List::Util::max(map length, @kw);		my $maxlen = List::Util::max(map length, @kw);
print "Use:\n";		print "Use:\n";
printf " demo %-${maxlen}s # %s\n", @$_[0,1] for map [PDL::Demos->info ($_)], 'pdl', @kw;		printf " demo %-${maxlen}s # %s\n", @$_[0,1] for map [PDL::Demos->info ($_)], 'pdl', @kw;
return;		return;
}		}
no strict;		no strict;
PDL::Demos->init($_[0]);		PDL::Demos->init($_[0]);
$_->[0]->($_->[1]) for PDL::Demos->demo($_[0]);		&{$_->[0]}($_->[1]) for PDL::Demos->demo($_[0]);
PDL::Demos->done($_[0]);		PDL::Demos->done($_[0]);
}		}
} );		} );
if ($repl->can('do_print')) {		if ($repl->can('do_print')) {
$repl->eval('sub do_print { $_REPL->do_print(@_) };');		$repl->eval('sub do_print { $_REPL->do_print(@_) };');
}		}
if ($repl->can('exit_repl')) {		if ($repl->can('exit_repl')) {
$repl->eval('sub quit { $_REPL->exit_repl(1) };');		$repl->eval('sub quit { $_REPL->exit_repl(1) };');
End of changes. 1 change blocks.
1 lines changed or deleted		1 lines changed or added

---