[svk-commit] r3039 - trunk/pkg
nobody at bestpractical.com
nobody at bestpractical.com
Thu Jul 31 23:05:38 EDT 2008
Author: clsung
Date: Thu Jul 31 23:05:38 2008
New Revision: 3039
Modified:
trunk/pkg/buildsvk.pl
Log:
- more libraries are required
Modified: trunk/pkg/buildsvk.pl
==============================================================================
--- trunk/pkg/buildsvk.pl (original)
+++ trunk/pkg/buildsvk.pl Thu Jul 31 23:05:38 2008
@@ -116,15 +116,28 @@
my @SVNCoreModules = ( 'Base.pm', 'Client.pm', 'Core.pm',
'Delta.pm', 'Fs.pm', 'Ra.pm', 'Repos.pm', 'Wc.pm',
'_Core.bs', '_Core.so');
+ my @SVNCoreModules = ( 'Base', 'Client', 'Core',
+ 'Delta', 'Fs', 'Ra', 'Repos', 'Wc');
for my $prefix (@INC) {
- for my $SVNdir ("/SVN/","/auto/SVN/","/auto/SVN/_Core/") {
+ for my $SVNdir ("/SVN/","/auto/SVN/") {
my $fullpath = $prefix.$SVNdir;
if (-d $fullpath) {
mkpath [$self->perldest.$SVNdir];
- for my $file (@SVNCoreModules) {
- if (-f $fullpath.'/'.$file) {
- warn $file;
- warn copy($fullpath."/".$file, $self->perldest.$SVNdir);
+ for my $module (@SVNCoreModules) {
+ my $file = $module.".pm";
+ if (-f $fullpath.$file) {
+ warn $file;
+ copy($fullpath.$file, $self->perldest.$SVNdir);
+ }
+ if (-d $fullpath.'_'.$module) {
+ mkpath [$self->perldest.$SVNdir.'_'.$module];
+ for my $ext (".bs", ".so") {
+ my $file = $fullpath.'_'.$module.'/_'.$module.$ext;
+ if (-f $file) {
+ warn $file;
+ copy($file, $self->perldest.$SVNdir.'_'.$module);
+ }
+ }
}
}
}
More information about the svk-commit
mailing list