[MacPerl] is this a bug?

[Brian McNett <webmaster@mycoinfo.com>]

Jim--

The following is perfectly valid Perl syntax

if ($^O eq 'MacOS') {
	if ($#ARGV < 0) {
		require Mac::StandardFile;
		import  Mac::StandardFile;
		$file = StandardGetFile('', 'TEXT');
		if ($file->sfGood()) {
			push(@ARGV, $file->sfFile());
		} else {
		  exit(1);
		}
	}
}

but in BBEdit (5.1), the word "import" should highlight in color (blue is 
the default), and doesn't.  Is this a bug.  Has it been fixed in the 
latest update?  Yes, I know, I'm slighlty behind. I'll go get a copy of 
the update and get back to you. :)

FYT: I'm using the require/import pair, because "use" is evaluated at 
compile time, and this messes up folks on Unix systems who might(!) not 
have Mac::StandardFile.  This is functionally the same as:

if ($^O eq 'MacOS') {
	if ($#ARGV < 0) {
		use Mac::StandardFile;
		$file = StandardGetFile('', 'TEXT');
		if ($file->sfGood()) {
			push(@ARGV, $file->sfFile());
		} else {
		  exit(1);
		}
	}
}

except that the former isn't evaluated until runtime.

--B

# Fungal Parataxonomy                   Mycology Information (Mycoinfo)
# Webmaster, Staff Writer      **The World's First Mycology E-Journal**   
# <mailto:webmaster@mycoinfo.com>            <http://www.mycoinfo.com/> 
#
# First they ignore you. Then they laugh at you. Then they fight you.
# Then you win.                                     --Mohandas Gandhi


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