1 files changed, 4 insertions, 1 deletions
diff --git a/libvxi11client/perlbits/testscript.pl b/libvxi11client/perlbits/testscript.pl
index ae23e79..ac7dd3f 100755
--- a/libvxi11client/perlbits/testscript.pl
+++ b/libvxi11client/perlbits/testscript.pl
@@ -19,7 +19,10 @@ printf "status byte is " . $statusbyte . "\n";
 
 $instr->vxi_create_intr_chan();
 $instr->vxi_enable_srq("myhandle");
-vxi_wait_for_interrupt();
+
+for (my $i = 0; $i < 10000; $i++) {
+	vxi_wait_for_interrupt();
+}
 $instr->vxi_disable_srq();
 $instr->vxi_destroy_intr_chan();
 $instr->vxi_abort();