[MacPerl] Need help on GetFileInfo...

[Brenda Cannon <bcannon@cmsplatform.com>]

Hi,

Yes, I'm a newbie.  (Not much I can do about it, so I guess I won't
bother apologizing).  Anyways, I am having trouble getting the following
to work correctly:

my ($target_link, @dir_list, $file_type, @movie_list);

	@dir_list = readdir IMAGEDIRECTORY;

	foreach $target_link (@dir_list) {
		$file_type = MacPerl::GetFileInfo($target_link);
	}
	if ($file_type eq "MooV") {
		push @movie_list, $file_type;
	}

When I try to access $file_type in the 6th line of code,  I get a "use
of uninitialized value" message.  I tried printing $file_type and it
appears to be NULL ($target_link has the correct value when I print
it).  I'm using the latest version of MacPerl (downloaded yesterday).
What am I missing here?

Thanks for your time!

===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org