Help for this page

Select Code to Download

Select or download this

#! /usr/bin/perl
use warnings;
...
    die unless $c < 130.01;
    say "PN:", $before eq _dump($c) ? 'Same' : 'Changed';
}

Select or download this

IOK,pIOK
IOK,pIOK
...
POK,IsCOW,pPOK
NOK,POK,IsCOW,pNOK,pPOK
PN:Changed