systemactions.pm (169da98f) systemactions.pm (0e332928)
1#**************************************************************
2#
3# Licensed to the Apache Software Foundation (ASF) under one
4# or more contributor license agreements. See the NOTICE file
5# distributed with this work for additional information
6# regarding copyright ownership. The ASF licenses this file
7# to you under the Apache License, Version 2.0 (the
8# "License"); you may not use this file except in compliance

--- 1174 unchanged lines hidden (view full) ---

1183# Renaming a directory
1184###################################
1185
1186sub rename_directory
1187{
1188 my ($olddir, $newdir) = @_;
1189
1190 my $infoline = "";
1#**************************************************************
2#
3# Licensed to the Apache Software Foundation (ASF) under one
4# or more contributor license agreements. See the NOTICE file
5# distributed with this work for additional information
6# regarding copyright ownership. The ASF licenses this file
7# to you under the Apache License, Version 2.0 (the
8# "License"); you may not use this file except in compliance

--- 1174 unchanged lines hidden (view full) ---

1183# Renaming a directory
1184###################################
1185
1186sub rename_directory
1187{
1188 my ($olddir, $newdir) = @_;
1189
1190 my $infoline = "";
1191
1191
1192 # noticed problems under Windows from time to time that directories can't be moved, seems a timing issue
1193 # workaround with sleep, should be investigated with a new packaging mechanism
1194 sleep(2);
1192 if ( move($olddir, $newdir) )
1193 {
1194 $infoline = "\nMoved directory from $olddir to $newdir\n";
1195 push(@installer::globals::logfileinfo, $infoline);
1196 }
1197 else
1198 {
1199 installer::exiter::exit_program("ERROR: Could not move directory from $olddir to $newdir", "rename_directory");

--- 541 unchanged lines hidden --- 		1195 if ( move($olddir, $newdir) )
1196 {
1197 $infoline = "\nMoved directory from $olddir to $newdir\n";
1198 push(@installer::globals::logfileinfo, $infoline);
1199 }
1200 else
1201 {
1202 installer::exiter::exit_program("ERROR: Could not move directory from $olddir to $newdir", "rename_directory");

--- 541 unchanged lines hidden ---