6 use IPC::System::Simple qw(system capture);
9 @dirs = ( '.' ) unless @dirs;
15 eval { $md5 = capture( qw{attr -q -g md5}, $path ) };
16 if ( $md5 =~ /^[0-9a-fA-F]{32}$/ ) {
19 warn "# md5sum $path\n";
20 my $line = capture( 'md5sum', $path );
21 ($md5) = split(/\s+/, $line, 2);
22 system( qw{attr -q -s md5 -V}, $md5, $path );
23 warn "# $md5 $path\n";
30 wanted => sub { md5sum $_ if -f $_ },
34 warn "# created md5sum for:\n", join("\n", @created), "\n";