| Subject: | SYNOPSIS Error |
Code taken from
(http://search.cpan.org/~alexeyt/Win32-File-VersionInfo-0.03/VersionInfo.pm)
use Win32::File::VersionInfo;
my $foo = GetFileVersionInfo ( "C:\\path\\to\\file.dll" );
if ( $foo ) {
print $foo->{FileVersion}, "\n";
my $lang = ( keys %{$foo->{Lang}} )[0] );
if ( $lang ) {
print $foo->{Lang}{$lang}{CompanyName}, "\n";
}
...
}
my $lang = ( keys %{$foo->{Lang}} )[0] );
This above line should be:
my $lang = ( ( keys %{$foo->{Lang}} )[0] );