Subversion Repositories DevTools

Rev

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

Rev 1129 Rev 1131
Line 411... Line 411...
411 
        #
411 
        #
412 
        #
 412 
        #
413 
        open (MF, '<', $manifest ) || Error ("Cannot open the Manifest file: $manifest", $!);
 413 
        open (MF, '<', $manifest ) || Error ("Cannot open the Manifest file: $manifest", $!);
414 
        while ( <MF> )
 414 
        while ( <MF> )
415 
        {
 415 
        {
- 
 
 416 
            #
- 
 
 417 
            #   Clean traling whitespace ( line-feed and new lines )
- 
 
 418 
            #   Comment out [Version] data
- 
 
 419 
            #
416 
            s~\s+$~~;
 420 
            s~\s+$~~;
- 
 
 421 
            s~(\s*\[Version])~#$1~;
417 
            push @file_contents, $_;
 422 
            push @file_contents, $_;
418 
 
 423 
 
419 
            #
 424 
            #
420 
            #   Part lines and determine files
 425 
            #   Part lines and determine files
421 
            #
 426 
            #