Changeset 43052 for branches/eam_branches/ipp-pstamp-20260421/pstamp/scripts/detectability_respond.pl

Timestamp:

Jun 12, 2026, 2:47:49 PM (5 weeks ago)

Author:

eugene

Message:

convert the IPC::Cmd run calls to ps_run to handle inconsistent behavior between IPC:Cmd versions pre- and post-0.40

File:

• branches/eam_branches/ipp-pstamp-20260421/pstamp/scripts/detectability_respond.pl (modified) (6 diffs)

branches/eam_branches/ipp-pstamp-20260421/pstamp/scripts/detectability_respond.pl

@@ -13 +13 @@
 use File::Basename;
 use File::Copy;
-use IPC::Cmd 0.36 qw( can_run run );
+use IPC::Cmd 0.36 qw( can_run );
 use Getopt::Long qw( GetOptions );
 use Pod::Usage qw( pod2usage );
@@ -20 +20 @@
 use PS::IPP::PStamp::RequestFile qw( :standard );
 use PS::IPP::PStamp::Job qw( :standard );
-use PS::IPP::Config qw( :standard );
+use PS::IPP::Config qw( :standard ps_run );
 use PS::IPP::Metadata::List qw( parse_md_list );
 
@@ -108 +108 @@
     my $dqr_command = "$detect_query_read --dbname $imagedb --input $request_file";
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $dqr_command, verbose => $verbose);
+        ps_run(command => $dqr_command, verbose => $verbose);
     unless ($success) {
         # This is a problem, because I'm not sure how we handle a failure to read something.
@@ -433 +433 @@
         my $command = "ppCoord -astrom $catalog -radec $coordname";
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-            run(command => $command, verbose => $verbose);
+            ps_run(command => $command, verbose => $verbose);
         unless ($success) {
             my_die("Unable to perform $command. Error_code: $error_code",
@@ -473 +473 @@
         
         ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-            run(command => $psphot_cmd, verbose => $verbose);
+            ps_run(command => $psphot_cmd, verbose => $verbose);
         unless ($success) {
             $query{$fpa_id}{PROC_ERROR}[$index] = $PSTAMP_SYSTEM_ERROR;
@@ -828 +828 @@
 
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => $verbose);
+        ps_run(command => $command, verbose => $verbose);
     unless ($success) {
         my $rc = $error_code >> 8;