]>
Commit | Line | Data |
---|---|---|
fe000966 DM |
1 | #!/usr/bin/perl -w |
2 | ||
3 | use strict; | |
4 | ||
5 | use PVE::IPCC; | |
6 | ||
7 | if (defined(my $res = PVE::IPCC::ipcc_send_rec(2))) { | |
8 | print "GOT: $res\n"; | |
9 | } else { | |
10 | die "ipcc_send_rec failed: $!\n"; | |
11 | } | |
12 | exit 0; | |
13 | ||
14 | my $i = 0; | |
15 | ||
16 | ||
17 | for($i = 0; $i < 10000; $i++) { | |
18 | print "t1\n"; | |
19 | print "c1: " . PVE::IPCC::ipcc_send_rec(1, "adas\0defg") . "\n"; | |
20 | print "t1\n"; | |
21 | } | |
22 |