[Bacula-commits] gui/brestore brestore.pl,1.1.2.6,1.1.2.7

[Eric B. <ri...@us...>]

Update of /cvsroot/bacula/gui/brestore
In directory sc8-pr-cvs3.sourceforge.net:/tmp/cvs-serv13839

Modified Files:
      Tag: Branch-1_38
	brestore.pl 
Log Message:
ebl  bugfix: perl << operator works only with 32bytes value


Index: brestore.pl
===================================================================
RCS file: /cvsroot/bacula/gui/brestore/brestore.pl,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -u -d -r1.1.2.6 -r1.1.2.7
--- brestore.pl	2 Sep 2006 07:18:48 -0000	1.1.2.6
+++ brestore.pl	2 Oct 2006 19:09:37 -0000	1.1.2.7
@@ -2888,7 +2888,7 @@
 	}
 	
 	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);