Subversion Repositories DevTools

Rev

Rev 7009 | Rev 7211 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7009 Rev 7040
Line 2541... Line 2541...
2541
            }
2541
            }
2542
 
2542
 
2543
        } else {
2543
        } else {
2544
            $data[8] = 0;               # atime - will change
2544
            $data[8] = 0;               # atime - will change
2545
            $data[12] = '-';            # blocks - seen to change for unknown reasons
2545
            $data[12] = '-';            # blocks - seen to change for unknown reasons
-
 
2546
            for my $ii ( 0 .. $#data) {
-
 
2547
                unless (defined $data[$ii]) {
-
 
2548
                    $data[$ii] = 'xx';
-
 
2549
                }
-
 
2550
            }
2546
            $text = "$item : @data";
2551
            $text = "$item : @data";
2547
        }
2552
        }
2548
        $genPkgFingerPrintCount++;
2553
        $genPkgFingerPrintCount++;
2549
        $genPkgFingerPrintSha1->add($text);
2554
        $genPkgFingerPrintSha1->add($text);
2550
#Debug0("genPkgFingerPrint: $text, ", $genPkgFingerPrintSha1->clone->hexdigest() );
2555
#Debug0("genPkgFingerPrint: $text, ", $genPkgFingerPrintSha1->clone->hexdigest() );
Line 2562... Line 2567...
2562
 
2567
 
2563
    #
2568
    #
2564
    #   Debugging - delete later
2569
    #   Debugging - delete later
2565
    #   Save FP data to a file
2570
    #   Save FP data to a file
2566
    #
2571
    #
2567
#   my $fpDebugFile = catdir($GBE_SANDBOX, 'sandbox_dpkg_archive', $fe->{name} . '.' . $fe->{prj} . '_' . time() . '.fpd');
2572
   #my $fpDebugFile = catdir($GBE_SANDBOX, 'sandbox_dpkg_archive', $fe->{name} . '.' . $fe->{prj} . '_' . time() . '.fpd');
2568
#   Debug0("fpDebugFile: $fpDebugFile");
2573
   #Debug0("fpDebugFile: $fpDebugFile");
2569
#   FileCreate($fpDebugFile, @fpdata);
2574
   #FileCreate($fpDebugFile, @fpdata);
2570
 
2575
 
2571
    return $genPkgFingerPrintSha1->hexdigest;
2576
    return $genPkgFingerPrintSha1->hexdigest;
2572
}
2577
}
2573
 
2578
 
2574
 
2579