Select Code to Download

use strict;
use warnings;
...
    }
  }
}

#include "EXTERN.h"
#include "perl.h"
...
    _close_file(a);
    archive_write_close(ext);
    archive_write_finish(ext);

path_sv = newSVpv(path, 0);
        sv_catpvs(path_sv, "/");
        sv_catpv(path_sv, archive_entry_pathname(entry));
        archive_entry_set_pathname(entry, SvPV_nolen(path_sv));
        sv_free(path_sv);