summaryrefslogtreecommitdiff
path: root/rt/bin/rt
diff options
context:
space:
mode:
Diffstat (limited to 'rt/bin/rt')
-rwxr-xr-xrt/bin/rt6
1 files changed, 3 insertions, 3 deletions
diff --git a/rt/bin/rt b/rt/bin/rt
index 8c3a51421..6d46c346c 100755
--- a/rt/bin/rt
+++ b/rt/bin/rt
@@ -3,7 +3,7 @@
#
# COPYRIGHT:
#
-# This software is Copyright (c) 1996-2014 Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC
# <sales@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
@@ -1035,7 +1035,7 @@ sub submit {
# Should we send authentication information to start a new session?
my $how = $config{server} =~ /^https/ ? 'over SSL' : 'unencrypted';
- (my $server = $config{server}) =~ s/^.*\/\/([^\/]+)\/?/$1/;
+ my($server) = $config{server} =~ m{^.*//([^/]+)};
if ($config{externalauth}) {
$h->authorization_basic($config{user}, $config{passwd} || read_passwd() );
print " Password will be sent to $server $how\n",
@@ -1080,7 +1080,7 @@ sub submit {
# "RT/3.0.1 401 Credentials required"
if ($status !~ m#^RT/\d+(?:\S+) (\d+) ([\w\s]+)$#) {
- warn "rt: Malformed RT response from $config{server}.\n";
+ warn "rt: Malformed RT response from $server.\n";
warn "(Rerun with RTDEBUG=3 for details.)\n" if $config{debug} < 3;
exit -1;
}