Sign in
gem5
/
public
/
gem5-resources
/
8ccd059d5dcaaeffe15cd93c17f1e76e92907662
/
.
/
src
/
parsec
/
disk-image
/
parsec
/
parsec-benchmark
/
pkgs
/
libs
/
ssl
/
src
/
util
/
dirname.pl
blob: d7a66d96accf22be920e8b263d61ee6af4b0e120 [
file
] [
log
] [
blame
]
#!/usr/local/bin/perl
if
(
$
#ARGV < 0) {
die
"dirname.pl: too few arguments\n"
;
}
elsif
(
$
#ARGV > 0) {
die
"dirname.pl: too many arguments\n"
;
}
my
$d
=
$ARGV
[
0
];
if
(
$d
=~
m
|.*
/.*|) {
$d =~ s|/
[^/]*
$
||;
}
else
{
$d
=
"."
;
}
print
$d
,
"\n"
;
exit
(
0
);