upd: openssl to 1.1.0

[cassiopeia.git] / lib / openssl / util / dirname.pl

diff --git a/lib/openssl/util/dirname.pl b/lib/openssl/util/dirname.pl
deleted file mode 100644 (file)
index d7a66d9..0000000
--- a/lib/openssl/util/dirname.pl
+++ /dev/null
@@ -1,18 +0,0 @@
-#!/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);