16 |
(my $name = $0) =~ s/.*\///; |
(my $name = $0) =~ s/.*\///; |
17 |
print <<EOHELP; |
print <<EOHELP; |
18 |
The $name utility will eradicate [0-9a-f]{8}.r\\d+ files from |
The $name utility will eradicate [0-9a-f]{8}.r\\d+ files from |
19 |
the directory given to the "-l" option if no matching [0-9a-f]{8}.\d+ |
the directory given to the "-l" option if no matching [0-9a-f]{8}.\\d+ |
20 |
file can be found in the same, which in most cases will wipe stale |
file can be found in the same, which in most cases will wipe stale |
21 |
historic CRLs from an X509_CERT_DIR like directory. |
historic CRLs from an X509_CERT_DIR like directory. |
22 |
Use at your own risk. It may be wiping files that you would have |
Use at your own risk. It may be wiping files that you would have |