That still didn't work, but it was a lot clearer to figure out what to do. So with a little help from the Camel book, I figured out how to wrap the conditional 'use' in a way that works (well, compiles) on my (non-Win32) system at least:
my $IsWin32;
BEGIN {
$IsWin32 = ($^O =~ /MSWin32/i);
if ($IsWin32) {
require Win32::API; import Win32::API;
}
}
I'm sure there are Perl wizards out there who know how to do this sort of
thing much more elegantly.
Cheers,
adam
Next up: how to use this to steal the Lucida fonts from Java on Mac OS X...
Hans Hagen said this at Wed, 24 Sep 2003 17:17:08 +0200:
>At 14:45 24/09/2003 +0100, you wrote:
>
>>Looks like the current texfont is a bit broken right now. I believe it's
>>the introduction of the "if ($IsWin32) " block: the pragma "use
>>Win32::API" doesn't seem to work within the conditional block.
>
>can you try the attached version?
>
>Hans
>-------------------------------------------------------------------------
> Hans Hagen | PRAGMA ADE | [EMAIL PROTECTED]
> Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
> tel: +31 (0)38 477 53 69 | fax: +31 (0)38 477 53 74 | www.pragma-ade.com
>-------------------------------------------------------------------------
> information: http://www.pragma-ade.com/roadmap.pdf
> documentation: http://www.pragma-ade.com/showcase.pdf
>-------------------------------------------------------------------------
--
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Adam T. Lindsay [EMAIL PROTECTED]
Computing Dept, Lancaster University +44(0)1524/594.537
Lancaster, LA1 4YR, UK Fax:+44(0)1524/593.608
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
texfont-atl.zip
Description: Zip archive
