#!/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 | 10713 | Robert Cowham |
Populate //guest/robert_cowham/openssl/1.0.1j/... from //guest/robert_cowham/openssl/main/.... |
||
//guest/robert_cowham/openssl/main/util/dirname.pl | |||||
#1 | 10711 | Robert Cowham | OpenSSL 1.0.1i |