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 13969962c558ae6759d1e56e16332df438175385..9a585680b49f9af560cf3f71611673655eb72e7d 100755 (executable)
--- 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);