Changeset 11950

Timestamp:

Feb 20, 2007, 4:04:24 PM (19 years ago)

Author:

Paul Price

Message:

Fixing up working directory when none explicitly specified.

File:

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

trunk/ippScripts/scripts/phase3.pl

@@ -126 +126 @@
 } else {
     my $example = ${$files}[0]->{b1_uri}; # Example original root name
-    my ($vol, $dir, $file) = File::Spec->splitpath( $example );
+    my ($vol, $dir, $file) = File::Spec->splitpath( $ipprc->convert_filename_absolute( $example ) );
     $workdir = $dir;
 }
@@ -135 +135 @@
 my $outputFile =  "$exp_tag.p3";
 my $outputRoot = File::Spec->catfile( $workdir, $exp_tag, $outputFile );
+
+die "$outputRoot\n";
 
 my $list1Name = $outputRoot . '.b1.list'; # Name for the input file list for binning 1