Changeset 43052 for branches/eam_branches/ipp-pstamp-20260421/pstamp/scripts/detect_query_read

Timestamp:

Jun 12, 2026, 2:47:49 PM (7 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/detect_query_read (modified) (3 diffs)

branches/eam_branches/ipp-pstamp-20260421/pstamp/scripts/detect_query_read

@@ -20 +20 @@
 use Math::Trig;
 use Data::Dumper;
-use IPC::Cmd 0.36 qw( can_run run );
+use IPC::Cmd 0.36 qw( can_run );
+use PS::IPP::Config qw( :standard ps_run );
 
 use constant EXTNAME => 'MOPS_DETECTABILITY_QUERY'; # Extension name for table
@@ -195 +196 @@
             my $cmd = "$regtool -processedexp -dbname $dbname -exp_name $colData{FPA_ID}[$i]";
             my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-                run(command => $cmd, verbose => 0);
+                ps_run(command => $cmd, verbose => 0);
             unless ($success) {
                 # This is a problem, because I'm not sure how we handle a failure to read something.
@@ -267 +268 @@
         }
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-            run(command => $cmd, verbose => 1);
+            ps_run(command => $cmd, verbose => 1);
         unless ($success) {
             # This is a problem, because I'm not sure how we handle a failure to read something.