diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2017-05-02 16:40:01 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2017-05-02 16:40:01 (GMT) |
| commit | 0a2b8b8e0bc2e91a9f10659b30e2e4f5b79ce692 (patch) | |
| tree | 3d0871d05cfd11f60b86829d2d93704034dad24e /openssl/util/dirname.pl | |
| parent | e9abe0dba896d2b0fc22301588336e89ff246ba7 (diff) | |
| download | blt-0a2b8b8e0bc2e91a9f10659b30e2e4f5b79ce692.zip blt-0a2b8b8e0bc2e91a9f10659b30e2e4f5b79ce692.tar.gz blt-0a2b8b8e0bc2e91a9f10659b30e2e4f5b79ce692.tar.bz2 | |
reinstall
Diffstat (limited to 'openssl/util/dirname.pl')
| -rw-r--r-- | openssl/util/dirname.pl | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/openssl/util/dirname.pl b/openssl/util/dirname.pl deleted file mode 100644 index d7a66d9..0000000 --- a/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); |