Francois Gouget : testbot: Don' t try to dereference $TunnelDefaults if it is undefined.
Alexandre Julliard
julliard at winehq.org
Mon Dec 17 10:17:12 CST 2012
Module: tools
Branch: master
Commit: 25e1f7303e908b69d022330a8581d32be11088e0
URL: http://source.winehq.org/git/tools.git/?a=commit;h=25e1f7303e908b69d022330a8581d32be11088e0
Author: Francois Gouget <fgouget at codeweavers.com>
Date: Mon Dec 17 17:09:29 2012 +0100
testbot: Don't try to dereference $TunnelDefaults if it is undefined.
---
testbot/lib/WineTestBot/VMs.pm | 3 ++-
testbot/scripts/TestAgent | 2 +-
2 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/testbot/lib/WineTestBot/VMs.pm b/testbot/lib/WineTestBot/VMs.pm
index f41453e..ccfa9f2 100644
--- a/testbot/lib/WineTestBot/VMs.pm
+++ b/testbot/lib/WineTestBot/VMs.pm
@@ -369,7 +369,8 @@ sub _GetTunnel($)
{
my $ParsedURI = URI->new($URI);
- my %TunnelInfo = %$TunnelDefaults;
+ my %TunnelInfo;
+ %TunnelInfo = %$TunnelDefaults if ($TunnelDefaults);
$TunnelInfo{sshhost} = $ParsedURI->host;
$TunnelInfo{sshport} = $ParsedURI->port;
$TunnelInfo{username} = $ParsedURI->userinfo;
diff --git a/testbot/scripts/TestAgent b/testbot/scripts/TestAgent
index f72531c..a4c8e1a 100755
--- a/testbot/scripts/TestAgent
+++ b/testbot/scripts/TestAgent
@@ -244,7 +244,7 @@ my $TunnelInfo;
if ($TunnelOpt)
{
my $ParsedURI = URI->new($TunnelOpt);
- %$TunnelInfo = %$TunnelDefaults;
+ %$TunnelInfo = %$TunnelDefaults if ($TunnelDefaults);
$TunnelInfo->{sshhost} = $ParsedURI->host;
$TunnelInfo->{sshport} = $ParsedURI->port;
$TunnelInfo->{username} = $ParsedURI->userinfo;
More information about the wine-cvs
mailing list