La siguiente sesión con el depurador muestra el interés de la línea
push @ALLOWED, @_;
y de tener @ALLOWED
declarada como una variable léxica en el ámbito
del fichero:
lhp@nereida:~/Lperl/src/systemcommand/script$ perl -wde 0 main::(-e:1): 0 DB<1> push @INC, '../lib' DB<2> use System::Commands qw{ls} DB<3> x ls('*.pl') 0 'usesystemcommand.pl ' DB<4> use System::Commands qw{ps} DB<5> p ps PID TTY TIME CMD 1632 pts/18 00:00:00 su 1633 pts/18 00:00:00 bash 20981 pts/18 00:00:00 perl 20988 pts/18 00:00:00 ps DB<6> p ls usesystemcommand.pl DB<7> p echo('Good morning') Undefined subroutine &main::echo called at (eval 15)[/usr/share/perl/5.8/perl5db.pl:628] line 2.
Casiano Rodríguez León