Don't let updateModulePhases alter input objects.

15 years ago · 02fc38eea2
parent b8ba3f98a2
commit 02fc38eea2
1 changed files with 2 additions and 1 deletions
--- a/3
+++ b/3
@ -25,6 +25,7 @@ use File::Basename;
 use File::Spec;
 use File::Glob ':glob';
 use Sys::Hostname;
+use Storable 'dclone';
 use IO::Handle;
 use IO::File;
 use IPC::Open3;
@ -4872,7 +4873,7 @@ sub close_lock

 sub updateModulePhases
 {
-    my @modules = @_;
+    my @modules = @{dclone(\@_)};

    whisper "Filtering out module phases.";
    for my $module (@modules) {