| Subject: | Insecure dependency in open while running with -T switch |
Insecure dependency in open while running with -T switch at
/usr/local/share/perl/5.8.8/Term/ShellUI.pm line 1888.
Perl Version 5.8.8
Message pops up when saving history at the end of this test program
after issuing "quit". (Workaround: comment out 'history_file'.)
#!/usr/bin/perl -w -T
#Insecure dependency in open while running with -T switch at
/usr/local/share/perl/5.8.8/Term/ShellUI.pm line 1888.
use strict;
use warnings;
use Term::ShellUI;
delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; # Make %ENV safe
my $term = new Term::ShellUI(
prompt => '> ',
commands => {
quit => {
desc => 'Quit this program',
maxargs => 0,
method => sub { shift->exit_requested(1); },
}
},
history_file => '~/.secure-history',
);
print 'Using ' . $term->{term}->ReadLine . "\n";
$term->run();