perlcc: fixup f4c7e234, -B -r