view release on metacpan or  search on metacpan

TaskLoads.pm  view on Meta::CPAN

     $dml_type = ($dml_type) ? $dml_type : 'A';

  if (!-d $rdr) {
      croak "ERR: ($prg) could not find - $rdr<br>\n";
  }
  if (!-d $ofd) {
      $s->echo_msg("INFO: ($prg) make dir - $ofd.", 2);
      eval { mkpath($ofd,0,0777) };
      # mkdir $ofd;
      croak "ERR: ($prg) could not mkdir - $ofd: $!: $@<br>\n" if ($@);
      system("chmod -R ugo+w $ofd") 		if ($^O !~ /^MSWin/i); 	# non window
  }

  if ($mfn && ! -f $mfn) {
    croak "ERR: ($prg) could not find mfn file - $mfn";
  }
  $s->echo_msg("INFO: ($prg) RDR=$rdr",1);
  $s->echo_msg("INFO: ($prg) OFD=$ofd",1);
  $s->echo_msg("INFO: ($prg) MFN=$mfn",1);