view release on metacpan or  search on metacpan

private/MakeUtil.pm  view on Meta::CPAN

#
#
# sub doUpDown
# {
#     my $our_sub = shift;
#     my $warn_sub = shift;
#
#     return if -d $_[0];
#
#     local ($^I) = ($^O eq 'VMS') ? "_bak" : ".bak";
#     local (@ARGV) = shift;
#
#     while (<>)
#     {
#         print, last if /^__(END|DATA)__/ ;
#
#         &{ $our_sub }() if $our_sub ;
#         &{ $warn_sub }() if $warn_sub ;
#         print ;
#     }
#