Tim-
Thanks for the suggestions. I changed this piece:
my ($cmd);
#print "\tcommand=$command\n";
if ($command=~/^".*"\s+.*$/)
{
($cmd)=$command=~/^(".*")\s+.*$/;
return $cmd;
}
else
{
split(/ /, $command);
return $_[0];
}
to this:
my ($cmd);
($cmd) = $command=~/^(\S*)\s/;
return $cmd;
which should solve both problems. '\S' matches any non-whitespace
character, including quotes. I ran it on my system and it works.
Also- How is Win32::TieRegistry different from Win32::Registry?
The Win32::Registry documentation says this:
NOTE: This module provides a very klunky interface to access the Windows
registry, and is not currently being developed actively. It only exists for
backward compatibility with old code that uses it. For more powerful and
flexible ways to access the registry, use Win32::TieRegistry.
Thanks again for your suggestions.
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com
