c2man: Remove a possible path from the spec file name.

oldstable
Alexandre Julliard 2014-03-10 11:15:04 +01:00
parent 727ff27907
commit 4c062b3702
1 changed files with 3 additions and 2 deletions

View File

@ -99,13 +99,14 @@ sub process_extra_comment($);
sub process_spec_file($)
{
my $spec_name = shift;
my ($dll_name, $dll_ext) = split(/\./, $spec_name);
(my $basename = $spec_name) =~ s/.*\///;
my ($dll_name, $dll_ext) = split(/\./, $basename);
$dll_ext = "dll" if ( $dll_ext eq "spec" );
my $uc_dll_name = uc $dll_name;
my $spec_details =
{
NAME => $spec_name,
NAME => $basename,
DLL_NAME => $dll_name,
DLL_EXT => $dll_ext,
NUM_EXPORTS => 0,