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 );
}
|
