From: Eric Bollengier <eric@eb.homelinux.org>
Date: Mon, 2 Oct 2006 19:11:17 +0000 (+0000)
Subject: ebl  bugfix: perl << operator works only with 32bytes value
X-Git-Tag: Release-2.0.0~384
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=ce43a52dd0df248ee5d62badeb3d217872703c2d;p=bacula%2Fbacula

ebl  bugfix: perl << operator works only with 32bytes value


git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@3533 91ce42f0-d328-0410-95d8-f526ca767f89
---

diff --git a/gui/brestore/brestore.pl b/gui/brestore/brestore.pl
index 13969962c5..9a585680b4 100755
--- a/gui/brestore/brestore.pl
+++ b/gui/brestore/brestore.pl
@@ -2947,7 +2947,7 @@ sub estimate_restore_size
 	}
 	
 	while ($where ne '') {
-	    $val <<= 6;
+	    $val *= 64;
 	    my $d = substr($where, 0, 1);
 	    $val += $base64_map[ord(substr($where, 0, 1))];
 	    $where = substr($where, 1);