sin/samba-mirror
1
0
Fork 0
mirror of https://github.com/samba-team/samba.git synced 2025-02-04 17:47:26 +03:00
Code

test_smbclient_tarmode.pl: make script work on older Perl (now only need 5.14)

Browse Source 
Signed-off-by: Aurélien Aptel <aurelien.aptel@gmail.com>
Reviewed-by: David Disseldorp <ddiss@samba.org>
Reviewed-by: Jim McDonough <jmcd@samba.org>
This commit is contained in:
Aurélien Aptel 2013-07-15 19:01:58 +02:00 committed by Jim McDonough
parent e879580f1c
commit 97c34f3e6f
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
source3/script/tests/test_smbclient_tarmode.pl
View File

@ -26,7 +26,7 @@ C<test_smbclient_tarmode.pl> - Test for smbclient tar backup feature
# x F DONE
# x F r DONE
use v5.16;
use v5.14;
use strict;
use warnings;
@ -36,7 +36,7 @@ use File::Path qw/make_path remove_tree/;
use Getopt::Long;
use Pod::Usage;
use Term::ANSIColor;
use Digest::MD5 qw/md5_hex/;
sub d {print Dumper @_;}
# DEFAULTS
@ -806,7 +806,12 @@ sub check_tar {
$done{$p}++;
# different file
my $md5 = $f->data;
if($^V lt v5.16) {
$md5 = md5_hex($md5);
}
if($md5 ne $h{$p}->md5) {
say " ! $p ($md5)";
push @diff, $p;