Subversion Repositories DevTools

Rev

Rev 1591 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1591 Rev 1602
Line 27... Line 27...
27 
#
 27 
#
28 
# Usage         : Refer to POD within this script
 28 
# Usage         : Refer to POD within this script
29 
#
 29 
#
30 
#......................................................................#
 30 
#......................................................................#
31 
 
 31 
 
32 
require 5.8.6;
 32 
require 5.008_006;
- 
 
 33 
 
33 
use strict;
 34 
use strict;
34 
use warnings;
 35 
use warnings;
35 
use JatsError;                              # Error reporting
 36 
use JatsError;                              # Error reporting
36 
use JatsSystem;                             # System interface
 37 
use JatsSystem;                             # System interface
37 
use Win32::OLE;                             # load the Win32::OLE module
 38 
use Win32::OLE;                             # load the Win32::OLE module
Line 470... Line 471...
470 
        next if ( $dir =~ m/Merge Modules$/ );
 471 
        next if ( $dir =~ m/Merge Modules$/ );
471 
        Message("KLUDGE copy: [$dir] to [$AutoBuilder]");
 472 
        Message("KLUDGE copy: [$dir] to [$AutoBuilder]");
472 
        $kludge_copy_dir = $dir;
 473 
        $kludge_copy_dir = $dir;
473 
        $kludge_copy_dir =~ s~\\+~/~g;
 474 
        $kludge_copy_dir =~ s~\\+~/~g;
474 
        $kludge_copy_dir =~ s~/$~~;
 475 
        $kludge_copy_dir =~ s~/$~~;
475 
        $kludge_copy_dir =~ s~/[^/]*$~~;
 476 
        $kludge_copy_dir =~ m~(.+/MergeModules)/~;
476 
        $kludge_copy_dir_len = length($kludge_copy_dir);
 477 
        $kludge_copy_dir_len = length($1);
477 
 
 478 
 
478 
        File::Find::find( \&kludge_copy, $dir);
 479 
        File::Find::find( \&kludge_copy, $dir);
479 
    }
 480 
    }
480 
}
 481 
}
481 
 
 482