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

Signed-off-by: Aurélien Aptel <aurelien.aptel@gmail.com>
Reviewed-by: David Disseldorp <ddiss@samba.org>
Reviewed-by: Jim McDonough <jmcd@samba.org>

diff --git a/source3/script/tests/test_smbclient_tarmode.pl b/source3/script/tests/test_smbclient_tarmode.pl
index 6d09e1e46892b7ef137dba82c84099c788eb0b15..a2152cc6762eb3268decaa0abdbb30b07581fc9a 100755 (executable)
--- a/source3/script/tests/test_smbclient_tarmode.pl
+++ b/source3/script/tests/test_smbclient_tarmode.pl
@@ -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;