71 lines
1.1 KiB
Perl
71 lines
1.1 KiB
Perl
package ExtUtils::Helpers::Windows;
|
|
$ExtUtils::Helpers::Windows::VERSION = '0.026';
|
|
use strict;
|
|
use warnings FATAL => 'all';
|
|
|
|
use Exporter 5.57 'import';
|
|
our @EXPORT = qw/make_executable detildefy/;
|
|
|
|
use Config;
|
|
use Carp qw/carp croak/;
|
|
use ExtUtils::PL2Bat 'pl2bat';
|
|
|
|
sub make_executable {
|
|
my $script = shift;
|
|
if (-T $script && $script !~ / \. (?:bat|cmd) $ /x) {
|
|
pl2bat(in => $script, update => 1);
|
|
}
|
|
return;
|
|
}
|
|
|
|
sub detildefy {
|
|
my $value = shift;
|
|
$value =~ s{ ^ ~ (?= [/\\] | $ ) }[$ENV{USERPROFILE}]x if $ENV{USERPROFILE};
|
|
return $value;
|
|
}
|
|
|
|
1;
|
|
|
|
# ABSTRACT: Windows specific helper bits
|
|
|
|
__END__
|
|
|
|
=pod
|
|
|
|
=encoding UTF-8
|
|
|
|
=head1 NAME
|
|
|
|
ExtUtils::Helpers::Windows - Windows specific helper bits
|
|
|
|
=head1 VERSION
|
|
|
|
version 0.026
|
|
|
|
=for Pod::Coverage make_executable
|
|
split_like_shell
|
|
detildefy
|
|
|
|
=head1 AUTHORS
|
|
|
|
=over 4
|
|
|
|
=item *
|
|
|
|
Ken Williams <kwilliams@cpan.org>
|
|
|
|
=item *
|
|
|
|
Leon Timmermans <leont@cpan.org>
|
|
|
|
=back
|
|
|
|
=head1 COPYRIGHT AND LICENSE
|
|
|
|
This software is copyright (c) 2004 by Ken Williams, Leon Timmermans.
|
|
|
|
This is free software; you can redistribute it and/or modify it under
|
|
the same terms as the Perl 5 programming language system itself.
|
|
|
|
=cut
|