Browse files

Clone using Data::Dumper instead of Storable.

The MSys DTK perl lacks Storable. I keep forgetting that.
  • Loading branch information...
1 parent 17ef5fb commit ee774d22660dc8d23010c1d2ddeb025e12b7d285 @adunstan adunstan committed Jul 19, 2012
Showing with 5 additions and 3 deletions.
  1. +5 −3
@@ -70,7 +70,6 @@
use Data::Dumper;
use Cwd qw(abs_path getcwd);
use File::Find ();
-use Storable qw(dclone);
use PGBuild::SCM;
use PGBuild::Options;
@@ -443,9 +442,12 @@ END
# Prepend the DEFAULT settings (if any) to any settings for the
# branch. Since we're mangling this, deep clone $extra_config
-# so the config object is kept as given.
+# so the config object is kept as given. This is done using
+# Dumper() because the MSys DTK perl doesn't have Storable. This
+# is less efficient but it hardly matters here for this shallow
+# structure.
-$extra_config = dclone($extra_config);
+$extra_config = eval Dumper($extra_config);
if ($extra_config && $extra_config->{DEFAULT})

0 comments on commit ee774d2

Please sign in to comment.