$@ does not just contain the die string we provided but also where die was called.
Signed-off-by: Francois Gouget fgouget@codeweavers.com --- testbot/lib/WineTestBot/TestAgent.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/testbot/lib/WineTestBot/TestAgent.pm b/testbot/lib/WineTestBot/TestAgent.pm index a4a2f4906..d3d7137a5 100644 --- a/testbot/lib/WineTestBot/TestAgent.pm +++ b/testbot/lib/WineTestBot/TestAgent.pm @@ -938,7 +938,7 @@ sub _Connect($)
if ($@) { - if ($@ eq "timeout") + if ($@ =~ /^timeout /) { $self->_SetError($FATAL, "Timed out in $Step while connecting to $self->{connection}"); }