diff options
| author | Oliver Bolte <obo@openoffice.org> | 2006-01-20 11:08:29 +0000 |
|---|---|---|
| committer | Oliver Bolte <obo@openoffice.org> | 2006-01-20 11:08:29 +0000 |
| commit | 90ed624b64a195797cfc91df85187e2616bf5256 (patch) | |
| tree | 03c8c31edf36ddab9e27a4f5c1f37297c17e4800 /helpcontent2/helpers | |
| parent | 2793976dec1c58fecd7354678452b00eac2e48ca (diff) | |
INTEGRATION: CWS vq27 (1.9.6); FILE MERGED
2006/01/14 17:13:39 vq 1.9.6.1: #i60365# Fix W32-4nt build issue.
Diffstat (limited to 'helpcontent2/helpers')
| -rw-r--r-- | helpcontent2/helpers/update_tree.pl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/helpcontent2/helpers/update_tree.pl b/helpcontent2/helpers/update_tree.pl index e063c8912c..964041bac3 100644 --- a/helpcontent2/helpers/update_tree.pl +++ b/helpcontent2/helpers/update_tree.pl @@ -7,9 +7,9 @@ eval 'exec perl -wS $0 ${1+"$@"}' # # $RCSfile: update_tree.pl,v $ # -# $Revision: 1.10 $ +# $Revision: 1.11 $ # -# last change: $Author: rt $ $Date: 2006-01-13 16:16:20 $ +# last change: $Author: obo $ $Date: 2006-01-20 12:08:29 $ # # The Contents of this file are made available subject to # the terms of GNU Lesser General Public License Version 2.1. @@ -193,6 +193,7 @@ sub gettreefiles { sub processtreefiles { $lng = shift; use File::Temp qw/ tempfile /; + use File::Spec; for $tv(@treeviews) { print "\nProcessing $tv\n"; @@ -264,7 +265,7 @@ sub processtreefiles { } my $treeoutdir = "$tree_dest/$lng"; my $tmpname_template=$tv."_XXXXX"; - my ( $treetmpfilehandle, $treetmpfile ) = tempfile($tmpname_template , DIR => $ENV{TMP} ); + my ( $treetmpfilehandle, $treetmpfile ) = tempfile($tmpname_template , DIR => File::Spec->tmpdir() ); close $treetmpfilehandle ; if (open TV, ">$treetmpfile") { for $line(@lines) { @@ -274,7 +275,7 @@ sub processtreefiles { } close TV; chmod 0664, $treetmpfile or &terminate("Cannot change rights on $treetmpfile"); - if( $ENV{ USE_SHELL } eq "4nt" ) + if( $^O eq 'MSWin32' ) { $tree_dest =~ s/\//\\/g ; unlink "$tree_dest\\$lng\\$tv" ; |