killing & clearing gst_pid with pseudoseek

zpmorgan · Feb 13, 2012 · bcb702b · bcb702b
1 parent e6fb7e0
commit bcb702b
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/lib/PDL/GStreamer.pm b/lib/PDL/GStreamer.pm
@@ -13,6 +13,7 @@ my ($loop); #cruft below.
 has gst_pid => (
    is => 'rw',
    isa => 'Int',
+   clearer => 'clear_gst_pid',
 );
 
 has playing => (
@@ -36,6 +37,10 @@ sub seek{
       close $self->input_fd;
       close $self->info_fd;
    }
+   if ($self->gst_pid){
+      kill 15, $self->gst_pid;
+      $self->clear_gst_pid;
+   }
    $self->start_time($time);
 }