[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