Searched refs:shellwords (Results 1 – 16 of 16) sorted by relevance
22 use Text::ParseWords qw(shellwords old_shellwords);27 print "not " if grep { not tainted($_) } shellwords("$0$^X");
8 my @words = shellwords(qq(foo "bar quiz" zoo));52 @words = shellwords($string);
8 use Text::ParseWords qw/shellwords/;63 = ( @raw_switches, shellwords( $ENV{HARNESS_PERL_SWITCHES} || '' ) );
16 sub shellwords { subroutine
51 ? shellwords( $ENV{HARNESS_PERL_SWITCHES} )
16 use Text::ParseWords qw(shellwords);1495 shellwords( $ENV{HARNESS_PERL_SWITCHES} )
12 use Text::ParseWords qw(shellwords);176 defined $ENV{PERL5OPT} ? shellwords( $ENV{PERL5OPT} ) : ()
55 my ( @libpath ) = Text::ParseWords::shellwords( $Config{'libpth'} || '' );73 foreach my $thislib ( Text::ParseWords::shellwords($potential_libs) ) {
16 use Text::ParseWords qw(shellwords);197 my @opt = map { shellwords($_) } grep { defined } $Switches, $ENV{HARNESS_PERL_SWITCHES};
378 return Text::ParseWords::shellwords($string);
206 my $args = [ Text::ParseWords::shellwords($string) ];2099 C<Text::ParseWords::shellwords>. As with C<GetOptionsFromArray>, the
372 eval { @line = Text::ParseWords::shellwords($_) };
738 Text::ParseWords::shellwords( $ENV{"PERLDOC"} )
589 - Changed the split_like_shell() method to use the shellwords()
641 F<termcap.pl>, F<tainted.pl>, F<stat.pl>, F<shellwords.pl>, F<pwd.pl>,
1518 pwd.pl shellwords.pl stat.pl tainted.pl termcap.pl timelocal.pl