Changeset 115 in ProjectBuilder for devel/pb/lib/ProjectBuilder/Base.pm

Timestamp:

Sep 6, 2007, 8:58:25 PM (17 years ago)

Author:

Bruno Cornec

Message:

Fix still more CVS problems + add mre ENV var for pbinit to be able to use them.

File:

• devel/pb/lib/ProjectBuilder/Base.pm (modified) (2 diffs)

devel/pb/lib/ProjectBuilder/Base.pm

@@ -308 +308 @@
 my $destdir = shift;
 my $tmp;
+my $tmp1;
 
 if ($cms->{$ENV{'PBPROJ'}} eq "svn") {
@@ -319 +320 @@
     my $dir=dirname($destdir);
     my $base=basename($destdir);
-    # Doesn't work if called from outside with a full path name to a file/dir to export
-    $tmp=basename($source);
+    if (-d $source) {
+        $tmp1 = $source;
+        $tmp1 =~ s|$ENV{'PBROOT'}/||;
+    } else {
+        $tmp1 = dirname($source);
+        $tmp1 =~ s|$ENV{'PBROOT'}/||;
+        $tmp1 = $tmp1."/".basename($source);
+    }
     # CVS needs a relative path !
-    pb_system("cd $dir ; cvs export -D \"$pbdate\" -d $base $tmp","Exporting $source from CVS to $destdir");
+    pb_system("cd $dir ; cvs export -D \"$pbdate\" -d $base $tmp1","Exporting $source from CVS to $destdir");
 } else {
     die "cms $cms->{$ENV{'PBPROJ'}} unknown";