Re: [MacPerl] How to get MacPerl to find a file

["Paul J. Schinder" <schinder@pobox.com>]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

At 12:55 PM -0500 2/3/98, Tom Fetherston wrote:

} Okay, I think I've found the routine that gives me this error:
} <AppleEvent> fatal: initialisation file 'sdf' not found
} # Attempt to free unreferenced scalar.
}
} sub _AppConfigInifile {
}     local($value) = @_;
} #   local();
}     local($fname);
}     local(%inidata, $section, %config);
}     local($product);
}     local($alias_name, $alias_help, @alias_opts);
}     local($next_inifile, $param);
}
}     # Find the file
}     $fname = &NameFind($value, ".", $app_dir);

It may be right here.  You can't use Unix's "this directory" under MacPerl.
Change "." to ":" and see what happens.  I'll bet NameFind does nasty
things if the directory doesn't exist, and I'll bet you don't have a folder
named "." whereever MacPerl is looking.

}     if ($fname eq '') {
}         &AppExit("fatal", "initialisation file '$value' not found");
}     }
}   ...
}
} trying to set a break on this did not work till I first broke at a line
} that was past the require statement that read in the file that contains
} this routine. However, after I set a break at this sub and 'c' to run up to
} its call, MacPerl just crashes. I up-ed MacPerl memory to 20 meg, no change.
}
} Any other way to see what's happening in this sub? Perhaps some statements
} to instrument it? Can I get at the call chain somehow?

The old fashioned way, with a bunch of "print"s?  You do have the source,
after all.

}
} Tom
}
}



- -----
Paul J. Schinder
schinder@pobox.com


-----BEGIN PGP SIGNATURE-----
Version: PGP for Personal Privacy 5.0
Charset: noconv

iQA/AwUBNNev91ZaVc52j0XhEQI0jwCfZSbFVJJuxH3FCnUwqlvAPFEzNdcAnR9k
ASX0+fno16Ur61LMu3WsEiWl
=uNIM
-----END PGP SIGNATURE-----


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