Subversion Repositories DevTools

Rev

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

Rev 5654 Rev 5711
Line 449... Line 449...
449 
        #
 449 
        #
450 
        open (MF, '<', $manifest ) || Error ("Cannot open the Manifest file: $manifest", $!);
 450 
        open (MF, '<', $manifest ) || Error ("Cannot open the Manifest file: $manifest", $!);
451 
        while ( <MF> )
 451 
        while ( <MF> )
452 
        {
 452 
        {
453 
            #
 453 
            #
454 
            #   Clean traling whitespace ( line-feed and new lines )
 454 
            #   Clean trailing whitespace ( line-feed and new lines )
455 
            #   Comment out [Version] data
 455 
            #   Comment out [Version] data
456 
            #
 456 
            #
457 
            s~\s+$~~;
 457 
            s~\s+$~~;
458 
            s~(\s*\[Version])~#$1~;
 458 
            s~(\s*\[Version])~#$1~;
459 
 
 459 
 
Line 571... Line 571...
571 
 
 571 
 
572 
    PackageFile ('*', $manifest_file, '--Subdir=' . $pkgdir, '--Strip' );
 572 
    PackageFile ('*', $manifest_file, '--Subdir=' . $pkgdir, '--Strip' );
573 
 
 573 
 
574 
    open (MF, '>', $manifest_file ) || Error ("Cannot create the Manifest file: $manifest_file");
 574 
    open (MF, '>', $manifest_file ) || Error ("Cannot create the Manifest file: $manifest_file");
575 
 
 575 
 
- 
 
 576 
    binmode (MF);
- 
 
 577
576 
    print_mf ("# PackageName: $::ScmBuildPackage");
 578 
    print_mf ("# PackageName: $::ScmBuildPackage");
577 
    print_mf ("# PackageVersion: $::ScmBuildVersion");
 579 
    print_mf ("# PackageVersion: $::ScmBuildVersion");
578 
    print_mf ("# BuildDate: $::CurrentTime");
 580 
    print_mf ("# BuildDate: $::CurrentTime");
579 
    print_mf ("#");
 581 
    print_mf ("#");
580 
    print_mf ("[Version],$::ScmBuildVersion");
 582 
    print_mf ("[Version],$::ScmBuildVersion");