Protocol.pm
line 53     my $ic = $ImplementedBy{$scheme};
line 56    return '' unless $scheme =~ /^([.+\-\w]+)$/;  # check valid URL schemes
line 36    my $impclass = LWP::Protocol::implementor($scheme) or

UserAgent.pm
line 199 	   if ($scheme eq "https") {