sb118: #i108269# first step of removing tcsh support

1 files changed, 0 insertions, 4 deletions

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";