diff options
Diffstat (limited to 'solenv/bin/rmdir.pl')
| -rw-r--r-- | solenv/bin/rmdir.pl | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/solenv/bin/rmdir.pl b/solenv/bin/rmdir.pl deleted file mode 100644 index 8b4789b0c..000000000 --- a/solenv/bin/rmdir.pl +++ /dev/null @@ -1,46 +0,0 @@ -: -eval 'exec perl -wS $0 ${1+"$@"}' - if 0; -#************************************************************************* -# -# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -# -# Copyright 2000, 2010 Oracle and/or its affiliates. -# -# OpenOffice.org - a multi-platform office productivity suite -# -# This file is part of OpenOffice.org. -# -# OpenOffice.org is free software: you can redistribute it and/or modify -# it under the terms of the GNU Lesser General Public License version 3 -# only, as published by the Free Software Foundation. -# -# OpenOffice.org is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU Lesser General Public License version 3 for more details -# (a copy is included in the LICENSE file that accompanied this code). -# -# You should have received a copy of the GNU Lesser General Public License -# version 3 along with OpenOffice.org. If not, see -# <http://www.openoffice.org/license.html> -# for a copy of the LGPLv3 License. -# -#************************************************************************* - -my $r_code=0; -if ( ! defined $ARGV[0] || "$ARGV[0]" eq "" ) { - print STDERR "Nothing to delete\n"; - exit 1; -} -while ( defined $ARGV[0] ) { -if ( rmdir $ARGV[0] ) { -# exit 0; -} else { - print STDERR "ERROR removing $ARGV[0]: $!\n"; - $r_code = 1; -} -shift @ARGV; -} -exit $r_code; - |