# | Line 13 | Line 13 | |
---|---|---|
13 | # set_passkey(encrypted) : For pserver method - set a password | |
14 | # (encrypted) | |
15 | # invokecvs(@cmds) : invoke a cvs command supplied in @cmds | |
16 | + | # repository : return a string to indicate the repository |
17 | # | |
18 | package CVSmodule; | |
19 | require 5.001; | |
# | Line 98 | Line 99 | sub _updatecvsroot { | |
99 | my $self=shift; | |
100 | $self->{cvsroot}=$self->{auth}.$self->{user}.$self->{base}; | |
101 | } | |
102 | + | |
103 | + | sub repository { |
104 | + | my $self=shift; |
105 | + | return $self->{base}; |
106 | + | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |