From b7b64de0b3c342c7b001351cc4099ce9ad590170 Mon Sep 17 00:00:00 2001 From: Packit Date: Sep 16 2020 12:00:34 +0000 Subject: perl-ExtUtils-Helpers-0.026 base --- diff --git a/Changes b/Changes new file mode 100644 index 0000000..c852ce4 --- /dev/null +++ b/Changes @@ -0,0 +1,91 @@ +Revision history for ExtUtils-Helpers + +0.026 2016-09-09 19:26:57+02:00 Europe/Amsterdam + - Fix Win32 dependency + +0.025 2016-09-02 09:48:38+02:00 Europe/Amsterdam + - Remove unconditional dependency on ExtUtils::PL2Bat + +0.024 2016-08-16 22:02:31+02:00 Europe/Amsterdam (TRIAL RELEASE) + - Move pl2bat code to ExtUtils::PL2Bat + +0.023 2016-08-06 20:52:34+02:00 Europe/Amsterdam (TRIAL RELEASE) + - Make split_like_shell always unixy + - Remove Module::Load dependency + - Remove done_testing, it requires Test::More 0.88 + +0.022 2014-03-07 13:27:09CET+0100 Europe/Amsterdam + Cleaned up remains of former functions + Skip IO layers on <5.8 for 5.6 compatability + Don't swallow pl2bat exceptions + +0.021 2013-05-06 14:57:29 Europe/Amsterdam + Always use the right environmental variable + Use configuration provided manpage extension + +0.020 2013-04-29 14:14:20 Europe/Amsterdam + Fix man3_pagename for top level domains + +0.019 2013-04-24 13:24:50 Europe/Amsterdam + Fix make_executable for '#!/usr/bin/perl' + +0.018 2013-04-16 13:51:42 Europe/Amsterdam + Don't load Pod::Man + +0.017 2013-04-15 14:57:34 Europe/Amsterdam + Fix man3_pagename to properly split dirs + +0.016 2013-04-12 15:39:01 Europe/London + Add some fixes to batch file generation [Christian Walde] + +0.015 2013-04-09 15:01:04 Europe/Amsterdam + Made man3_pagename more flexible with paths + Reverted pl2bat to a more original state + Rewrote fixin code + Re-added detildefy + +0.014 2012-02-22 21:42:35 Europe/Amsterdam + Remove detildefication, defer to File::HomeDir to do it better + +0.013 2012-02-13 00:35:33 Europe/Amsterdam + Do tilde expansion more sensibly on Windows + +0.012 2012-02-07 14:04:33 Europe/Amsterdam + Added detildefy + Fix up loading on VMS + +0.011 2012-01-09 22:42:01 Europe/Amsterdam + Move manify to Module::Build::Tiny + Refactored VMS support + Make EU::H easier to embed in inc/ + +0.010 2011-09-21 20:08:58 Europe/Amsterdam + Fixed make_executable on Windows + +0.009 2011-08-24 17:30:00 Europe/Amsterdam + Fixed failing test on Windows + +0.008 2011-08-23 17:09:37 Europe/Amsterdam + Split out Windows and Unix specific parts + Use $Config{path_sep} in tests + +0.007 2011-05-07 10:59:15 Europe/Amsterdam + Fixes for make_executable.t and make_executable + +0.006 2011-05-05 09:30:59 Europe/Amsterdam + Made split_like_shell handle newlines and tabs on Windows + +0.005 2011-04-20 00:05:13 Europe/Amsterdam + Fixed definedness issue in manify + +0.004 2011-04-19 23:04:53 Europe/Amsterdam + Added manify + +0.003 2011-04-16 15:52:51 Europe/Amsterdam + Added man1_pagename and man3_pagename + +0.002 2011-04-14 14:45:27 Europe/Amsterdam + Fixed compilation and other issues on Windows + +0.001 2011-03-28 14:59:00 Europe/Amsterdam + - First version diff --git a/INSTALL b/INSTALL new file mode 100644 index 0000000..87cd2e8 --- /dev/null +++ b/INSTALL @@ -0,0 +1,43 @@ +This is the Perl distribution ExtUtils-Helpers. + +Installing ExtUtils-Helpers is straightforward. + +## Installation with cpanm + +If you have cpanm, you only need one line: + + % cpanm ExtUtils::Helpers + +If you are installing into a system-wide directory, you may need to pass the +"-S" flag to cpanm, which uses sudo to install the module: + + % cpanm -S ExtUtils::Helpers + +## Installing with the CPAN shell + +Alternatively, if your CPAN shell is set up, you should just be able to do: + + % cpan ExtUtils::Helpers + +## Manual installation + +As a last resort, you can manually install it. Download the tarball, untar it, +then build it: + + % perl Makefile.PL + % make && make test + +Then install it: + + % make install + +If you are installing into a system-wide directory, you may need to run: + + % sudo make install + +## Documentation + +ExtUtils-Helpers documentation is available as POD. +You can run perldoc from a shell to read the documentation: + + % perldoc ExtUtils::Helpers diff --git a/LICENSE b/LICENSE new file mode 100644 index 0000000..de998c1 --- /dev/null +++ b/LICENSE @@ -0,0 +1,379 @@ +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. + +Terms of the Perl programming language system itself + +a) the GNU General Public License as published by the Free + Software Foundation; either version 1, or (at your option) any + later version, or +b) the "Artistic License" + +--- The GNU General Public License, Version 1, February 1989 --- + +This software is Copyright (c) 2004 by Ken Williams, Leon Timmermans. + +This is free software, licensed under: + + The GNU General Public License, Version 1, February 1989 + + GNU GENERAL PUBLIC LICENSE + Version 1, February 1989 + + Copyright (C) 1989 Free Software Foundation, Inc. + 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + + Preamble + + The license agreements of most software companies try to keep users +at the mercy of those companies. By contrast, our General Public +License is intended to guarantee your freedom to share and change free +software--to make sure the software is free for all its users. The +General Public License applies to the Free Software Foundation's +software and to any other program whose authors commit to using it. +You can use it for your programs, too. + + When we speak of free software, we are referring to freedom, not +price. Specifically, the General Public License is designed to make +sure that you have the freedom to give away or sell copies of free +software, that you receive source code or can get it if you want it, +that you can change the software or use pieces of it in new free +programs; and that you know you can do these things. + + To protect your rights, we need to make restrictions that forbid +anyone to deny you these rights or to ask you to surrender the rights. +These restrictions translate to certain responsibilities for you if you +distribute copies of the software, or if you modify it. + + For example, if you distribute copies of a such a program, whether +gratis or for a fee, you must give the recipients all the rights that +you have. You must make sure that they, too, receive or can get the +source code. And you must tell them their rights. + + We protect your rights with two steps: (1) copyright the software, and +(2) offer you this license which gives you legal permission to copy, +distribute and/or modify the software. + + Also, for each author's protection and ours, we want to make certain +that everyone understands that there is no warranty for this free +software. If the software is modified by someone else and passed on, we +want its recipients to know that what they have is not the original, so +that any problems introduced by others will not reflect on the original +authors' reputations. + + The precise terms and conditions for copying, distribution and +modification follow. + + GNU GENERAL PUBLIC LICENSE + TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION + + 0. This License Agreement applies to any program or other work which +contains a notice placed by the copyright holder saying it may be +distributed under the terms of this General Public License. The +"Program", below, refers to any such program or work, and a "work based +on the Program" means either the Program or any work containing the +Program or a portion of it, either verbatim or with modifications. Each +licensee is addressed as "you". + + 1. You may copy and distribute verbatim copies of the Program's source +code as you receive it, in any medium, provided that you conspicuously and +appropriately publish on each copy an appropriate copyright notice and +disclaimer of warranty; keep intact all the notices that refer to this +General Public License and to the absence of any warranty; and give any +other recipients of the Program a copy of this General Public License +along with the Program. You may charge a fee for the physical act of +transferring a copy. + + 2. You may modify your copy or copies of the Program or any portion of +it, and copy and distribute such modifications under the terms of Paragraph +1 above, provided that you also do the following: + + a) cause the modified files to carry prominent notices stating that + you changed the files and the date of any change; and + + b) cause the whole of any work that you distribute or publish, that + in whole or in part contains the Program or any part thereof, either + with or without modifications, to be licensed at no charge to all + third parties under the terms of this General Public License (except + that you may choose to grant warranty protection to some or all + third parties, at your option). + + c) If the modified program normally reads commands interactively when + run, you must cause it, when started running for such interactive use + in the simplest and most usual way, to print or display an + announcement including an appropriate copyright notice and a notice + that there is no warranty (or else, saying that you provide a + warranty) and that users may redistribute the program under these + conditions, and telling the user how to view a copy of this General + Public License. + + d) You may charge a fee for the physical act of transferring a + copy, and you may at your option offer warranty protection in + exchange for a fee. + +Mere aggregation of another independent work with the Program (or its +derivative) on a volume of a storage or distribution medium does not bring +the other work under the scope of these terms. + + 3. You may copy and distribute the Program (or a portion or derivative of +it, under Paragraph 2) in object code or executable form under the terms of +Paragraphs 1 and 2 above provided that you also do one of the following: + + a) accompany it with the complete corresponding machine-readable + source code, which must be distributed under the terms of + Paragraphs 1 and 2 above; or, + + b) accompany it with a written offer, valid for at least three + years, to give any third party free (except for a nominal charge + for the cost of distribution) a complete machine-readable copy of the + corresponding source code, to be distributed under the terms of + Paragraphs 1 and 2 above; or, + + c) accompany it with the information you received as to where the + corresponding source code may be obtained. (This alternative is + allowed only for noncommercial distribution and only if you + received the program in object code or executable form alone.) + +Source code for a work means the preferred form of the work for making +modifications to it. For an executable file, complete source code means +all the source code for all modules it contains; but, as a special +exception, it need not include source code for modules which are standard +libraries that accompany the operating system on which the executable +file runs, or for standard header files or definitions files that +accompany that operating system. + + 4. You may not copy, modify, sublicense, distribute or transfer the +Program except as expressly provided under this General Public License. +Any attempt otherwise to copy, modify, sublicense, distribute or transfer +the Program is void, and will automatically terminate your rights to use +the Program under this License. However, parties who have received +copies, or rights to use copies, from you under this General Public +License will not have their licenses terminated so long as such parties +remain in full compliance. + + 5. By copying, distributing or modifying the Program (or any work based +on the Program) you indicate your acceptance of this license to do so, +and all its terms and conditions. + + 6. Each time you redistribute the Program (or any work based on the +Program), the recipient automatically receives a license from the original +licensor to copy, distribute or modify the Program subject to these +terms and conditions. You may not impose any further restrictions on the +recipients' exercise of the rights granted herein. + + 7. The Free Software Foundation may publish revised and/or new versions +of the General Public License from time to time. Such new versions will +be similar in spirit to the present version, but may differ in detail to +address new problems or concerns. + +Each version is given a distinguishing version number. If the Program +specifies a version number of the license which applies to it and "any +later version", you have the option of following the terms and conditions +either of that version or of any later version published by the Free +Software Foundation. If the Program does not specify a version number of +the license, you may choose any version ever published by the Free Software +Foundation. + + 8. If you wish to incorporate parts of the Program into other free +programs whose distribution conditions are different, write to the author +to ask for permission. For software which is copyrighted by the Free +Software Foundation, write to the Free Software Foundation; we sometimes +make exceptions for this. Our decision will be guided by the two goals +of preserving the free status of all derivatives of our free software and +of promoting the sharing and reuse of software generally. + + NO WARRANTY + + 9. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY +FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN +OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES +PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED +OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF +MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS +TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE +PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, +REPAIR OR CORRECTION. + + 10. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR +REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, +INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING +OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED +TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY +YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER +PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE +POSSIBILITY OF SUCH DAMAGES. + + END OF TERMS AND CONDITIONS + + Appendix: How to Apply These Terms to Your New Programs + + If you develop a new program, and you want it to be of the greatest +possible use to humanity, the best way to achieve this is to make it +free software which everyone can redistribute and change under these +terms. + + To do so, attach the following notices to the program. It is safest to +attach them to the start of each source file to most effectively convey +the exclusion of warranty; and each file should have at least the +"copyright" line and a pointer to where the full notice is found. + + + Copyright (C) 19yy + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 1, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA + + +Also add information on how to contact you by electronic and paper mail. + +If the program is interactive, make it output a short notice like this +when it starts in an interactive mode: + + Gnomovision version 69, Copyright (C) 19xx name of author + Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + This is free software, and you are welcome to redistribute it + under certain conditions; type `show c' for details. + +The hypothetical commands `show w' and `show c' should show the +appropriate parts of the General Public License. Of course, the +commands you use may be called something other than `show w' and `show +c'; they could even be mouse-clicks or menu items--whatever suits your +program. + +You should also get your employer (if you work as a programmer) or your +school, if any, to sign a "copyright disclaimer" for the program, if +necessary. Here a sample; alter the names: + + Yoyodyne, Inc., hereby disclaims all copyright interest in the + program `Gnomovision' (a program to direct compilers to make passes + at assemblers) written by James Hacker. + + , 1 April 1989 + Ty Coon, President of Vice + +That's all there is to it! + + +--- The Artistic License 1.0 --- + +This software is Copyright (c) 2004 by Ken Williams, Leon Timmermans. + +This is free software, licensed under: + + The Artistic License 1.0 + +The Artistic License + +Preamble + +The intent of this document is to state the conditions under which a Package +may be copied, such that the Copyright Holder maintains some semblance of +artistic control over the development of the package, while giving the users of +the package the right to use and distribute the Package in a more-or-less +customary fashion, plus the right to make reasonable modifications. + +Definitions: + + - "Package" refers to the collection of files distributed by the Copyright + Holder, and derivatives of that collection of files created through + textual modification. + - "Standard Version" refers to such a Package if it has not been modified, + or has been modified in accordance with the wishes of the Copyright + Holder. + - "Copyright Holder" is whoever is named in the copyright or copyrights for + the package. + - "You" is you, if you're thinking about copying or distributing this Package. + - "Reasonable copying fee" is whatever you can justify on the basis of media + cost, duplication charges, time of people involved, and so on. (You will + not be required to justify it to the Copyright Holder, but only to the + computing community at large as a market that must bear the fee.) + - "Freely Available" means that no fee is charged for the item itself, though + there may be fees involved in handling the item. It also means that + recipients of the item may redistribute it under the same conditions they + received it. + +1. You may make and give away verbatim copies of the source form of the +Standard Version of this Package without restriction, provided that you +duplicate all of the original copyright notices and associated disclaimers. + +2. You may apply bug fixes, portability fixes and other modifications derived +from the Public Domain or from the Copyright Holder. A Package modified in such +a way shall still be considered the Standard Version. + +3. You may otherwise modify your copy of this Package in any way, provided that +you insert a prominent notice in each changed file stating how and when you +changed that file, and provided that you do at least ONE of the following: + + a) place your modifications in the Public Domain or otherwise make them + Freely Available, such as by posting said modifications to Usenet or an + equivalent medium, or placing the modifications on a major archive site + such as ftp.uu.net, or by allowing the Copyright Holder to include your + modifications in the Standard Version of the Package. + + b) use the modified Package only within your corporation or organization. + + c) rename any non-standard executables so the names do not conflict with + standard executables, which must also be provided, and provide a separate + manual page for each non-standard executable that clearly documents how it + differs from the Standard Version. + + d) make other distribution arrangements with the Copyright Holder. + +4. You may distribute the programs of this Package in object code or executable +form, provided that you do at least ONE of the following: + + a) distribute a Standard Version of the executables and library files, + together with instructions (in the manual page or equivalent) on where to + get the Standard Version. + + b) accompany the distribution with the machine-readable source of the Package + with your modifications. + + c) accompany any non-standard executables with their corresponding Standard + Version executables, giving the non-standard executables non-standard + names, and clearly documenting the differences in manual pages (or + equivalent), together with instructions on where to get the Standard + Version. + + d) make other distribution arrangements with the Copyright Holder. + +5. You may charge a reasonable copying fee for any distribution of this +Package. You may charge any fee you choose for support of this Package. You +may not charge a fee for this Package itself. However, you may distribute this +Package in aggregate with other (possibly commercial) programs as part of a +larger (possibly commercial) software distribution provided that you do not +advertise this Package as a product of your own. + +6. The scripts and library files supplied as input to or produced as output +from the programs of this Package do not automatically fall under the copyright +of this Package, but belong to whomever generated them, and may be sold +commercially, and may be aggregated with this Package. + +7. C or perl subroutines supplied by you and linked into this Package shall not +be considered part of this Package. + +8. The name of the Copyright Holder may not be used to endorse or promote +products derived from this software without specific prior written permission. + +9. THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED +WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF +MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE. + +The End + diff --git a/MANIFEST b/MANIFEST new file mode 100644 index 0000000..47f5425 --- /dev/null +++ b/MANIFEST @@ -0,0 +1,21 @@ +# This file was automatically generated by Dist::Zilla::Plugin::Manifest v6.005. +Changes +INSTALL +LICENSE +MANIFEST +META.json +META.yml +Makefile.PL +README +dist.ini +lib/ExtUtils/Helpers.pm +lib/ExtUtils/Helpers/Unix.pm +lib/ExtUtils/Helpers/VMS.pm +lib/ExtUtils/Helpers/Windows.pm +t/make_executable.t +t/man_pagename.t +t/split_like_shell.t +t/tilde.t +xt/author/00-compile.t +xt/author/pod-coverage.t +xt/author/pod-syntax.t diff --git a/META.json b/META.json new file mode 100644 index 0000000..6ab95fe --- /dev/null +++ b/META.json @@ -0,0 +1,97 @@ +{ + "abstract" : "Various portability utilities for module builders", + "author" : [ + "Ken Williams ", + "Leon Timmermans " + ], + "dynamic_config" : 1, + "generated_by" : "Dist::Zilla version 6.005, CPAN::Meta::Converter version 2.150005", + "license" : [ + "perl_5" + ], + "meta-spec" : { + "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec", + "version" : 2 + }, + "name" : "ExtUtils-Helpers", + "prereqs" : { + "configure" : { + "requires" : { + "ExtUtils::MakeMaker" : "0", + "perl" : "5.006" + } + }, + "develop" : { + "requires" : { + "File::Spec" : "0", + "IO::Handle" : "0", + "IPC::Open3" : "0", + "Pod::Coverage::TrustPod" : "0", + "Test::More" : "0", + "Test::Pod" : "1.41", + "Test::Pod::Coverage" : "1.08", + "blib" : "1.01", + "perl" : "5.006" + } + }, + "runtime" : { + "requires" : { + "Carp" : "0", + "Exporter" : "5.57", + "File::Basename" : "0", + "File::Copy" : "0", + "File::Spec::Functions" : "0", + "Text::ParseWords" : "3.24", + "perl" : "5.006", + "strict" : "0", + "warnings" : "0" + } + }, + "test" : { + "requires" : { + "Cwd" : "0", + "Test::More" : "0", + "lib" : "0", + "perl" : "5.006" + } + } + }, + "provides" : { + "ExtUtils::Helpers" : { + "file" : "lib/ExtUtils/Helpers.pm", + "version" : "0.026" + }, + "ExtUtils::Helpers::Unix" : { + "file" : "lib/ExtUtils/Helpers/Unix.pm", + "version" : "0.026" + }, + "ExtUtils::Helpers::VMS" : { + "file" : "lib/ExtUtils/Helpers/VMS.pm", + "version" : "0.026" + }, + "ExtUtils::Helpers::Windows" : { + "file" : "lib/ExtUtils/Helpers/Windows.pm", + "version" : "0.026" + } + }, + "release_status" : "stable", + "resources" : { + "bugtracker" : { + "mailto" : "bug-extutils-helpers at rt.cpan.org", + "web" : "http://rt.cpan.org/Public/Dist/Display.html?Name=ExtUtils-Helpers" + }, + "repository" : { + "type" : "git", + "url" : "git://github.com/Leont/extutils-helpers.git", + "web" : "https://github.com/Leont/extutils-helpers" + } + }, + "version" : "0.026", + "x_contributors" : [ + "Christian Walde ", + "Craig A. Berry ", + "Leon Timmermans ", + "Olivier Mengu\u00e9 " + ] +} + diff --git a/META.yml b/META.yml new file mode 100644 index 0000000..c96dd3a --- /dev/null +++ b/META.yml @@ -0,0 +1,52 @@ +--- +abstract: 'Various portability utilities for module builders' +author: + - 'Ken Williams ' + - 'Leon Timmermans ' +build_requires: + Cwd: '0' + Test::More: '0' + lib: '0' + perl: '5.006' +configure_requires: + ExtUtils::MakeMaker: '0' + perl: '5.006' +dynamic_config: 1 +generated_by: 'Dist::Zilla version 6.005, CPAN::Meta::Converter version 2.150005' +license: perl +meta-spec: + url: http://module-build.sourceforge.net/META-spec-v1.4.html + version: '1.4' +name: ExtUtils-Helpers +provides: + ExtUtils::Helpers: + file: lib/ExtUtils/Helpers.pm + version: '0.026' + ExtUtils::Helpers::Unix: + file: lib/ExtUtils/Helpers/Unix.pm + version: '0.026' + ExtUtils::Helpers::VMS: + file: lib/ExtUtils/Helpers/VMS.pm + version: '0.026' + ExtUtils::Helpers::Windows: + file: lib/ExtUtils/Helpers/Windows.pm + version: '0.026' +requires: + Carp: '0' + Exporter: '5.57' + File::Basename: '0' + File::Copy: '0' + File::Spec::Functions: '0' + Text::ParseWords: '3.24' + perl: '5.006' + strict: '0' + warnings: '0' +resources: + bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=ExtUtils-Helpers + repository: git://github.com/Leont/extutils-helpers.git +version: '0.026' +x_contributors: + - 'Christian Walde ' + - 'Craig A. Berry ' + - 'Leon Timmermans ' + - 'Olivier Mengué ' diff --git a/Makefile.PL b/Makefile.PL new file mode 100644 index 0000000..d82043c --- /dev/null +++ b/Makefile.PL @@ -0,0 +1,69 @@ +# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker v6.005. +use strict; +use warnings; + +use 5.006; + +use ExtUtils::MakeMaker; + +my %WriteMakefileArgs = ( + "ABSTRACT" => "Various portability utilities for module builders", + "AUTHOR" => "Ken Williams , Leon Timmermans ", + "CONFIGURE_REQUIRES" => { + "ExtUtils::MakeMaker" => 0 + }, + "DISTNAME" => "ExtUtils-Helpers", + "LICENSE" => "perl", + "MIN_PERL_VERSION" => "5.006", + "NAME" => "ExtUtils::Helpers", + "PREREQ_PM" => { + "Carp" => 0, + "Exporter" => "5.57", + "File::Basename" => 0, + "File::Copy" => 0, + "File::Spec::Functions" => 0, + "Text::ParseWords" => "3.24", + "strict" => 0, + "warnings" => 0 + }, + "TEST_REQUIRES" => { + "Cwd" => 0, + "Test::More" => 0, + "lib" => 0 + }, + "VERSION" => "0.026", + "test" => { + "TESTS" => "t/*.t" + } +); + + +my %FallbackPrereqs = ( + "Carp" => 0, + "Cwd" => 0, + "Exporter" => "5.57", + "File::Basename" => 0, + "File::Copy" => 0, + "File::Spec::Functions" => 0, + "Test::More" => 0, + "Text::ParseWords" => "3.24", + "lib" => 0, + "strict" => 0, + "warnings" => 0 +); + + +unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) { + delete $WriteMakefileArgs{TEST_REQUIRES}; + delete $WriteMakefileArgs{BUILD_REQUIRES}; + $WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs; +} + +delete $WriteMakefileArgs{CONFIGURE_REQUIRES} + unless eval { ExtUtils::MakeMaker->VERSION(6.52) }; + +if ( $^O eq 'MSWin32' ) { + $WriteMakefileArgs{PREREQ_PM}{'ExtUtils::PL2Bat'} = '0'; +} + +WriteMakefile(%WriteMakefileArgs); diff --git a/README b/README new file mode 100644 index 0000000..e8fb8ec --- /dev/null +++ b/README @@ -0,0 +1,15 @@ + + +This archive contains the distribution ExtUtils-Helpers, +version 0.026: + + Various portability utilities for module builders + +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. + + +This README file was generated by Dist::Zilla::Plugin::Readme v6.005. + diff --git a/dist.ini b/dist.ini new file mode 100644 index 0000000..075afc3 --- /dev/null +++ b/dist.ini @@ -0,0 +1,12 @@ +name = ExtUtils-Helpers +author = Ken Williams +author = Leon Timmermans +license = Perl_5 +copyright_holder = Ken Williams, Leon Timmermans +copyright_year = 2004 + +[@LEONT] +install_tool = eumm +AutoPrereqs.skip = ^ExtUtils::PL2Bat$ +[OSPrereqs / MSWin32] +ExtUtils::PL2Bat = 0 diff --git a/lib/ExtUtils/Helpers.pm b/lib/ExtUtils/Helpers.pm new file mode 100644 index 0000000..42c6cbf --- /dev/null +++ b/lib/ExtUtils/Helpers.pm @@ -0,0 +1,131 @@ +package ExtUtils::Helpers; +$ExtUtils::Helpers::VERSION = '0.026'; +use strict; +use warnings FATAL => 'all'; +use Exporter 5.57 'import'; + +use Config; +use File::Basename qw/basename/; +use File::Spec::Functions qw/splitpath canonpath abs2rel splitdir/; +use Text::ParseWords 3.24 (); + +our @EXPORT_OK = qw/make_executable split_like_shell man1_pagename man3_pagename detildefy/; + +BEGIN { + my %impl_for = ( MSWin32 => 'Windows', VMS => 'VMS'); + my $package = 'ExtUtils::Helpers::' . ($impl_for{$^O} || 'Unix'); + my $impl = $impl_for{$^O} || 'Unix'; + require "ExtUtils/Helpers/$impl.pm"; + "ExtUtils::Helpers::$impl"->import(); +} + +sub split_like_shell { + my ($string) = @_; + + return if not defined $string; + $string =~ s/^\s+|\s+$//g; + return if not length $string; + + return Text::ParseWords::shellwords($string); +} + +sub man1_pagename { + my $filename = shift; + return basename($filename).".$Config{man1ext}"; +} + +my %separator = ( + MSWin32 => '.', + VMS => '__', + os2 => '.', + cygwin => '.', +); +my $separator = $separator{$^O} || '::'; + +sub man3_pagename { + my ($filename, $base) = @_; + $base ||= 'lib'; + my ($vols, $dirs, $file) = splitpath(canonpath(abs2rel($filename, $base))); + $file = basename($file, qw/.pm .pod/); + my @dirs = grep { length } splitdir($dirs); + return join $separator, @dirs, "$file.$Config{man3ext}"; +} + +1; + +# ABSTRACT: Various portability utilities for module builders + +__END__ + +=pod + +=encoding utf-8 + +=head1 NAME + +ExtUtils::Helpers - Various portability utilities for module builders + +=head1 VERSION + +version 0.026 + +=head1 SYNOPSIS + + use ExtUtils::Helpers qw/make_executable split_like_shell/; + + unshift @ARGV, split_like_shell($ENV{PROGRAM_OPTS}); + write_script_to('Build'); + make_executable('Build'); + +=head1 DESCRIPTION + +This module provides various portable helper functions for module building modules. + +=head1 FUNCTIONS + +=head2 make_executable($filename) + +This makes a perl script executable. + +=head2 split_like_shell($string) + +This function splits a string the same way as the local platform does. + +=head2 detildefy($path) + +This function substitutes a tilde at the start of a path with the users homedir in an appropriate manner. + +=head2 man1_pagename($filename) + +Returns the man page filename for a script. + +=head2 man3_pagename($filename, $basedir) + +Returns the man page filename for a Perl library. + +=head1 ACKNOWLEDGEMENTS + +Olivier Mengué and Christian Walde made C work on Windows. + +=head1 AUTHORS + +=over 4 + +=item * + +Ken Williams + +=item * + +Leon Timmermans + +=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 diff --git a/lib/ExtUtils/Helpers/Unix.pm b/lib/ExtUtils/Helpers/Unix.pm new file mode 100644 index 0000000..24f5d01 --- /dev/null +++ b/lib/ExtUtils/Helpers/Unix.pm @@ -0,0 +1,86 @@ +package ExtUtils::Helpers::Unix; +$ExtUtils::Helpers::Unix::VERSION = '0.026'; +use strict; +use warnings FATAL => 'all'; + +use Exporter 5.57 'import'; +our @EXPORT = qw/make_executable detildefy/; + +use Carp qw/croak/; +use Config; + +my $layer = $] >= 5.008001 ? ":raw" : ""; + +sub make_executable { + my $filename = shift; + my $current_mode = (stat $filename)[2] + 0; + if (-T $filename) { + open my $fh, "<$layer", $filename; + my @lines = <$fh>; + if (@lines and $lines[0] =~ s{ \A \#! \s* (?:/\S+/)? perl \b (.*) \z }{$Config{startperl}$1}xms) { + open my $out, ">$layer", "$filename.new" or croak "Couldn't open $filename.new: $!"; + print $out @lines; + close $out; + rename $filename, "$filename.bak" or croak "Couldn't rename $filename to $filename.bak"; + rename "$filename.new", $filename or croak "Couldn't rename $filename.new to $filename"; + unlink "$filename.bak"; + } + } + chmod $current_mode | oct(111), $filename; + return; +} + +sub detildefy { + my $value = shift; + # tilde with optional username + for ($value) { + s{ ^ ~ (?= /|$)} [ $ENV{HOME} || (getpwuid $>)[7] ]ex or # tilde without user name + s{ ^ ~ ([^/]+) (?= /|$) } { (getpwnam $1)[7] || "~$1" }ex; # tilde with user name + } + return $value; +} + +1; + +# ABSTRACT: Unix specific helper bits + +__END__ + +=pod + +=encoding UTF-8 + +=head1 NAME + +ExtUtils::Helpers::Unix - Unix specific helper bits + +=head1 VERSION + +version 0.026 + +=for Pod::Coverage make_executable +split_like_shell +detildefy + +=head1 AUTHORS + +=over 4 + +=item * + +Ken Williams + +=item * + +Leon Timmermans + +=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 diff --git a/lib/ExtUtils/Helpers/VMS.pm b/lib/ExtUtils/Helpers/VMS.pm new file mode 100644 index 0000000..cd0e210 --- /dev/null +++ b/lib/ExtUtils/Helpers/VMS.pm @@ -0,0 +1,117 @@ +package ExtUtils::Helpers::VMS; +$ExtUtils::Helpers::VMS::VERSION = '0.026'; +use strict; +use warnings FATAL => 'all'; + +use Exporter 5.57 'import'; +our @EXPORT = qw/make_executable detildefy/; + +use File::Copy qw/copy/; + +sub make_executable { + my $filename = shift; + my $batchname = "$filename.com"; + copy($filename, $batchname); + ExtUtils::Helpers::Unix::make_executable($batchname); + return; +} + +sub detildefy { + my $arg = shift; + + # Apparently double ~ are not translated. + return $arg if ($arg =~ /^~~/); + + # Apparently ~ followed by whitespace are not translated. + return $arg if ($arg =~ /^~ /); + + if ($arg =~ /^~/) { + my $spec = $arg; + + # Remove the tilde + $spec =~ s/^~//; + + # Remove any slash following the tilde if present. + $spec =~ s#^/##; + + # break up the paths for the merge + my $home = VMS::Filespec::unixify($ENV{HOME}); + + # In the default VMS mode, the trailing slash is present. + # In Unix report mode it is not. The parsing logic assumes that + # it is present. + $home .= '/' unless $home =~ m#/$#; + + # Trivial case of just ~ by it self + if ($spec eq '') { + $home =~ s#/$##; + return $home; + } + + my ($hvol, $hdir, $hfile) = File::Spec::Unix->splitpath($home); + if ($hdir eq '') { + # Someone has tampered with $ENV{HOME} + # So hfile is probably the directory since this should be + # a path. + $hdir = $hfile; + } + + my ($vol, $dir, $file) = File::Spec::Unix->splitpath($spec); + + my @hdirs = File::Spec::Unix->splitdir($hdir); + my @dirs = File::Spec::Unix->splitdir($dir); + + unless ($arg =~ m#^~/#) { + # There is a home directory after the tilde, but it will already + # be present in in @hdirs so we need to remove it by from @dirs. + + shift @dirs; + } + my $newdirs = File::Spec::Unix->catdir(@hdirs, @dirs); + + $arg = File::Spec::Unix->catpath($hvol, $newdirs, $file); + } + return $arg; +} + +# ABSTRACT: VMS specific helper bits + +__END__ + +=pod + +=encoding UTF-8 + +=head1 NAME + +ExtUtils::Helpers::VMS - VMS specific helper bits + +=head1 VERSION + +version 0.026 + +=for Pod::Coverage make_executable +detildefy + +=head1 AUTHORS + +=over 4 + +=item * + +Ken Williams + +=item * + +Leon Timmermans + +=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 diff --git a/lib/ExtUtils/Helpers/Windows.pm b/lib/ExtUtils/Helpers/Windows.pm new file mode 100644 index 0000000..8b232e4 --- /dev/null +++ b/lib/ExtUtils/Helpers/Windows.pm @@ -0,0 +1,70 @@ +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 + +=item * + +Leon Timmermans + +=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 diff --git a/t/make_executable.t b/t/make_executable.t new file mode 100644 index 0000000..330c8ea --- /dev/null +++ b/t/make_executable.t @@ -0,0 +1,34 @@ +#!/usr/bin/perl + +use strict; +use warnings FATAL => 'all'; + +use Config; +use Test::More tests => 7; +use ExtUtils::Helpers qw/make_executable/; +use Cwd qw/cwd/; + +my $filename = 'test_exec'; +my @files; + +open my $out, '>', $filename or die "Couldn't create $filename: $!"; +print $out "#! perl -w\nexit \$ARGV[0];\n"; +close $out; + +make_executable($filename); + +foreach my $i (42, 51, 0) { + my $cwd = cwd; + local $ENV{PATH} = join $Config{path_sep}, $cwd, $ENV{PATH}; + my $ret = system $filename, $i; + is $ret & 0xff, 0, 'test_exec executed successfully'; + is $ret >> 8, $i, "test_exec $i return value ok"; +} + +SKIP: { + skip 'No batch file on non-windows', 1 if $^O ne 'MSWin32'; + push @files, grep { -f } map { $filename.$_ } split / $Config{path_sep} /x, $ENV{PATHEXT}; + is scalar(@files), 1, "Executable file exists"; +} + +unlink $filename, @files; diff --git a/t/man_pagename.t b/t/man_pagename.t new file mode 100644 index 0000000..592fbdc --- /dev/null +++ b/t/man_pagename.t @@ -0,0 +1,22 @@ +#!/usr/bin/perl + +use strict; +use warnings FATAL => 'all'; +use Test::More tests => 4; +use Config; +use File::Spec::Functions qw/catfile/; +use ExtUtils::Helpers qw/man1_pagename man3_pagename/; + +my %separator = ( + MSWin32 => '.', + VMS => '__', + os2 => '.', + cygwin => '.', +); +my $sep = $separator{$^O} || '::'; + +is man1_pagename('script/foo'), "foo.$Config{man1ext}", 'man1_pagename'; + +is man3_pagename(catfile(qw/lib ExtUtils.pm/)), "ExtUtils.$Config{man3ext}", 'man3_pagename 1'; +is man3_pagename(catfile(qw/lib ExtUtils Helpers.pm/)), join($sep, qw/ExtUtils Helpers./).$Config{man3ext}, 'man3_pagename 2'; +is man3_pagename(catfile(qw/lib ExtUtils Helpers Unix.pm/)), join($sep, qw/ExtUtils Helpers Unix./).$Config{man3ext}, 'man3_pagename 3'; diff --git a/t/split_like_shell.t b/t/split_like_shell.t new file mode 100644 index 0000000..5e0fa9f --- /dev/null +++ b/t/split_like_shell.t @@ -0,0 +1,31 @@ +#!/usr/bin/perl + +use strict; +use warnings FATAL => 'all'; +use Test::More; +use ExtUtils::Helpers qw/split_like_shell/; + +my @unix_splits = + ( + { q{one t'wo th'ree f"o\"ur " "five" } => [ 'one', 'two three', 'fo"ur ', 'five' ] }, + { q{ foo bar } => [ 'foo', 'bar' ] }, + { q{ D\'oh f\{g\'h\"i\]\* } => [ "D'oh", "f{g'h\"i]*" ] }, + { q{ D\$foo } => [ 'D$foo' ] }, + { qq{one\\\ntwo} => [ "one\ntwo" ] }, # TODO + ); + +plan tests => 2 * @unix_splits; +foreach my $test (@unix_splits) { + do_split_tests($test); +} + +sub do_split_tests { + my ($test) = @_; + + my ($string, $expected) = %$test; + my @result = split_like_shell($string); + $string =~ s/\n/\\n/g; + is(grep( !defined(), @result ), 0, "\"$string\" result all defined"); + is_deeply(\@result, $expected) or + diag("split_like_shell error \n>$string< is not splitting as >" . join("|", @$expected) . '<'); +} diff --git a/t/tilde.t b/t/tilde.t new file mode 100644 index 0000000..784ca4a --- /dev/null +++ b/t/tilde.t @@ -0,0 +1,66 @@ +#!/usr/bin/perl -w + +# Test ~ expansion from command line arguments. + +use strict; +use lib 't/lib'; +use Test::More tests => 9; + +use ExtUtils::Helpers 'detildefy'; + +SKIP: { + my $env_name = $^O eq 'MSWin32' ? 'USERPROFILE' : 'HOME'; + my $home = $ENV{$env_name}; + + if ($^O eq 'VMS') { + # Convert the path to UNIX format, trim off the trailing slash + $home = VMS::Filespec::unixify($home); + $home =~ s#/$##; + } + + unless (defined $home) { + my @info = eval { getpwuid $> }; + skip "No home directory for tilde-expansion tests", 8 if $@ or !defined $info[7]; + $home = $info[7]; + } + + is( detildefy('~'), $home); + + is( detildefy('~/fooxzy'), "$home/fooxzy"); + + is( detildefy('~/ fooxzy'), "$home/ fooxzy"); + + is( detildefy('~/fo o'), "$home/fo o"); + + is( detildefy('fooxzy~'), 'fooxzy~'); + + # Test when HOME is different from getpwuid(), as in sudo. + { + local $ENV{HOME} = '/wibble/whomp'; + local $ENV{USERPROFILE} = $ENV{HOME}; + + is( detildefy('~'), "/wibble/whomp"); + } + + skip "On OS/2 EMX all users are equal", 2 if $^O eq 'os2'; + is( detildefy('~~'), '~~' ); + is( detildefy('~ fooxzy'), '~ fooxzy' ); +} + +# Again, with named users +SKIP: { + my @info = eval { getpwuid $> }; + skip "No home directory for tilde-expansion tests", 1 if $@ or !defined $info[7] or !defined $info[0]; + my ($me, $home) = @info[0,7]; + + my $expected = "$home/fooxzy"; + + if ($^O eq 'VMS') { + # Convert the path to UNIX format and trim off the trailing slash + $home = VMS::Filespec::unixify($home); + $home =~ s#/$##; + $expected = $home . '/../[^/]+' . '/fooxzy'; + } + like( detildefy("~$me/fooxzy"), qr(\Q$expected\E)i ); +} + diff --git a/xt/author/00-compile.t b/xt/author/00-compile.t new file mode 100644 index 0000000..85224ef --- /dev/null +++ b/xt/author/00-compile.t @@ -0,0 +1,57 @@ +use 5.006; +use strict; +use warnings; + +# this test was generated with Dist::Zilla::Plugin::Test::Compile 2.054 + +use Test::More; + +plan tests => 5; + +my @module_files = ( + 'ExtUtils/Helpers.pm', + 'ExtUtils/Helpers/Unix.pm', + 'ExtUtils/Helpers/VMS.pm', + 'ExtUtils/Helpers/Windows.pm' +); + + + +# no fake home requested + +my $inc_switch = -d 'blib' ? '-Mblib' : '-Ilib'; + +use File::Spec; +use IPC::Open3; +use IO::Handle; + +open my $stdin, '<', File::Spec->devnull or die "can't open devnull: $!"; + +my @warnings; +for my $lib (@module_files) +{ + # see L + my $stderr = IO::Handle->new; + + my $pid = open3($stdin, '>&STDERR', $stderr, $^X, $inc_switch, '-e', "require q[$lib]"); + binmode $stderr, ':crlf' if $^O eq 'MSWin32'; + my @_warnings = <$stderr>; + waitpid($pid, 0); + is($?, 0, "$lib loaded ok"); + + shift @_warnings if @_warnings and $_warnings[0] =~ /^Using .*\bblib/ + and not eval { require blib; blib->VERSION('1.01') }; + + if (@_warnings) + { + warn @_warnings; + push @warnings, @_warnings; + } +} + + + +is(scalar(@warnings), 0, 'no warnings found') + or diag 'got warnings: ', ( Test::More->can('explain') ? Test::More::explain(\@warnings) : join("\n", '', @warnings) ); + + diff --git a/xt/author/pod-coverage.t b/xt/author/pod-coverage.t new file mode 100644 index 0000000..66b3b64 --- /dev/null +++ b/xt/author/pod-coverage.t @@ -0,0 +1,7 @@ +#!perl +# This file was automatically generated by Dist::Zilla::Plugin::PodCoverageTests. + +use Test::Pod::Coverage 1.08; +use Pod::Coverage::TrustPod; + +all_pod_coverage_ok({ coverage_class => 'Pod::Coverage::TrustPod' }); diff --git a/xt/author/pod-syntax.t b/xt/author/pod-syntax.t new file mode 100644 index 0000000..e563e5d --- /dev/null +++ b/xt/author/pod-syntax.t @@ -0,0 +1,7 @@ +#!perl +# This file was automatically generated by Dist::Zilla::Plugin::PodSyntaxTests. +use strict; use warnings; +use Test::More; +use Test::Pod 1.41; + +all_pod_files_ok();