50/376: Fix closure size display

[Ludovic Courtès]

civodul pushed a commit to tag 1.8
in repository guix.

commit b8f24f253527e1cb071785c3b2d677ed2f734ab1
Author: Eelco Dolstra <address@hidden>
Date:   Fri Jul 11 14:27:17 2014 +0200

    Fix closure size display
---
 perl/lib/Nix/CopyClosure.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/perl/lib/Nix/CopyClosure.pm b/perl/lib/Nix/CopyClosure.pm
index 8be4ead..131f0b5 100644
--- a/perl/lib/Nix/CopyClosure.pm
+++ b/perl/lib/Nix/CopyClosure.pm
@@ -91,7 +91,7 @@ sub copyTo {
     $missingSize += (queryPathInfo($_, 1))[3] foreach @missing;
 
     printf STDERR "copying %d missing paths (%.2f MiB) to ‘$sshHost’...\n",
-        scalar(@missing), $missingSize / (1024.0^2);
+        scalar(@missing), $missingSize / (1024**2);
     return if $dryRun;
 
     # Send the "import paths" command.