ViewVC Help

View File | Revision Log | Show Annotations | Root Listing

root/cvsroot/COMP/SCRAM/src/URL/URLclass.pm

Comparing COMP/SCRAM/src/URL/URLclass.pm (file contents):
Revision 1.4 by williamc, Fri Nov 12 16:59:17 1999 UTC vs.
Revision 1.5 by williamc, Fri Nov 12 17:07:53 1999 UTC

#	Line 86 | Line 86 | sub transfervars {
86
87		sub base {
88		my $self=shift;
89	<	my $base;
90	<	($base=$self->{server})=~s/(.*\/)/$1/;
89	>	my $base="";
90	>	if ( $self->{server}=~/\// ) {
91	>	($base=$self->{server})=~s/(.*\/).*/$1/;
92	>	}
93		return $base;
94		}
95

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines