- or download this
sub try_shell {
my $shell = shift;
...
}
return undef;
}
- or download this
-bash-3.2$ sudo perl -Mblib t/quoting.t
line 1
...
line 3
line 4
^C
- or download this
my @shells = grep try_shell($_), qw(sh csh bash tcsh ksh dash ash pdks
+h mksh zsh fish);