From ce43a52dd0df248ee5d62badeb3d217872703c2d Mon Sep 17 00:00:00 2001 From: Eric Bollengier Date: Mon, 2 Oct 2006 19:11:17 +0000 Subject: [PATCH] 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 --- gui/brestore/brestore.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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); -- 2.39.5