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.5 by williamc, Fri Nov 12 17:07:53 1999 UTC vs.
Revision 1.6 by williamc, Fri Nov 12 17:09:24 1999 UTC

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

Diff Legend

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