$path =~ s,[/\\](\.[/\\])*,/,g;
}
if ($dllname =~ /\./) { $libname =$`; } else { $libname =$dllname; };
- my $v_e_r_s = '5_9_0';
- if ( $dllname =~ /.*perl.*/) {
+ my $v_e_r_s = '@VERSION@';
+ $v_e_r_s =~ tr/./_/;
+ if ( $dllname =~ /libperl.*/) {
$dllname ="cygperl$v_e_r_s.dll";
} else {
- $dllname ="$libname.dll";
+ $dllname ="$libname.dll";
}
$libname ="lib$libname" unless ($libname =~ /^lib/);
print DEBUGFILE "dll name: $dllname\nimport library: $libname\npath: $path\n" if $DEBUG;
close DEBUGFILE if $DEBUG;
#---------------------------------------------------------------------------
-sub shellexec{
- my $command =shift;
+sub shellexec {
+ my $command = shift;
print $command;
print DEBUGFILE $command if $DEBUG;
system($command) == 0