[MacPerl] GetFileInfo

[pudge@pobox.com (Chris Nandor)]

#!perl
@files = map {[
  "Name: '$_'",
  "Creator: '${[MacPerl::GetFileInfo($_)]}[0]'",
  "Type: '${[MacPerl::GetFileInfo($_)]}[1]'"
]} @ARGV;
foreach (@files) {print join(' ',@$_),"\n"}


This droplet, when called the first time, returns something like:

  Name: 'PowerPudgeII:Desktop Folder:startup.mk' Creator: 'R*ch' Type: 'TEXT'

But the second time, it returns:

  Name: 'PowerPudgeII:Desktop Folder:startup.mk' Creator: '' Type: ''

If I quit MacPerl and do it again, it works fine, the first time.  Anyone
have any thoughts?

--
Chris Nandor               pudge@pobox.com           http://pudge.net/
%PGPKey=('B76E72AD',[1024,'0824 090B CE73 CA10  1FF7 7F13 8180 B6B6'])
#==                    MacPerl: Power and Ease                     ==#
#==    Publishing Date: Early 1998. http://www.ptf.com/macperl/    ==#



***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch