#!/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);
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#1 | 10711 | Robert Cowham | OpenSSL 1.0.1i |