view release on metacpan or  search on metacpan

lib/Code/DRY.pm  view on Meta::CPAN

    # reset all info
    @fileoffsets = @file_lineoffsets = ();
    %filename2inode = ();
    $codetotal = '';

    my $here = 0;
    for my $file (@{$rfiles}) {
        next if (!defined $file || $file eq '');
        # check metadata
        if ($^O ne 'MSWin32') {
            my @statresult = stat($file);
            if (0 < $#statresult) {
                my $inode = $statresult[1]; # inode
                if (exists $filename2inode{$inode}) {
            	    $file = undef;
            	    next; # avoid hard and symbolic links
                }
                $filename2inode{$inode} = undef; # inode
            }
        }
        # preprocess files content