… | … | ||
---|---|---|---|
23 | $proc2->transfer ($main); | 23 | $proc2->transfer ($main); |
24 | print "not ok 8\n"; | 24 | print "not ok 8\n"; |
25 | die; | 25 | die; |
26 | } | 26 | } |
27 | 27 | ||
28 | $proc2->save (0); | ||
29 | |||
30 | $/ = 55; | 28 | $/ = 55; |
31 | 29 | ||
32 | print "ok 2\n"; | 30 | print "ok 2\n"; |
33 | $main->transfer ($proc); | 31 | $main->transfer ($proc); |
34 | print $/ != 55 ? "not " : "ok 4\n"; | 32 | print $/ != 55 ? "not " : "ok 4\n"; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |