Lines Matching refs:old
11 my $old = $self->authority;
14 my $new = $old;
16 $new =~ s/.*@//; # remove old stuff
24 return undef if !defined($old) || $old !~ /(.*)@/;
31 my $old = $self->authority;
33 my $tmp = $old;
45 return undef unless defined $old;
46 $old =~ s/.*@//;
47 $old =~ s/:\d+$//;
48 return uri_unescape($old);
54 my $old = $self->authority;
56 my $new = $old;
62 return $1 if defined($old) && $old =~ /:(\d*)$/;
77 my $old = $self->authority;
79 return undef unless defined $old;
80 $old =~ s/.*@//; # zap userinfo
81 $old =~ s/:$//; # empty port does not could
82 $old .= ":" . $self->port unless $old =~ /:/;
83 $old;