Question

我正在尝试为RHEL6构建 perl-Heap-Priority 。当我跑的时候，我们的事情就是 cpan2rpm Heap::Priority它显示以下

...
Tarball extraction: [/root/rpm/SOURCES/Heap-Priority-0.01.tar.gz]
Can't stat /tmp/CldQkErG6r/18:51: No such file or directory
 at /usr/bin/cpan2rpm line 392
get_meta(): No such file or directory at /usr/bin/cpan2rpm line 396.
...

实际上未创建此临时文件夹。买为什么？我的tmp文件夹权限是777

drwxrwxrwt.   3 root root  4096 May 29 16:35 tmp

Answer 1

已知问题，请参阅https://rt.cpan.org/Ticket/Display.html?id=72421。问题是输出的 user 列中的空格。

$ tar -tzvf $HOME/rpmbuild/SOURCES/Heap-Priority-0.01.tar.gz |head -1
drwxr-xr-x James Freeman/544 0 2002-05-07 14:51 Heap-Priority-0.01/

应用以下修补程序来修复此模块的问题。要获取名称，我们将访问最后一列，而不是访问第五列。我不知道这个补丁可能会破坏什么，但它应该比原始代码平均错误。

 diff --git a/cpan2rpm b/cpan2rpm
 index 28e8b01..6a36b68 100755
 --- a/cpan2rpm
 +++ b/cpan2rpm
 @@ -1259,7 +1259,7 @@ sub untar($) {
          ;

      chomp($_ = qx/$cmd/);
 -    $_ = (split)[5] unless $zip;
 +    $_ = (split)[-1] unless $zip;
      $dst .= "/$1" if m|^(\S+)/?|;
      $dst =~ s|/*$||;    # path shouldn't end in / or tardir gets wiped
      $dst =~ s|\./||;    # paths in tarballs shouldn't be relative

你可以通过using the debugger亲自找到所有这些。学习使用这个工具，它是非常宝贵的。

Answer 2

我认为这可能是一种更清晰的方式：

--- /usr/bin/cpan2rpm.orig  2017-10-20 14:45:57.000000000 -0700
+++ /usr/bin/cpan2rpm   2017-10-23 12:29:07.006118950 -0700
@@ -1258,7 +1258,7 @@

     my $cmd = $zip
         ? "unzip -l $_ | grep -P -o '\\S+/\$' |tail -1"
-        : "tar -t${z}vf $_ |head -1"
+        : "tar --numeric-owner -t${z}vf $_ |head -1"
         ;

     chomp($_ = qx/$cmd/);

cpan2rpm cant stat / tmp文件夹

2 个答案: