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