Changeset 43055

Timestamp:

Jul 3, 2026, 2:56:00 PM (2 weeks ago)

Author:

eugene

Message:

convert to ps_run

File:

• branches/eam_branches/ipp-pstamp-20260421/ippScripts/scripts/detrend_stack.pl (modified) (5 diffs)

branches/eam_branches/ipp-pstamp-20260421/ippScripts/scripts/detrend_stack.pl

@@ -18 +18 @@
 use PS::IPP::Metadata::Config;
 use PS::IPP::Metadata::List qw( parse_md_list );
-use PS::IPP::Config 1.01 qw( :standard );
+use PS::IPP::Config 1.01 qw( :standard ps_run );
 
 use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
@@ -138 +138 @@
 
     ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => $verbose);
+        ps_run(command => $command, verbose => $verbose);
     unless ($success) {
         $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
@@ -206 +206 @@
 unless ($no_op) {
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => $verbose);
+        ps_run(command => $command, verbose => $verbose);
     unless ($success) {
         $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
@@ -221 +221 @@
     $command = "$ppStatsFromMetadata $outputStatsReal - DETREND_STACK";
     ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => $verbose);
+        ps_run(command => $command, verbose => $verbose);
     unless ($success) {
         $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
@@ -245 +245 @@
 unless ($no_update) {
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => $verbose);
+        ps_run(command => $command, verbose => $verbose);
     unless ($success) {
         $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);