[Sandweb-commit] CVS: sandweb/lib/SandWeb Repository.pm,1.23,1.24

[Rob H. <for...@us...>]

Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv25608/lib/SandWeb

Modified Files:
	Repository.pm 
Log Message:
VCS subsystem can now handle spaces in directories, and should fully
work with the multi-repo stuff ( looks like everything below the first
directory was not working properly :P )


Index: Repository.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository.pm,v
retrieving revision 1.23
retrieving revision 1.24
diff -U2 -r1.23 -r1.24
--- Repository.pm	20 Feb 2002 05:14:31 -0000	1.23
+++ Repository.pm	25 Feb 2002 23:52:24 -0000	1.24
@@ -53,5 +53,5 @@
 	my $root = $self->get_root();
 	my $sandbox = $self->get_sandbox();
-	my %return = {};
+	my %return;
 	my $vcs = SandWeb::Repository::CVS->new(
 		root => $root,
@@ -80,5 +80,5 @@
 	my $root = $self->get_root();
 	my $sandbox = $self->get_sandbox();
-	my %return = {};
+	my %return;
 	my $vcs = SandWeb::Repository::CVS->new(
 		root => $root,
@@ -108,5 +108,5 @@
 	my $root = $self->get_root();
 	my $sandbox = $self->get_sandbox();
-	my %return = {};
+	my %return;
 	my $vcs = SandWeb::Repository::CVS->new(root => $root,
 											sandbox => $sandbox);
@@ -163,5 +163,5 @@
 	my $root = $self->get_root();
 	my $sandbox = $self->get_sandbox();
-	my %return = {};
+	my %return;
 	my $vcs = SandWeb::Repository::CVS->new(
 		root => $root,
@@ -194,5 +194,5 @@
 	my $root = $self->get_root();
 	my $sandbox = $self->get_sandbox();
-	my %return = {};
+	my %return;
 
 	my $vcs = SandWeb::Repository::CVS->new(
@@ -226,5 +226,5 @@
 	my $root = $self->get_root();
 	my $sandbox = $self->get_sandbox();
-	my %return = {};
+	my %return;
 	my $vcs = SandWeb::Repository::CVS->new(root => $root,
 						sandbox => $sandbox);
@@ -250,5 +250,5 @@
 	my $root = $self->get_root();
 	my $sandbox = $self->get_sandbox();
-	my %return = {};
+	my %return;
 	my $vcs = SandWeb::Repository::CVS->new(root => $root,
 						sandbox => $sandbox);
@@ -270,5 +270,5 @@
 	my $root = $self->get_root();
 	my $sandbox = $self->get_sandbox();
-	my %return = {};
+	my %return;
 	my $vcs = SandWeb::Repository::CVS->new(root => $root,
 						sandbox => $sandbox);
@@ -289,5 +289,5 @@
 	my $root = $self->get_root();
 	my $sandbox = $self->get_sandbox();
-	my %return = {};
+	my %return;
 	my $vcs = SandWeb::Repository::CVS->new(root => $root,
 						sandbox => $sandbox);
@@ -308,5 +308,5 @@
 	my $root = $self->get_root();
 	my $sandbox = $self->get_sandbox();
-	my %return = {};
+	my %return;
 	my $vcs = SandWeb::Repository::CVS->new(
 		root => $root,
@@ -350,5 +350,5 @@
 	my $root = $self->get_root();
 	my $sandbox = $self->get_sandbox();
-	my %return = {};
+	my %return;
 	my $vcs = SandWeb::Repository::CVS->new(root => $root,
 						sandbox => $sandbox);
@@ -367,5 +367,5 @@
 	my $root = $self->get_root();
 	my $sandbox = $self->get_sandbox();
-	my %return = {};
+	my %return;
 	my $vcs = SandWeb::Repository::CVS->new(root => $root,
 						sandbox => $sandbox);
@@ -387,5 +387,5 @@
 	my $root = $self->get_root();
 	my $sandbox = $self->get_sandbox();
-	my %return = {};
+	my %return;
 	my $vcs = SandWeb::Repository::CVS->new(root => $root,
 						sandbox => $sandbox);
@@ -409,5 +409,5 @@
 	my $root = $self->get_root();
 	my $sandbox = $self->get_sandbox();
-	my %return = {};
+	my %return;
 	my $vcs = SandWeb::Repository::CVS->new(root => $root,
 						sandbox => $sandbox);
@@ -465,5 +465,5 @@
 	my $root = $self->get_root();
 	my $sandbox = $self->get_sandbox();
-	my %return = {};
+	my %return;
 	my $vcs = SandWeb::Repository::CVS->new(root => $root,
 						sandbox => $sandbox);
@@ -492,5 +492,5 @@
 	my $root = $self->get_root();
 	my $sandbox = $self->get_sandbox();
-	my %return = {};
+	my %return;
 	my $vcs = SandWeb::Repository::CVS->new(root => $root,
 						sandbox => $sandbox);
@@ -520,20 +520,23 @@
 	my $root = $self->get_root();
 	my $sandbox = $self->get_sandbox();
-	my %return = {};
-	my $vcs = SandWeb::Repository::CVS->new(root => $root,
-						sandbox => $sandbox);
+	my %return;
+
+	my $vcs = SandWeb::Repository::CVS->new(
+		root => $root,
+		sandbox => $sandbox,
+	);
 
 	if ($repo_type eq 'CVS') {
-	%return = $vcs->update(recurse => $recurse,
-				  reset => $reset,
-				  prune => $prune,
-				  clobber => $clobber,
-				  directories => $directories,
-				  rev => $rev,
-				  date => $date,
-				  merge => $merge,
-				  file => $file );
+		%return = $vcs->update(
+			recurse => $recurse,
+			reset => $reset,
+			prune => $prune,
+			clobber => $clobber,
+			directories => $directories,
+			rev => $rev,
+			date => $date,
+			merge => $merge,
+			file => $file );
 	} 
-
 	return %return;
 }
@@ -550,5 +553,5 @@
 	my $root = $self->get_root();
 	my $sandbox = $self->get_sandbox();
-	my %return = {};
+	my %return;
 	my $vcs = SandWeb::Repository::CVS->new(root => $root,
 						sandbox => $sandbox);
@@ -576,5 +579,5 @@
 	my $root = $self->get_root();
 	my $sandbox = $self->get_sandbox();
-	my %return = {};
+	my %return;
 	my $vcs = SandWeb::Repository::CVS->new(root => $root,
 						sandbox => $sandbox);