[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl] minor debugging

At 16.43 -0800 1999.11.11, Nicholas G. Thornton wrote:
>$orig = join "/", reverse MacPerl::GetFileInfo($file);
>$_ = MacPerl::Ask($orig.'     =>     TYPE/CREA ?');
>if ($_ =~ /^\/....$/) {
>     $type = $orig;
>     $type =~ s/\/....//;
>     $creator = $_[0];

What is this?  $_[0] is undef.  It was never given a value.  Same thing below:

>     $type = $_[0];
>     $type =~ s/\/....$//;
>     $creator = $_[0];

So apparently when SetFileInfo() gets undef, it uses %ld, for some odd reason.

-- 
Chris Nandor          mailto:pudge@pobox.com         http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10  1FF77F13 8180B6B6'])

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