X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FTest%2FHarness%2FSelenium.pm;h=39721f75d1f1e7a7d6f41fc5625be280bac591f9;hb=fbd64e21e4893c5f772807187a9bc993953ccd8c;hp=fa7130b430055c5916c0a65c6b713dbf6240891a;hpb=69f9b61a7ec81319edf3f63cd3c8841615f44b6c;p=scpubgit%2FTest-Harness-Selenium.git

diff --git a/lib/Test/Harness/Selenium.pm b/lib/Test/Harness/Selenium.pm
index fa7130b..39721f7 100644
--- a/lib/Test/Harness/Selenium.pm
+++ b/lib/Test/Harness/Selenium.pm
@@ -134,8 +134,12 @@ sub get_rows_for {
 
 sub DESTROY {
   my($self) = @_;
-  if(exists $self->{xvnc_pid}) {
-    kill("KILL", $self->{xvnc_pid});
+  if(exists $self->{selenium_rc}{xvnc_server_proc} and 
+    exists $self->{selenium_rc}{selenium_server_proc}) {
+    $self->{selenium_rc}{xvnc_server_proc}->complete ||
+      $self->{selenium_rc}{xvnc_server_proc}->kill("KILL");
+    $self->{selenium_rc}{selenium_server_proc}->complete ||
+      $self->{selenium_rc}{selenium_server_proc}->kill("KILL");
   }
 }