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

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/pstamp_dorequest.pl (modified) (5 diffs)

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

@@ -28 +28 @@
 }
 
-use IPC::Cmd 0.36 qw( can_run run );
+use IPC::Cmd 0.36 qw( can_run );
 
 use PS::IPP::Metadata::Config;
@@ -44 +44 @@
                        metadataLookupBool
                        caturi
+                       ps_run
                        );
 
@@ -63 +64 @@
     my $command = "$pstamptool -pendingjob";
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => $verbosity);
+        ps_run(command => $command, verbose => $verbosity);
     unless ($success) {
         die("Unable to perform pstamptool -pendingreq: $error_code");
@@ -94 +95 @@
     my $command = "$ppstamp_run $job->{job_id}";
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => $verbosity);
+        ps_run(command => $command, verbose => $verbosity);
     unless ($success) {
         die("Unable to perform $command: $error_code");
@@ -108 +109 @@
     my $command = "$pstamptool -updatereq -req_id $request_id -set_state stop"; 
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => $verbosity);
+        ps_run(command => $command, verbose => $verbosity);
     unless ($success) {
         die("Unable to perform pstamptool -updatereq: $error_code");