diff options
Diffstat (limited to 'helpcontent2/helpers/update_tree.pl')
-rw-r--r-- | helpcontent2/helpers/update_tree.pl | 18 |
1 files changed, 3 insertions, 15 deletions
diff --git a/helpcontent2/helpers/update_tree.pl b/helpcontent2/helpers/update_tree.pl index 23795168c1..b2aa53fcb3 100644 --- a/helpcontent2/helpers/update_tree.pl +++ b/helpcontent2/helpers/update_tree.pl @@ -5,14 +5,10 @@ eval 'exec perl -wS $0 ${1+"$@"}' # # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. # -# Copyright 2008 by Sun Microsystems, Inc. +# Copyright 2000, 2010 Oracle and/or its affiliates. # # OpenOffice.org - a multi-platform office productivity suite # -# $RCSfile: update_tree.pl,v $ -# -# $Revision: 1.13 $ -# # This file is part of OpenOffice.org. # # OpenOffice.org is free software: you can redistribute it and/or modify @@ -38,10 +34,6 @@ use File::Copy qw/cp mv/; use File::Basename; use Benchmark; -my $is_win = "false"; - -$is_win = "true" , if ( defined $ENV{USE_SHELL} && $ENV{USE_SHELL} eq "4nt" ); - $t0 = new Benchmark; # update the tree files in <platform>/misc/* @@ -83,9 +75,7 @@ if ( ! defined $prj ) { { $source_dir = $ENV{LOCALIZESDF}; } - if( $is_win eq "false" ) { $source_dir =~ s/\/auxiliary\/localize.sdf$// ; } - else { $source_dir =~ s/\\auxiliary\\localize.sdf$// ; } - + $source_dir =~ s/\/auxiliary\/localize.sdf$// ; } #else {die "ERROR: The env variables TRYSDF LOCALIZATION_FOUND LOCALIZESDF not found ... something is wrong!\n";} @@ -106,8 +96,7 @@ if ( ! defined $prj ) { { $source_dir = $ENV{LOCALIZESDF}; } - if( $is_win eq "false" ) { $source_dir =~ s/\/auxiliary\/localize.sdf$// ; } - else { $source_dir =~ s/\\auxiliary\\localize.sdf$// ; } + $source_dir =~ s/\/auxiliary\/localize.sdf$// ; #else {die "ERROR: The env variables TRYSDF LOCALIZATION_FOUND LOCALIZESDF not found ... something is wrong!\n";} } @@ -347,7 +336,6 @@ sub read_loc { print "\n\nReading localized titles..."; $/ = "\n"; my $path = "$source_dir/text"; - $path =~ s/\//\\/g , if $is_win eq "true"; print " in $source_dir/text\n"; @files = `find $source_dir/text -name localize.sdf`; for my $fname (@files) { |