dinislage/cpanspec
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Ignore pax_global_header file.

Browse Source
This commit is contained in:
stevenpritchard committed 2008-07-02 18:27:25 +00:00
1 parent ba39225a62
commit 2624faad38
2 files changed
+4 -1
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

Changes
+1
View File
@@ -3,6 +3,7 @@
* Fix up the license list some more. * Fix up the license list some more.
* Send STDIN to /dev/null in the child when executing Makefile.PL. * Send STDIN to /dev/null in the child when executing Makefile.PL.
(Bug report from Peter Willis.) (Bug report from Peter Willis.)
* Ignore pax_global_header file.
1.77 2008-06-16 1.77 2008-06-16
cpanspec
+3 -1
View File
@@ -10,7 +10,7 @@
# but WITHOUT ANY WARRANTY; without even the implied warranty of # but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
# #
# $Id: cpanspec,v 1.64 2008/06/23 23:55:11 stevenpritchard Exp $ # $Id: cpanspec,v 1.65 2008/07/02 18:27:25 stevenpritchard Exp $
our $NAME="cpanspec"; our $NAME="cpanspec";
our $VERSION='1.78'; our $VERSION='1.78';
@@ -662,6 +662,8 @@ for my $file (@args) {
my $bogus=0; my $bogus=0;
for my $entry (list_files($archive, $type)) { for my $entry (list_files($archive, $type)) {
next if ($type eq 'tar' and $entry eq 'pax_global_header');
if ($entry !~ /^(?:.\/)?($name-(?:v\.?)?$version)(?:\/|$)/) { if ($entry !~ /^(?:.\/)?($name-(?:v\.?)?$version)(?:\/|$)/) {
warn "BOGUS PATH DETECTED: $entry\n"; warn "BOGUS PATH DETECTED: $entry\n";
$bogus++; $bogus++;