Help for this page

Select Code to Download

Select or download this

use warnings;
use strict;
...
        if (TEST) { die pp(@lines) unless $expect eq join "\0", @lines
+ }
    },
});