11 use File::Spec::Functions qw(rel2abs);
13 my $datadir = dirname(rel2abs($0))."/";
17 my $fn = $datadir.(shift @_);
18 $fn = File::Spec->rel2abs( readlink($fn) ) if (-l $fn);
19 return undef unless ( -f $fn);
24 opendir($dir, $datadir);
25 my @links = grep { /^[^.]/ && -l $datadir.$_ } readdir($dir);
28 foreach my $link (@links) {
29 my $target = getfile($link);
30 next unless ( defined ($target) && -f $target);
31 next unless ( $datadir eq dirname($target)."/" );
32 system ("md5sum '$target' | tee '$target.md5sum'");