Remove remaining Kerberos references
[openssl.git] / util / dirname.pl
1 #!/usr/local/bin/perl
2
3 if ($#ARGV < 0) {
4     die "dirname.pl: too few arguments\n";
5 } elsif ($#ARGV > 0) {
6     die "dirname.pl: too many arguments\n";
7 }
8
9 my $d = $ARGV[0];
10
11 if ($d =~ m|.*/.*|) {
12     $d =~ s|/[^/]*$||;
13 } else {
14     $d = ".";
15 }
16
17 print $d,"\n";
18 exit(0);