diff options
| author | Vladimir Glazounov <vg@openoffice.org> | 2007-02-06 12:54:27 +0000 |
|---|---|---|
| committer | Vladimir Glazounov <vg@openoffice.org> | 2007-02-06 12:54:27 +0000 |
| commit | f94fc3dd2f6d78c7eb646ffebec54ed92d2d6903 (patch) | |
| tree | c5a8aca6036548e53926beb7b2cfcfb6c2158dc6 /solenv/bin/touch.pl | |
| parent | 27efb6d6d925fdd5e3deb14a89e44bbadd5416ca (diff) | |
INTEGRATION: CWS ause074 (1.1.2); FILE ADDED
2007/01/29 15:03:31 hjs 1.1.2.1: #i73825# 4nt needs help to touch...
Diffstat (limited to 'solenv/bin/touch.pl')
| -rw-r--r-- | solenv/bin/touch.pl | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/solenv/bin/touch.pl b/solenv/bin/touch.pl new file mode 100644 index 000000000000..19acde8a7c7e --- /dev/null +++ b/solenv/bin/touch.pl @@ -0,0 +1,50 @@ +: +eval 'exec perl -wS $0 ${1+"$@"}' + if 0; +#************************************************************************* +# +# OpenOffice.org - a multi-platform office productivity suite +# +# $RCSfile: touch.pl,v $ +# +# $Revision: 1.2 $ +# +# last change: $Author: vg $ $Date: 2007-02-06 13:54:27 $ +# +# The Contents of this file are made available subject to +# the terms of GNU Lesser General Public License Version 2.1. +# +# +# GNU Lesser General Public License Version 2.1 +# ============================================= +# Copyright 2005 by Sun Microsystems, Inc. +# 901 San Antonio Road, Palo Alto, CA 94303, USA +# +# This library is free software; you can redistribute it and/or +# modify it under the terms of the GNU Lesser General Public +# License version 2.1, as published by the Free Software Foundation. +# +# This library 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 for more details. +# +# You should have received a copy of the GNU Lesser General Public +# License along with this library; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, +# MA 02111-1307 USA +# +#************************************************************************* +# +# workaround for broken 4nt +# internal touch command +# + +foreach my $filename (@ARGV) { + open KKK, ">>$filename" or die "ERROR: cannot open $filename!\n"; + $size=(stat($filename))[7]; + print KKK "x"; + truncate KKK, $size; + close KKK; +} + |