Changeset 14588 for trunk/ippScripts/scripts/ipp_serial_inject.pl

Timestamp:

Aug 21, 2007, 12:16:23 PM (19 years ago)

Author:

Paul Price

Message:

A quick change to 'ipp_serial_inject.pl' from IPP 2.2 to get it to
recognized .fit, .fts, .fits.gz, .fit.gz, and .fts.gz files
(Bug 913, from MW-V).

File:

• trunk/ippScripts/scripts/ipp_serial_inject.pl (modified) (1 diff)

trunk/ippScripts/scripts/ipp_serial_inject.pl

@@ -76 +76 @@
     # XXX provide an option for an alternative extension
     my ( $vol, $path, $name ) = File::Spec->splitpath( $absfile );
-    my ( $exp_name ) = $name =~ /(.*)\.fits/;
+    my ( $exp_name ) = $name =~ /(.*)\.(fits|fit|fts)(|.gz)/;
 
     my $relfile = $ipprc->convert_filename_relative( $absfile );