diff options
| author | sb <sb@openoffice.org> | 2010-01-12 18:49:59 +0100 |
|---|---|---|
| committer | sb <sb@openoffice.org> | 2010-01-12 18:49:59 +0100 |
| commit | df4418aec06d8cea2c72876d84e5166ecaf78c07 (patch) | |
| tree | 26d3517a94723497725eb4cec638622da81bd85a /postprocess | |
| parent | bf42f773cb8d13b73fbef7f13db40e41cf10ede3 (diff) | |
sb118: #i108269# first step of removing tcsh support
Diffstat (limited to 'postprocess')
| -rw-r--r-- | postprocess/checkdeliver/checkdeliver.pl | 6 | ||||
| -rwxr-xr-x | postprocess/rebase/rebase.pl | 4 |
2 files changed, 0 insertions, 10 deletions
diff --git a/postprocess/checkdeliver/checkdeliver.pl b/postprocess/checkdeliver/checkdeliver.pl index 2baec9d0ef36..d1ec341c6137 100644 --- a/postprocess/checkdeliver/checkdeliver.pl +++ b/postprocess/checkdeliver/checkdeliver.pl @@ -128,12 +128,6 @@ sub get_deliver_lists $pattern .= "$milestoneext" if ( $milestoneext ); $pattern .= "/*/deliver.log"; - if ( $^O =~ /cygwin/i && $ENV{'USE_SHELL'} eq "4nt" ) - { # glob from cygwin's perl needs $pattern to use only slashes. - # (DOS style path are OK as long as slashes are used.) - $pattern =~ s/\\/\//g; - } - @files = glob( $pattern ); # do not check modules not yet built foreach my $exceptionpattern ( @exceptionmodlist ) { diff --git a/postprocess/rebase/rebase.pl b/postprocess/rebase/rebase.pl index 8afe774a8f5e..3ef5c3d4ae8d 100755 --- a/postprocess/rebase/rebase.pl +++ b/postprocess/rebase/rebase.pl @@ -208,8 +208,6 @@ sub rebase_again my $fname = $misc_dir . "rebase_again.txt"; open ( FILES, "> $fname") or die "Error: cannot open file $fname"; my $filesstring = join " ", @$oldfiles_ref; - # For W32-4nt-cygwin-perl: rebase_again.txt needs \. - if ( "$ENV{USE_SHELL}" eq "4nt" ) { $filesstring =~ s/\//\\/g; } print FILES "$filesstring\n"; close FILES; $command .= "\@$fname"; @@ -273,8 +271,6 @@ sub rebase_initially my $fname = $misc_dir . "rebase_new.txt"; open ( FILES, "> $fname") or die "Error: cannot open file $fname"; my $filesstring = join " ", @$files_ref; - # For W32-4nt-cygwin-perl: rebase_new.txt needs \. - if ( "$ENV{USE_SHELL}" eq "4nt" ) { $filesstring =~ s/\//\\/g; } print FILES "$filesstring\n"; close FILES; $command .= "\@$fname"; |