package Win32; BEGIN { use strict; use vars qw|$VERSION $XS_VERSION @ISA @EXPORT @EXPORT_OK|; require Exporter; require DynaLoader; #<---- LINE 8 @ISA = qw|Exporter DynaLoader|; $VERSION = '0.39'; $XS_VERSION = $VERSION; $VERSION = eval $VERSION; #### sub ExpandFileName { my $filename = shift; if ($filename =~ m/^\(/) { return $filename; } else { my $result = Win32::GetFullPathName($filename); #<----LINE 435 return NormalizeFileName($result); } }