#!/usr/local/bin/perl -w eval 'exec /usr/local/bin/perl -w -S $0 ${1+"$@"}' if 0; # not running under some shell # # $Id: rmdir,v 1.1.1.1 2001/06/06 08:55:06 sdague Exp $ # # $Log: rmdir,v $ # Revision 1.1.1.1 2001/06/06 08:55:06 sdague # initial import # # Revision 1.1 2001/05/14 00:49:39 sdague # added more files # # Revision 1.1 1999/02/28 13:32:45 abigail # Initial revision # # use strict; use Getopt::Std; my ($VERSION) = '$Revision: 1.1.1.1 $' =~ /([.\d]+)/; my $warnings = 0; # Print a usuage message on a unknown option. # Requires my patch to Getopt::Std of 25 Feb 1999. $SIG {__WARN__} = sub { require File::Basename; $0 = File::Basename::basename ($0); if (substr ($_ [0], 0, 14) eq "Unknown option" || substr ($_ [0], 0, 5) eq "Usage") { warn < removes the directories which are given as argument, if they are empty. Trying to remove a non-empty directory is regarded as an error. =head2 OPTIONS I accepts the following options: =over 4 =item -p Make I treat the arguments as path names, of which all non-empty components will be removed. Leftmost components will be removed first. =back =head1 ENVIRONMENT The working of I is not influenced by any environment variables. =head1 BUGS I does not have any known bugs. =head1 STANDARDS This I implementation is compatible with the B implementation, which is expected to be compatible with the B (aka B) standard. =head1 REVISION HISTORY $Log: rmdir,v $ Revision 1.1.1.1 2001/06/06 08:55:06 sdague initial import Revision 1.1 2001/05/14 00:49:39 sdague added more files Revision 1.1 1999/02/28 13:32:45 abigail Initial revision =head1 AUTHOR The Perl implementation of I was written by Abigail, I. =head1 COPYRIGHT and LICENSE This program is copyright by Abigail 1999. This program is free and open software. You may use, copy, modify, distribute and sell this program (and any modified variants) in any way you wish, provided you do not restrict others to do the same. =cut