Re^2: Over a minute to do: use Win32::OLE::Const 'Microsoft Excel';

After a lot of fiddling about, I have found 2 things that make a difference.

1. Remove the network cable from my PC. Then the 2 line script runs in ~5 seconds.

2. Modify C:\Perl\site\lib\Win32\OLE\Const.pm, and change this line:
return unless -f $filename || $filename !~ /^\w:\\.*\.(exe|dll)$/;
to this:
return unless $filename !~ /^\w:\\.*\.(exe|dll)$/;
and the 2 liner runs almost instantaneously.

Should I just do the second fix, and not worry about it, or is there a 'proper' way to sort this out?

Thanks,
Spike.

Comment on Re^2: Over a minute to do: use Win32::OLE::Const 'Microsoft Excel';

Replies are listed 'Best First'.
Re^3: Over a minute to do: use Win32::OLE::Const 'Microsoft Excel'; by BrowserUk (Patriarch) on Sep 13, 2004 at 19:51 UTC
... or is there a 'proper' way to sort this out? I'd certainly apply the second method, and then report the problem to ActiveState. Examine what is said, not who speaks. "Efficiency is intelligent laziness." -David Dunham "Think for yourself!" - Abigail "Memory, processor, disk in that order on the hardware side. Algorithm, algorithm, algorithm on the code side." - tachyon	[reply]