Changeset 12694

Timestamp:

Mar 30, 2007, 10:06:08 AM (19 years ago)

Author:

Paul Price

Message:

Make directory if it doesn't exist.

File:

• trunk/ippScripts/scripts/detrend_reject_exp.pl (modified) (2 diffs)

trunk/ippScripts/scripts/detrend_reject_exp.pl

@@ -17 +17 @@
 use PS::IPP::Metadata::List qw( parse_md_list );
 use Statistics::Descriptive;
+use File::Spec;
 
 use PS::IPP::Config qw(
@@ -125 +126 @@
     $workdir = $ipprc->convert_filename_absolute( $workdir );
     my $subdir = "$camera.$det_type.$det_id";
-    $logName = File::Spec->catfile( $workdir, $subdir, $logName );
+    $workdir = File::Spec->catdir( $workdir, $subdir );
+    system "mkdir -p $workdir" unless -d $workdir;
+    $logName = File::Spec->catfile( $workdir, $logName );
 }
 my $logFile;