IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/eam_branches/ipp-pstamp-20260421/pstamp/scripts/pstamp_cleanup.pl

    r42981 r43052  
    1616use POSIX qw( strftime );
    1717use Carp;
    18 use IPC::Cmd 0.36 qw( can_run run );
     18use IPC::Cmd 0.36 qw( can_run );
    1919
    2020use PS::IPP::Metadata::Config;
    … …  
    2222use PS::IPP::Metadata::List qw( parse_md_list );
    2323
    24 use PS::IPP::Config qw( :standard );
     24use PS::IPP::Config qw( :standard ps_run );
    2525use PS::IPP::PStamp::Job qw( :standard );
    2626
    … …  
    9191
    9292    my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
    93         run(command => $command, verbose => $verbose);
     93        ps_run(command => $command, verbose => $verbose);
    9494    unless ($success) {
    9595        my_die("Unable to perform $command error code: $error_code", $req_id, $PS_EXIT_UNKNOWN_ERROR);
    … …  
    102102    $command   .= " -dbserver $dbserver" if $dbserver;
    103103    my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
    104         run(command => $command, verbose => $verbose);
     104        ps_run(command => $command, verbose => $verbose);
    105105    unless ($success) {
    106106        die("Unable to perform $command error code: $error_code");
    … …  
    136136        my $command = "find $pstamp_workdir -maxdepth 2 -type d -name $req_id";
    137137        my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
    138             run(command => $command, verbose => $verbose);
     138            ps_run(command => $command, verbose => $verbose);
    139139        unless ($success) {
    140140            my $rc = $error_code >> 8;
    … …  
    161161    unless ($no_update) {
    162162        my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
    163             run(command => $command, verbose => $verbose);
     163            ps_run(command => $command, verbose => $verbose);
    164164        unless ($success) {
    165165            die("Unable to perform $command error code: $error_code");
    … …  
    192192    unless ($no_update) {
    193193        my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
    194             run(command => $command, verbose => $verbose);
     194            ps_run(command => $command, verbose => $verbose);
    195195        unless ($success) {
    196196            if (-e $dir) {
    … …  
    219219    unless ($no_update) {
    220220        my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
    221             run(command => $command, verbose => $verbose);
     221            ps_run(command => $command, verbose => $verbose);
    222222        unless ($success) {
    223223            die("Unable to perform $command error code: $error_code");
Note: See TracChangeset for help on using the changeset viewer.