diff options
| author | daniel <danieruru@gmail.com> | 2013-01-29 01:04:04 +0900 |
|---|---|---|
| committer | daniel <danieruru@gmail.com> | 2013-01-29 01:04:04 +0900 |
| commit | e15319368bf6d69fe84dc5afa63f740252c8dfcc (patch) | |
| tree | e6d8291e5c9cbfc2c9c655f268486834670c1034 /libvxi11client/perlbits/testscript.pl | |
| parent | e183a9956be3c9ad3cb50c56a634041ece49e41a (diff) | |
Endian fixes.
Diffstat (limited to 'libvxi11client/perlbits/testscript.pl')
| -rwxr-xr-x | libvxi11client/perlbits/testscript.pl | 5 |
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(); |