Are you running activestate? I found an old note about a bug. It's old so they either never solved it or it was re-introduced.
Bug Reported.I ran your code and the code mentioned in the link with strawberry perl. When I ran it with Activestate, both blew up with the mentioned error.
In reply to Re: Enumerate Win32 Fonts
by Marza
in thread Enumerate Win32 Fonts
by slloyd
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |