0
ˆ
ƒ ÅÂÈ ¥
Index of /FSS-BCZ/root/sys/devices/system/memory/memory15/power
Index of /FSS-BCZ/root/sys/devices/system/memory/memory15/power
ˆ
ƒ M³ÅÂÈ
Index of /FSS-BCZ/root/sys/dev/char/4:62/subsystem/tty8
Index of /FSS-BCZ/root/sys/dev/char/4:62/subsystem/tty8
% ˆl—Ðz¾”Êe¶…6 ¸Û7}LZ7ÿÌ
„ ?ËÃÉ *= #!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
if $running_under_some_shell;
# perlivp v5.32.1
BEGIN { pop @INC if $INC[-1] eq '.' }
sub usage {
warn "@_\n" if @_;
print << " EOUSAGE";
Usage:
$0 [-p] [-v] | [-h]
-p Print a preface before each test telling what it will test.
-v Verbose mode in which extra information about test results
is printed. Test failures always print out some extra information
regardless of whether or not this switch is set.
-h Prints this help message.
EOUSAGE
exit;
}
use vars qw(%opt); # allow testing with older versions (do not use our)
@opt{ qw/? H h P p V v/ } = qw(0 0 0 0 0 0 0);
while ($ARGV[0] =~ /^-/) {
$ARGV[0] =~ s/^-//;
for my $flag (split(//,$ARGV[0])) {
usage() if '?' =~ /\Q$flag/;