Author: kwilliams
Date: Sat May 26 20:35:35 2007
New Revision: 9616
Modified:
Module-Build/trunk/Changes
Module-Build/trunk/lib/Module/Build/Platform/VMS.pm
Log:
Patch 31156 from bleadperl: some filename dot and extension help for
Module::Build on VMS. [Craig Berry]
Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes (original)
+++ Module-Build/trunk/Changes Sat May 26 20:35:35 2007
@@ -1,5 +1,8 @@
Revision history for Perl extension Module::Build.
+ - Patch 31156 from bleadperl: some filename dot and extension help
+ for Module::Build on VMS. [Craig Berry]
+
- Reworked the _detildefy() method so it doesn't depend on glob()
anymore. This gets rid of a problem with spaces or other special
shell characters in things like 'prefix' or 'install_path'
Modified: Module-Build/trunk/lib/Module/Build/Platform/VMS.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Platform/VMS.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Platform/VMS.pm Sat May 26 20:35:35 2007
@@ -197,12 +197,30 @@
# Need to create with the same name as DynaLoader will load with.
if (defined &DynaLoader::mod2fname) {
my $file = DynaLoader::mod2fname([$$spec{base_name}]);
- $$spec{lib_file} = File::Spec->catfile($$spec{archdir},
"$file.$self->{config}->{dlext}");
+ $file .= '.' . $self->{config}->get('dlext');
+ $$spec{lib_file} = File::Spec->catfile($$spec{archdir}, $file);
}
return $spec;
}
+=item rscan_dir
+
+Inherit the standard version but remove dots at end of name. This may not be
+necessary if File::Find has been fixed or DECC$FILENAME_UNIX_REPORT is in
effect.
+
+=cut
+
+sub rscan_dir {
+ my ($self, $dir, $pattern) = @_;
+
+ my $result = $self->SUPER::rscan_dir( $dir, $pattern );
+
+ for my $file (@$result) { $file =~ s/\.$//; }
+ return $result;
+}
+
+
=back
=head1 AUTHOR
