| Subject: | Test 3 fails |
Hiya,
There's a small bug in simple.t -- test #3 is failing due to a failed pattern match:
root@p4test1:~/.cpan/build/perlipq-1.25 # cat /proc/net/ip_queue
Peer PID : 1690
Copy mode : 2
Copy range : 1500
Queue length : 40
Queue max. length : 1024
root@p4test1:~/.cpan/build/perlipq-1.25 # fg
perl -Mblib -d t/simple.t
...
simple_t::test(t/simple.t:43): if (!open PROC, "<$procfile") {
simple_t::test(t/simple.t:48): while (<PROC>) {
simple_t::test(t/simple.t:49): if (/^Peer pid\s+:\s+(\d+)/) {
If you turn on case-insensitive matching on line 49, the test passes.
I'm running Redhat-7.3 / kernel 2.4.27 / iptables-1.2.5
hth,
-Steve