view release on metacpan or  search on metacpan

private/MakeUtil.pm  view on Meta::CPAN

226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
 
 
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 ;
    }