...
  require Scalar::Util;
  Scalar::Util->import(qw(weaken isweak));   # line 28 in weak.t
  if (grep { /weaken/ } @Scalar::Util::EXPORT_FAIL) {
    print("1..0 # Skip: No support for weaken in Scalar::Util\n");
    exit 0;
  }