Changeset 41636

Timestamp:

Jun 3, 2021, 5:16:25 PM (5 years ago)

Author:

tdeboer

Message:

change to warp_overlap

File:

• tags/ipp-ps1-20210510/ippScripts/scripts/warp_overlap.pl (modified) (1 diff)

tags/ipp-ps1-20210510/ippScripts/scripts/warp_overlap.pl

@@ -248 +248 @@
     # Get rid of the path
     my @dirlist = File::Spec->splitdir( $filename ); # The elements of the full path
-    $filename = pop @dirlist;
+    my $filenamecut = pop @dirlist;
+    my @splitlist = split /:/, $filenamecut;
+    $filename = pop @splitlist;
 
     # Work out how to identify this imfile in the output