t / t4018 / perl-skip-forward-declon commit switch: reject if some operation is in progress (c45f0f5)
   1package RIGHT;
   2
   3use strict;
   4use warnings;
   5use parent qw(Exporter);
   6our @EXPORT_OK = qw(round finalround);
   7
   8sub other; # forward declaration
   9
  10# ChangeMe