From f38e1f3d17b1a7d9b748ab02ad634306418f20a4 Mon Sep 17 00:00:00 2001 From: sb Date: Tue, 12 Jan 2010 18:49:59 +0100 Subject: sb118: #i108269# first step of removing tcsh support --- helpcontent2/helpers/update_tree.pl | 12 ++---------- 1 file changed, 2 insertions(+), 10 deletions(-) (limited to 'helpcontent2/helpers/update_tree.pl') diff --git a/helpcontent2/helpers/update_tree.pl b/helpcontent2/helpers/update_tree.pl index 23795168c1..ab6b835277 100644 --- a/helpcontent2/helpers/update_tree.pl +++ b/helpcontent2/helpers/update_tree.pl @@ -38,10 +38,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 /misc/* @@ -83,9 +79,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 +100,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 +340,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) { -- cgit