I thought I'd just provide the test suite that I was using to validate the last patch set:
st...@siberia:~$ touch foo bar
st...@siberia:~$ cat t.pl
#!/usr/bin/perl
use strict;
use warnings;
use Archive::Ar;
use Data::Dumper;
my $ar = Archive::Ar->new();
for my $t (qw(foo bar)) {
$ar->add_files($t);
}
my $arname = "foo.ar";
$ar->write($arname);
system("ar", "tv", $arname);
for my $t (qw(foo bar)) {
my $content = $ar->get_content($t);
print Dumper $content;
}
Produces this output with the installed Archive::Ar and the locally modified
copy, respectively:
st...@siberia:~$ perl t.pl
-wx-wx--x 1001/1001 0 Apr 11 14:48 2009 foo
-wx-wx--x 1001/1001 0 Apr 11 14:48 2009 bar
$VAR1 = {
'uid' => 1001,
'mode' => 33188,
'date' => 1239457687,
'name' => 'foo',
'data' => '',
'size' => 0,
'gid' => 1001
};
$VAR1 = {
'uid' => 1001,
'mode' => 33188,
'date' => 1239457687,
'name' => 'bar',
'data' => '',
'size' => 0,
'gid' => 1001
};
st...@siberia:~$ perl -Ilib t.pl
rw-r--r-- 1001/1001 0 Apr 11 14:48 2009 foo
rw-r--r-- 1001/1001 0 Apr 11 14:48 2009 bar
$VAR1 = {
'uid' => 1001,
'mode' => 33188,
'date' => 1239457687,
'name' => 'foo',
'data' => '',
'size' => 0,
'gid' => 1001
};
$VAR1 = {
'uid' => 1001,
'mode' => 33188,
'date' => 1239457687,
'name' => 'bar',
'data' => '',
'size' => 0,
'gid' => 1001
};
Cheers,
--
-----------------------------------------------------------------
| ,''`. Stephen Gran |
| : :' : sg...@debian.org |
| `. `' Debian user, admin, and developer |
| `- http://www.debian.org |
-----------------------------------------------------------------
signature.asc
Description: Digital signature
