Changeset 43052 for branches/eam_branches/ipp-pstamp-20260421/pstamp/scripts/dquery_job_run.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/dquery_job_run.pl (modified) (5 diffs)

branches/eam_branches/ipp-pstamp-20260421/pstamp/scripts/dquery_job_run.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 );
 
@@ -120 +120 @@
 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);
 ## MEH need to adjust error_code to rc
 unless ($success) {
@@ -162 +162 @@
 
 ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-    run(command => $psphot_cmd, verbose => $verbose);
+    ps_run(command => $psphot_cmd, verbose => $verbose);
 unless ($success) {
     # $params->{PROC_ERROR} = $PSTAMP_SYSTEM_ERROR;
@@ -339 +339 @@
 
     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;