>>Dale Scheetz wrote:
>One posibility is that perl is somehow broken.
[Sorry, this is rather long-winded]
Ok, here's what happens (from MC_LIB/extfs/README):
... command should list the complete archive content in the following format
(a little modified ls -l listing):
AAAAAAA NNN OOOOOOOO GGGGGGGG SSSSSSSS DATETIME [PATH/]FILENAME [-> [PATH/]FILEN
AME[/]]]
where (things in [] are optional):
AAAAAAA is the permission string like in ls -l
NNN is the number of links
OOOOOOOO is the owner (either UID or name)
GGGGGGGG is the group (either GID or name)
SSSSSSSS is the file size
FILENAME is the filename
PATH is the path from the archive's root without the leading slash (/)
... (about '-> PATH' bit etc.)
Here's what MC_LIB/extfs/deb does:
...
print "dr-xr-xr-x 1 root root 0 $date CONTENTS\n";
print "-r--r--r-- 1 root root $info_size $date INFO\n";
print "-r-xr--r-- 1 root root $install_size $date INSTALL\n";
if ( open(PIPEIN, "dpkg-deb -c $archivename |") )
{
while(<PIPEIN>)
{
($perm,$owgr,$size,$month,$day,$time,$year,$path,$arrow,$link,$link2)
= split;
...
# a bit of magic here, and
print "$perm 1 $owgr $size $month $day $year $time
CONTENTS/$path$arrow$link\n";
# reformatted by mh, sorry
}
}
Here's what it outputs:
$ ./deb list perlmagick_1.12-1.deb | less
dr-xr-xr-x 1 root root 0 Jul 06 1997 04:29 CONTENTS
-r--r--r-- 1 root root 940 Jul 06 1997 04:29 INFO
-r-xr--r-- 1 root root 515 Jul 06 1997 04:29 INSTALL
drwxr-xr-x 1 root root 0 1997-06-22 09:17 ./ CONTENTS/
drwxr-xr-x 1 root root 0 1997-06-22 09:17 usr/ CONTENTS/
... etc. Note this ^^^^^^^^^^^^^^
It is my impression that it should show
drwxr-xr-x 1 root root 0 1997-06-22 09:17 CONTENTS/usr/
I don't know enough Perl to work out wtf's going on. Any suggestions,
anyone?
Dimitri
--
TO UNSUBSCRIBE FROM THIS MAILING LIST: e-mail the word "unsubscribe" to
[EMAIL PROTECTED] .
Trouble? e-mail to [EMAIL PROTECTED] .
