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

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

@@ -16 +16 @@
 use File::Basename;
 use Digest::MD5::File qw( file_md5_hex );
-use IPC::Cmd 0.36 qw( can_run run );
-
-
-use PS::IPP::Config qw( :standard );
+use IPC::Cmd 0.36 qw( can_run );
+
+
+use PS::IPP::Config qw( :standard ps_run );
 
 my $product;
@@ -132 +132 @@
     $command .= " --verbose" if $verbose;
     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 >> 8);
@@ -174 +174 @@
         my $command = "$pstamptool -deletefile -job_id $job_id";
         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 >> 8);
@@ -193 +193 @@
     my $command = "$pstamptool -addfile -job_id $job_id -path $bundle_name";
     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 >> 8);