view release on metacpan or search on metacpan
id_switch();
}
# close std file descriptors
if(-e "/dev/null") {
# On Unix, we want to point these file descriptors at /dev/null,
# so that any libary routines that try to read form stdin or
# write to stdout/err will have no effect (Stevens, APitUE, p. 426
# and [RT 51066].
open STDIN, '/dev/null';
open STDOUT, '>>/dev/null';
view all matches for this distribution
view release on metacpan or search on metacpan
The manip() method can be used to create an interface to the Date::Manip module
(if installed on your system).
[% manip = date.manip %]
[% manip.UnixDate("Noon Yesterday","%Y %b %d %H:%M") %]
## Chomping
When using directives in templates, it can help to add whitespace around
the directives to make them more readable. However, adding this whitespace
view all matches for this distribution
view release on metacpan or search on metacpan
"requires" : {
"Cwd" : "0",
"Data::Sah::Compiler::perl::TH::array" : "0.910",
"Data::Sah::Compiler::perl::TH::bool" : "0.910",
"Data::Sah::Compiler::perl::TH::str" : "0.910",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"File::Basename" : "0",
"File::Find" : "0",
"Log::ger" : "0.038",
"Perinci::CmdLine::Any" : "0.152",
"Perinci::CmdLine::Lite" : "1.905",
view all matches for this distribution
view release on metacpan or search on metacpan
xt/author/eol.t view on Meta::CPAN
'lib/App/Deps/Verify/App/VerifyDeps/Command/py3list.pm',
'lib/App/Deps/Verify/App/VerifyDeps/Command/verify.pm',
't/00-compile.t'
);
eol_unix_ok($_, { trailing_whitespace => 1 }) foreach @files;
done_testing;
view all matches for this distribution
view release on metacpan or search on metacpan
t/author-eol.t view on Meta::CPAN
't/revert/source/005/revert',
't/revert/source/005/verify',
't/revert/source/dest.wrap'
);
eol_unix_ok($_, { trailing_whitespace => 1 }) foreach @files;
done_testing;
view all matches for this distribution
view release on metacpan or search on metacpan
scripts/dex view on Meta::CPAN
calls of C<run3> are possible. Most likely, I/O from different invocations will
get mixed up. The reason is that in most thread implementations all threads in
a process share the same STDIN/STDOUT/STDERR. Known failures are Perl ithreads
on Linux and Win32. Note that C<fork> on Win32 is emulated via Win32 threads
and hence I/O mix up is possible between forked children here (C<run3> is "fork
safe" on Unix, though).
=head1 DEBUGGING
To enable debugging use the IPCRUN3DEBUG environment variable to
a non-zero integer value:
view all matches for this distribution
view release on metacpan or search on metacpan
script/diff-doc-text view on Meta::CPAN
This document describes version 0.004 of diff-doc-text (from Perl distribution App-DiffDocText), released on 2022-09-08.
=head1 SYNOPSIS
Use like you would use the Unix command B<diff>:
% diff-doc-text [options] <FILE>...
=head1 DESCRIPTION
This is a wrapper for the Unix command B<diff>. It assumes that each file is an
Office word-processor documents (.doc, .docx, .odt, etc) and tries to convert
the file to plaintext first. It then passes the converted files to C<diff>.
=head1 ENVIRONMENT
script/diff-doc-text view on Meta::CPAN
Source repository is at L<https://github.com/perlancar/perl-App-DiffDocText>.
=head1 SEE ALSO
Unix command L<diff>.
L<App::OfficeUtils> and the included CLI L<doc2txt>.
=head1 AUTHOR
view all matches for this distribution
view release on metacpan or search on metacpan
script/diff-pdf-text view on Meta::CPAN
This document describes version 0.006 of diff-pdf-text (from Perl distribution App-DiffPDFText), released on 2023-08-09.
=head1 SYNOPSIS
Use like you would use the Unix command B<diff>:
% diff-pdf-text [options] <FILE>...
=head1 DESCRIPTION
This is a wrapper for the Unix command B<diff>. It assumes that each input file
is a PDF file and tries to convert the file to text first using L<App::PDFUtils>
(which in turn uses B<pdftotext> CLI utility). It then passes the converted
text C<< diff -ruN >> command.
=head1 OPTIONS
script/diff-pdf-text view on Meta::CPAN
Source repository is at L<https://github.com/perlancar/perl-App-DiffPDFText>.
=head1 SEE ALSO
Unix command L<diff>.
=head1 AUTHOR
perlancar <perlancar@cpan.org>
view all matches for this distribution
view release on metacpan or search on metacpan
},
"runtime" : {
"requires" : {
"Cwd" : "0",
"Data::Sah::Compiler::perl::TH::str" : "0",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"File::Temp" : "0.2307",
"File::chdir" : "0",
"IPC::System::Options" : "0.339",
"Log::ger" : "0.038",
"Perinci::CmdLine::Any" : "0",
view all matches for this distribution
view release on metacpan or search on metacpan
script/diff-xls-text view on Meta::CPAN
This document describes version 0.012 of diff-xls-text (from Perl distribution App-DiffXlsText), released on 2022-11-26.
=head1 SYNOPSIS
Use like you would use the Unix command B<diff>:
% diff-xls-text [options] <FILE>...
Sample F<old.xlsx> (C<*foo*> marks bolded text):
script/diff-xls-text view on Meta::CPAN
-pemuda,"young man"
-pemudi,"young woman"
=head1 DESCRIPTION
This is a wrapper for the Unix command B<diff>. It assumes that each input file
is an Office spreadsheet (.ods, .xls, or .xlsx) and tries to convert the file to
a directory of CSV files (where each CSV file is converted from a single
worksheet) using L<xlsx2csv>. It then passes the converted directories to C<<
diff -ruN >> command. Thus, formatting differences will not be diff'ed.
script/diff-xls-text view on Meta::CPAN
Source repository is at L<https://github.com/perlancar/perl-App-DiffXlsText>.
=head1 SEE ALSO
Unix command L<diff>.
L<ssdiff> from L<Spreadsheet::Read> which also diffs two spreadsheets but
presents the result differently.
L<xlsx2csv> from L<Spreadsheet::Read>
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Diskd.pm view on Meta::CPAN
print "Starting diskd in daemon mode\n";
my $info = Local::Info->new;
my $blkid_session = Local::DiskWatcher->new(info => $info,);
my $usock_session = Local::UnixSocketServer->new(info => $info);
my $multi_session = Local::MulticastServer->new(info => $info, ttl=>2);
POE::Kernel->run();
}
sub Client {
print "Starting diskd in client mode\n";
my $usock_client = Local::UnixSocketClient->new;
POE::Kernel->run();
}
1;
lib/App/Diskd.pm view on Meta::CPAN
info => undef,
ttl => 1, # set >1 to traverse routers
@_
);
die "UnixSocketServer::new requires info => \$var option\n"
unless defined($opts{info});
my $session =
POE::Session->create(
inline_states => {
lib/App/Diskd.pm view on Meta::CPAN
$kernel->delay(send_something => $delay);
}
##
## The UnixSocketServer package uses a Unix domain socket to provide a
## local ineterface to the disk info and a means of sending commands
## or messages to other nodes in our multicast network.
##
## This package comprises a main server package (UnixSocketServer)
## that waits for connections to the socket, and and a package that's
## spawned for each incoming connection (UnixSocketServer::Session).
##
package Local::UnixSocketServer;
use POE qw(Wheel::SocketFactory Wheel::ReadWrite);
use Socket; # For PF_UNIX.
# Start server at a particular rendezvous (ie, Unix domain socket)
sub new {
my $class = shift;
my $homedir = $ENV{HOME};
my %opts =
(
lib/App/Diskd.pm view on Meta::CPAN
@_,
);
# warn "class: $class; opts: " . (join ", ", @_);
die "UnixSocketServer::new requires info => \$var option\n"
unless defined($opts{info});
POE::Session->create(
inline_states => {
_start => \&server_started,
lib/App/Diskd.pm view on Meta::CPAN
# The server accepted a connection. Start another session to process
# data on it.
sub server_accepted {
my ($heap,$client_socket) = @_[HEAP, ARG0];
my $info = $heap->{info};
Local::UnixSocketServer::Session->new($client_socket, $info);
}
## A UnixSocketServer::Session instance is created for each incoming
## connection.
package Local::UnixSocketServer::Session;
use POE::Session;
# Constructor
sub new {
lib/App/Diskd.pm view on Meta::CPAN
warn "Server session encountered $syscall error $errno: $error\n";
delete $heap->{client};
}
package Local::UnixSocketClient;
# This program is a simple unix socket client. It will connect to the
# UNIX socket specified by $rendezvous. This program is written to
# work with the UnixServer example in POE's cookbook. While it
# touches upon several POE modules, it is not meant to be an
# exhaustive example of them. Please consult "perldoc [module]" for
# more details.
use Socket qw(AF_UNIX);
lib/App/Diskd.pm view on Meta::CPAN
=over
=item 1. using multicast to send and receive data among several peers
=item 2. communicating with local clients via a Unix domain socket
=item 3. using POE to achieve both of the above
=item 4. using POE to periodically run an external program without blocking
lib/App/Diskd.pm view on Meta::CPAN
which machine they are attached. Thus the primary function of the
program is to be able to locate disks, no matter which machine they
are currently attached to.
The diskd program can also be run in client mode on any machine that
has a running diskd daemon. The client conencts via a local unix
domain socket and, providing the connection succeeds, it will then be
able to pass commands to the daemon. Currently the only useful command
that is implemented is 'list', which prints a list of all the disks
that the daemon knows about. More commands could be added quite
easily.
lib/App/Diskd.pm view on Meta::CPAN
execute arbitrary Perl code (ie, receiving arbitrary data should not
present a security risk). The question of whether I<broadcasting>
(multicasting) information about what disks are attached represents a
security risk is left to the user to decide.
=head2 UnixSocketServer and UnixSocketServer::Session classes
Using standard OO terminology, the UnixSocketServer class is a
"Factory" that creates UnixSocketServer::Session objects. The
"Factory" class listens for new connections on a private Unix-domain
socket (basically, a file in the user's home directory that only that
user can access, which acts like a local socket). When a new
connection comes in, it creates a new UnixSocketServer::Session
object. Multiple connections can be created, with a new Session object
created for each one.
Once it is up and running, a UnixSocketServer::Session object then
reponds to commands like "help", "list" and so on that come through
the socket.
A simple enough extension of the current program would be implement a
command (in UnixSocketServer::Session) that causes the daemon to
multicast the current list of locally-attached disks to all peers,
regardless of the current timeout value. Similar commands could cause
the daemon to trigger the DiskWatcher or MountWatcher classes to
refresh their data.
lib/App/Diskd.pm view on Meta::CPAN
cause a Denial of Service attack), you might want to implement some
form of rate limiting in the MulticastServer class: basically, it
would limit the number of "ping" requests it would send answers to, so
that any excess ping requests in a given time period would be ignored.
=head2 UnixSocketClient class
This class is the counterpart to the UnixSocketServer and
UnixSocketServer::Session classes. It takes commands typed in by the
user, sends them to the server and displays the output.
This client incorporates ReadLine support (for editing of command
lines, as well as a history buffer) and graceful shutdown (on the
client side at least---the server side must close the Session down
view all matches for this distribution
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# modify generated Makefile to generate shell completion scripts. this piece
# is generated by Dist::Zilla::Plugin::GenShellCompletion version 0.11.
GEN_SHELL_COMPLETION:
{
last unless grep { $^O eq $_ } ("aix","beos","cygwin","darwin","dragonfly","freebsd","gnukfreebsd","haiku","hpux","interix","irix","linux","midnightbsd","minix","mirbsd","netbsd","openbsd","sco","solaris");
print "Modifying Makefile to generate shell completion on install\n";
open my($fh), "<", "Makefile" or die "Can't open generated Makefile: $!";
my $content = do { local $/; ~~<$fh> };
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/DistSync/Util.pm view on Meta::CPAN
slurp($file, { buffer => \my $data });
my $data = slurp($file, { binmode => ":raw:utf8" });
Reads file $filename into a scalar
my $data = slurp($file, { binmode => ":unix" });
Reads file in fast, unbuffered, raw mode
my $data = slurp($file, { binmode => ":unix:encoding(UTF-8)" });
Reads file with UTF-8 encoding
By default it returns this scalar. Can optionally take these named arguments:
lib/App/DistSync/Util.pm view on Meta::CPAN
};
};
# We have to use "$File::Find::dir/$_" in preprocess, because
# $File::Find::name is unavailable.
# Also, it's okay to use / here, because MANIFEST files use Unix-style
# paths.
find({
wanted => $wanted,
no_chdir => 1,
}, $dir);
view all matches for this distribution
view release on metacpan or search on metacpan
t/data/generate/pam-krb5/docknot.yaml view on Meta::CPAN
your system authentication configuration. To use the module for all
system authentication on Debian systems, put something like:
```
auth sufficient pam_krb5.so minimum_uid=1000
auth required pam_unix.so try_first_pass nullok_secure
```
in `/etc/pam.d/common-auth`, something like:
```
session optional pam_krb5.so minimum_uid=1000
session required pam_unix.so
```
in `/etc/pam.d/common-session`, and something like:
```
account required pam_krb5.so minimum_uid=1000
account required pam_unix.so
```
in `/etc/pam.d/common-account`. The `minimum_uid` setting tells the PAM
module to pass on any users with a UID lower than 1000, thereby
bypassing Kerberos authentication for the root account and any system
t/data/generate/pam-krb5/docknot.yaml view on Meta::CPAN
If your users should normally all use Kerberos passwords exclusively,
putting something like:
```
password sufficient pam_krb5.so minimum_uid=1000
password required pam_unix.so try_first_pass obscure md5
```
in `/etc/pam.d/common-password` will change users' passwords in Kerberos
by default and then only fall back on Unix if that doesn't work. (You
can make this tighter by using the more complex new-style PAM
configuration.) If you instead want to synchronize local and Kerberos
passwords and change them both at the same time, you can do something
like:
```
password required pam_unix.so obscure sha512
password required pam_krb5.so use_authtok minimum_uid=1000
```
If you have multiple environments that you want to synchronize and you
don't want password changes to continue if the Kerberos password change
fails, use the `clear_on_fail` option. For example:
```
password required pam_krb5.so clear_on_fail minimum_uid=1000
password required pam_unix.so use_authtok obscure sha512
password required pam_smbpass.so use_authtok
```
In this case, if `pam_krb5` cannot change the password (due to password
strength rules on the KDC, for example), it will clear the stored
password (because of the `clear_on_fail` option), and since `pam_unix`
and `pam_smbpass` are both configured with `use_authtok`, they will both
fail. `clear_on_fail` is not the default because it would interfere
with the more common pattern of falling back to local passwords if the
user doesn't exist in Kerberos.
t/data/generate/pam-krb5/docknot.yaml view on Meta::CPAN
`/etc/pam.conf` file that contains configuration for all programs. For
console login on Solaris, try something like:
```
login auth sufficient /usr/local/lib/security/pam_krb5.so minimum_uid=100
login auth required /usr/lib/security/pam_unix_auth.so.1 use_first_pass
login account required /usr/local/lib/security/pam_krb5.so minimum_uid=100
login account required /usr/lib/security/pam_unix_account.so.1
login session required /usr/local/lib/security/pam_krb5.so retain_after_close minimum_uid=100
login session required /usr/lib/security/pam_unix_session.so.1
```
A similar configuration could be used for other services, such as ssh.
See the pam.conf(5) man page for more information. When using this
module with Solaris login (at least on Solaris 8 and 9), you will
view all matches for this distribution
view release on metacpan or search on metacpan
config/sql/audit_Config.pm view on Meta::CPAN
q#COMMENT ON COLUMN audit.logged_actions.action_tstamp_clk IS 'Wall clock time at which audited event''s trigger call occurred'#,
q#COMMENT ON COLUMN audit.logged_actions.transaction_id IS 'Identifier of transaction that made the change. May wrap, but unique paired with action_tstamp_tx.'#,
q#COMMENT ON COLUMN audit.logged_actions.client_addr IS 'IP address of client that issued query. Null for unix domain socket.'#,
q#COMMENT ON COLUMN audit.logged_actions.client_port IS 'Remote peer IP port address of client that issued query. Undefined for unix socket.'#,
q#COMMENT ON COLUMN audit.logged_actions.client_query IS 'Top-level query that caused this auditable event. May be more than one statement.'#,
q#COMMENT ON COLUMN audit.logged_actions.dochazka_eid IS 'Dochazka EID of the employee who conducted the database operation.'#,
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/Docker/Client.pm view on Meta::CPAN
use AnyEvent;
use AnyEvent::Socket 'tcp_connect';
use AnyEvent::HTTP;
use LWP::UserAgent;
use JSON;
use LWP::Protocol::http::SocketUnixAlt;
=head2 new
Constructor
lib/App/Docker/Client.pm view on Meta::CPAN
return $self->{UserAgent};
}
return $self->{UserAgent} if $self->{UserAgent};
if ( -S $self->authority() ) {
LWP::Protocol::implementor( http => 'LWP::Protocol::http::SocketUnixAlt' );
}
$self->{UserAgent} = LWP::UserAgent->new(
(
$self->{show_progress} ? ( show_progress => 1 ) : (),
$self->ssl_opts ? ( ssl_opts => $self->ssl_opts ) : (),
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/DownloadsDirUtils.pm view on Meta::CPAN
schema => 'true*',
cmdline_aliases => {O=>{}},
},
as => {
summary => 'Rename file',
schema => 'pathname::unix::basename*',
},
},
modify_meta => sub {
my $meta = shift;
$meta->{features} //= {};
lib/App/DownloadsDirUtils.pm view on Meta::CPAN
=item * B<all> => I<true>
Do not ignore entries starting with .
=item * B<as> => I<pathname::unix::basename>
Rename file.
=item * B<detail> => I<true>
lib/App/DownloadsDirUtils.pm view on Meta::CPAN
=item * B<all> => I<true>
Do not ignore entries starting with .
=item * B<as> => I<pathname::unix::basename>
Rename file.
=item * B<detail> => I<true>
lib/App/DownloadsDirUtils.pm view on Meta::CPAN
=item * B<all> => I<true>
Do not ignore entries starting with .
=item * B<as> => I<pathname::unix::basename>
Rename file.
=item * B<detail> => I<true>
lib/App/DownloadsDirUtils.pm view on Meta::CPAN
=item * B<all> => I<true>
Do not ignore entries starting with .
=item * B<as> => I<pathname::unix::basename>
Rename file.
=item * B<detail> => I<true>
lib/App/DownloadsDirUtils.pm view on Meta::CPAN
=item * B<all> => I<true>
Do not ignore entries starting with .
=item * B<as> => I<pathname::unix::basename>
Rename file.
=item * B<detail> => I<true>
lib/App/DownloadsDirUtils.pm view on Meta::CPAN
=item * B<all> => I<true>
Do not ignore entries starting with .
=item * B<as> => I<pathname::unix::basename>
Rename file.
=item * B<detail> => I<true>
view all matches for this distribution
view release on metacpan or search on metacpan
xt/author/eol.t view on Meta::CPAN
't/app.t',
't/data/fc-solve-git-du-output.txt',
't/filter.t'
);
eol_unix_ok($_, { trailing_whitespace => 1 }) foreach @files;
done_testing;
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
$self->admin->write_meta;
return $self;
}
sub version_from {
require ExtUtils::MM_Unix;
my ( $self, $file ) = @_;
$self->version( ExtUtils::MM_Unix->parse_version($file) );
# for version integrity check
$self->makemaker_args( VERSION_FROM => $file );
}
sub abstract_from {
require ExtUtils::MM_Unix;
my ( $self, $file ) = @_;
$self->abstract(
bless(
{ DISTNAME => $self->name },
'ExtUtils::MM_Unix'
)->parse_abstract($file)
);
}
# Add both distribution and module name
view all matches for this distribution
view release on metacpan or search on metacpan
Author: Dylan Lloyd <dylan@dylansserver.com>
Date : 2013-05-31 18:00:12 +0000
get rid of windows carraige returns!
grep -rl $'\r' . | xargs dos2unix
Change: f0524b58f9d0a668a2080e566268725f7c296ac1
Author: Dylan Lloyd <dylan@dylansserver.com>
Date : 2013-05-31 17:55:42 +0000
Author: Dylan Lloyd <dylan@dylansserver.com>
Date : 2012-12-04 18:16:58 +0000
remove carriage returns from windows
grep -rl $'\r' | xargs dos2unix
Change: d6e52de71ef6a6f83f6d049509caa0f12836dafb
Author: Dylan Lloyd <dylan@dylansserver.com>
Date : 2012-12-04 16:07:43 +0000
view all matches for this distribution
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
# modify generated Makefile to generate shell completion scripts. this piece
# is generated by Dist::Zilla::Plugin::GenShellCompletion version 0.11.
GEN_SHELL_COMPLETION:
{
last unless grep { $^O eq $_ } ("aix","beos","cygwin","darwin","dragonfly","freebsd","gnukfreebsd","haiku","hpux","interix","irix","linux","midnightbsd","minix","mirbsd","netbsd","openbsd","sco","solaris");
print "Modifying Makefile to generate shell completion on install\n";
open my($fh), "<", "Makefile" or die "Can't open generated Makefile: $!";
my $content = do { local $/; ~~<$fh> };
view all matches for this distribution
view release on metacpan or search on metacpan
}
},
"runtime" : {
"requires" : {
"Data::Sah::Compiler::perl::TH::str" : "0.914",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"File::Copy" : "0",
"File::FindUniq" : "0.004",
"Log::ger" : "0.038",
"Perinci::CmdLine::Any" : "0.154",
"Perinci::CmdLine::Lite" : "1.924",
view all matches for this distribution
view release on metacpan or search on metacpan
Thanks to Jeffrey H. Johnson for contributing.
2.01 2021-01-04
Add missing test. Dusage now fails on windows. This is correct
since it is intended for *nix systems only.
2.00 2021-01-03
Restructure for CPAN release.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/EPAN.pm view on Meta::CPAN
for my $file (File::Find::Rule->extras({follow => 1})->file()
->in($idpath->stringify()))
{
INFO "indexing $file";
my $index_path =
file($file)->relative($idpath)->as_foreign('Unix')->stringify();
my $dm = Dist::Metadata->new(file => $file);
my $version_for = $dm->package_versions();
$data_for{distro}{$index_path} = $version_for;
(my $bare_index_path = $index_path) =~
view all matches for this distribution
view release on metacpan or search on metacpan
"requires" : {
"Cwd" : "0",
"Data::Sah::Compiler::perl::TH::array" : "0.914",
"Data::Sah::Compiler::perl::TH::bool" : "0.914",
"Data::Sah::Compiler::perl::TH::str" : "0.914",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"File::Temp" : "0.2310",
"File::chdir" : "0",
"IPC::System::Options" : "0.339",
"Log::ger" : "0.038",
"Perinci::CmdLine::Any" : "0.154",
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/EditorTools/Command/InstallEmacs.pm view on Meta::CPAN
=head1 DESCRIPTION
This will place the emacs script contained in the share dir of this
distribution where emacs expects it ( C<$HOME/.emacs.d/editortools.el> for a
local install on a unix-like system)>).
=head1 OPTIONS
=over 4
view all matches for this distribution
view release on metacpan or search on metacpan
xt/author/eol.t view on Meta::CPAN
't/04-aggregate-expand.t',
't/05-aggregate-flatten.t',
't/06-version-hacks.t'
);
eol_unix_ok($_, { trailing_whitespace => 1 }) foreach @files;
done_testing;
view all matches for this distribution
view release on metacpan or search on metacpan
},
"runtime" : {
"requires" : {
"Data::Sah::Compiler::perl::TH::bool" : "0.914",
"Data::Sah::Compiler::perl::TH::str" : "0.914",
"Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
"Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
"File::Lockfile::Emacs" : "0",
"Perinci::CmdLine::Any" : "0.154",
"Perinci::CmdLine::Lite" : "1.924",
"Sah::Schema::filename" : "0",
"strict" : "0"
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view all matches for this distribution