Re: mc problem -- anyone speaks Perl out there?

[Dima <dima@eris.dev.null>]

>>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
debian-user-request@lists.debian.org . 
Trouble?  e-mail to templin@bucknell.edu .