Sign in
cobalt
/
cobalt
/
2a8c847d785c1602f60915c8e0112e0aec6a15a5
/
.
/
src
/
third_party
/
openssl
/
openssl
/
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
);