[Sandweb-commit] CVS: sandweb/lib/SandWeb Browse.pm,1.26,1.27 Repository.pm,1.16,1.17

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

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

Modified Files:
	Browse.pm Repository.pm 
Log Message:
added -w to perl invokation, cleaned up potential problems that
were indicated


Index: Browse.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Browse.pm,v
retrieving revision 1.26
retrieving revision 1.27
diff -U2 -r1.26 -r1.27
--- Browse.pm	2002/01/02 22:51:52	1.26
+++ Browse.pm	2002/01/18 19:25:08	1.27
@@ -98,5 +98,5 @@
 
 	my @return = ();
-	my @loop_data = ();
+	@loop_data = ();
 	my $color0 = "#ccccee";
 	my $color1 = "#ffffff";
@@ -184,5 +184,5 @@
 	}
 
-	my @loop_data = ();
+	@loop_data = ();
 
 	foreach my $vcs_command (@vcs_commands) {

Index: Repository.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/Repository.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -U2 -r1.16 -r1.17
--- Repository.pm	2001/12/23 04:48:06	1.16
+++ Repository.pm	2002/01/18 19:25:08	1.17
@@ -456,5 +456,5 @@
 	my $branch = $args{'branch'};
 	my $check = $args{'check'};
-	my $force => $args{'force'};
+#	my $force => $args{'force'};
 	my $file = $args{'file'};
 	my $repo_type = $self->get_repo_type();
@@ -557,25 +557,4 @@
 				 notify => $notify,
 				 file => $file );
-	} 
-
-	return %return;
-}
-
-sub watch {
-	my $self = shift;
-	my %args = @_;
-
-	my $recurse = $args{'recurse'};
-	my $file = $args{'file'};
-	my $repo_type = $self->get_repo_type();
-	my $root = $self->get_root();
-	my $sandbox = $self->get_sandbox();
-	my %return = {};
-	my $vcs = SandWeb::Repository::CVS->new(root => $root,
-						sandbox => $sandbox);
-
-	if ($repo_type eq 'CVS') {
-	%return = $vcs->checkout(recurse => $recurse,
-					file => $file );
 	}