[OE-core] [PATCH 1/2] perl: upgrade from 5.12.3 to 5.14.2
nitin.a.kamble at intel.com
nitin.a.kamble at intel.com
Thu Oct 20 17:47:08 UTC 2011
From: Nitin A Kamble <nitin.a.kamble at intel.com>
parallel build fix patches are not needed as they are upstream now.
Got a new set of debian patch set for 5.14.2
Signed-off-by: Nitin A Kamble <nitin.a.kamble at intel.com>
---
.../perl/files/Configure-multilib.patch | 17 -
.../perl/perl-5.12.3/cross-generate_uudmap.patch | 15 -
.../perl/perl-5.12.3/debian/arm_optim.diff | 34 -
.../perl/perl-5.12.3/debian/cpan_config_path.diff | 24 -
.../perl-5.12.3/debian/deprecate-with-apt.diff | 61 -
.../debian/devel-ppport-ia64-optim.diff | 34 -
.../perl/perl-5.12.3/debian/extutils_hacks.diff | 315 -
.../perl-5.12.3/debian/fixes/autodie-flock.diff | 100 -
.../debian/fixes/concat-stack-corruption.diff | 39 -
.../debian/fixes/cpanplus-without-home.diff | 32 -
.../perl-5.12.3/debian/fixes/h2ph-gcc-4.5.diff | 108 -
.../perl-5.12.3/debian/fixes/lc-numeric-docs.diff | 97 -
.../debian/fixes/lc-numeric-sprintf.diff | 31 -
.../perl/perl-5.12.3/debian/fixes/processPL.diff | 45 -
.../perl/perl-5.12.3/debian/patchlevel | 45 -
.../perl/perl-5.12.3/debian/series | 34 -
.../perl/perl-5.12.3/parallel_build_fix_1.patch | 27 -
.../perl/perl-5.12.3/parallel_build_fix_2.patch | 24 -
.../perl/perl-5.12.3/parallel_build_fix_3.patch | 6585 --------------------
.../perl/perl-5.12.3/parallel_build_fix_4.patch | 57 -
.../perl/perl-5.12.3/parallel_build_fix_5.patch | 430 --
.../perl/perl-5.12.3/parallel_build_fix_6.patch | 158 -
.../09_fix_installperl.patch | 0
.../Configure-multilib.patch | 0
.../{perl-5.12.3 => perl-5.14.2}/MM_Unix.pm.patch | 0
.../{perl-5.12.3 => perl-5.14.2}/Makefile.SH.patch | 122 +-
.../{perl-5.12.3 => perl-5.14.2}/Makefile.patch | 17 +-
.../asm-pageh-fix.patch | 0
.../perl/{perl-5.12.3 => perl-5.14.2}/config.sh | 65 +-
.../perl/{perl-5.12.3 => perl-5.14.2}/config.sh-32 | 0
.../{perl-5.12.3 => perl-5.14.2}/config.sh-32-be | 0
.../{perl-5.12.3 => perl-5.14.2}/config.sh-32-le | 0
.../perl/{perl-5.12.3 => perl-5.14.2}/config.sh-64 | 0
.../{perl-5.12.3 => perl-5.14.2}/config.sh-64-be | 0
.../{perl-5.12.3 => perl-5.14.2}/config.sh-64-le | 0
.../perl/perl-5.14.2/cross-generate_uudmap.patch | 15 +
.../debian/arm_thread_stress_timeout.diff | 13 +-
.../debian/cpan_definstalldirs.diff | 18 +-
.../debian/cpanplus_config_path.diff | 19 +-
.../debian/cpanplus_definstalldirs.diff | 13 +-
.../debian/db_file_ver.diff | 12 +-
.../perl-5.14.2/debian/deprecate-with-apt.diff | 406 ++
.../debian/disable-zlib-bundling.diff | 7 +-
.../debian/doc_info.diff | 16 +-
.../debian/enc2xs_inc.diff | 9 +-
.../debian/errno_ver.diff | 23 +-
.../debian/extutils_set_libperl_path.diff | 23 +
.../debian/fakeroot.diff | 15 +-
.../perl/perl-5.14.2/debian/find_html2text.diff | 35 +
.../debian/fixes/document_makemaker_ccflags.diff | 31 +
.../debian/fixes/extutils-cbuilder-cflags.diff | 86 +
.../perl-5.14.2/debian/fixes/h2ph-multiarch.diff | 69 +
.../debian/fixes/hurd-ccflags.diff | 12 +-
.../perl/perl-5.14.2/debian/fixes/hurd-hints.diff | 48 +
.../perl-5.14.2/debian/fixes/index-tainting.diff | 73 +
.../debian/fixes/module-build-home-directory.diff | 37 +
.../debian/fixes/net_smtp_docs.diff | 10 +-
.../perl/perl-5.14.2/debian/fixes/pod_fixes.diff | 145 +
.../perl-5.14.2/debian/fixes/respect_umask.diff | 153 +
.../fixes/sys-syslog-socket-timeout-kfreebsd.patch | 36 +
.../debian/instmodsh_doc.diff | 9 +-
.../debian/ld_run_path.diff | 15 +-
.../debian/libnet_config_path.diff | 12 +-
.../perl/perl-5.14.2/debian/libperl_embed_doc.diff | 26 +
.../debian/m68k_thread_stress.diff | 15 +-
.../debian/mod_paths.diff | 15 +-
.../debian/module_build_man_extensions.diff | 16 +-
.../perl-5.14.2/debian/no_packlist_perllocal.diff | 88 +
.../perl/perl-5.14.2/debian/patchlevel.diff | 30 +
.../debian/perlivp.diff | 19 +-
.../perl/perl-5.14.2/debian/prefix_changes.diff | 118 +
.../debian/prune_libs.diff | 16 +-
.../perl/perl-5.14.2/debian/series | 40 +
.../perl-5.14.2/debian/skip-kfreebsd-crash.diff | 39 +
.../debian/skip-upstream-git-tests.diff | 59 +
.../debian/squelch-locale-warnings.diff | 14 +-
.../perl-5.14.2/debian/writable_site_dirs.diff | 36 +
.../fix_bad_rpath.patch | 13 +-
.../{perl-5.12.3 => perl-5.14.2}/generate-sh.patch | 0
.../{perl-5.12.3 => perl-5.14.2}/installperl.patch | 0
.../letgcc-find-errno.patch | 0
.../native-nopacklist.patch | 0
.../native-perlinc.patch | 0
.../perl-configpm-switch.patch | 18 +-
.../{perl-5.12.3 => perl-5.14.2}/perl-configure.sh | 0
.../perl-dynloader.patch | 21 +-
.../perl-enable-gdbm.patch | 0
.../perl-moreconfig.patch | 0
...perl-native_5.12.3.bb => perl-native_5.14.2.bb} | 32 +-
...depends_5.12.3.inc => perl-rdepends_5.14.2.inc} | 54 +-
...ovides_5.12.3.inc => perl-rprovides_5.14.2.inc} | 0
.../perl/{perl_5.12.3.bb => perl_5.14.2.bb} | 49 +-
92 files changed, 1951 insertions(+), 8643 deletions(-)
delete mode 100644 meta/recipes-devtools/perl/files/Configure-multilib.patch
delete mode 100644 meta/recipes-devtools/perl/perl-5.12.3/cross-generate_uudmap.patch
delete mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/arm_optim.diff
delete mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/cpan_config_path.diff
delete mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/deprecate-with-apt.diff
delete mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/devel-ppport-ia64-optim.diff
delete mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/extutils_hacks.diff
delete mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/autodie-flock.diff
delete mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/concat-stack-corruption.diff
delete mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/cpanplus-without-home.diff
delete mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/h2ph-gcc-4.5.diff
delete mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/lc-numeric-docs.diff
delete mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/lc-numeric-sprintf.diff
delete mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/processPL.diff
delete mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/patchlevel
delete mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/series
delete mode 100644 meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_1.patch
delete mode 100644 meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_2.patch
delete mode 100644 meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_3.patch
delete mode 100644 meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_4.patch
delete mode 100644 meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_5.patch
delete mode 100644 meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_6.patch
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/09_fix_installperl.patch (100%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/Configure-multilib.patch (100%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/MM_Unix.pm.patch (100%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/Makefile.SH.patch (75%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/Makefile.patch (87%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/asm-pageh-fix.patch (100%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/config.sh (94%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/config.sh-32 (100%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/config.sh-32-be (100%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/config.sh-32-le (100%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/config.sh-64 (100%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/config.sh-64-be (100%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/config.sh-64-le (100%)
create mode 100644 meta/recipes-devtools/perl/perl-5.14.2/cross-generate_uudmap.patch
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/debian/arm_thread_stress_timeout.diff (66%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/debian/cpan_definstalldirs.diff (80%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/debian/cpanplus_config_path.diff (83%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/debian/cpanplus_definstalldirs.diff (84%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/debian/db_file_ver.diff (83%)
create mode 100644 meta/recipes-devtools/perl/perl-5.14.2/debian/deprecate-with-apt.diff
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/debian/disable-zlib-bundling.diff (83%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/debian/doc_info.diff (78%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/debian/enc2xs_inc.diff (90%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/debian/errno_ver.diff (70%)
create mode 100644 meta/recipes-devtools/perl/perl-5.14.2/debian/extutils_set_libperl_path.diff
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/debian/fakeroot.diff (79%)
create mode 100644 meta/recipes-devtools/perl/perl-5.14.2/debian/find_html2text.diff
create mode 100644 meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/document_makemaker_ccflags.diff
create mode 100644 meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/extutils-cbuilder-cflags.diff
create mode 100644 meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/h2ph-multiarch.diff
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/debian/fixes/hurd-ccflags.diff (67%)
create mode 100644 meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/hurd-hints.diff
create mode 100644 meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/index-tainting.diff
create mode 100644 meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/module-build-home-directory.diff
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/debian/fixes/net_smtp_docs.diff (76%)
create mode 100644 meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/pod_fixes.diff
create mode 100644 meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/respect_umask.diff
create mode 100644 meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/sys-syslog-socket-timeout-kfreebsd.patch
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/debian/instmodsh_doc.diff (81%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/debian/ld_run_path.diff (68%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/debian/libnet_config_path.diff (85%)
create mode 100644 meta/recipes-devtools/perl/perl-5.14.2/debian/libperl_embed_doc.diff
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/debian/m68k_thread_stress.diff (78%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/debian/mod_paths.diff (89%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/debian/module_build_man_extensions.diff (81%)
create mode 100644 meta/recipes-devtools/perl/perl-5.14.2/debian/no_packlist_perllocal.diff
create mode 100644 meta/recipes-devtools/perl/perl-5.14.2/debian/patchlevel.diff
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/debian/perlivp.diff (77%)
create mode 100644 meta/recipes-devtools/perl/perl-5.14.2/debian/prefix_changes.diff
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/debian/prune_libs.diff (81%)
create mode 100644 meta/recipes-devtools/perl/perl-5.14.2/debian/series
create mode 100644 meta/recipes-devtools/perl/perl-5.14.2/debian/skip-kfreebsd-crash.diff
create mode 100644 meta/recipes-devtools/perl/perl-5.14.2/debian/skip-upstream-git-tests.diff
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/debian/squelch-locale-warnings.diff (86%)
create mode 100644 meta/recipes-devtools/perl/perl-5.14.2/debian/writable_site_dirs.diff
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/fix_bad_rpath.patch (70%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/generate-sh.patch (100%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/installperl.patch (100%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/letgcc-find-errno.patch (100%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/native-nopacklist.patch (100%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/native-perlinc.patch (100%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/perl-configpm-switch.patch (76%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/perl-configure.sh (100%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/perl-dynloader.patch (69%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/perl-enable-gdbm.patch (100%)
rename meta/recipes-devtools/perl/{perl-5.12.3 => perl-5.14.2}/perl-moreconfig.patch (100%)
rename meta/recipes-devtools/perl/{perl-native_5.12.3.bb => perl-native_5.14.2.bb} (74%)
rename meta/recipes-devtools/perl/{perl-rdepends_5.12.3.inc => perl-rdepends_5.14.2.inc} (90%)
rename meta/recipes-devtools/perl/{perl-rprovides_5.12.3.inc => perl-rprovides_5.14.2.inc} (100%)
rename meta/recipes-devtools/perl/{perl_5.12.3.bb => perl_5.14.2.bb} (92%)
diff --git a/meta/recipes-devtools/perl/files/Configure-multilib.patch b/meta/recipes-devtools/perl/files/Configure-multilib.patch
deleted file mode 100644
index 085a2ff..0000000
--- a/meta/recipes-devtools/perl/files/Configure-multilib.patch
+++ /dev/null
@@ -1,17 +0,0 @@
-Upstream-Status: Inappropriate [embedded specific]
-
-Index: perl-5.12.2/Configure
-===================================================================
---- perl-5.12.2.orig/Configure
-+++ perl-5.12.2/Configure
-@@ -1316,8 +1316,9 @@ loclibpth="/usr/local/lib /opt/local/lib
- loclibpth="$loclibpth /opt/gnu/lib /usr/GNU/lib /opt/GNU/lib"
-
- : general looking path for locating libraries
--glibpth="/lib /usr/lib $xlibpth"
-+glibpth="/lib /usr/lib /lib64 /usr/lib64 $xlibpth"
- glibpth="$glibpth /usr/ccs/lib /usr/ucblib /usr/local/lib"
-+test -f /usr/lib/*-linux-gnu/libc.so && glibpth="/usr/lib/*-linux-gnu $glibpth"
- test -f /usr/shlib/libc.so && glibpth="/usr/shlib $glibpth"
- test -f /shlib/libc.so && glibpth="/shlib $glibpth"
- test -d /usr/lib64 && glibpth="$glibpth /lib64 /usr/lib64 /usr/local/lib64"
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/cross-generate_uudmap.patch b/meta/recipes-devtools/perl/perl-5.12.3/cross-generate_uudmap.patch
deleted file mode 100644
index d59ad8d..0000000
--- a/meta/recipes-devtools/perl/perl-5.12.3/cross-generate_uudmap.patch
+++ /dev/null
@@ -1,15 +0,0 @@
-Upstream-Status:Inappropriate [embedded specific]
-
-Index: perl-5.10.1/Makefile.SH
-===================================================================
---- perl-5.10.1.orig/Makefile.SH 2010-02-12 19:06:17.000000000 +0300
-+++ perl-5.10.1/Makefile.SH 2010-02-12 19:10:13.000000000 +0300
-@@ -596,7 +596,7 @@
- \$(RUN) ./generate_uudmap\$(HOST_EXE_EXT) >uudmap.h
-
- generate_uudmap\$(HOST_EXE_EXT): generate_uudmap\$(OBJ_EXT)
-- \$(CC) -o generate_uudmap\$(EXE_EXT) \$(LDFLAGS) generate_uudmap\$(OBJ_EXT) \$(libs)
-+ \$(BUILD_CC) -o generate_uudmap\$(EXE_EXT) generate_uudmap.c
-
- !GROK!THIS!
- $spitshell >>$Makefile <<'!NO!SUBS!'
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/arm_optim.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/arm_optim.diff
deleted file mode 100644
index b5b952e..0000000
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/arm_optim.diff
+++ /dev/null
@@ -1,34 +0,0 @@
-Upstream-Status:Inappropriate [debian patch]
-
-From: Niko Tyni <ntyni at debian.org>
-Description: Downgrade the optimization of sv.c on arm due to a gcc-4.4 bug
-Bug-Debian: http://bugs.debian.org/580334
-
-Regression from gcc-4.3, not reported yet.
-
- perl -e '"-2" =~ /(.+)/; @foo=(); push @foo, $_ for $1..undef; print @foo ? "ok\n" : "not ok\n"'
-
-
----
- cflags.SH | 6 +++++-
- 1 files changed, 5 insertions(+), 1 deletions(-)
-
-diff --git a/cflags.SH b/cflags.SH
-index a5d71b9..6914ba6 100755
---- a/cflags.SH
-+++ b/cflags.SH
-@@ -312,7 +312,11 @@ for file do
- regexec) ;;
- run) ;;
- scope) ;;
-- sv) ;;
-+ sv)
-+ case $archname in
-+ arm-*|armeb-*)
-+ optimize=-O0;;
-+ esac;;
- taint) ;;
- toke) ;;
- universal) ;;
---
-tg: (a508b62..) debian/arm_optim (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/cpan_config_path.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/cpan_config_path.diff
deleted file mode 100644
index 27b4a45..0000000
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/cpan_config_path.diff
+++ /dev/null
@@ -1,24 +0,0 @@
-Upstream-Status:Inappropriate [debian patch]
-
-Subject: Set location of CPAN::Config to /etc/perl as /usr may not be writable.
-
-
----
- cpan/CPAN/lib/CPAN/HandleConfig.pm | 2 +-
- 1 files changed, 1 insertions(+), 1 deletions(-)
-
-diff --git a/cpan/CPAN/lib/CPAN/HandleConfig.pm b/cpan/CPAN/lib/CPAN/HandleConfig.pm
-index 76cd81e..65a3b27 100644
---- a/cpan/CPAN/lib/CPAN/HandleConfig.pm
-+++ b/cpan/CPAN/lib/CPAN/HandleConfig.pm
-@@ -543,7 +543,7 @@ sub load {
- $configpm = $INC{"CPAN/MyConfig.pm"};
- $redo++;
- } else {
-- my($path_to_cpan) = File::Basename::dirname($INC{"CPAN.pm"});
-+ my($path_to_cpan) = '/etc/perl';
- my($configpmdir) = File::Spec->catdir($path_to_cpan,"CPAN");
- my($configpmtest) = File::Spec->catfile($configpmdir,"Config.pm");
- my $inc_key;
---
-tg: (a508b62..) debian/cpan_config_path (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/deprecate-with-apt.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/deprecate-with-apt.diff
deleted file mode 100644
index ad0b0cf..0000000
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/deprecate-with-apt.diff
+++ /dev/null
@@ -1,61 +0,0 @@
-Upstream-Status:Inappropriate [debian patch]
-
-From: Niko Tyni <ntyni at debian.org>
-Subject: Point users to Debian packages of deprecated core modules
-Bug-Debian: http://bugs.debian.org/580034
-
-Class::ISA, Switch, Pod::Plainer, and (partially) Shell were
-deprecated from the Perl core in 5.12.0.
-
-To get a clean transition, perl-modules is going to recommend the separate
-Debian packages of these for one release cycle so that they will be
-pulled in by default on upgrades.
-
-However, on systems configured to ignore recommendations the deprecation
-warnings will still be useful, so modify them slightly to point to the
-separate packages instead.
-
----
- lib/deprecate.pm | 18 +++++++++++++++++-
- 1 files changed, 17 insertions(+), 1 deletions(-)
-
-diff --git a/lib/deprecate.pm b/lib/deprecate.pm
-index 7b92e0b..9db7330 100644
---- a/lib/deprecate.pm
-+++ b/lib/deprecate.pm
-@@ -7,6 +7,16 @@ our $VERSION = 0.01;
- our %Config;
- unless (%Config) { require Config; *Config = \%Config::Config; }
-
-+# Debian-specific change: recommend the separate Debian packages of
-+# deprecated modules where available
-+
-+my %DEBIAN_PACKAGES = (
-+ "Class::ISA" => "libclass-isa-perl",
-+ "Pod::Plainer" => "libpod-plainer-perl",
-+ "Switch" => "libswitch-perl",
-+ "Shell" => "libshell-perl",
-+);
-+
- sub import {
- my ($package, $file, $line) = caller;
- my $expect_leaf = "$package.pm";
-@@ -44,9 +54,15 @@ EOM
- if (defined $callers_bitmask
- && (vec($callers_bitmask, $warnings::Offsets{deprecated}, 1)
- || vec($callers_bitmask, $warnings::Offsets{all}, 1))) {
-- warn <<"EOM";
-+ if (my $deb = $DEBIAN_PACKAGES{$package}) {
-+ warn <<"EOM";
-+$package will be removed from the Perl core distribution in the next major release. Please install the separate $deb package. It is being used at $call_file, line $call_line.
-+EOM
-+ } else {
-+ warn <<"EOM";
- $package will be removed from the Perl core distribution in the next major release. Please install it from CPAN. It is being used at $call_file, line $call_line.
- EOM
-+ }
- }
- return;
- }
---
-tg: (a508b62..) debian/deprecate-with-apt (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/devel-ppport-ia64-optim.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/devel-ppport-ia64-optim.diff
deleted file mode 100644
index e57a315..0000000
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/devel-ppport-ia64-optim.diff
+++ /dev/null
@@ -1,34 +0,0 @@
-Upstream-Status:Inappropriate [debian patch]
-
-From: Niko Tyni <ntyni at debian.org>
-Subject: Work around an ICE on ia64
-Closes: 548943
-
-Temporarily work around an internal compiler error in Devel::PPPort
-on ia64+gcc-4.3.
-
-
----
- cpan/Devel-PPPort/Makefile.PL | 7 +++++++
- 1 files changed, 7 insertions(+), 0 deletions(-)
-
-diff --git a/cpan/Devel-PPPort/Makefile.PL b/cpan/Devel-PPPort/Makefile.PL
-index 67eebc1..f1ef7a2 100644
---- a/cpan/Devel-PPPort/Makefile.PL
-+++ b/cpan/Devel-PPPort/Makefile.PL
-@@ -75,6 +75,13 @@ sub configure
- push @moreopts, INSTALLDIRS => ($] >= 5.007003 ? 'perl' : 'site');
- }
-
-+
-+ # temporary Debian hack, see http://bugs.debian.org/548943
-+ require Config;
-+ if ($Config::Config{archname} =~ /^ia64/) {
-+ push @moreopts, OPTIMIZE => '-g -O0';
-+ }
-+
- if ($opt{'apicheck'}) {
- $PL_FILES{'apicheck_c.PL'} = 'apicheck.c';
- push @C_FILES, qw{ apicheck.c };
---
-tg: (a508b62..) debian/devel-ppport-ia64-optim (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/extutils_hacks.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/extutils_hacks.diff
deleted file mode 100644
index e1cbdb5..0000000
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/extutils_hacks.diff
+++ /dev/null
@@ -1,315 +0,0 @@
-Upstream-Status:Inappropriate [debian patch]
-
-Subject: Various debian-specific ExtUtils changes
-
- * Respect umask during installation, and set as appropriate for each of
- perl, vendor and site (policy requires group writable site dirs).
-
- * Don't install .packlist or perllocal.pod for perl or vendor.
- * Fiddle with *PREFIX and variables written to the makefile so that
- install directories may be changed when make is run by passing
- PREFIX= to the "make install" command (used when packaging
- modules).
-
- * Set location of libperl.a to /usr/lib.
- * Note that libperl-dev package is required for embedded linking.
- * Change install target dependencies to facilitate parallel makes.
-
-
----
- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm | 12 +++---
- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm | 44 +++++-----------------
- cpan/ExtUtils-MakeMaker/t/INST.t | 4 +--
- cpan/ExtUtils-MakeMaker/t/INST_PREFIX.t | 10 +++---
- dist/ExtUtils-Install/lib/ExtUtils/Install.pm | 18 +++++-----
- lib/ExtUtils/Embed.pm | 3 ++
- 6 files changed, 34 insertions(+), 57 deletions(-)
-
-diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm
-index 4905aeb..a80ac20 100644
---- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm
-+++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm
-@@ -701,8 +701,6 @@ all POD files in MAN1PODS and MAN3PODS.
- sub manifypods_target {
- my($self) = shift;
-
-- my $man1pods = '';
-- my $man3pods = '';
- my $dependencies = '';
-
- # populate manXpods & dependencies:
-@@ -718,7 +716,7 @@ END
- foreach my $section (qw(1 3)) {
- my $pods = $self->{"MAN${section}PODS"};
- push @man_cmds, $self->split_command(<<CMD, %$pods);
-- \$(NOECHO) \$(POD2MAN) --section=$section --perm_rw=\$(PERM_RW)
-+ \$(NOECHO) \$(POD2MAN) --section=\$(MAN${section}EXT) --perm_rw=\$(PERM_RW)
- CMD
- }
-
-@@ -1428,9 +1426,11 @@ sub init_INSTALL_from_PREFIX {
- $self->{SITEPREFIX} ||= $sprefix;
- $self->{VENDORPREFIX} ||= $vprefix;
-
-- # Lots of MM extension authors like to use $(PREFIX) so we
-- # put something sensible in there no matter what.
-- $self->{PREFIX} = '$('.uc $self->{INSTALLDIRS}.'PREFIX)';
-+ my $p = $self->{PREFIX} = $self->{PERLPREFIX};
-+ for my $t (qw/PERL SITE VENDOR/)
-+ {
-+ $self->{"${t}PREFIX"} =~ s!^\Q$p\E(?=/|$)!\$(PREFIX)!;
-+ }
- }
-
- my $arch = $Config{archname};
-diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
-index 239d6df..940de38 100644
---- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
-+++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
-@@ -2046,9 +2046,7 @@ doc__install : doc_site_install
- $(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
-
- pure_perl_install :: all
-- $(NOECHO) $(MOD_INSTALL) \
-- read }.$self->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q{ \
-- write }.$self->catfile('$(DESTINSTALLARCHLIB)','auto','$(FULLEXT)','.packlist').q{ \
-+ $(NOECHO) umask 022; $(MOD_INSTALL) \
- $(INST_LIB) $(DESTINSTALLPRIVLIB) \
- $(INST_ARCHLIB) $(DESTINSTALLARCHLIB) \
- $(INST_BIN) $(DESTINSTALLBIN) \
-@@ -2060,7 +2058,7 @@ pure_perl_install :: all
-
-
- pure_site_install :: all
-- $(NOECHO) $(MOD_INSTALL) \
-+ $(NOECHO) umask 02; $(MOD_INSTALL) \
- read }.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{ \
- write }.$self->catfile('$(DESTINSTALLSITEARCH)','auto','$(FULLEXT)','.packlist').q{ \
- $(INST_LIB) $(DESTINSTALLSITELIB) \
-@@ -2073,9 +2071,7 @@ pure_site_install :: all
- }.$self->catdir('$(PERL_ARCHLIB)','auto','$(FULLEXT)').q{
-
- pure_vendor_install :: all
-- $(NOECHO) $(MOD_INSTALL) \
-- read }.$self->catfile('$(VENDORARCHEXP)','auto','$(FULLEXT)','.packlist').q{ \
-- write }.$self->catfile('$(DESTINSTALLVENDORARCH)','auto','$(FULLEXT)','.packlist').q{ \
-+ $(NOECHO) umask 022; $(MOD_INSTALL) \
- $(INST_LIB) $(DESTINSTALLVENDORLIB) \
- $(INST_ARCHLIB) $(DESTINSTALLVENDORARCH) \
- $(INST_BIN) $(DESTINSTALLVENDORBIN) \
-@@ -2084,37 +2080,19 @@ pure_vendor_install :: all
- $(INST_MAN3DIR) $(DESTINSTALLVENDORMAN3DIR)
-
- doc_perl_install :: all
-- $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod
-- -$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
-- -$(NOECHO) $(DOC_INSTALL) \
-- "Module" "$(NAME)" \
-- "installed into" "$(INSTALLPRIVLIB)" \
-- LINKTYPE "$(LINKTYPE)" \
-- VERSION "$(VERSION)" \
-- EXE_FILES "$(EXE_FILES)" \
-- >> }.$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q{
-
- doc_site_install :: all
-- $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod
-- -$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
-- -$(NOECHO) $(DOC_INSTALL) \
-+ $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLSITEARCH)/perllocal.pod
-+ -$(NOECHO) umask 02; $(MKPATH) $(DESTINSTALLSITEARCH)
-+ -$(NOECHO) umask 02; $(DOC_INSTALL) \
- "Module" "$(NAME)" \
- "installed into" "$(INSTALLSITELIB)" \
- LINKTYPE "$(LINKTYPE)" \
- VERSION "$(VERSION)" \
- EXE_FILES "$(EXE_FILES)" \
-- >> }.$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q{
-+ >> }.$self->catfile('$(DESTINSTALLSITEARCH)','perllocal.pod').q{
-
- doc_vendor_install :: all
-- $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod
-- -$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
-- -$(NOECHO) $(DOC_INSTALL) \
-- "Module" "$(NAME)" \
-- "installed into" "$(INSTALLVENDORLIB)" \
-- LINKTYPE "$(LINKTYPE)" \
-- VERSION "$(VERSION)" \
-- EXE_FILES "$(EXE_FILES)" \
-- >> }.$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q{
-
- };
-
-@@ -2123,13 +2101,12 @@ uninstall :: uninstall_from_$(INSTALLDIRS)dirs
- $(NOECHO) $(NOOP)
-
- uninstall_from_perldirs ::
-- $(NOECHO) $(UNINSTALL) }.$self->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q{
-
- uninstall_from_sitedirs ::
- $(NOECHO) $(UNINSTALL) }.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{
-
- uninstall_from_vendordirs ::
-- $(NOECHO) $(UNINSTALL) }.$self->catfile('$(VENDORARCHEXP)','auto','$(FULLEXT)','.packlist').q{
-+
- };
-
- join("", at m);
-@@ -2402,7 +2379,7 @@ MAP_PRELIBS = $Config{perllibs} $Config{cryptlib}
- ($lperl = $libperl) =~ s/\$\(A\)/$self->{LIB_EXT}/;
- }
- unless ($libperl && -f $lperl) { # Ilya's code...
-- my $dir = $self->{PERL_SRC} || "$self->{PERL_ARCHLIB}/CORE";
-+ my $dir = $self->{PERL_SRC} || "/usr/lib";
- $dir = "$self->{PERL_ARCHLIB}/.." if $self->{UNINSTALLED_PERL};
- $libperl ||= "libperl$self->{LIB_EXT}";
- $libperl = "$dir/$libperl";
-@@ -2998,8 +2975,7 @@ sub prefixify {
- print STDERR " prefixify $var => $path\n" if $Verbose >= 2;
- print STDERR " from $sprefix to $rprefix\n" if $Verbose >= 2;
-
-- if( $self->{ARGS}{PREFIX} &&
-- $path !~ s{^\Q$sprefix\E\b}{$rprefix}s )
-+ if( $path !~ s{^\Q$sprefix\E\b}{$rprefix}s && $self->{ARGS}{PREFIX} )
- {
-
- print STDERR " cannot prefix, using default.\n" if $Verbose >= 2;
-diff --git a/cpan/ExtUtils-MakeMaker/t/INST.t b/cpan/ExtUtils-MakeMaker/t/INST.t
-index 8a140eb..cf1410e 100755
---- a/cpan/ExtUtils-MakeMaker/t/INST.t
-+++ b/cpan/ExtUtils-MakeMaker/t/INST.t
-@@ -59,9 +59,7 @@ isa_ok( $mm, 'ExtUtils::MakeMaker' );
- is( $mm->{NAME}, 'Big::Dummy', 'NAME' );
- is( $mm->{VERSION}, 0.01, 'VERSION' );
-
--my $config_prefix = $Config{installprefixexp} || $Config{installprefix} ||
-- $Config{prefixexp} || $Config{prefix};
--is( $mm->{PERLPREFIX}, $config_prefix, 'PERLPREFIX' );
-+is( $mm->{PERLPREFIX}, '$(PREFIX)', 'PERLPREFIX' );
-
- is( !!$mm->{PERL_CORE}, !!$ENV{PERL_CORE}, 'PERL_CORE' );
-
-diff --git a/cpan/ExtUtils-MakeMaker/t/INST_PREFIX.t b/cpan/ExtUtils-MakeMaker/t/INST_PREFIX.t
-index 8bb9db8..316546d 100755
---- a/cpan/ExtUtils-MakeMaker/t/INST_PREFIX.t
-+++ b/cpan/ExtUtils-MakeMaker/t/INST_PREFIX.t
-@@ -10,7 +10,7 @@ BEGIN {
- }
-
- use strict;
--use Test::More tests => 52;
-+use Test::More tests => 47;
- use MakeMaker::Test::Utils;
- use MakeMaker::Test::Setup::BFD;
- use ExtUtils::MakeMaker;
-@@ -56,16 +56,16 @@ like( $stdout->read, qr{
- Writing\ $Makefile\ for\ Big::Dummy\n
- }x );
-
--is( $mm->{PREFIX}, '$(SITEPREFIX)', 'PREFIX set based on INSTALLDIRS' );
-+#is( $mm->{PREFIX}, '$(SITEPREFIX)', 'PREFIX set based on INSTALLDIRS' );
-
- isa_ok( $mm, 'ExtUtils::MakeMaker' );
-
- is( $mm->{NAME}, 'Big::Dummy', 'NAME' );
- is( $mm->{VERSION}, 0.01, 'VERSION' );
-
--foreach my $prefix (qw(PREFIX PERLPREFIX SITEPREFIX VENDORPREFIX)) {
-- unlike( $mm->{$prefix}, qr/\$\(PREFIX\)/ );
--}
-+#foreach my $prefix (qw(PREFIX PERLPREFIX SITEPREFIX VENDORPREFIX)) {
-+# unlike( $mm->{$prefix}, qr/\$\(PREFIX\)/ );
-+#}
-
-
- my $PREFIX = File::Spec->catdir('foo', 'bar');
-diff --git a/dist/ExtUtils-Install/lib/ExtUtils/Install.pm b/dist/ExtUtils-Install/lib/ExtUtils/Install.pm
-index da58365..d6d5c11 100644
---- a/dist/ExtUtils-Install/lib/ExtUtils/Install.pm
-+++ b/dist/ExtUtils-Install/lib/ExtUtils/Install.pm
-@@ -468,7 +468,7 @@ sub _can_write_dir {
-
- =pod
-
--=item _mkpath($dir,$show,$mode,$verbose,$dry_run)
-+=item _mkpath($dir,$show,$verbose,$dry_run)
-
- Wrapper around File::Path::mkpath() to handle errors.
-
-@@ -485,13 +485,13 @@ writable.
- =cut
-
- sub _mkpath {
-- my ($dir,$show,$mode,$verbose,$dry_run)=@_;
-+ my ($dir,$show,$verbose,$dry_run)=@_;
- if ( $verbose && $verbose > 1 && ! -d $dir) {
- $show= 1;
-- printf "mkpath(%s,%d,%#o)\n", $dir, $show, $mode;
-+ printf "mkpath(%s,%d)\n", $dir, $show;
- }
- if (!$dry_run) {
-- if ( ! eval { File::Path::mkpath($dir,$show,$mode); 1 } ) {
-+ if ( ! eval { File::Path::mkpath($dir,$show); 1 } ) {
- _choke("Can't create '$dir'","$@");
- }
-
-@@ -796,7 +796,7 @@ sub install { #XXX OS-SPECIFIC
- _chdir($cwd);
- }
- foreach my $targetdir (sort keys %check_dirs) {
-- _mkpath( $targetdir, 0, 0755, $verbose, $dry_run );
-+ _mkpath( $targetdir, 0, $verbose, $dry_run );
- }
- foreach my $found (@found_files) {
- my ($diff, $ffd, $origfile, $mode, $size, $atime, $mtime,
-@@ -810,7 +810,7 @@ sub install { #XXX OS-SPECIFIC
- $targetfile= _unlink_or_rename( $targetfile, 'tryhard', 'install' )
- unless $dry_run;
- } elsif ( ! -d $targetdir ) {
-- _mkpath( $targetdir, 0, 0755, $verbose, $dry_run );
-+ _mkpath( $targetdir, 0, $verbose, $dry_run );
- }
- print "Installing $targetfile\n";
-
-@@ -850,7 +850,7 @@ sub install { #XXX OS-SPECIFIC
-
- if ($pack{'write'}) {
- $dir = install_rooted_dir(dirname($pack{'write'}));
-- _mkpath( $dir, 0, 0755, $verbose, $dry_run );
-+ _mkpath( $dir, 0, $verbose, $dry_run );
- print "Writing $pack{'write'}\n" if $verbose;
- $packlist->write(install_rooted_file($pack{'write'})) unless $dry_run;
- }
-@@ -1190,7 +1190,7 @@ be prepended as a directory to each installed file (and directory).
- sub pm_to_blib {
- my($fromto,$autodir,$pm_filter) = @_;
-
-- _mkpath($autodir,0,0755);
-+ _mkpath($autodir,0);
- while(my($from, $to) = each %$fromto) {
- if( -f $to && -s $from == -s $to && -M $to < -M $from ) {
- print "Skip $to (unchanged)\n";
-@@ -1213,7 +1213,7 @@ sub pm_to_blib {
- # we wont try hard here. its too likely to mess things up.
- forceunlink($to);
- } else {
-- _mkpath(dirname($to),0,0755);
-+ _mkpath(dirname($to),0);
- }
- if ($need_filtering) {
- run_filter($pm_filter, $from, $to);
-diff --git a/lib/ExtUtils/Embed.pm b/lib/ExtUtils/Embed.pm
-index 24ae909..12d421d 100644
---- a/lib/ExtUtils/Embed.pm
-+++ b/lib/ExtUtils/Embed.pm
-@@ -305,6 +305,9 @@ and extensions in your C/C++ applications.
- Typically, an application B<Makefile> will invoke ExtUtils::Embed
- functions while building your application.
-
-+Note that on Debian systems the B<libperl-dev> package is required for
-+compiling applications which embed an interpreter.
-+
- =head1 @EXPORT
-
- ExtUtils::Embed exports the following functions:
---
-tg: (a508b62..) debian/extutils_hacks (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/autodie-flock.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/autodie-flock.diff
deleted file mode 100644
index 375ae41..0000000
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/autodie-flock.diff
+++ /dev/null
@@ -1,100 +0,0 @@
-Upstream-Status:Inappropriate [debian patch]
-
-From: Niko Tyni <ntyni at debian.org>
-Subject: Allow for flock returning EAGAIN instead of EWOULDBLOCK on linux/parisc
-Bug-Debian: http://bugs.debian.org/543731
-Origin: upstream, http://github.com/pfenwick/autodie/commit/037738e11a6097734b0e1dabdd77b92e5fe35219
-
-
----
- cpan/autodie/lib/Fatal.pm | 14 +++++++++++++-
- cpan/autodie/t/flock.t | 12 ++++++++++--
- 2 files changed, 23 insertions(+), 3 deletions(-)
-
-diff --git a/cpan/autodie/lib/Fatal.pm b/cpan/autodie/lib/Fatal.pm
-old mode 100644
-new mode 100755
-index 18e71ed..c17a257
---- a/cpan/autodie/lib/Fatal.pm
-+++ b/cpan/autodie/lib/Fatal.pm
-@@ -5,6 +5,7 @@ use Carp;
- use strict;
- use warnings;
- use Tie::RefHash; # To cache subroutine refs
-+use Config;
-
- use constant PERL510 => ( $] >= 5.010 );
-
-@@ -52,6 +53,10 @@ our %_EWOULDBLOCK = (
- MSWin32 => 33,
- );
-
-+# the linux parisc port has separate EAGAIN and EWOULDBLOCK,
-+# and the kernel returns EAGAIN
-+my $try_EAGAIN = ($^O eq 'linux' and $Config{archname} =~ /hppa|parisc/) ? 1 : 0;
-+
- # We have some tags that can be passed in for use with import.
- # These are all assumed to be CORE::
-
-@@ -720,6 +725,11 @@ sub _one_invocation {
- my $EWOULDBLOCK = eval { POSIX::EWOULDBLOCK(); }
- || $_EWOULDBLOCK{$^O}
- || _autocroak("Internal error - can't overload flock - EWOULDBLOCK not defined on this system.");
-+ my $EAGAIN = $EWOULDBLOCK;
-+ if ($try_EAGAIN) {
-+ $EAGAIN = eval { POSIX::EAGAIN(); }
-+ || _autocroak("Internal error - can't overload flock - EAGAIN not defined on this system.");
-+ }
-
- require Fcntl; # For Fcntl::LOCK_NB
-
-@@ -735,7 +745,9 @@ sub _one_invocation {
- # If we failed, but we're using LOCK_NB and
- # returned EWOULDBLOCK, it's not a real error.
-
-- if (\$_[1] & Fcntl::LOCK_NB() and \$! == $EWOULDBLOCK ) {
-+ if (\$_[1] & Fcntl::LOCK_NB() and
-+ (\$! == $EWOULDBLOCK or
-+ ($try_EAGAIN and \$! == $EAGAIN ))) {
- return \$retval;
- }
-
-diff --git a/cpan/autodie/t/flock.t b/cpan/autodie/t/flock.t
-index a7550ba..6421a56 100755
---- a/cpan/autodie/t/flock.t
-+++ b/cpan/autodie/t/flock.t
-@@ -2,7 +2,8 @@
- use strict;
- use Test::More;
- use Fcntl qw(:flock);
--use POSIX qw(EWOULDBLOCK);
-+use POSIX qw(EWOULDBLOCK EAGAIN);
-+use Config;
-
- require Fatal;
-
-@@ -10,6 +11,9 @@ my $EWOULDBLOCK = eval { EWOULDBLOCK() }
- || $Fatal::_EWOULDBLOCK{$^O}
- || plan skip_all => "EWOULDBLOCK not defined on this system";
-
-+my $try_EAGAIN = ($^O eq 'linux' and $Config{archname} =~ /hppa|parisc/) ? 1 : 0;
-+my $EAGAIN = eval { EAGAIN() };
-+
- my ($self_fh, $self_fh2);
-
- eval {
-@@ -55,7 +59,11 @@ eval {
- $return = flock($self_fh2, LOCK_EX | LOCK_NB);
- };
-
--is($!+0, $EWOULDBLOCK, "Double-flocking should be EWOULDBLOCK");
-+if (!$try_EAGAIN) {
-+ is($!+0, $EWOULDBLOCK, "Double-flocking should be EWOULDBLOCK");
-+} else {
-+ ok($!+0 == $EWOULDBLOCK || $!+0 == $EAGAIN, "Double-flocking should be EWOULDBLOCK or EAGAIN");
-+}
- ok(!$return, "flocking a file twice should fail");
- is($@, "", "Non-blocking flock should not fail on EWOULDBLOCK");
-
---
-tg: (a508b62..) fixes/autodie-flock (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/concat-stack-corruption.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/concat-stack-corruption.diff
deleted file mode 100644
index 40437f3..0000000
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/concat-stack-corruption.diff
+++ /dev/null
@@ -1,39 +0,0 @@
-Upstream-Status:Inappropriate [debian patch]
-
-From: Niko Tyni <ntyni at debian.org>
-Subject: Fix stack pointer corruption in pp_concat() with 'use encoding'
-Bug-Debian: http://bugs.debian.org/596105
-Bug: http://rt.perl.org/rt3/Ticket/Display.html?id=78674
-Origin: upstream, http://perl5.git.perl.org/perl.git/commit/e3393f51d48d8b790e26324eb0336fac9689fa46
-
-If the stack is reallocated during pp_concat() and 'use encoding' in
-effect, the stack pointer gets corrupted, causing memory allocation bugs
-and the like.
-
----
- pp_hot.c | 3 +++
- 1 files changed, 3 insertions(+), 0 deletions(-)
-
-diff --git a/pp_hot.c b/pp_hot.c
-index ee699ef..c5ed14e 100644
---- a/pp_hot.c
-+++ b/pp_hot.c
-@@ -271,6 +271,8 @@ PP(pp_concat)
- rbyte = !DO_UTF8(right);
- }
- if (lbyte != rbyte) {
-+ /* sv_utf8_upgrade_nomg() may reallocate the stack */
-+ PUTBACK;
- if (lbyte)
- sv_utf8_upgrade_nomg(TARG);
- else {
-@@ -279,6 +281,7 @@ PP(pp_concat)
- sv_utf8_upgrade_nomg(right);
- rpv = SvPV_const(right, rlen);
- }
-+ SPAGAIN;
- }
- sv_catpvn_nomg(TARG, rpv, rlen);
-
---
-tg: (a508b62..) fixes/concat-stack-corruption (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/cpanplus-without-home.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/cpanplus-without-home.diff
deleted file mode 100644
index e7ff57c..0000000
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/cpanplus-without-home.diff
+++ /dev/null
@@ -1,32 +0,0 @@
-Upstream-Status:Inappropriate [debian patch]
-
-From: Niko Tyni <ntyni at debian.org>
-Subject: Fix CPANPLUS test failures when HOME doesn't exist
-Bug: http://rt.cpan.org/Public/Bug/Display.html?id=52988
-Bug-Debian: http://bugs.debian.org/577011
-Origin: upstream
-
-The Debian autobuilders are configured with a non-existing $ENV{HOME},
-triggering a bug in CPANPLUS that causes test failures.
-
-Fix from CPANPLUS-0.9001.
-
----
- cpan/CPANPLUS/lib/CPANPLUS/Internals/Utils.pm | 2 +-
- 1 files changed, 1 insertions(+), 1 deletions(-)
-
-diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Utils.pm b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Utils.pm
-index 27d2abc..8475c36 100644
---- a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Utils.pm
-+++ b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Utils.pm
-@@ -5,7 +5,7 @@ use strict;
- use CPANPLUS::Error;
- use CPANPLUS::Internals::Constants;
-
--use Cwd qw[chdir];
-+use Cwd qw[chdir cwd];
- use File::Copy;
- use Params::Check qw[check];
- use Module::Load::Conditional qw[can_load];
---
-tg: (a508b62..) fixes/cpanplus-without-home (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/h2ph-gcc-4.5.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/h2ph-gcc-4.5.diff
deleted file mode 100644
index 9faab81..0000000
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/h2ph-gcc-4.5.diff
+++ /dev/null
@@ -1,108 +0,0 @@
-Upstream-Status:Inappropriate [debian patch]
-
-Author: Robin Barker <rmbarker at cpan.org>
-Subject: h2ph fix for gcc 4.5
-Bug-Debian: http://bugs.debian.org/599933
-Origin: upstream, http://perl5.git.perl.org/perl.git/commit/8d66b3f930dc6d88b524d103e304308ae73a46e7
-
-Fix h2ph and test. Needed to build with GCC 4.5.
-
-
----
- lib/h2ph.t | 12 ++++++++++--
- utils/h2ph.PL | 28 +++++++++++++++++++++++-----
- 2 files changed, 33 insertions(+), 7 deletions(-)
-
-diff --git a/lib/h2ph.t b/lib/h2ph.t
-index 27dd7b9..8d62d46 100755
---- a/lib/h2ph.t
-+++ b/lib/h2ph.t
-@@ -18,7 +18,7 @@ if (!(-e $extracted_program)) {
- exit 0;
- }
-
--plan(4);
-+plan(5);
-
- # quickly compare two text files
- sub txt_compare {
-@@ -41,8 +41,16 @@ $result = runperl( progfile => 'lib/h2ph.pht',
- stderr => 1 );
- like( $result, qr/syntax OK$/, "output compiles");
-
-+$result = runperl( progfile => '_h2ph_pre.ph',
-+ switches => ['-c'],
-+ stderr => 1 );
-+like( $result, qr/syntax OK$/, "preamble compiles");
-+
- $result = runperl( switches => ["-w"],
-- prog => '$SIG{__WARN__} = sub { die $_[0] }; require q(lib/h2ph.pht);');
-+ stderr => 1,
-+ prog => <<'PROG' );
-+$SIG{__WARN__} = sub { die $_[0] }; require q(lib/h2ph.pht);
-+PROG
- is( $result, '', "output free of warnings" );
-
- # cleanup
-diff --git a/utils/h2ph.PL b/utils/h2ph.PL
-index 8f56db4..1255807 100644
---- a/utils/h2ph.PL
-+++ b/utils/h2ph.PL
-@@ -401,7 +401,10 @@ if ($opt_e && (scalar(keys %bad_file) > 0)) {
- exit $Exit;
-
- sub expr {
-- $new = '"(assembly code)"' and return if /\b__asm__\b/; # freak out.
-+ if (/\b__asm__\b/) { # freak out
-+ $new = '"(assembly code)"';
-+ return
-+ }
- my $joined_args;
- if(keys(%curargs)) {
- $joined_args = join('|', keys(%curargs));
-@@ -770,7 +773,7 @@ sub inc_dirs
- sub build_preamble_if_necessary
- {
- # Increment $VERSION every time this function is modified:
-- my $VERSION = 2;
-+ my $VERSION = 3;
- my $preamble = "$Dest_dir/_h2ph_pre.ph";
-
- # Can we skip building the preamble file?
-@@ -798,7 +801,16 @@ sub build_preamble_if_necessary
- # parenthesized value: d=(v)
- $define{$_} = $1;
- }
-- if ($define{$_} =~ /^([+-]?(\d+)?\.\d+([eE][+-]?\d+)?)[FL]?$/) {
-+ if (/^(\w+)\((\w)\)$/) {
-+ my($macro, $arg) = ($1, $2);
-+ my $def = $define{$_};
-+ $def =~ s/$arg/\$\{$arg\}/g;
-+ print PREAMBLE <<DEFINE;
-+unless (defined &$macro) { sub $macro(\$) { my (\$$arg) = \@_; \"$def\" } }
-+
-+DEFINE
-+ } elsif
-+ ($define{$_} =~ /^([+-]?(\d+)?\.\d+([eE][+-]?\d+)?)[FL]?$/) {
- # float:
- print PREAMBLE
- "unless (defined &$_) { sub $_() { $1 } }\n\n";
-@@ -807,8 +819,14 @@ sub build_preamble_if_necessary
- print PREAMBLE
- "unless (defined &$_) { sub $_() { $1 } }\n\n";
- } elsif ($define{$_} =~ /^\w+$/) {
-- print PREAMBLE
-- "unless (defined &$_) { sub $_() { &$define{$_} } }\n\n";
-+ my $def = $define{$_};
-+ if ($isatype{$def}) {
-+ print PREAMBLE
-+ "unless (defined &$_) { sub $_() { \"$def\" } }\n\n";
-+ } else {
-+ print PREAMBLE
-+ "unless (defined &$_) { sub $_() { &$def } }\n\n";
-+ }
- } else {
- print PREAMBLE
- "unless (defined &$_) { sub $_() { \"",
---
-tg: (a508b62..) fixes/h2ph-gcc-4.5 (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/lc-numeric-docs.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/lc-numeric-docs.diff
deleted file mode 100644
index 67a55da..0000000
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/lc-numeric-docs.diff
+++ /dev/null
@@ -1,97 +0,0 @@
-Upstream-Status:Inappropriate [debian patch]
-
-From: Niko Tyni <ntyni at debian.org>
-Subject: LC_NUMERIC documentation fixes
-Bug-Debian: http://bugs.debian.org/379329
-Bug: http://rt.perl.org/rt3/Ticket/Display.html?id=78452
-Origin: upstream, http://perl5.git.perl.org/perl.git/commit/903eb63f7d8d47a38971a8e9af7201b9927882cf
-
-LC_NUMERIC documentation updates fixing two errors:
-
- - the early parts of perllocale.pod still say printf() uses LC_NUMERIC
- with just 'use locale' when actually a POSIX::setlocale() call is
- also needed
-
- - format() hasn't used LC_NUMERIC unconditionally since 5.005_03
- (commit 097ee67dff1c60f201bc09435bc6eaeeafcd8123).
-
-Test cases from the upstream commit dropped for the sake of simplicity.
-
----
- pod/perlform.pod | 20 ++++++++------------
- pod/perllocale.pod | 15 ++++++---------
- 2 files changed, 14 insertions(+), 21 deletions(-)
-
-diff --git a/pod/perlform.pod b/pod/perlform.pod
-index 3cfa1b7..df0f0a1 100644
---- a/pod/perlform.pod
-+++ b/pod/perlform.pod
-@@ -166,9 +166,9 @@ token on the first line. If an expression evaluates to a number with a
- decimal part, and if the corresponding picture specifies that the decimal
- part should appear in the output (that is, any picture except multiple "#"
- characters B<without> an embedded "."), the character used for the decimal
--point is B<always> determined by the current LC_NUMERIC locale. This
--means that, if, for example, the run-time environment happens to specify a
--German locale, "," will be used instead of the default ".". See
-+point is determined by the current LC_NUMERIC locale if C<use locale> is in
-+effect. This means that, if, for example, the run-time environment happens
-+to specify a German locale, "," will be used instead of the default ".". See
- L<perllocale> and L<"WARNINGS"> for more information.
-
-
-@@ -442,15 +442,11 @@ Lexical variables (declared with "my") are not visible within a
- format unless the format is declared within the scope of the lexical
- variable. (They weren't visible at all before version 5.001.)
-
--Formats are the only part of Perl that unconditionally use information
--from a program's locale; if a program's environment specifies an
--LC_NUMERIC locale, it is always used to specify the decimal point
--character in formatted output. Perl ignores all other aspects of locale
--handling unless the C<use locale> pragma is in effect. Formatted output
--cannot be controlled by C<use locale> because the pragma is tied to the
--block structure of the program, and, for historical reasons, formats
--exist outside that block structure. See L<perllocale> for further
--discussion of locale handling.
-+If a program's environment specifies an LC_NUMERIC locale and C<use
-+locale> is in effect when the format is declared, the locale is used
-+to specify the decimal point character in formatted output. Formatted
-+output cannot be controlled by C<use locale> at the time when write()
-+is called. See L<perllocale> for further discussion of locale handling.
-
- Within strings that are to be displayed in a fixed length text field,
- each control character is substituted by a space. (But remember the
-diff --git a/pod/perllocale.pod b/pod/perllocale.pod
-index 0dbabe7..0bec423 100644
---- a/pod/perllocale.pod
-+++ b/pod/perllocale.pod
-@@ -115,8 +115,7 @@ ucfirst(), and lcfirst()) use C<LC_CTYPE>
-
- =item *
-
--B<The formatting functions> (printf(), sprintf() and write()) use
--C<LC_NUMERIC>
-+B<Format declarations> (format()) use C<LC_NUMERIC>
-
- =item *
-
-@@ -967,13 +966,11 @@ system's implementation of the locale system than by Perl.
-
- =head2 write() and LC_NUMERIC
-
--Formats are the only part of Perl that unconditionally use information
--from a program's locale; if a program's environment specifies an
--LC_NUMERIC locale, it is always used to specify the decimal point
--character in formatted output. Formatted output cannot be controlled by
--C<use locale> because the pragma is tied to the block structure of the
--program, and, for historical reasons, formats exist outside that block
--structure.
-+If a program's environment specifies an LC_NUMERIC locale and C<use
-+locale> is in effect when the format is declared, the locale is used
-+to specify the decimal point character in formatted output. Formatted
-+output cannot be controlled by C<use locale> at the time when write()
-+is called.
-
- =head2 Freely available locale definitions
-
---
-tg: (a508b62..) fixes/lc-numeric-docs (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/lc-numeric-sprintf.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/lc-numeric-sprintf.diff
deleted file mode 100644
index 9fe07eb..0000000
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/lc-numeric-sprintf.diff
+++ /dev/null
@@ -1,31 +0,0 @@
-Upstream-Status:Inappropriate [debian patch]
-
-From: Niko Tyni <ntyni at debian.org>
-Subject: Fix sprintf not to ignore LC_NUMERIC with constants
-Bug-Debian: http://bugs.debian.org/601549
-Bug: http://rt.perl.org/rt3/Ticket/Display.html?id=78632
-Origin: upstream, http://perl5.git.perl.org/perl.git/commit/b3fd61496ebc585b1115807e3195f17714662a09
-
-Don't fold constants in sprintf() if locales are used
-
-An upstream regression in 5.10.1 made sprintf() ignore LC_NUMERIC for
-numeric constants.
-
----
- op.c | 1 +
- 1 files changed, 1 insertions(+), 0 deletions(-)
-
-diff --git a/op.c b/op.c
-index e94f158..3c6badb 100644
---- a/op.c
-+++ b/op.c
-@@ -2503,6 +2503,7 @@ S_fold_constants(pTHX_ register OP *o)
- case OP_SLE:
- case OP_SGE:
- case OP_SCMP:
-+ case OP_SPRINTF:
- /* XXX what about the numeric ops? */
- if (PL_hints & HINT_LOCALE)
- goto nope;
---
-tg: (a508b62..) fixes/lc-numeric-sprintf (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/processPL.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/processPL.diff
deleted file mode 100644
index fa2d7c3..0000000
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/processPL.diff
+++ /dev/null
@@ -1,45 +0,0 @@
-Upstream-Status:Inappropriate [debian patch]
-
-Subject: Always use PERLRUNINST when building perl modules.
-Bug-Debian: http://bugs.debian.org/357264
-Bug: http://rt.cpan.org/Public/Bug/Display.html?id=17224
-
-Revert part of upstream change 24524 to always use PERLRUNINST when
-building perl modules: Some PDL demos expect blib to be implicitly
-searched.
-
-
----
- cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm | 5 +----
- 1 files changed, 1 insertions(+), 4 deletions(-)
-
-diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
-index 239d6df..294d266 100644
---- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
-+++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
-@@ -3043,14 +3043,11 @@ sub processPL {
- # pm_to_blib depends on then it can't depend on pm_to_blib
- # else we have a dependency loop.
- my $pm_dep;
-- my $perlrun;
- if( defined $self->{PM}{$target} ) {
- $pm_dep = '';
-- $perlrun = 'PERLRUN';
- }
- else {
- $pm_dep = 'pm_to_blib';
-- $perlrun = 'PERLRUNINST';
- }
-
- $m .= <<MAKE_FRAG;
-@@ -3059,7 +3056,7 @@ all :: $target
- \$(NOECHO) \$(NOOP)
-
- $target :: $plfile $pm_dep
-- \$($perlrun) $plfile $target
-+ \$(PERLRUNINST) $plfile $target
- MAKE_FRAG
-
- }
---
-tg: (a508b62..) fixes/processPL (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/patchlevel b/meta/recipes-devtools/perl/perl-5.12.3/debian/patchlevel
deleted file mode 100644
index 0839fbd..0000000
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/patchlevel
+++ /dev/null
@@ -1,45 +0,0 @@
-Subject: List packaged patches for 5.12.3-2 in patchlevel.h
-Origin: vendor
-Bug-Debian: http://bugs.debian.org/567489
-
-The list can be refreshed from information in debian/patches by running
-'debian/rules refresh-patchlevel'.
-
-
---- perl/patchlevel.bak
-+++ perl/patchlevel.h
-@@ -133,0 +134,34 @@
-+ ,"DEBPKG:debian/arm_thread_stress_timeout - http://bugs.debian.org/501970 Raise the timeout of ext/threads/shared/t/stress.t to accommodate slower build hosts"
-+ ,"DEBPKG:debian/cpan_config_path - Set location of CPAN::Config to /etc/perl as /usr may not be writable."
-+ ,"DEBPKG:debian/cpan_definstalldirs - Provide a sensible INSTALLDIRS default for modules installed from CPAN."
-+ ,"DEBPKG:debian/db_file_ver - http://bugs.debian.org/340047 Remove overly restrictive DB_File version check."
-+ ,"DEBPKG:debian/doc_info - Replace generic man(1) instructions with Debian-specific information."
-+ ,"DEBPKG:debian/enc2xs_inc - http://bugs.debian.org/290336 Tweak enc2xs to follow symlinks and ignore missing @INC directories."
-+ ,"DEBPKG:debian/errno_ver - http://bugs.debian.org/343351 Remove Errno version check due to upgrade problems with long-running processes."
-+ ,"DEBPKG:debian/extutils_hacks - Various debian-specific ExtUtils changes"
-+ ,"DEBPKG:debian/fakeroot - Postpone LD_LIBRARY_PATH evaluation to the binary targets."
-+ ,"DEBPKG:debian/instmodsh_doc - Debian policy doesn't install .packlist files for core or vendor."
-+ ,"DEBPKG:debian/ld_run_path - Remove standard libs from LD_RUN_PATH as per Debian policy."
-+ ,"DEBPKG:debian/libnet_config_path - Set location of libnet.cfg to /etc/perl/Net as /usr may not be writable."
-+ ,"DEBPKG:debian/m68k_thread_stress - http://bugs.debian.org/495826 Disable some threads tests on m68k for now due to missing TLS."
-+ ,"DEBPKG:debian/mod_paths - Tweak @INC ordering for Debian"
-+ ,"DEBPKG:debian/module_build_man_extensions - http://bugs.debian.org/479460 Adjust Module::Build manual page extensions for the Debian Perl policy"
-+ ,"DEBPKG:debian/prune_libs - http://bugs.debian.org/128355 Prune the list of libraries wanted to what we actually need."
-+ ,"DEBPKG:fixes/net_smtp_docs - http://bugs.debian.org/100195 [rt.cpan.org #36038] Document the Net::SMTP 'Port' option"
-+ ,"DEBPKG:fixes/processPL - http://bugs.debian.org/357264 [rt.cpan.org #17224] Always use PERLRUNINST when building perl modules."
-+ ,"DEBPKG:debian/perlivp - http://bugs.debian.org/510895 Make perlivp skip include directories in /usr/local"
-+ ,"DEBPKG:debian/disable-zlib-bundling - Disable zlib bundling in Compress::Raw::Zlib"
-+ ,"DEBPKG:debian/cpanplus_definstalldirs - http://bugs.debian.org/533707 Configure CPANPLUS to use the site directories by default."
-+ ,"DEBPKG:debian/cpanplus_config_path - Save local versions of CPANPLUS::Config::System into /etc/perl."
-+ ,"DEBPKG:fixes/autodie-flock - http://bugs.debian.org/543731 Allow for flock returning EAGAIN instead of EWOULDBLOCK on linux/parisc"
-+ ,"DEBPKG:debian/devel-ppport-ia64-optim - http://bugs.debian.org/548943 Work around an ICE on ia64"
-+ ,"DEBPKG:fixes/cpanplus-without-home - http://bugs.debian.org/577011 [rt.cpan.org #52988] Fix CPANPLUS test failures when HOME doesn't exist"
-+ ,"DEBPKG:debian/arm_optim - http://bugs.debian.org/580334 Downgrade the optimization of sv.c on arm due to a gcc-4.4 bug"
-+ ,"DEBPKG:debian/deprecate-with-apt - http://bugs.debian.org/580034 Point users to Debian packages of deprecated core modules"
-+ ,"DEBPKG:fixes/hurd-ccflags - http://bugs.debian.org/587901 Make hints/gnu.sh append to $ccflags rather than overriding them"
-+ ,"DEBPKG:debian/squelch-locale-warnings - http://bugs.debian.org/508764 Squelch locale warnings in Debian package maintainer scripts"
-+ ,"DEBPKG:fixes/lc-numeric-docs - http://bugs.debian.org/379329 [perl #78452] [903eb63] LC_NUMERIC documentation fixes"
-+ ,"DEBPKG:fixes/lc-numeric-sprintf - http://bugs.debian.org/601549 [perl #78632] [b3fd614] Fix sprintf not to ignore LC_NUMERIC with constants"
-+ ,"DEBPKG:fixes/concat-stack-corruption - http://bugs.debian.org/596105 [perl #78674] [e3393f5] Fix stack pointer corruption in pp_concat() with 'use encoding'"
-+ ,"DEBPKG:fixes/h2ph-gcc-4.5 - http://bugs.debian.org/599933 [8d66b3f] h2ph fix for gcc 4.5"
-+ ,"DEBPKG:patchlevel - http://bugs.debian.org/567489 List packaged patches for 5.12.3-2 in patchlevel.h"
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/series b/meta/recipes-devtools/perl/perl-5.12.3/debian/series
deleted file mode 100644
index 5425bc6..0000000
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/series
+++ /dev/null
@@ -1,34 +0,0 @@
-debian/arm_thread_stress_timeout.diff -p1
-debian/cpan_config_path.diff -p1
-debian/cpan_definstalldirs.diff -p1
-debian/db_file_ver.diff -p1
-debian/doc_info.diff -p1
-debian/enc2xs_inc.diff -p1
-debian/errno_ver.diff -p1
-debian/extutils_hacks.diff -p1
-debian/fakeroot.diff -p1
-debian/instmodsh_doc.diff -p1
-debian/ld_run_path.diff -p1
-debian/libnet_config_path.diff -p1
-debian/m68k_thread_stress.diff -p1
-debian/mod_paths.diff -p1
-debian/module_build_man_extensions.diff -p1
-debian/prune_libs.diff -p1
-fixes/net_smtp_docs.diff -p1
-fixes/processPL.diff -p1
-debian/perlivp.diff -p1
-debian/disable-zlib-bundling.diff -p1
-debian/cpanplus_definstalldirs.diff -p1
-debian/cpanplus_config_path.diff -p1
-fixes/autodie-flock.diff -p1
-debian/devel-ppport-ia64-optim.diff -p1
-fixes/cpanplus-without-home.diff -p1
-debian/arm_optim.diff -p1
-debian/deprecate-with-apt.diff -p1
-fixes/hurd-ccflags.diff -p1
-debian/squelch-locale-warnings.diff -p1
-fixes/lc-numeric-docs.diff -p1
-fixes/lc-numeric-sprintf.diff -p1
-fixes/concat-stack-corruption.diff -p1
-fixes/h2ph-gcc-4.5.diff -p1
-patchlevel -p1
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_1.patch b/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_1.patch
deleted file mode 100644
index d5a6295..0000000
--- a/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_1.patch
+++ /dev/null
@@ -1,27 +0,0 @@
-Upstream-Status:Inappropriate [Backport]
-
-Imported from perl git tree by Nitin A Kamble <nitin.a.kamble at intel.com>
-2011-02-23
-
-commit 6695a346c41138df5b2c0e26b9a49b1f96137da0
-Author: Tony Cook <tony at openbsd32.tony.develop-help.com>
-Date: Thu Jul 22 09:54:13 2010 +1000
-
- make_ext.pl populates @INC correctly, don't override it badly
-
- PERL5LIB is populated by make_ext.pl with paths to the modules we need
- to run, don't override this with "../../lib" since that may not have
- been populated yet in a parallel build.
-
-diff --git a/ext/POSIX/Makefile.PL b/ext/POSIX/Makefile.PL
-index 392b6fb..9e6d091 100644
---- a/ext/POSIX/Makefile.PL
-+++ b/ext/POSIX/Makefile.PL
-@@ -1,7 +1,3 @@
--# Explicitly avoid including '.' in @INC; autoloader gets confused since it
--# can find POSIX.pm, but can't find autosplit.ix.
--BEGIN { @INC = '../../lib';}
--#
- use ExtUtils::MakeMaker;
- use ExtUtils::Constant 0.11 'WriteConstants';
- use Config;
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_2.patch b/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_2.patch
deleted file mode 100644
index a3432ab..0000000
--- a/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_2.patch
+++ /dev/null
@@ -1,24 +0,0 @@
-Upstream-Status:Inappropriate [Backport]
-
-Imported from perl git tree by Nitin A Kamble <nitin.a.kamble at intel.com>
-2011-02-23
-
-commit 24e93d7838b346d2ed632075f3d824a325170616
-Author: Tony Cook <tony at develop-help.com>
-Date: Sat Aug 14 00:21:29 2010 +1000
-
- POSIX/t/posix.t expects a certain start to Makefile.PL
-
- 6695a346 changed the start of Makefile.PL, but t/posix.t reads that to
- test its read() implementation, restore enough of the original for the
- test to pass.
-
-diff --git a/ext/POSIX/Makefile.PL b/ext/POSIX/Makefile.PL
-index 9e6d091..292882c 100644
---- a/ext/POSIX/Makefile.PL
-+++ b/ext/POSIX/Makefile.PL
-@@ -1,3 +1,4 @@
-+# Expect this line to be read by t/posix.t, don't change it
- use ExtUtils::MakeMaker;
- use ExtUtils::Constant 0.11 'WriteConstants';
- use Config;
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_3.patch b/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_3.patch
deleted file mode 100644
index 26af1f1..0000000
--- a/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_3.patch
+++ /dev/null
@@ -1,6585 +0,0 @@
-Upstream-Status:Inappropriate [Backport]
-
-Imported from perl git tree by Nitin A Kamble <nitin.a.kamble at intel.com>
-2011-02-23
-
-commit 4feb80ac47a22e7de7d7c1c1d5dfb3d744a2a3a7
-Author: Jerry D. Hedden <jdhedden at cpan.org>
-Date: Tue Aug 17 13:17:11 2010 -0400
-
- Move POSIX.pm to lib/POSIX.pm to fix autosplitter problem
-
-diff --git a/MANIFEST b/MANIFEST
-index 3036d73..faf8974 100644
---- a/MANIFEST
-+++ b/MANIFEST
-@@ -3183,9 +3183,9 @@ ext/POSIX/hints/openbsd.pl Hint for POSIX for named architecture
- ext/POSIX/hints/sunos_4.pl Hint for POSIX for named architecture
- ext/POSIX/hints/svr4.pl Hint for POSIX for named architecture
- ext/POSIX/hints/uts.pl Hint for POSIX for named architecture
-+ext/POSIX/lib/POSIX.pm POSIX extension Perl module
-+ext/POSIX/lib/POSIX.pod POSIX extension documentation
- ext/POSIX/Makefile.PL POSIX extension makefile writer
--ext/POSIX/POSIX.pm POSIX extension Perl module
--ext/POSIX/POSIX.pod POSIX extension documentation
- ext/POSIX/POSIX.xs POSIX extension external subroutines
- ext/POSIX/t/is.t See if POSIX isxxx() work
- ext/POSIX/t/math.t Basic math tests for POSIX
-diff --git a/ext/POSIX/Makefile.PL b/ext/POSIX/Makefile.PL
-index 292882c..07c3841 100644
---- a/ext/POSIX/Makefile.PL
-+++ b/ext/POSIX/Makefile.PL
-@@ -18,7 +18,8 @@ WriteMakefile(
- NAME => 'POSIX',
- @libs,
- XSPROTOARG => '-noprototypes', # XXX remove later?
-- VERSION_FROM => 'POSIX.pm',
-+ VERSION_FROM => 'lib/POSIX.pm',
-+ ABSTRACT_FROM => 'lib/POSIX.pod',
- realclean => {FILES=> 'const-c.inc const-xs.inc'},
- );
-
-diff --git a/ext/POSIX/POSIX.pm b/ext/POSIX/POSIX.pm
-deleted file mode 100644
-index ffbd9de..0000000
---- a/ext/POSIX/POSIX.pm
-+++ /dev/null
-@@ -1,1042 +0,0 @@
--package POSIX;
--use strict;
--use warnings;
--
--our(@ISA, %EXPORT_TAGS, @EXPORT_OK, @EXPORT, $AUTOLOAD, %SIGRT) = ();
--
--our $VERSION = "1.19";
--
--use AutoLoader;
--
--use XSLoader ();
--
--use Fcntl qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK F_SETFD
-- F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK O_ACCMODE O_APPEND
-- O_CREAT O_EXCL O_NOCTTY O_NONBLOCK O_RDONLY O_RDWR O_TRUNC
-- O_WRONLY SEEK_CUR SEEK_END SEEK_SET
-- S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISREG
-- S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU S_ISGID S_ISUID
-- S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR);
--
--# Grandfather old foo_h form to new :foo_h form
--my $loaded;
--
--sub import {
-- load_imports() unless $loaded++;
-- my $this = shift;
-- my @list = map { m/^\w+_h$/ ? ":$_" : $_ } @_;
-- local $Exporter::ExportLevel = 1;
-- Exporter::import($this, at list);
--}
--
--sub croak { require Carp; goto &Carp::croak }
--# declare usage to assist AutoLoad
--sub usage;
--
--XSLoader::load 'POSIX', $VERSION;
--
--sub AUTOLOAD {
-- no strict;
-- no warnings 'uninitialized';
-- if ($AUTOLOAD =~ /::(_?[a-z])/) {
-- # require AutoLoader;
-- $AutoLoader::AUTOLOAD = $AUTOLOAD;
-- goto &AutoLoader::AUTOLOAD
-- }
-- local $! = 0;
-- my $constname = $AUTOLOAD;
-- $constname =~ s/.*:://;
-- my ($error, $val) = constant($constname);
-- croak $error if $error;
-- *$AUTOLOAD = sub { $val };
--
-- goto &$AUTOLOAD;
--}
--
--package POSIX::SigAction;
--
--use AutoLoader 'AUTOLOAD';
--
--package POSIX::SigRt;
--
--use AutoLoader 'AUTOLOAD';
--
--use Tie::Hash;
--
--use vars qw($SIGACTION_FLAGS $_SIGRTMIN $_SIGRTMAX $_sigrtn @ISA);
-- at POSIX::SigRt::ISA = qw(Tie::StdHash);
--
--$SIGACTION_FLAGS = 0;
--
--tie %POSIX::SIGRT, 'POSIX::SigRt';
--
--sub DESTROY {};
--
--package POSIX;
--
--1;
--__END__
--
--sub usage {
-- my ($mess) = @_;
-- croak "Usage: POSIX::$mess";
--}
--
--sub redef {
-- my ($mess) = @_;
-- croak "Use method $mess instead";
--}
--
--sub unimpl {
-- my ($mess) = @_;
-- $mess =~ s/xxx//;
-- croak "Unimplemented: POSIX::$mess";
--}
--
--sub assert {
-- usage "assert(expr)" if @_ != 1;
-- if (!$_[0]) {
-- croak "Assertion failed";
-- }
--}
--
--sub tolower {
-- usage "tolower(string)" if @_ != 1;
-- lc($_[0]);
--}
--
--sub toupper {
-- usage "toupper(string)" if @_ != 1;
-- uc($_[0]);
--}
--
--sub closedir {
-- usage "closedir(dirhandle)" if @_ != 1;
-- CORE::closedir($_[0]);
--}
--
--sub opendir {
-- usage "opendir(directory)" if @_ != 1;
-- my $dirhandle;
-- CORE::opendir($dirhandle, $_[0])
-- ? $dirhandle
-- : undef;
--}
--
--sub readdir {
-- usage "readdir(dirhandle)" if @_ != 1;
-- CORE::readdir($_[0]);
--}
--
--sub rewinddir {
-- usage "rewinddir(dirhandle)" if @_ != 1;
-- CORE::rewinddir($_[0]);
--}
--
--sub errno {
-- usage "errno()" if @_ != 0;
-- $! + 0;
--}
--
--sub creat {
-- usage "creat(filename, mode)" if @_ != 2;
-- &open($_[0], &O_WRONLY | &O_CREAT | &O_TRUNC, $_[1]);
--}
--
--sub fcntl {
-- usage "fcntl(filehandle, cmd, arg)" if @_ != 3;
-- CORE::fcntl($_[0], $_[1], $_[2]);
--}
--
--sub getgrgid {
-- usage "getgrgid(gid)" if @_ != 1;
-- CORE::getgrgid($_[0]);
--}
--
--sub getgrnam {
-- usage "getgrnam(name)" if @_ != 1;
-- CORE::getgrnam($_[0]);
--}
--
--sub atan2 {
-- usage "atan2(x,y)" if @_ != 2;
-- CORE::atan2($_[0], $_[1]);
--}
--
--sub cos {
-- usage "cos(x)" if @_ != 1;
-- CORE::cos($_[0]);
--}
--
--sub exp {
-- usage "exp(x)" if @_ != 1;
-- CORE::exp($_[0]);
--}
--
--sub fabs {
-- usage "fabs(x)" if @_ != 1;
-- CORE::abs($_[0]);
--}
--
--sub log {
-- usage "log(x)" if @_ != 1;
-- CORE::log($_[0]);
--}
--
--sub pow {
-- usage "pow(x,exponent)" if @_ != 2;
-- $_[0] ** $_[1];
--}
--
--sub sin {
-- usage "sin(x)" if @_ != 1;
-- CORE::sin($_[0]);
--}
--
--sub sqrt {
-- usage "sqrt(x)" if @_ != 1;
-- CORE::sqrt($_[0]);
--}
--
--sub getpwnam {
-- usage "getpwnam(name)" if @_ != 1;
-- CORE::getpwnam($_[0]);
--}
--
--sub getpwuid {
-- usage "getpwuid(uid)" if @_ != 1;
-- CORE::getpwuid($_[0]);
--}
--
--sub longjmp {
-- unimpl "longjmp() is C-specific: use die instead";
--}
--
--sub setjmp {
-- unimpl "setjmp() is C-specific: use eval {} instead";
--}
--
--sub siglongjmp {
-- unimpl "siglongjmp() is C-specific: use die instead";
--}
--
--sub sigsetjmp {
-- unimpl "sigsetjmp() is C-specific: use eval {} instead";
--}
--
--sub kill {
-- usage "kill(pid, sig)" if @_ != 2;
-- CORE::kill $_[1], $_[0];
--}
--
--sub raise {
-- usage "raise(sig)" if @_ != 1;
-- CORE::kill $_[0], $$; # Is this good enough?
--}
--
--sub offsetof {
-- unimpl "offsetof() is C-specific, stopped";
--}
--
--sub clearerr {
-- redef "IO::Handle::clearerr()";
--}
--
--sub fclose {
-- redef "IO::Handle::close()";
--}
--
--sub fdopen {
-- redef "IO::Handle::new_from_fd()";
--}
--
--sub feof {
-- redef "IO::Handle::eof()";
--}
--
--sub fgetc {
-- redef "IO::Handle::getc()";
--}
--
--sub fgets {
-- redef "IO::Handle::gets()";
--}
--
--sub fileno {
-- redef "IO::Handle::fileno()";
--}
--
--sub fopen {
-- redef "IO::File::open()";
--}
--
--sub fprintf {
-- unimpl "fprintf() is C-specific--use printf instead";
--}
--
--sub fputc {
-- unimpl "fputc() is C-specific--use print instead";
--}
--
--sub fputs {
-- unimpl "fputs() is C-specific--use print instead";
--}
--
--sub fread {
-- unimpl "fread() is C-specific--use read instead";
--}
--
--sub freopen {
-- unimpl "freopen() is C-specific--use open instead";
--}
--
--sub fscanf {
-- unimpl "fscanf() is C-specific--use <> and regular expressions instead";
--}
--
--sub fseek {
-- redef "IO::Seekable::seek()";
--}
--
--sub fsync {
-- redef "IO::Handle::sync()";
--}
--
--sub ferror {
-- redef "IO::Handle::error()";
--}
--
--sub fflush {
-- redef "IO::Handle::flush()";
--}
--
--sub fgetpos {
-- redef "IO::Seekable::getpos()";
--}
--
--sub fsetpos {
-- redef "IO::Seekable::setpos()";
--}
--
--sub ftell {
-- redef "IO::Seekable::tell()";
--}
--
--sub fwrite {
-- unimpl "fwrite() is C-specific--use print instead";
--}
--
--sub getc {
-- usage "getc(handle)" if @_ != 1;
-- CORE::getc($_[0]);
--}
--
--sub getchar {
-- usage "getchar()" if @_ != 0;
-- CORE::getc(STDIN);
--}
--
--sub gets {
-- usage "gets()" if @_ != 0;
-- scalar <STDIN>;
--}
--
--sub perror {
-- print STDERR "@_: " if @_;
-- print STDERR $!,"\n";
--}
--
--sub printf {
-- usage "printf(pattern, args...)" if @_ < 1;
-- CORE::printf STDOUT @_;
--}
--
--sub putc {
-- unimpl "putc() is C-specific--use print instead";
--}
--
--sub putchar {
-- unimpl "putchar() is C-specific--use print instead";
--}
--
--sub puts {
-- unimpl "puts() is C-specific--use print instead";
--}
--
--sub remove {
-- usage "remove(filename)" if @_ != 1;
-- (-d $_[0]) ? CORE::rmdir($_[0]) : CORE::unlink($_[0]);
--}
--
--sub rename {
-- usage "rename(oldfilename, newfilename)" if @_ != 2;
-- CORE::rename($_[0], $_[1]);
--}
--
--sub rewind {
-- usage "rewind(filehandle)" if @_ != 1;
-- CORE::seek($_[0],0,0);
--}
--
--sub scanf {
-- unimpl "scanf() is C-specific--use <> and regular expressions instead";
--}
--
--sub sprintf {
-- usage "sprintf(pattern,args)" if @_ == 0;
-- CORE::sprintf(shift, at _);
--}
--
--sub sscanf {
-- unimpl "sscanf() is C-specific--use regular expressions instead";
--}
--
--sub tmpfile {
-- redef "IO::File::new_tmpfile()";
--}
--
--sub ungetc {
-- redef "IO::Handle::ungetc()";
--}
--
--sub vfprintf {
-- unimpl "vfprintf() is C-specific";
--}
--
--sub vprintf {
-- unimpl "vprintf() is C-specific";
--}
--
--sub vsprintf {
-- unimpl "vsprintf() is C-specific";
--}
--
--sub abs {
-- usage "abs(x)" if @_ != 1;
-- CORE::abs($_[0]);
--}
--
--sub atexit {
-- unimpl "atexit() is C-specific: use END {} instead";
--}
--
--sub atof {
-- unimpl "atof() is C-specific, stopped";
--}
--
--sub atoi {
-- unimpl "atoi() is C-specific, stopped";
--}
--
--sub atol {
-- unimpl "atol() is C-specific, stopped";
--}
--
--sub bsearch {
-- unimpl "bsearch() not supplied";
--}
--
--sub calloc {
-- unimpl "calloc() is C-specific, stopped";
--}
--
--sub div {
-- unimpl "div() is C-specific, use /, % and int instead";
--}
--
--sub exit {
-- usage "exit(status)" if @_ != 1;
-- CORE::exit($_[0]);
--}
--
--sub free {
-- unimpl "free() is C-specific, stopped";
--}
--
--sub getenv {
-- usage "getenv(name)" if @_ != 1;
-- $ENV{$_[0]};
--}
--
--sub labs {
-- unimpl "labs() is C-specific, use abs instead";
--}
--
--sub ldiv {
-- unimpl "ldiv() is C-specific, use /, % and int instead";
--}
--
--sub malloc {
-- unimpl "malloc() is C-specific, stopped";
--}
--
--sub qsort {
-- unimpl "qsort() is C-specific, use sort instead";
--}
--
--sub rand {
-- unimpl "rand() is non-portable, use Perl's rand instead";
--}
--
--sub realloc {
-- unimpl "realloc() is C-specific, stopped";
--}
--
--sub srand {
-- unimpl "srand()";
--}
--
--sub system {
-- usage "system(command)" if @_ != 1;
-- CORE::system($_[0]);
--}
--
--sub memchr {
-- unimpl "memchr() is C-specific, use index() instead";
--}
--
--sub memcmp {
-- unimpl "memcmp() is C-specific, use eq instead";
--}
--
--sub memcpy {
-- unimpl "memcpy() is C-specific, use = instead";
--}
--
--sub memmove {
-- unimpl "memmove() is C-specific, use = instead";
--}
--
--sub memset {
-- unimpl "memset() is C-specific, use x instead";
--}
--
--sub strcat {
-- unimpl "strcat() is C-specific, use .= instead";
--}
--
--sub strchr {
-- unimpl "strchr() is C-specific, use index() instead";
--}
--
--sub strcmp {
-- unimpl "strcmp() is C-specific, use eq instead";
--}
--
--sub strcpy {
-- unimpl "strcpy() is C-specific, use = instead";
--}
--
--sub strcspn {
-- unimpl "strcspn() is C-specific, use regular expressions instead";
--}
--
--sub strerror {
-- usage "strerror(errno)" if @_ != 1;
-- local $! = $_[0];
-- $! . "";
--}
--
--sub strlen {
-- unimpl "strlen() is C-specific, use length instead";
--}
--
--sub strncat {
-- unimpl "strncat() is C-specific, use .= instead";
--}
--
--sub strncmp {
-- unimpl "strncmp() is C-specific, use eq instead";
--}
--
--sub strncpy {
-- unimpl "strncpy() is C-specific, use = instead";
--}
--
--sub strpbrk {
-- unimpl "strpbrk() is C-specific, stopped";
--}
--
--sub strrchr {
-- unimpl "strrchr() is C-specific, use rindex() instead";
--}
--
--sub strspn {
-- unimpl "strspn() is C-specific, stopped";
--}
--
--sub strstr {
-- usage "strstr(big, little)" if @_ != 2;
-- CORE::index($_[0], $_[1]);
--}
--
--sub strtok {
-- unimpl "strtok() is C-specific, stopped";
--}
--
--sub chmod {
-- usage "chmod(mode, filename)" if @_ != 2;
-- CORE::chmod($_[0], $_[1]);
--}
--
--sub fstat {
-- usage "fstat(fd)" if @_ != 1;
-- local *TMP;
-- CORE::open(TMP, "<&$_[0]"); # Gross.
-- my @l = CORE::stat(TMP);
-- CORE::close(TMP);
-- @l;
--}
--
--sub mkdir {
-- usage "mkdir(directoryname, mode)" if @_ != 2;
-- CORE::mkdir($_[0], $_[1]);
--}
--
--sub stat {
-- usage "stat(filename)" if @_ != 1;
-- CORE::stat($_[0]);
--}
--
--sub umask {
-- usage "umask(mask)" if @_ != 1;
-- CORE::umask($_[0]);
--}
--
--sub wait {
-- usage "wait()" if @_ != 0;
-- CORE::wait();
--}
--
--sub waitpid {
-- usage "waitpid(pid, options)" if @_ != 2;
-- CORE::waitpid($_[0], $_[1]);
--}
--
--sub gmtime {
-- usage "gmtime(time)" if @_ != 1;
-- CORE::gmtime($_[0]);
--}
--
--sub localtime {
-- usage "localtime(time)" if @_ != 1;
-- CORE::localtime($_[0]);
--}
--
--sub time {
-- usage "time()" if @_ != 0;
-- CORE::time;
--}
--
--sub alarm {
-- usage "alarm(seconds)" if @_ != 1;
-- CORE::alarm($_[0]);
--}
--
--sub chdir {
-- usage "chdir(directory)" if @_ != 1;
-- CORE::chdir($_[0]);
--}
--
--sub chown {
-- usage "chown(uid, gid, filename)" if @_ != 3;
-- CORE::chown($_[0], $_[1], $_[2]);
--}
--
--sub execl {
-- unimpl "execl() is C-specific, stopped";
--}
--
--sub execle {
-- unimpl "execle() is C-specific, stopped";
--}
--
--sub execlp {
-- unimpl "execlp() is C-specific, stopped";
--}
--
--sub execv {
-- unimpl "execv() is C-specific, stopped";
--}
--
--sub execve {
-- unimpl "execve() is C-specific, stopped";
--}
--
--sub execvp {
-- unimpl "execvp() is C-specific, stopped";
--}
--
--sub fork {
-- usage "fork()" if @_ != 0;
-- CORE::fork;
--}
--
--sub getegid {
-- usage "getegid()" if @_ != 0;
-- $) + 0;
--}
--
--sub geteuid {
-- usage "geteuid()" if @_ != 0;
-- $> + 0;
--}
--
--sub getgid {
-- usage "getgid()" if @_ != 0;
-- $( + 0;
--}
--
--sub getgroups {
-- usage "getgroups()" if @_ != 0;
-- my %seen;
-- grep(!$seen{$_}++, split(' ', $) ));
--}
--
--sub getlogin {
-- usage "getlogin()" if @_ != 0;
-- CORE::getlogin();
--}
--
--sub getpgrp {
-- usage "getpgrp()" if @_ != 0;
-- CORE::getpgrp;
--}
--
--sub getpid {
-- usage "getpid()" if @_ != 0;
-- $$;
--}
--
--sub getppid {
-- usage "getppid()" if @_ != 0;
-- CORE::getppid;
--}
--
--sub getuid {
-- usage "getuid()" if @_ != 0;
-- $<;
--}
--
--sub isatty {
-- usage "isatty(filehandle)" if @_ != 1;
-- -t $_[0];
--}
--
--sub link {
-- usage "link(oldfilename, newfilename)" if @_ != 2;
-- CORE::link($_[0], $_[1]);
--}
--
--sub rmdir {
-- usage "rmdir(directoryname)" if @_ != 1;
-- CORE::rmdir($_[0]);
--}
--
--sub setbuf {
-- redef "IO::Handle::setbuf()";
--}
--
--sub setvbuf {
-- redef "IO::Handle::setvbuf()";
--}
--
--sub sleep {
-- usage "sleep(seconds)" if @_ != 1;
-- $_[0] - CORE::sleep($_[0]);
--}
--
--sub unlink {
-- usage "unlink(filename)" if @_ != 1;
-- CORE::unlink($_[0]);
--}
--
--sub utime {
-- usage "utime(filename, atime, mtime)" if @_ != 3;
-- CORE::utime($_[1], $_[2], $_[0]);
--}
--
--sub load_imports {
--%EXPORT_TAGS = (
--
-- assert_h => [qw(assert NDEBUG)],
--
-- ctype_h => [qw(isalnum isalpha iscntrl isdigit isgraph islower
-- isprint ispunct isspace isupper isxdigit tolower toupper)],
--
-- dirent_h => [],
--
-- errno_h => [qw(E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT
-- EAGAIN EALREADY EBADF EBUSY ECHILD ECONNABORTED
-- ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ EDOM EDQUOT
-- EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH EINPROGRESS
-- EINTR EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK
-- EMSGSIZE ENAMETOOLONG ENETDOWN ENETRESET ENETUNREACH
-- ENFILE ENOBUFS ENODEV ENOENT ENOEXEC ENOLCK ENOMEM
-- ENOPROTOOPT ENOSPC ENOSYS ENOTBLK ENOTCONN ENOTDIR
-- ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM
-- EPFNOSUPPORT EPIPE EPROCLIM EPROTONOSUPPORT EPROTOTYPE
-- ERANGE EREMOTE ERESTART EROFS ESHUTDOWN ESOCKTNOSUPPORT
-- ESPIPE ESRCH ESTALE ETIMEDOUT ETOOMANYREFS ETXTBSY
-- EUSERS EWOULDBLOCK EXDEV errno)],
--
-- fcntl_h => [qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK
-- F_SETFD F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK
-- O_ACCMODE O_APPEND O_CREAT O_EXCL O_NOCTTY O_NONBLOCK
-- O_RDONLY O_RDWR O_TRUNC O_WRONLY
-- creat
-- SEEK_CUR SEEK_END SEEK_SET
-- S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU
-- S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG S_ISUID
-- S_IWGRP S_IWOTH S_IWUSR)],
--
-- float_h => [qw(DBL_DIG DBL_EPSILON DBL_MANT_DIG
-- DBL_MAX DBL_MAX_10_EXP DBL_MAX_EXP
-- DBL_MIN DBL_MIN_10_EXP DBL_MIN_EXP
-- FLT_DIG FLT_EPSILON FLT_MANT_DIG
-- FLT_MAX FLT_MAX_10_EXP FLT_MAX_EXP
-- FLT_MIN FLT_MIN_10_EXP FLT_MIN_EXP
-- FLT_RADIX FLT_ROUNDS
-- LDBL_DIG LDBL_EPSILON LDBL_MANT_DIG
-- LDBL_MAX LDBL_MAX_10_EXP LDBL_MAX_EXP
-- LDBL_MIN LDBL_MIN_10_EXP LDBL_MIN_EXP)],
--
-- grp_h => [],
--
-- limits_h => [qw( ARG_MAX CHAR_BIT CHAR_MAX CHAR_MIN CHILD_MAX
-- INT_MAX INT_MIN LINK_MAX LONG_MAX LONG_MIN MAX_CANON
-- MAX_INPUT MB_LEN_MAX NAME_MAX NGROUPS_MAX OPEN_MAX
-- PATH_MAX PIPE_BUF SCHAR_MAX SCHAR_MIN SHRT_MAX SHRT_MIN
-- SSIZE_MAX STREAM_MAX TZNAME_MAX UCHAR_MAX UINT_MAX
-- ULONG_MAX USHRT_MAX _POSIX_ARG_MAX _POSIX_CHILD_MAX
-- _POSIX_LINK_MAX _POSIX_MAX_CANON _POSIX_MAX_INPUT
-- _POSIX_NAME_MAX _POSIX_NGROUPS_MAX _POSIX_OPEN_MAX
-- _POSIX_PATH_MAX _POSIX_PIPE_BUF _POSIX_SSIZE_MAX
-- _POSIX_STREAM_MAX _POSIX_TZNAME_MAX)],
--
-- locale_h => [qw(LC_ALL LC_COLLATE LC_CTYPE LC_MESSAGES
-- LC_MONETARY LC_NUMERIC LC_TIME NULL
-- localeconv setlocale)],
--
-- math_h => [qw(HUGE_VAL acos asin atan ceil cosh fabs floor fmod
-- frexp ldexp log10 modf pow sinh tan tanh)],
--
-- pwd_h => [],
--
-- setjmp_h => [qw(longjmp setjmp siglongjmp sigsetjmp)],
--
-- signal_h => [qw(SA_NOCLDSTOP SA_NOCLDWAIT SA_NODEFER SA_ONSTACK
-- SA_RESETHAND SA_RESTART SA_SIGINFO SIGABRT SIGALRM
-- SIGCHLD SIGCONT SIGFPE SIGHUP SIGILL SIGINT SIGKILL
-- SIGPIPE %SIGRT SIGRTMIN SIGRTMAX SIGQUIT SIGSEGV SIGSTOP
-- SIGTERM SIGTSTP SIGTTIN SIGTTOU SIGUSR1 SIGUSR2
-- SIG_BLOCK SIG_DFL SIG_ERR SIG_IGN SIG_SETMASK SIG_UNBLOCK
-- raise sigaction signal sigpending sigprocmask sigsuspend)],
--
-- stdarg_h => [],
--
-- stddef_h => [qw(NULL offsetof)],
--
-- stdio_h => [qw(BUFSIZ EOF FILENAME_MAX L_ctermid L_cuserid
-- L_tmpname NULL SEEK_CUR SEEK_END SEEK_SET
-- STREAM_MAX TMP_MAX stderr stdin stdout
-- clearerr fclose fdopen feof ferror fflush fgetc fgetpos
-- fgets fopen fprintf fputc fputs fread freopen
-- fscanf fseek fsetpos ftell fwrite getchar gets
-- perror putc putchar puts remove rewind
-- scanf setbuf setvbuf sscanf tmpfile tmpnam
-- ungetc vfprintf vprintf vsprintf)],
--
-- stdlib_h => [qw(EXIT_FAILURE EXIT_SUCCESS MB_CUR_MAX NULL RAND_MAX
-- abort atexit atof atoi atol bsearch calloc div
-- free getenv labs ldiv malloc mblen mbstowcs mbtowc
-- qsort realloc strtod strtol strtoul wcstombs wctomb)],
--
-- string_h => [qw(NULL memchr memcmp memcpy memmove memset strcat
-- strchr strcmp strcoll strcpy strcspn strerror strlen
-- strncat strncmp strncpy strpbrk strrchr strspn strstr
-- strtok strxfrm)],
--
-- sys_stat_h => [qw(S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU
-- S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG
-- S_ISUID S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR
-- fstat mkfifo)],
--
-- sys_times_h => [],
--
-- sys_types_h => [],
--
-- sys_utsname_h => [qw(uname)],
--
-- sys_wait_h => [qw(WEXITSTATUS WIFEXITED WIFSIGNALED WIFSTOPPED
-- WNOHANG WSTOPSIG WTERMSIG WUNTRACED)],
--
-- termios_h => [qw( B0 B110 B1200 B134 B150 B1800 B19200 B200 B2400
-- B300 B38400 B4800 B50 B600 B75 B9600 BRKINT CLOCAL
-- CREAD CS5 CS6 CS7 CS8 CSIZE CSTOPB ECHO ECHOE ECHOK
-- ECHONL HUPCL ICANON ICRNL IEXTEN IGNBRK IGNCR IGNPAR
-- INLCR INPCK ISIG ISTRIP IXOFF IXON NCCS NOFLSH OPOST
-- PARENB PARMRK PARODD TCIFLUSH TCIOFF TCIOFLUSH TCION
-- TCOFLUSH TCOOFF TCOON TCSADRAIN TCSAFLUSH TCSANOW
-- TOSTOP VEOF VEOL VERASE VINTR VKILL VMIN VQUIT VSTART
-- VSTOP VSUSP VTIME
-- cfgetispeed cfgetospeed cfsetispeed cfsetospeed tcdrain
-- tcflow tcflush tcgetattr tcsendbreak tcsetattr )],
--
-- time_h => [qw(CLK_TCK CLOCKS_PER_SEC NULL asctime clock ctime
-- difftime mktime strftime tzset tzname)],
--
-- unistd_h => [qw(F_OK NULL R_OK SEEK_CUR SEEK_END SEEK_SET
-- STDERR_FILENO STDIN_FILENO STDOUT_FILENO W_OK X_OK
-- _PC_CHOWN_RESTRICTED _PC_LINK_MAX _PC_MAX_CANON
-- _PC_MAX_INPUT _PC_NAME_MAX _PC_NO_TRUNC _PC_PATH_MAX
-- _PC_PIPE_BUF _PC_VDISABLE _POSIX_CHOWN_RESTRICTED
-- _POSIX_JOB_CONTROL _POSIX_NO_TRUNC _POSIX_SAVED_IDS
-- _POSIX_VDISABLE _POSIX_VERSION _SC_ARG_MAX
-- _SC_CHILD_MAX _SC_CLK_TCK _SC_JOB_CONTROL
-- _SC_NGROUPS_MAX _SC_OPEN_MAX _SC_PAGESIZE _SC_SAVED_IDS
-- _SC_STREAM_MAX _SC_TZNAME_MAX _SC_VERSION
-- _exit access ctermid cuserid
-- dup2 dup execl execle execlp execv execve execvp
-- fpathconf fsync getcwd getegid geteuid getgid getgroups
-- getpid getuid isatty lseek pathconf pause setgid setpgid
-- setsid setuid sysconf tcgetpgrp tcsetpgrp ttyname)],
--
-- utime_h => [],
--
--);
--
--# Exporter::export_tags();
--{
-- # De-duplicate the export list:
-- my %export;
-- @export{map {@$_} values %EXPORT_TAGS} = ();
-- # Doing the de-dup with a temporary hash has the advantage that the SVs in
-- # @EXPORT are actually shared hash key sacalars, which will save some memory.
-- push @EXPORT, keys %export;
--}
--
-- at EXPORT_OK = qw(
-- abs
-- alarm
-- atan2
-- chdir
-- chmod
-- chown
-- close
-- closedir
-- cos
-- exit
-- exp
-- fcntl
-- fileno
-- fork
-- getc
-- getgrgid
-- getgrnam
-- getlogin
-- getpgrp
-- getppid
-- getpwnam
-- getpwuid
-- gmtime
-- isatty
-- kill
-- lchown
-- link
-- localtime
-- log
-- mkdir
-- nice
-- open
-- opendir
-- pipe
-- printf
-- rand
-- read
-- readdir
-- rename
-- rewinddir
-- rmdir
-- sin
-- sleep
-- sprintf
-- sqrt
-- srand
-- stat
-- system
-- time
-- times
-- umask
-- unlink
-- utime
-- wait
-- waitpid
-- write
--);
--
--require Exporter;
--}
--
--package POSIX::SigAction;
--
--sub new { bless {HANDLER => $_[1], MASK => $_[2], FLAGS => $_[3] || 0, SAFE => 0}, $_[0] }
--sub handler { $_[0]->{HANDLER} = $_[1] if @_ > 1; $_[0]->{HANDLER} };
--sub mask { $_[0]->{MASK} = $_[1] if @_ > 1; $_[0]->{MASK} };
--sub flags { $_[0]->{FLAGS} = $_[1] if @_ > 1; $_[0]->{FLAGS} };
--sub safe { $_[0]->{SAFE} = $_[1] if @_ > 1; $_[0]->{SAFE} };
--
--package POSIX::SigRt;
--
--
--sub _init {
-- $_SIGRTMIN = &POSIX::SIGRTMIN;
-- $_SIGRTMAX = &POSIX::SIGRTMAX;
-- $_sigrtn = $_SIGRTMAX - $_SIGRTMIN;
--}
--
--sub _croak {
-- &_init unless defined $_sigrtn;
-- die "POSIX::SigRt not available" unless defined $_sigrtn && $_sigrtn > 0;
--}
--
--sub _getsig {
-- &_croak;
-- my $rtsig = $_[0];
-- # Allow (SIGRT)?MIN( + n)?, a common idiom when doing these things in C.
-- $rtsig = $_SIGRTMIN + ($1 || 0)
-- if $rtsig =~ /^(?:(?:SIG)?RT)?MIN(\s*\+\s*(\d+))?$/;
-- return $rtsig;
--}
--
--sub _exist {
-- my $rtsig = _getsig($_[1]);
-- my $ok = $rtsig >= $_SIGRTMIN && $rtsig <= $_SIGRTMAX;
-- ($rtsig, $ok);
--}
--
--sub _check {
-- my ($rtsig, $ok) = &_exist;
-- die "No POSIX::SigRt signal $_[1] (valid range SIGRTMIN..SIGRTMAX, or $_SIGRTMIN..$_SIGRTMAX)"
-- unless $ok;
-- return $rtsig;
--}
--
--sub new {
-- my ($rtsig, $handler, $flags) = @_;
-- my $sigset = POSIX::SigSet->new($rtsig);
-- my $sigact = POSIX::SigAction->new($handler,
-- $sigset,
-- $flags);
-- POSIX::sigaction($rtsig, $sigact);
--}
--
--sub EXISTS { &_exist }
--sub FETCH { my $rtsig = &_check;
-- my $oa = POSIX::SigAction->new();
-- POSIX::sigaction($rtsig, undef, $oa);
-- return $oa->{HANDLER} }
--sub STORE { my $rtsig = &_check; new($rtsig, $_[2], $SIGACTION_FLAGS) }
--sub DELETE { delete $SIG{ &_check } }
--sub CLEAR { &_exist; delete @SIG{ &POSIX::SIGRTMIN .. &POSIX::SIGRTMAX } }
--sub SCALAR { &_croak; $_sigrtn + 1 }
-diff --git a/ext/POSIX/POSIX.pod b/ext/POSIX/POSIX.pod
-deleted file mode 100644
-index 64852e9..0000000
---- a/ext/POSIX/POSIX.pod
-+++ /dev/null
-@@ -1,2218 +0,0 @@
--=head1 NAME
--
--POSIX - Perl interface to IEEE Std 1003.1
--
--=head1 SYNOPSIS
--
-- use POSIX;
-- use POSIX qw(setsid);
-- use POSIX qw(:errno_h :fcntl_h);
--
-- printf "EINTR is %d\n", EINTR;
--
-- $sess_id = POSIX::setsid();
--
-- $fd = POSIX::open($path, O_CREAT|O_EXCL|O_WRONLY, 0644);
-- # note: that's a filedescriptor, *NOT* a filehandle
--
--=head1 DESCRIPTION
--
--The POSIX module permits you to access all (or nearly all) the standard
--POSIX 1003.1 identifiers. Many of these identifiers have been given Perl-ish
--interfaces.
--
--I<Everything is exported by default> with the exception of any POSIX
--functions with the same name as a built-in Perl function, such as
--C<abs>, C<alarm>, C<rmdir>, C<write>, etc.., which will be exported
--only if you ask for them explicitly. This is an unfortunate backwards
--compatibility feature. You can stop the exporting by saying C<use
--POSIX ()> and then use the fully qualified names (ie. C<POSIX::SEEK_END>).
--
--This document gives a condensed list of the features available in the POSIX
--module. Consult your operating system's manpages for general information on
--most features. Consult L<perlfunc> for functions which are noted as being
--identical to Perl's builtin functions.
--
--The first section describes POSIX functions from the 1003.1 specification.
--The second section describes some classes for signal objects, TTY objects,
--and other miscellaneous objects. The remaining sections list various
--constants and macros in an organization which roughly follows IEEE Std
--1003.1b-1993.
--
--=head1 NOTE
--
--The POSIX module is probably the most complex Perl module supplied with
--the standard distribution. It incorporates autoloading, namespace games,
--and dynamic loading of code that's in Perl, C, or both. It's a great
--source of wisdom.
--
--=head1 CAVEATS
--
--A few functions are not implemented because they are C specific. If you
--attempt to call these, they will print a message telling you that they
--aren't implemented, and suggest using the Perl equivalent should one
--exist. For example, trying to access the setjmp() call will elicit the
--message "setjmp() is C-specific: use eval {} instead".
--
--Furthermore, some evil vendors will claim 1003.1 compliance, but in fact
--are not so: they will not pass the PCTS (POSIX Compliance Test Suites).
--For example, one vendor may not define EDEADLK, or the semantics of the
--errno values set by open(2) might not be quite right. Perl does not
--attempt to verify POSIX compliance. That means you can currently
--successfully say "use POSIX", and then later in your program you find
--that your vendor has been lax and there's no usable ICANON macro after
--all. This could be construed to be a bug.
--
--=head1 FUNCTIONS
--
--=over 8
--
--=item _exit
--
--This is identical to the C function C<_exit()>. It exits the program
--immediately which means among other things buffered I/O is B<not> flushed.
--
--Note that when using threads and in Linux this is B<not> a good way to
--exit a thread because in Linux processes and threads are kind of the
--same thing (Note: while this is the situation in early 2003 there are
--projects under way to have threads with more POSIXly semantics in Linux).
--If you want not to return from a thread, detach the thread.
--
--=item abort
--
--This is identical to the C function C<abort()>. It terminates the
--process with a C<SIGABRT> signal unless caught by a signal handler or
--if the handler does not return normally (it e.g. does a C<longjmp>).
--
--=item abs
--
--This is identical to Perl's builtin C<abs()> function, returning
--the absolute value of its numerical argument.
--
--=item access
--
--Determines the accessibility of a file.
--
-- if( POSIX::access( "/", &POSIX::R_OK ) ){
-- print "have read permission\n";
-- }
--
--Returns C<undef> on failure. Note: do not use C<access()> for
--security purposes. Between the C<access()> call and the operation
--you are preparing for the permissions might change: a classic
--I<race condition>.
--
--=item acos
--
--This is identical to the C function C<acos()>, returning
--the arcus cosine of its numerical argument. See also L<Math::Trig>.
--
--=item alarm
--
--This is identical to Perl's builtin C<alarm()> function,
--either for arming or disarming the C<SIGARLM> timer.
--
--=item asctime
--
--This is identical to the C function C<asctime()>. It returns
--a string of the form
--
-- "Fri Jun 2 18:22:13 2000\n\0"
--
--and it is called thusly
--
-- $asctime = asctime($sec, $min, $hour, $mday, $mon, $year,
-- $wday, $yday, $isdst);
--
--The C<$mon> is zero-based: January equals C<0>. The C<$year> is
--1900-based: 2001 equals C<101>. C<$wday> and C<$yday> default to zero
--(and are usually ignored anyway), and C<$isdst> defaults to -1.
--
--=item asin
--
--This is identical to the C function C<asin()>, returning
--the arcus sine of its numerical argument. See also L<Math::Trig>.
--
--=item assert
--
--Unimplemented, but you can use L<perlfunc/die> and the L<Carp> module
--to achieve similar things.
--
--=item atan
--
--This is identical to the C function C<atan()>, returning the
--arcus tangent of its numerical argument. See also L<Math::Trig>.
--
--=item atan2
--
--This is identical to Perl's builtin C<atan2()> function, returning
--the arcus tangent defined by its two numerical arguments, the I<y>
--coordinate and the I<x> coordinate. See also L<Math::Trig>.
--
--=item atexit
--
--atexit() is C-specific: use C<END {}> instead, see L<perlsub>.
--
--=item atof
--
--atof() is C-specific. Perl converts strings to numbers transparently.
--If you need to force a scalar to a number, add a zero to it.
--
--=item atoi
--
--atoi() is C-specific. Perl converts strings to numbers transparently.
--If you need to force a scalar to a number, add a zero to it.
--If you need to have just the integer part, see L<perlfunc/int>.
--
--=item atol
--
--atol() is C-specific. Perl converts strings to numbers transparently.
--If you need to force a scalar to a number, add a zero to it.
--If you need to have just the integer part, see L<perlfunc/int>.
--
--=item bsearch
--
--bsearch() not supplied. For doing binary search on wordlists,
--see L<Search::Dict>.
--
--=item calloc
--
--calloc() is C-specific. Perl does memory management transparently.
--
--=item ceil
--
--This is identical to the C function C<ceil()>, returning the smallest
--integer value greater than or equal to the given numerical argument.
--
--=item chdir
--
--This is identical to Perl's builtin C<chdir()> function, allowing
--one to change the working (default) directory, see L<perlfunc/chdir>.
--
--=item chmod
--
--This is identical to Perl's builtin C<chmod()> function, allowing
--one to change file and directory permissions, see L<perlfunc/chmod>.
--
--=item chown
--
--This is identical to Perl's builtin C<chown()> function, allowing one
--to change file and directory owners and groups, see L<perlfunc/chown>.
--
--=item clearerr
--
--Use the method C<IO::Handle::clearerr()> instead, to reset the error
--state (if any) and EOF state (if any) of the given stream.
--
--=item clock
--
--This is identical to the C function C<clock()>, returning the
--amount of spent processor time in microseconds.
--
--=item close
--
--Close the file. This uses file descriptors such as those obtained by calling
--C<POSIX::open>.
--
-- $fd = POSIX::open( "foo", &POSIX::O_RDONLY );
-- POSIX::close( $fd );
--
--Returns C<undef> on failure.
--
--See also L<perlfunc/close>.
--
--=item closedir
--
--This is identical to Perl's builtin C<closedir()> function for closing
--a directory handle, see L<perlfunc/closedir>.
--
--=item cos
--
--This is identical to Perl's builtin C<cos()> function, for returning
--the cosine of its numerical argument, see L<perlfunc/cos>.
--See also L<Math::Trig>.
--
--=item cosh
--
--This is identical to the C function C<cosh()>, for returning
--the hyperbolic cosine of its numeric argument. See also L<Math::Trig>.
--
--=item creat
--
--Create a new file. This returns a file descriptor like the ones returned by
--C<POSIX::open>. Use C<POSIX::close> to close the file.
--
-- $fd = POSIX::creat( "foo", 0611 );
-- POSIX::close( $fd );
--
--See also L<perlfunc/sysopen> and its C<O_CREAT> flag.
--
--=item ctermid
--
--Generates the path name for the controlling terminal.
--
-- $path = POSIX::ctermid();
--
--=item ctime
--
--This is identical to the C function C<ctime()> and equivalent
--to C<asctime(localtime(...))>, see L</asctime> and L</localtime>.
--
--=item cuserid
--
--Get the login name of the owner of the current process.
--
-- $name = POSIX::cuserid();
--
--=item difftime
--
--This is identical to the C function C<difftime()>, for returning
--the time difference (in seconds) between two times (as returned
--by C<time()>), see L</time>.
--
--=item div
--
--div() is C-specific, use L<perlfunc/int> on the usual C</> division and
--the modulus C<%>.
--
--=item dup
--
--This is similar to the C function C<dup()>, for duplicating a file
--descriptor.
--
--This uses file descriptors such as those obtained by calling
--C<POSIX::open>.
--
--Returns C<undef> on failure.
--
--=item dup2
--
--This is similar to the C function C<dup2()>, for duplicating a file
--descriptor to an another known file descriptor.
--
--This uses file descriptors such as those obtained by calling
--C<POSIX::open>.
--
--Returns C<undef> on failure.
--
--=item errno
--
--Returns the value of errno.
--
-- $errno = POSIX::errno();
--
--This identical to the numerical values of the C<$!>, see L<perlvar/$ERRNO>.
--
--=item execl
--
--execl() is C-specific, see L<perlfunc/exec>.
--
--=item execle
--
--execle() is C-specific, see L<perlfunc/exec>.
--
--=item execlp
--
--execlp() is C-specific, see L<perlfunc/exec>.
--
--=item execv
--
--execv() is C-specific, see L<perlfunc/exec>.
--
--=item execve
--
--execve() is C-specific, see L<perlfunc/exec>.
--
--=item execvp
--
--execvp() is C-specific, see L<perlfunc/exec>.
--
--=item exit
--
--This is identical to Perl's builtin C<exit()> function for exiting the
--program, see L<perlfunc/exit>.
--
--=item exp
--
--This is identical to Perl's builtin C<exp()> function for
--returning the exponent (I<e>-based) of the numerical argument,
--see L<perlfunc/exp>.
--
--=item fabs
--
--This is identical to Perl's builtin C<abs()> function for returning
--the absolute value of the numerical argument, see L<perlfunc/abs>.
--
--=item fclose
--
--Use method C<IO::Handle::close()> instead, or see L<perlfunc/close>.
--
--=item fcntl
--
--This is identical to Perl's builtin C<fcntl()> function,
--see L<perlfunc/fcntl>.
--
--=item fdopen
--
--Use method C<IO::Handle::new_from_fd()> instead, or see L<perlfunc/open>.
--
--=item feof
--
--Use method C<IO::Handle::eof()> instead, or see L<perlfunc/eof>.
--
--=item ferror
--
--Use method C<IO::Handle::error()> instead.
--
--=item fflush
--
--Use method C<IO::Handle::flush()> instead.
--See also L<perlvar/$OUTPUT_AUTOFLUSH>.
--
--=item fgetc
--
--Use method C<IO::Handle::getc()> instead, or see L<perlfunc/read>.
--
--=item fgetpos
--
--Use method C<IO::Seekable::getpos()> instead, or see L<L/seek>.
--
--=item fgets
--
--Use method C<IO::Handle::gets()> instead. Similar to E<lt>E<gt>, also known
--as L<perlfunc/readline>.
--
--=item fileno
--
--Use method C<IO::Handle::fileno()> instead, or see L<perlfunc/fileno>.
--
--=item floor
--
--This is identical to the C function C<floor()>, returning the largest
--integer value less than or equal to the numerical argument.
--
--=item fmod
--
--This is identical to the C function C<fmod()>.
--
-- $r = fmod($x, $y);
--
--It returns the remainder C<$r = $x - $n*$y>, where C<$n = trunc($x/$y)>.
--The C<$r> has the same sign as C<$x> and magnitude (absolute value)
--less than the magnitude of C<$y>.
--
--=item fopen
--
--Use method C<IO::File::open()> instead, or see L<perlfunc/open>.
--
--=item fork
--
--This is identical to Perl's builtin C<fork()> function
--for duplicating the current process, see L<perlfunc/fork>
--and L<perlfork> if you are in Windows.
--
--=item fpathconf
--
--Retrieves the value of a configurable limit on a file or directory. This
--uses file descriptors such as those obtained by calling C<POSIX::open>.
--
--The following will determine the maximum length of the longest allowable
--pathname on the filesystem which holds C</var/foo>.
--
-- $fd = POSIX::open( "/var/foo", &POSIX::O_RDONLY );
-- $path_max = POSIX::fpathconf( $fd, &POSIX::_PC_PATH_MAX );
--
--Returns C<undef> on failure.
--
--=item fprintf
--
--fprintf() is C-specific, see L<perlfunc/printf> instead.
--
--=item fputc
--
--fputc() is C-specific, see L<perlfunc/print> instead.
--
--=item fputs
--
--fputs() is C-specific, see L<perlfunc/print> instead.
--
--=item fread
--
--fread() is C-specific, see L<perlfunc/read> instead.
--
--=item free
--
--free() is C-specific. Perl does memory management transparently.
--
--=item freopen
--
--freopen() is C-specific, see L<perlfunc/open> instead.
--
--=item frexp
--
--Return the mantissa and exponent of a floating-point number.
--
-- ($mantissa, $exponent) = POSIX::frexp( 1.234e56 );
--
--=item fscanf
--
--fscanf() is C-specific, use E<lt>E<gt> and regular expressions instead.
--
--=item fseek
--
--Use method C<IO::Seekable::seek()> instead, or see L<perlfunc/seek>.
--
--=item fsetpos
--
--Use method C<IO::Seekable::setpos()> instead, or seek L<perlfunc/seek>.
--
--=item fstat
--
--Get file status. This uses file descriptors such as those obtained by
--calling C<POSIX::open>. The data returned is identical to the data from
--Perl's builtin C<stat> function.
--
-- $fd = POSIX::open( "foo", &POSIX::O_RDONLY );
-- @stats = POSIX::fstat( $fd );
--
--=item fsync
--
--Use method C<IO::Handle::sync()> instead.
--
--=item ftell
--
--Use method C<IO::Seekable::tell()> instead, or see L<perlfunc/tell>.
--
--=item fwrite
--
--fwrite() is C-specific, see L<perlfunc/print> instead.
--
--=item getc
--
--This is identical to Perl's builtin C<getc()> function,
--see L<perlfunc/getc>.
--
--=item getchar
--
--Returns one character from STDIN. Identical to Perl's C<getc()>,
--see L<perlfunc/getc>.
--
--=item getcwd
--
--Returns the name of the current working directory.
--See also L<Cwd>.
--
--=item getegid
--
--Returns the effective group identifier. Similar to Perl' s builtin
--variable C<$(>, see L<perlvar/$EGID>.
--
--=item getenv
--
--Returns the value of the specified environment variable.
--The same information is available through the C<%ENV> array.
--
--=item geteuid
--
--Returns the effective user identifier. Identical to Perl's builtin C<$E<gt>>
--variable, see L<perlvar/$EUID>.
--
--=item getgid
--
--Returns the user's real group identifier. Similar to Perl's builtin
--variable C<$)>, see L<perlvar/$GID>.
--
--=item getgrgid
--
--This is identical to Perl's builtin C<getgrgid()> function for
--returning group entries by group identifiers, see
--L<perlfunc/getgrgid>.
--
--=item getgrnam
--
--This is identical to Perl's builtin C<getgrnam()> function for
--returning group entries by group names, see L<perlfunc/getgrnam>.
--
--=item getgroups
--
--Returns the ids of the user's supplementary groups. Similar to Perl's
--builtin variable C<$)>, see L<perlvar/$GID>.
--
--=item getlogin
--
--This is identical to Perl's builtin C<getlogin()> function for
--returning the user name associated with the current session, see
--L<perlfunc/getlogin>.
--
--=item getpgrp
--
--This is identical to Perl's builtin C<getpgrp()> function for
--returning the process group identifier of the current process, see
--L<perlfunc/getpgrp>.
--
--=item getpid
--
--Returns the process identifier. Identical to Perl's builtin
--variable C<$$>, see L<perlvar/$PID>.
--
--=item getppid
--
--This is identical to Perl's builtin C<getppid()> function for
--returning the process identifier of the parent process of the current
--process , see L<perlfunc/getppid>.
--
--=item getpwnam
--
--This is identical to Perl's builtin C<getpwnam()> function for
--returning user entries by user names, see L<perlfunc/getpwnam>.
--
--=item getpwuid
--
--This is identical to Perl's builtin C<getpwuid()> function for
--returning user entries by user identifiers, see L<perlfunc/getpwuid>.
--
--=item gets
--
--Returns one line from C<STDIN>, similar to E<lt>E<gt>, also known
--as the C<readline()> function, see L<perlfunc/readline>.
--
--B<NOTE>: if you have C programs that still use C<gets()>, be very
--afraid. The C<gets()> function is a source of endless grief because
--it has no buffer overrun checks. It should B<never> be used. The
--C<fgets()> function should be preferred instead.
--
--=item getuid
--
--Returns the user's identifier. Identical to Perl's builtin C<$E<lt>> variable,
--see L<perlvar/$UID>.
--
--=item gmtime
--
--This is identical to Perl's builtin C<gmtime()> function for
--converting seconds since the epoch to a date in Greenwich Mean Time,
--see L<perlfunc/gmtime>.
--
--=item isalnum
--
--This is identical to the C function, except that it can apply to a
--single character or to a whole string. Note that locale settings may
--affect what characters are considered C<isalnum>. Does not work on
--Unicode characters code point 256 or higher. Consider using regular
--expressions and the C</[[:alnum:]]/> construct instead, or possibly
--the C</\w/> construct.
--
--=item isalpha
--
--This is identical to the C function, except that it can apply to
--a single character or to a whole string. Note that locale settings
--may affect what characters are considered C<isalpha>. Does not work
--on Unicode characters code point 256 or higher. Consider using regular
--expressions and the C</[[:alpha:]]/> construct instead.
--
--=item isatty
--
--Returns a boolean indicating whether the specified filehandle is connected
--to a tty. Similar to the C<-t> operator, see L<perlfunc/-X>.
--
--=item iscntrl
--
--This is identical to the C function, except that it can apply to
--a single character or to a whole string. Note that locale settings
--may affect what characters are considered C<iscntrl>. Does not work
--on Unicode characters code point 256 or higher. Consider using regular
--expressions and the C</[[:cntrl:]]/> construct instead.
--
--=item isdigit
--
--This is identical to the C function, except that it can apply to
--a single character or to a whole string. Note that locale settings
--may affect what characters are considered C<isdigit> (unlikely, but
--still possible). Does not work on Unicode characters code point 256
--or higher. Consider using regular expressions and the C</[[:digit:]]/>
--construct instead, or the C</\d/> construct.
--
--=item isgraph
--
--This is identical to the C function, except that it can apply to
--a single character or to a whole string. Note that locale settings
--may affect what characters are considered C<isgraph>. Does not work
--on Unicode characters code point 256 or higher. Consider using regular
--expressions and the C</[[:graph:]]/> construct instead.
--
--=item islower
--
--This is identical to the C function, except that it can apply to
--a single character or to a whole string. Note that locale settings
--may affect what characters are considered C<islower>. Does not work
--on Unicode characters code point 256 or higher. Consider using regular
--expressions and the C</[[:lower:]]/> construct instead. Do B<not> use
--C</[a-z]/>.
--
--=item isprint
--
--This is identical to the C function, except that it can apply to
--a single character or to a whole string. Note that locale settings
--may affect what characters are considered C<isprint>. Does not work
--on Unicode characters code point 256 or higher. Consider using regular
--expressions and the C</[[:print:]]/> construct instead.
--
--=item ispunct
--
--This is identical to the C function, except that it can apply to
--a single character or to a whole string. Note that locale settings
--may affect what characters are considered C<ispunct>. Does not work
--on Unicode characters code point 256 or higher. Consider using regular
--expressions and the C</[[:punct:]]/> construct instead.
--
--=item isspace
--
--This is identical to the C function, except that it can apply to
--a single character or to a whole string. Note that locale settings
--may affect what characters are considered C<isspace>. Does not work
--on Unicode characters code point 256 or higher. Consider using regular
--expressions and the C</[[:space:]]/> construct instead, or the C</\s/>
--construct. (Note that C</\s/> and C</[[:space:]]/> are slightly
--different in that C</[[:space:]]/> can normally match a vertical tab,
--while C</\s/> does not.)
--
--=item isupper
--
--This is identical to the C function, except that it can apply to
--a single character or to a whole string. Note that locale settings
--may affect what characters are considered C<isupper>. Does not work
--on Unicode characters code point 256 or higher. Consider using regular
--expressions and the C</[[:upper:]]/> construct instead. Do B<not> use
--C</[A-Z]/>.
--
--=item isxdigit
--
--This is identical to the C function, except that it can apply to a single
--character or to a whole string. Note that locale settings may affect what
--characters are considered C<isxdigit> (unlikely, but still possible).
--Does not work on Unicode characters code point 256 or higher.
--Consider using regular expressions and the C</[[:xdigit:]]/>
--construct instead, or simply C</[0-9a-f]/i>.
--
--=item kill
--
--This is identical to Perl's builtin C<kill()> function for sending
--signals to processes (often to terminate them), see L<perlfunc/kill>.
--
--=item labs
--
--(For returning absolute values of long integers.)
--labs() is C-specific, see L<perlfunc/abs> instead.
--
--=item lchown
--
--This is identical to the C function, except the order of arguments is
--consistent with Perl's builtin C<chown()> with the added restriction
--of only one path, not an list of paths. Does the same thing as the
--C<chown()> function but changes the owner of a symbolic link instead
--of the file the symbolic link points to.
--
--=item ldexp
--
--This is identical to the C function C<ldexp()>
--for multiplying floating point numbers with powers of two.
--
-- $x_quadrupled = POSIX::ldexp($x, 2);
--
--=item ldiv
--
--(For computing dividends of long integers.)
--ldiv() is C-specific, use C</> and C<int()> instead.
--
--=item link
--
--This is identical to Perl's builtin C<link()> function
--for creating hard links into files, see L<perlfunc/link>.
--
--=item localeconv
--
--Get numeric formatting information. Returns a reference to a hash
--containing the current locale formatting values.
--
--Here is how to query the database for the B<de> (Deutsch or German) locale.
--
-- $loc = POSIX::setlocale( &POSIX::LC_ALL, "de" );
-- print "Locale = $loc\n";
-- $lconv = POSIX::localeconv();
-- print "decimal_point = ", $lconv->{decimal_point}, "\n";
-- print "thousands_sep = ", $lconv->{thousands_sep}, "\n";
-- print "grouping = ", $lconv->{grouping}, "\n";
-- print "int_curr_symbol = ", $lconv->{int_curr_symbol}, "\n";
-- print "currency_symbol = ", $lconv->{currency_symbol}, "\n";
-- print "mon_decimal_point = ", $lconv->{mon_decimal_point}, "\n";
-- print "mon_thousands_sep = ", $lconv->{mon_thousands_sep}, "\n";
-- print "mon_grouping = ", $lconv->{mon_grouping}, "\n";
-- print "positive_sign = ", $lconv->{positive_sign}, "\n";
-- print "negative_sign = ", $lconv->{negative_sign}, "\n";
-- print "int_frac_digits = ", $lconv->{int_frac_digits}, "\n";
-- print "frac_digits = ", $lconv->{frac_digits}, "\n";
-- print "p_cs_precedes = ", $lconv->{p_cs_precedes}, "\n";
-- print "p_sep_by_space = ", $lconv->{p_sep_by_space}, "\n";
-- print "n_cs_precedes = ", $lconv->{n_cs_precedes}, "\n";
-- print "n_sep_by_space = ", $lconv->{n_sep_by_space}, "\n";
-- print "p_sign_posn = ", $lconv->{p_sign_posn}, "\n";
-- print "n_sign_posn = ", $lconv->{n_sign_posn}, "\n";
--
--=item localtime
--
--This is identical to Perl's builtin C<localtime()> function for
--converting seconds since the epoch to a date see L<perlfunc/localtime>.
--
--=item log
--
--This is identical to Perl's builtin C<log()> function,
--returning the natural (I<e>-based) logarithm of the numerical argument,
--see L<perlfunc/log>.
--
--=item log10
--
--This is identical to the C function C<log10()>,
--returning the 10-base logarithm of the numerical argument.
--You can also use
--
-- sub log10 { log($_[0]) / log(10) }
--
--or
--
-- sub log10 { log($_[0]) / 2.30258509299405 }
--
--or
--
-- sub log10 { log($_[0]) * 0.434294481903252 }
--
--=item longjmp
--
--longjmp() is C-specific: use L<perlfunc/die> instead.
--
--=item lseek
--
--Move the file's read/write position. This uses file descriptors such as
--those obtained by calling C<POSIX::open>.
--
-- $fd = POSIX::open( "foo", &POSIX::O_RDONLY );
-- $off_t = POSIX::lseek( $fd, 0, &POSIX::SEEK_SET );
--
--Returns C<undef> on failure.
--
--=item malloc
--
--malloc() is C-specific. Perl does memory management transparently.
--
--=item mblen
--
--This is identical to the C function C<mblen()>.
--Perl does not have any support for the wide and multibyte
--characters of the C standards, so this might be a rather
--useless function.
--
--=item mbstowcs
--
--This is identical to the C function C<mbstowcs()>.
--Perl does not have any support for the wide and multibyte
--characters of the C standards, so this might be a rather
--useless function.
--
--=item mbtowc
--
--This is identical to the C function C<mbtowc()>.
--Perl does not have any support for the wide and multibyte
--characters of the C standards, so this might be a rather
--useless function.
--
--=item memchr
--
--memchr() is C-specific, see L<perlfunc/index> instead.
--
--=item memcmp
--
--memcmp() is C-specific, use C<eq> instead, see L<perlop>.
--
--=item memcpy
--
--memcpy() is C-specific, use C<=>, see L<perlop>, or see L<perlfunc/substr>.
--
--=item memmove
--
--memmove() is C-specific, use C<=>, see L<perlop>, or see L<perlfunc/substr>.
--
--=item memset
--
--memset() is C-specific, use C<x> instead, see L<perlop>.
--
--=item mkdir
--
--This is identical to Perl's builtin C<mkdir()> function
--for creating directories, see L<perlfunc/mkdir>.
--
--=item mkfifo
--
--This is similar to the C function C<mkfifo()> for creating
--FIFO special files.
--
-- if (mkfifo($path, $mode)) { ....
--
--Returns C<undef> on failure. The C<$mode> is similar to the
--mode of C<mkdir()>, see L<perlfunc/mkdir>, though for C<mkfifo>
--you B<must> specify the C<$mode>.
--
--=item mktime
--
--Convert date/time info to a calendar time.
--
--Synopsis:
--
-- mktime(sec, min, hour, mday, mon, year, wday = 0, yday = 0, isdst = -1)
--
--The month (C<mon>), weekday (C<wday>), and yearday (C<yday>) begin at zero.
--I.e. January is 0, not 1; Sunday is 0, not 1; January 1st is 0, not 1. The
--year (C<year>) is given in years since 1900. I.e. The year 1995 is 95; the
--year 2001 is 101. Consult your system's C<mktime()> manpage for details
--about these and the other arguments.
--
--Calendar time for December 12, 1995, at 10:30 am.
--
-- $time_t = POSIX::mktime( 0, 30, 10, 12, 11, 95 );
-- print "Date = ", POSIX::ctime($time_t);
--
--Returns C<undef> on failure.
--
--=item modf
--
--Return the integral and fractional parts of a floating-point number.
--
-- ($fractional, $integral) = POSIX::modf( 3.14 );
--
--=item nice
--
--This is similar to the C function C<nice()>, for changing
--the scheduling preference of the current process. Positive
--arguments mean more polite process, negative values more
--needy process. Normal user processes can only be more polite.
--
--Returns C<undef> on failure.
--
--=item offsetof
--
--offsetof() is C-specific, you probably want to see L<perlfunc/pack> instead.
--
--=item open
--
--Open a file for reading for writing. This returns file descriptors, not
--Perl filehandles. Use C<POSIX::close> to close the file.
--
--Open a file read-only with mode 0666.
--
-- $fd = POSIX::open( "foo" );
--
--Open a file for read and write.
--
-- $fd = POSIX::open( "foo", &POSIX::O_RDWR );
--
--Open a file for write, with truncation.
--
-- $fd = POSIX::open( "foo", &POSIX::O_WRONLY | &POSIX::O_TRUNC );
--
--Create a new file with mode 0640. Set up the file for writing.
--
-- $fd = POSIX::open( "foo", &POSIX::O_CREAT | &POSIX::O_WRONLY, 0640 );
--
--Returns C<undef> on failure.
--
--See also L<perlfunc/sysopen>.
--
--=item opendir
--
--Open a directory for reading.
--
-- $dir = POSIX::opendir( "/var" );
-- @files = POSIX::readdir( $dir );
-- POSIX::closedir( $dir );
--
--Returns C<undef> on failure.
--
--=item pathconf
--
--Retrieves the value of a configurable limit on a file or directory.
--
--The following will determine the maximum length of the longest allowable
--pathname on the filesystem which holds C</var>.
--
-- $path_max = POSIX::pathconf( "/var", &POSIX::_PC_PATH_MAX );
--
--Returns C<undef> on failure.
--
--=item pause
--
--This is similar to the C function C<pause()>, which suspends
--the execution of the current process until a signal is received.
--
--Returns C<undef> on failure.
--
--=item perror
--
--This is identical to the C function C<perror()>, which outputs to the
--standard error stream the specified message followed by ": " and the
--current error string. Use the C<warn()> function and the C<$!>
--variable instead, see L<perlfunc/warn> and L<perlvar/$ERRNO>.
--
--=item pipe
--
--Create an interprocess channel. This returns file descriptors like those
--returned by C<POSIX::open>.
--
-- my ($read, $write) = POSIX::pipe();
-- POSIX::write( $write, "hello", 5 );
-- POSIX::read( $read, $buf, 5 );
--
--See also L<perlfunc/pipe>.
--
--=item pow
--
--Computes C<$x> raised to the power C<$exponent>.
--
-- $ret = POSIX::pow( $x, $exponent );
--
--You can also use the C<**> operator, see L<perlop>.
--
--=item printf
--
--Formats and prints the specified arguments to STDOUT.
--See also L<perlfunc/printf>.
--
--=item putc
--
--putc() is C-specific, see L<perlfunc/print> instead.
--
--=item putchar
--
--putchar() is C-specific, see L<perlfunc/print> instead.
--
--=item puts
--
--puts() is C-specific, see L<perlfunc/print> instead.
--
--=item qsort
--
--qsort() is C-specific, see L<perlfunc/sort> instead.
--
--=item raise
--
--Sends the specified signal to the current process.
--See also L<perlfunc/kill> and the C<$$> in L<perlvar/$PID>.
--
--=item rand
--
--C<rand()> is non-portable, see L<perlfunc/rand> instead.
--
--=item read
--
--Read from a file. This uses file descriptors such as those obtained by
--calling C<POSIX::open>. If the buffer C<$buf> is not large enough for the
--read then Perl will extend it to make room for the request.
--
-- $fd = POSIX::open( "foo", &POSIX::O_RDONLY );
-- $bytes = POSIX::read( $fd, $buf, 3 );
--
--Returns C<undef> on failure.
--
--See also L<perlfunc/sysread>.
--
--=item readdir
--
--This is identical to Perl's builtin C<readdir()> function
--for reading directory entries, see L<perlfunc/readdir>.
--
--=item realloc
--
--realloc() is C-specific. Perl does memory management transparently.
--
--=item remove
--
--This is identical to Perl's builtin C<unlink()> function
--for removing files, see L<perlfunc/unlink>.
--
--=item rename
--
--This is identical to Perl's builtin C<rename()> function
--for renaming files, see L<perlfunc/rename>.
--
--=item rewind
--
--Seeks to the beginning of the file.
--
--=item rewinddir
--
--This is identical to Perl's builtin C<rewinddir()> function for
--rewinding directory entry streams, see L<perlfunc/rewinddir>.
--
--=item rmdir
--
--This is identical to Perl's builtin C<rmdir()> function
--for removing (empty) directories, see L<perlfunc/rmdir>.
--
--=item scanf
--
--scanf() is C-specific, use E<lt>E<gt> and regular expressions instead,
--see L<perlre>.
--
--=item setgid
--
--Sets the real group identifier and the effective group identifier for
--this process. Similar to assigning a value to the Perl's builtin
--C<$)> variable, see L<perlvar/$EGID>, except that the latter
--will change only the real user identifier, and that the setgid()
--uses only a single numeric argument, as opposed to a space-separated
--list of numbers.
--
--=item setjmp
--
--C<setjmp()> is C-specific: use C<eval {}> instead,
--see L<perlfunc/eval>.
--
--=item setlocale
--
--Modifies and queries program's locale. The following examples assume
--
-- use POSIX qw(setlocale LC_ALL LC_CTYPE);
--
--has been issued.
--
--The following will set the traditional UNIX system locale behavior
--(the second argument C<"C">).
--
-- $loc = setlocale( LC_ALL, "C" );
--
--The following will query the current LC_CTYPE category. (No second
--argument means 'query'.)
--
-- $loc = setlocale( LC_CTYPE );
--
--The following will set the LC_CTYPE behaviour according to the locale
--environment variables (the second argument C<"">).
--Please see your systems C<setlocale(3)> documentation for the locale
--environment variables' meaning or consult L<perllocale>.
--
-- $loc = setlocale( LC_CTYPE, "" );
--
--The following will set the LC_COLLATE behaviour to Argentinian
--Spanish. B<NOTE>: The naming and availability of locales depends on
--your operating system. Please consult L<perllocale> for how to find
--out which locales are available in your system.
--
-- $loc = setlocale( LC_COLLATE, "es_AR.ISO8859-1" );
--
--=item setpgid
--
--This is similar to the C function C<setpgid()> for
--setting the process group identifier of the current process.
--
--Returns C<undef> on failure.
--
--=item setsid
--
--This is identical to the C function C<setsid()> for
--setting the session identifier of the current process.
--
--=item setuid
--
--Sets the real user identifier and the effective user identifier for
--this process. Similar to assigning a value to the Perl's builtin
--C<$E<lt>> variable, see L<perlvar/$UID>, except that the latter
--will change only the real user identifier.
--
--=item sigaction
--
--Detailed signal management. This uses C<POSIX::SigAction> objects for
--the C<action> and C<oldaction> arguments (the oldaction can also be
--just a hash reference). Consult your system's C<sigaction> manpage
--for details, see also C<POSIX::SigRt>.
--
--Synopsis:
--
-- sigaction(signal, action, oldaction = 0)
--
--Returns C<undef> on failure. The C<signal> must be a number (like
--SIGHUP), not a string (like "SIGHUP"), though Perl does try hard
--to understand you.
--
--If you use the SA_SIGINFO flag, the signal handler will in addition to
--the first argument, the signal name, also receive a second argument, a
--hash reference, inside which are the following keys with the following
--semantics, as defined by POSIX/SUSv3:
--
-- signo the signal number
-- errno the error number
-- code if this is zero or less, the signal was sent by
-- a user process and the uid and pid make sense,
-- otherwise the signal was sent by the kernel
--
--The following are also defined by POSIX/SUSv3, but unfortunately
--not very widely implemented:
--
-- pid the process id generating the signal
-- uid the uid of the process id generating the signal
-- status exit value or signal for SIGCHLD
-- band band event for SIGPOLL
--
--A third argument is also passed to the handler, which contains a copy
--of the raw binary contents of the siginfo structure: if a system has
--some non-POSIX fields, this third argument is where to unpack() them
--from.
--
--Note that not all siginfo values make sense simultaneously (some are
--valid only for certain signals, for example), and not all values make
--sense from Perl perspective, you should to consult your system's
--C<sigaction> and possibly also C<siginfo> documentation.
--
--=item siglongjmp
--
--siglongjmp() is C-specific: use L<perlfunc/die> instead.
--
--=item sigpending
--
--Examine signals that are blocked and pending. This uses C<POSIX::SigSet>
--objects for the C<sigset> argument. Consult your system's C<sigpending>
--manpage for details.
--
--Synopsis:
--
-- sigpending(sigset)
--
--Returns C<undef> on failure.
--
--=item sigprocmask
--
--Change and/or examine calling process's signal mask. This uses
--C<POSIX::SigSet> objects for the C<sigset> and C<oldsigset> arguments.
--Consult your system's C<sigprocmask> manpage for details.
--
--Synopsis:
--
-- sigprocmask(how, sigset, oldsigset = 0)
--
--Returns C<undef> on failure.
--
--=item sigsetjmp
--
--C<sigsetjmp()> is C-specific: use C<eval {}> instead,
--see L<perlfunc/eval>.
--
--=item sigsuspend
--
--Install a signal mask and suspend process until signal arrives. This uses
--C<POSIX::SigSet> objects for the C<signal_mask> argument. Consult your
--system's C<sigsuspend> manpage for details.
--
--Synopsis:
--
-- sigsuspend(signal_mask)
--
--Returns C<undef> on failure.
--
--=item sin
--
--This is identical to Perl's builtin C<sin()> function
--for returning the sine of the numerical argument,
--see L<perlfunc/sin>. See also L<Math::Trig>.
--
--=item sinh
--
--This is identical to the C function C<sinh()>
--for returning the hyperbolic sine of the numerical argument.
--See also L<Math::Trig>.
--
--=item sleep
--
--This is functionally identical to Perl's builtin C<sleep()> function
--for suspending the execution of the current for process for certain
--number of seconds, see L<perlfunc/sleep>. There is one significant
--difference, however: C<POSIX::sleep()> returns the number of
--B<unslept> seconds, while the C<CORE::sleep()> returns the
--number of slept seconds.
--
--=item sprintf
--
--This is similar to Perl's builtin C<sprintf()> function
--for returning a string that has the arguments formatted as requested,
--see L<perlfunc/sprintf>.
--
--=item sqrt
--
--This is identical to Perl's builtin C<sqrt()> function.
--for returning the square root of the numerical argument,
--see L<perlfunc/sqrt>.
--
--=item srand
--
--Give a seed the pseudorandom number generator, see L<perlfunc/srand>.
--
--=item sscanf
--
--sscanf() is C-specific, use regular expressions instead,
--see L<perlre>.
--
--=item stat
--
--This is identical to Perl's builtin C<stat()> function
--for returning information about files and directories.
--
--=item strcat
--
--strcat() is C-specific, use C<.=> instead, see L<perlop>.
--
--=item strchr
--
--strchr() is C-specific, see L<perlfunc/index> instead.
--
--=item strcmp
--
--strcmp() is C-specific, use C<eq> or C<cmp> instead, see L<perlop>.
--
--=item strcoll
--
--This is identical to the C function C<strcoll()>
--for collating (comparing) strings transformed using
--the C<strxfrm()> function. Not really needed since
--Perl can do this transparently, see L<perllocale>.
--
--=item strcpy
--
--strcpy() is C-specific, use C<=> instead, see L<perlop>.
--
--=item strcspn
--
--strcspn() is C-specific, use regular expressions instead,
--see L<perlre>.
--
--=item strerror
--
--Returns the error string for the specified errno.
--Identical to the string form of the C<$!>, see L<perlvar/$ERRNO>.
--
--=item strftime
--
--Convert date and time information to string. Returns the string.
--
--Synopsis:
--
-- strftime(fmt, sec, min, hour, mday, mon, year, wday = -1, yday = -1, isdst = -1)
--
--The month (C<mon>), weekday (C<wday>), and yearday (C<yday>) begin at zero.
--I.e. January is 0, not 1; Sunday is 0, not 1; January 1st is 0, not 1. The
--year (C<year>) is given in years since 1900. I.e., the year 1995 is 95; the
--year 2001 is 101. Consult your system's C<strftime()> manpage for details
--about these and the other arguments.
--
--If you want your code to be portable, your format (C<fmt>) argument
--should use only the conversion specifiers defined by the ANSI C
--standard (C89, to play safe). These are C<aAbBcdHIjmMpSUwWxXyYZ%>.
--But even then, the B<results> of some of the conversion specifiers are
--non-portable. For example, the specifiers C<aAbBcpZ> change according
--to the locale settings of the user, and both how to set locales (the
--locale names) and what output to expect are non-standard.
--The specifier C<c> changes according to the timezone settings of the
--user and the timezone computation rules of the operating system.
--The C<Z> specifier is notoriously unportable since the names of
--timezones are non-standard. Sticking to the numeric specifiers is the
--safest route.
--
--The given arguments are made consistent as though by calling
--C<mktime()> before calling your system's C<strftime()> function,
--except that the C<isdst> value is not affected.
--
--The string for Tuesday, December 12, 1995.
--
-- $str = POSIX::strftime( "%A, %B %d, %Y", 0, 0, 0, 12, 11, 95, 2 );
-- print "$str\n";
--
--=item strlen
--
--strlen() is C-specific, use C<length()> instead, see L<perlfunc/length>.
--
--=item strncat
--
--strncat() is C-specific, use C<.=> instead, see L<perlop>.
--
--=item strncmp
--
--strncmp() is C-specific, use C<eq> instead, see L<perlop>.
--
--=item strncpy
--
--strncpy() is C-specific, use C<=> instead, see L<perlop>.
--
--=item strpbrk
--
--strpbrk() is C-specific, use regular expressions instead,
--see L<perlre>.
--
--=item strrchr
--
--strrchr() is C-specific, see L<perlfunc/rindex> instead.
--
--=item strspn
--
--strspn() is C-specific, use regular expressions instead,
--see L<perlre>.
--
--=item strstr
--
--This is identical to Perl's builtin C<index()> function,
--see L<perlfunc/index>.
--
--=item strtod
--
--String to double translation. Returns the parsed number and the number
--of characters in the unparsed portion of the string. Truly
--POSIX-compliant systems set $! ($ERRNO) to indicate a translation
--error, so clear $! before calling strtod. However, non-POSIX systems
--may not check for overflow, and therefore will never set $!.
--
--strtod should respect any POSIX I<setlocale()> settings.
--
--To parse a string $str as a floating point number use
--
-- $! = 0;
-- ($num, $n_unparsed) = POSIX::strtod($str);
--
--The second returned item and $! can be used to check for valid input:
--
-- if (($str eq '') || ($n_unparsed != 0) || $!) {
-- die "Non-numeric input $str" . ($! ? ": $!\n" : "\n");
-- }
--
--When called in a scalar context strtod returns the parsed number.
--
--=item strtok
--
--strtok() is C-specific, use regular expressions instead, see
--L<perlre>, or L<perlfunc/split>.
--
--=item strtol
--
--String to (long) integer translation. Returns the parsed number and
--the number of characters in the unparsed portion of the string. Truly
--POSIX-compliant systems set $! ($ERRNO) to indicate a translation
--error, so clear $! before calling strtol. However, non-POSIX systems
--may not check for overflow, and therefore will never set $!.
--
--strtol should respect any POSIX I<setlocale()> settings.
--
--To parse a string $str as a number in some base $base use
--
-- $! = 0;
-- ($num, $n_unparsed) = POSIX::strtol($str, $base);
--
--The base should be zero or between 2 and 36, inclusive. When the base
--is zero or omitted strtol will use the string itself to determine the
--base: a leading "0x" or "0X" means hexadecimal; a leading "0" means
--octal; any other leading characters mean decimal. Thus, "1234" is
--parsed as a decimal number, "01234" as an octal number, and "0x1234"
--as a hexadecimal number.
--
--The second returned item and $! can be used to check for valid input:
--
-- if (($str eq '') || ($n_unparsed != 0) || !$!) {
-- die "Non-numeric input $str" . $! ? ": $!\n" : "\n";
-- }
--
--When called in a scalar context strtol returns the parsed number.
--
--=item strtoul
--
--String to unsigned (long) integer translation. strtoul() is identical
--to strtol() except that strtoul() only parses unsigned integers. See
--L</strtol> for details.
--
--Note: Some vendors supply strtod() and strtol() but not strtoul().
--Other vendors that do supply strtoul() parse "-1" as a valid value.
--
--=item strxfrm
--
--String transformation. Returns the transformed string.
--
-- $dst = POSIX::strxfrm( $src );
--
--Used in conjunction with the C<strcoll()> function, see L</strcoll>.
--
--Not really needed since Perl can do this transparently, see
--L<perllocale>.
--
--=item sysconf
--
--Retrieves values of system configurable variables.
--
--The following will get the machine's clock speed.
--
-- $clock_ticks = POSIX::sysconf( &POSIX::_SC_CLK_TCK );
--
--Returns C<undef> on failure.
--
--=item system
--
--This is identical to Perl's builtin C<system()> function, see
--L<perlfunc/system>.
--
--=item tan
--
--This is identical to the C function C<tan()>, returning the
--tangent of the numerical argument. See also L<Math::Trig>.
--
--=item tanh
--
--This is identical to the C function C<tanh()>, returning the
--hyperbolic tangent of the numerical argument. See also L<Math::Trig>.
--
--=item tcdrain
--
--This is similar to the C function C<tcdrain()> for draining
--the output queue of its argument stream.
--
--Returns C<undef> on failure.
--
--=item tcflow
--
--This is similar to the C function C<tcflow()> for controlling
--the flow of its argument stream.
--
--Returns C<undef> on failure.
--
--=item tcflush
--
--This is similar to the C function C<tcflush()> for flushing
--the I/O buffers of its argument stream.
--
--Returns C<undef> on failure.
--
--=item tcgetpgrp
--
--This is identical to the C function C<tcgetpgrp()> for returning the
--process group identifier of the foreground process group of the controlling
--terminal.
--
--=item tcsendbreak
--
--This is similar to the C function C<tcsendbreak()> for sending
--a break on its argument stream.
--
--Returns C<undef> on failure.
--
--=item tcsetpgrp
--
--This is similar to the C function C<tcsetpgrp()> for setting the
--process group identifier of the foreground process group of the controlling
--terminal.
--
--Returns C<undef> on failure.
--
--=item time
--
--This is identical to Perl's builtin C<time()> function
--for returning the number of seconds since the epoch
--(whatever it is for the system), see L<perlfunc/time>.
--
--=item times
--
--The times() function returns elapsed realtime since some point in the past
--(such as system startup), user and system times for this process, and user
--and system times used by child processes. All times are returned in clock
--ticks.
--
-- ($realtime, $user, $system, $cuser, $csystem) = POSIX::times();
--
--Note: Perl's builtin C<times()> function returns four values, measured in
--seconds.
--
--=item tmpfile
--
--Use method C<IO::File::new_tmpfile()> instead, or see L<File::Temp>.
--
--=item tmpnam
--
--Returns a name for a temporary file.
--
-- $tmpfile = POSIX::tmpnam();
--
--For security reasons, which are probably detailed in your system's
--documentation for the C library tmpnam() function, this interface
--should not be used; instead see L<File::Temp>.
--
--=item tolower
--
--This is identical to the C function, except that it can apply to a single
--character or to a whole string. Consider using the C<lc()> function,
--see L<perlfunc/lc>, or the equivalent C<\L> operator inside doublequotish
--strings.
--
--=item toupper
--
--This is identical to the C function, except that it can apply to a single
--character or to a whole string. Consider using the C<uc()> function,
--see L<perlfunc/uc>, or the equivalent C<\U> operator inside doublequotish
--strings.
--
--=item ttyname
--
--This is identical to the C function C<ttyname()> for returning the
--name of the current terminal.
--
--=item tzname
--
--Retrieves the time conversion information from the C<tzname> variable.
--
-- POSIX::tzset();
-- ($std, $dst) = POSIX::tzname();
--
--=item tzset
--
--This is identical to the C function C<tzset()> for setting
--the current timezone based on the environment variable C<TZ>,
--to be used by C<ctime()>, C<localtime()>, C<mktime()>, and C<strftime()>
--functions.
--
--=item umask
--
--This is identical to Perl's builtin C<umask()> function
--for setting (and querying) the file creation permission mask,
--see L<perlfunc/umask>.
--
--=item uname
--
--Get name of current operating system.
--
-- ($sysname, $nodename, $release, $version, $machine) = POSIX::uname();
--
--Note that the actual meanings of the various fields are not
--that well standardized, do not expect any great portability.
--The C<$sysname> might be the name of the operating system,
--the C<$nodename> might be the name of the host, the C<$release>
--might be the (major) release number of the operating system,
--the C<$version> might be the (minor) release number of the
--operating system, and the C<$machine> might be a hardware identifier.
--Maybe.
--
--=item ungetc
--
--Use method C<IO::Handle::ungetc()> instead.
--
--=item unlink
--
--This is identical to Perl's builtin C<unlink()> function
--for removing files, see L<perlfunc/unlink>.
--
--=item utime
--
--This is identical to Perl's builtin C<utime()> function
--for changing the time stamps of files and directories,
--see L<perlfunc/utime>.
--
--=item vfprintf
--
--vfprintf() is C-specific, see L<perlfunc/printf> instead.
--
--=item vprintf
--
--vprintf() is C-specific, see L<perlfunc/printf> instead.
--
--=item vsprintf
--
--vsprintf() is C-specific, see L<perlfunc/sprintf> instead.
--
--=item wait
--
--This is identical to Perl's builtin C<wait()> function,
--see L<perlfunc/wait>.
--
--=item waitpid
--
--Wait for a child process to change state. This is identical to Perl's
--builtin C<waitpid()> function, see L<perlfunc/waitpid>.
--
-- $pid = POSIX::waitpid( -1, POSIX::WNOHANG );
-- print "status = ", ($? / 256), "\n";
--
--=item wcstombs
--
--This is identical to the C function C<wcstombs()>.
--Perl does not have any support for the wide and multibyte
--characters of the C standards, so this might be a rather
--useless function.
--
--=item wctomb
--
--This is identical to the C function C<wctomb()>.
--Perl does not have any support for the wide and multibyte
--characters of the C standards, so this might be a rather
--useless function.
--
--=item write
--
--Write to a file. This uses file descriptors such as those obtained by
--calling C<POSIX::open>.
--
-- $fd = POSIX::open( "foo", &POSIX::O_WRONLY );
-- $buf = "hello";
-- $bytes = POSIX::write( $fd, $buf, 5 );
--
--Returns C<undef> on failure.
--
--See also L<perlfunc/syswrite>.
--
--=back
--
--=head1 CLASSES
--
--=head2 POSIX::SigAction
--
--=over 8
--
--=item new
--
--Creates a new C<POSIX::SigAction> object which corresponds to the C
--C<struct sigaction>. This object will be destroyed automatically when
--it is no longer needed. The first parameter is the handler, a sub
--reference. The second parameter is a C<POSIX::SigSet> object, it
--defaults to the empty set. The third parameter contains the
--C<sa_flags>, it defaults to 0.
--
-- $sigset = POSIX::SigSet->new(SIGINT, SIGQUIT);
-- $sigaction = POSIX::SigAction->new( \&handler, $sigset, &POSIX::SA_NOCLDSTOP );
--
--This C<POSIX::SigAction> object is intended for use with the C<POSIX::sigaction()>
--function.
--
--=back
--
--=over 8
--
--=item handler
--
--=item mask
--
--=item flags
--
--accessor functions to get/set the values of a SigAction object.
--
-- $sigset = $sigaction->mask;
-- $sigaction->flags(&POSIX::SA_RESTART);
--
--=item safe
--
--accessor function for the "safe signals" flag of a SigAction object; see
--L<perlipc> for general information on safe (a.k.a. "deferred") signals. If
--you wish to handle a signal safely, use this accessor to set the "safe" flag
--in the C<POSIX::SigAction> object:
--
-- $sigaction->safe(1);
--
--You may also examine the "safe" flag on the output action object which is
--filled in when given as the third parameter to C<POSIX::sigaction()>:
--
-- sigaction(SIGINT, $new_action, $old_action);
-- if ($old_action->safe) {
-- # previous SIGINT handler used safe signals
-- }
--
--=back
--
--=head2 POSIX::SigRt
--
--=over 8
--
--=item %SIGRT
--
--A hash of the POSIX realtime signal handlers. It is an extension of
--the standard %SIG, the $POSIX::SIGRT{SIGRTMIN} is roughly equivalent
--to $SIG{SIGRTMIN}, but the right POSIX moves (see below) are made with
--the POSIX::SigSet and POSIX::sigaction instead of accessing the %SIG.
--
--You can set the %POSIX::SIGRT elements to set the POSIX realtime
--signal handlers, use C<delete> and C<exists> on the elements, and use
--C<scalar> on the C<%POSIX::SIGRT> to find out how many POSIX realtime
--signals there are available (SIGRTMAX - SIGRTMIN + 1, the SIGRTMAX is
--a valid POSIX realtime signal).
--
--Setting the %SIGRT elements is equivalent to calling this:
--
-- sub new {
-- my ($rtsig, $handler, $flags) = @_;
-- my $sigset = POSIX::SigSet($rtsig);
-- my $sigact = POSIX::SigAction->new($handler, $sigset, $flags);
-- sigaction($rtsig, $sigact);
-- }
--
--The flags default to zero, if you want something different you can
--either use C<local> on $POSIX::SigRt::SIGACTION_FLAGS, or you can
--derive from POSIX::SigRt and define your own C<new()> (the tied hash
--STORE method of the %SIGRT calls C<new($rtsig, $handler, $SIGACTION_FLAGS)>,
--where the $rtsig ranges from zero to SIGRTMAX - SIGRTMIN + 1).
--
--Just as with any signal, you can use sigaction($rtsig, undef, $oa) to
--retrieve the installed signal handler (or, rather, the signal action).
--
--B<NOTE:> whether POSIX realtime signals really work in your system, or
--whether Perl has been compiled so that it works with them, is outside
--of this discussion.
--
--=item SIGRTMIN
--
--Return the minimum POSIX realtime signal number available, or C<undef>
--if no POSIX realtime signals are available.
--
--=item SIGRTMAX
--
--Return the maximum POSIX realtime signal number available, or C<undef>
--if no POSIX realtime signals are available.
--
--=back
--
--=head2 POSIX::SigSet
--
--=over 8
--
--=item new
--
--Create a new SigSet object. This object will be destroyed automatically
--when it is no longer needed. Arguments may be supplied to initialize the
--set.
--
--Create an empty set.
--
-- $sigset = POSIX::SigSet->new;
--
--Create a set with SIGUSR1.
--
-- $sigset = POSIX::SigSet->new( &POSIX::SIGUSR1 );
--
--=item addset
--
--Add a signal to a SigSet object.
--
-- $sigset->addset( &POSIX::SIGUSR2 );
--
--Returns C<undef> on failure.
--
--=item delset
--
--Remove a signal from the SigSet object.
--
-- $sigset->delset( &POSIX::SIGUSR2 );
--
--Returns C<undef> on failure.
--
--=item emptyset
--
--Initialize the SigSet object to be empty.
--
-- $sigset->emptyset();
--
--Returns C<undef> on failure.
--
--=item fillset
--
--Initialize the SigSet object to include all signals.
--
-- $sigset->fillset();
--
--Returns C<undef> on failure.
--
--=item ismember
--
--Tests the SigSet object to see if it contains a specific signal.
--
-- if( $sigset->ismember( &POSIX::SIGUSR1 ) ){
-- print "contains SIGUSR1\n";
-- }
--
--=back
--
--=head2 POSIX::Termios
--
--=over 8
--
--=item new
--
--Create a new Termios object. This object will be destroyed automatically
--when it is no longer needed. A Termios object corresponds to the termios
--C struct. new() mallocs a new one, getattr() fills it from a file descriptor,
--and setattr() sets a file descriptor's parameters to match Termios' contents.
--
-- $termios = POSIX::Termios->new;
--
--=item getattr
--
--Get terminal control attributes.
--
--Obtain the attributes for stdin.
--
-- $termios->getattr( 0 ) # Recommended for clarity.
-- $termios->getattr()
--
--Obtain the attributes for stdout.
--
-- $termios->getattr( 1 )
--
--Returns C<undef> on failure.
--
--=item getcc
--
--Retrieve a value from the c_cc field of a termios object. The c_cc field is
--an array so an index must be specified.
--
-- $c_cc[1] = $termios->getcc(1);
--
--=item getcflag
--
--Retrieve the c_cflag field of a termios object.
--
-- $c_cflag = $termios->getcflag;
--
--=item getiflag
--
--Retrieve the c_iflag field of a termios object.
--
-- $c_iflag = $termios->getiflag;
--
--=item getispeed
--
--Retrieve the input baud rate.
--
-- $ispeed = $termios->getispeed;
--
--=item getlflag
--
--Retrieve the c_lflag field of a termios object.
--
-- $c_lflag = $termios->getlflag;
--
--=item getoflag
--
--Retrieve the c_oflag field of a termios object.
--
-- $c_oflag = $termios->getoflag;
--
--=item getospeed
--
--Retrieve the output baud rate.
--
-- $ospeed = $termios->getospeed;
--
--=item setattr
--
--Set terminal control attributes.
--
--Set attributes immediately for stdout.
--
-- $termios->setattr( 1, &POSIX::TCSANOW );
--
--Returns C<undef> on failure.
--
--=item setcc
--
--Set a value in the c_cc field of a termios object. The c_cc field is an
--array so an index must be specified.
--
-- $termios->setcc( &POSIX::VEOF, 1 );
--
--=item setcflag
--
--Set the c_cflag field of a termios object.
--
-- $termios->setcflag( $c_cflag | &POSIX::CLOCAL );
--
--=item setiflag
--
--Set the c_iflag field of a termios object.
--
-- $termios->setiflag( $c_iflag | &POSIX::BRKINT );
--
--=item setispeed
--
--Set the input baud rate.
--
-- $termios->setispeed( &POSIX::B9600 );
--
--Returns C<undef> on failure.
--
--=item setlflag
--
--Set the c_lflag field of a termios object.
--
-- $termios->setlflag( $c_lflag | &POSIX::ECHO );
--
--=item setoflag
--
--Set the c_oflag field of a termios object.
--
-- $termios->setoflag( $c_oflag | &POSIX::OPOST );
--
--=item setospeed
--
--Set the output baud rate.
--
-- $termios->setospeed( &POSIX::B9600 );
--
--Returns C<undef> on failure.
--
--=item Baud rate values
--
--B38400 B75 B200 B134 B300 B1800 B150 B0 B19200 B1200 B9600 B600 B4800 B50 B2400 B110
--
--=item Terminal interface values
--
--TCSADRAIN TCSANOW TCOON TCIOFLUSH TCOFLUSH TCION TCIFLUSH TCSAFLUSH TCIOFF TCOOFF
--
--=item c_cc field values
--
--VEOF VEOL VERASE VINTR VKILL VQUIT VSUSP VSTART VSTOP VMIN VTIME NCCS
--
--=item c_cflag field values
--
--CLOCAL CREAD CSIZE CS5 CS6 CS7 CS8 CSTOPB HUPCL PARENB PARODD
--
--=item c_iflag field values
--
--BRKINT ICRNL IGNBRK IGNCR IGNPAR INLCR INPCK ISTRIP IXOFF IXON PARMRK
--
--=item c_lflag field values
--
--ECHO ECHOE ECHOK ECHONL ICANON IEXTEN ISIG NOFLSH TOSTOP
--
--=item c_oflag field values
--
--OPOST
--
--=back
--
--=head1 PATHNAME CONSTANTS
--
--=over 8
--
--=item Constants
--
--_PC_CHOWN_RESTRICTED _PC_LINK_MAX _PC_MAX_CANON _PC_MAX_INPUT _PC_NAME_MAX _PC_NO_TRUNC _PC_PATH_MAX _PC_PIPE_BUF _PC_VDISABLE
--
--=back
--
--=head1 POSIX CONSTANTS
--
--=over 8
--
--=item Constants
--
--_POSIX_ARG_MAX _POSIX_CHILD_MAX _POSIX_CHOWN_RESTRICTED _POSIX_JOB_CONTROL _POSIX_LINK_MAX _POSIX_MAX_CANON _POSIX_MAX_INPUT _POSIX_NAME_MAX _POSIX_NGROUPS_MAX _POSIX_NO_TRUNC _POSIX_OPEN_MAX _POSIX_PATH_MAX _POSIX_PIPE_BUF _POSIX_SAVED_IDS _POSIX_SSIZE_MAX _POSIX_STREAM_MAX _POSIX_TZNAME_MAX _POSIX_VDISABLE _POSIX_VERSION
--
--=back
--
--=head1 SYSTEM CONFIGURATION
--
--=over 8
--
--=item Constants
--
--_SC_ARG_MAX _SC_CHILD_MAX _SC_CLK_TCK _SC_JOB_CONTROL _SC_NGROUPS_MAX _SC_OPEN_MAX _SC_PAGESIZE _SC_SAVED_IDS _SC_STREAM_MAX _SC_TZNAME_MAX _SC_VERSION
--
--=back
--
--=head1 ERRNO
--
--=over 8
--
--=item Constants
--
--E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT EAGAIN EALREADY EBADF
--EBUSY ECHILD ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ
--EDOM EDQUOT EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH EINPROGRESS EINTR
--EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK EMSGSIZE ENAMETOOLONG
--ENETDOWN ENETRESET ENETUNREACH ENFILE ENOBUFS ENODEV ENOENT ENOEXEC
--ENOLCK ENOMEM ENOPROTOOPT ENOSPC ENOSYS ENOTBLK ENOTCONN ENOTDIR
--ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM EPFNOSUPPORT EPIPE
--EPROCLIM EPROTONOSUPPORT EPROTOTYPE ERANGE EREMOTE ERESTART EROFS
--ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESTALE ETIMEDOUT ETOOMANYREFS
--ETXTBSY EUSERS EWOULDBLOCK EXDEV
--
--=back
--
--=head1 FCNTL
--
--=over 8
--
--=item Constants
--
--FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_OK F_RDLCK F_SETFD F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK O_ACCMODE O_APPEND O_CREAT O_EXCL O_NOCTTY O_NONBLOCK O_RDONLY O_RDWR O_TRUNC O_WRONLY
--
--=back
--
--=head1 FLOAT
--
--=over 8
--
--=item Constants
--
--DBL_DIG DBL_EPSILON DBL_MANT_DIG DBL_MAX DBL_MAX_10_EXP DBL_MAX_EXP DBL_MIN DBL_MIN_10_EXP DBL_MIN_EXP FLT_DIG FLT_EPSILON FLT_MANT_DIG FLT_MAX FLT_MAX_10_EXP FLT_MAX_EXP FLT_MIN FLT_MIN_10_EXP FLT_MIN_EXP FLT_RADIX FLT_ROUNDS LDBL_DIG LDBL_EPSILON LDBL_MANT_DIG LDBL_MAX LDBL_MAX_10_EXP LDBL_MAX_EXP LDBL_MIN LDBL_MIN_10_EXP LDBL_MIN_EXP
--
--=back
--
--=head1 LIMITS
--
--=over 8
--
--=item Constants
--
--ARG_MAX CHAR_BIT CHAR_MAX CHAR_MIN CHILD_MAX INT_MAX INT_MIN LINK_MAX LONG_MAX LONG_MIN MAX_CANON MAX_INPUT MB_LEN_MAX NAME_MAX NGROUPS_MAX OPEN_MAX PATH_MAX PIPE_BUF SCHAR_MAX SCHAR_MIN SHRT_MAX SHRT_MIN SSIZE_MAX STREAM_MAX TZNAME_MAX UCHAR_MAX UINT_MAX ULONG_MAX USHRT_MAX
--
--=back
--
--=head1 LOCALE
--
--=over 8
--
--=item Constants
--
--LC_ALL LC_COLLATE LC_CTYPE LC_MONETARY LC_NUMERIC LC_TIME
--
--=back
--
--=head1 MATH
--
--=over 8
--
--=item Constants
--
--HUGE_VAL
--
--=back
--
--=head1 SIGNAL
--
--=over 8
--
--=item Constants
--
--SA_NOCLDSTOP SA_NOCLDWAIT SA_NODEFER SA_ONSTACK SA_RESETHAND SA_RESTART
--SA_SIGINFO SIGABRT SIGALRM SIGCHLD SIGCONT SIGFPE SIGHUP SIGILL SIGINT
--SIGKILL SIGPIPE SIGQUIT SIGSEGV SIGSTOP SIGTERM SIGTSTP SIGTTIN SIGTTOU
--SIGUSR1 SIGUSR2 SIG_BLOCK SIG_DFL SIG_ERR SIG_IGN SIG_SETMASK
--SIG_UNBLOCK
--
--=back
--
--=head1 STAT
--
--=over 8
--
--=item Constants
--
--S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU S_ISGID S_ISUID S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR
--
--=item Macros
--
--S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISREG
--
--=back
--
--=head1 STDLIB
--
--=over 8
--
--=item Constants
--
--EXIT_FAILURE EXIT_SUCCESS MB_CUR_MAX RAND_MAX
--
--=back
--
--=head1 STDIO
--
--=over 8
--
--=item Constants
--
--BUFSIZ EOF FILENAME_MAX L_ctermid L_cuserid L_tmpname TMP_MAX
--
--=back
--
--=head1 TIME
--
--=over 8
--
--=item Constants
--
--CLK_TCK CLOCKS_PER_SEC
--
--=back
--
--=head1 UNISTD
--
--=over 8
--
--=item Constants
--
--R_OK SEEK_CUR SEEK_END SEEK_SET STDIN_FILENO STDOUT_FILENO STDERR_FILENO W_OK X_OK
--
--=back
--
--=head1 WAIT
--
--=over 8
--
--=item Constants
--
--WNOHANG WUNTRACED
--
--=over 16
--
--=item WNOHANG
--
--Do not suspend the calling process until a child process
--changes state but instead return immediately.
--
--=item WUNTRACED
--
--Catch stopped child processes.
--
--=back
--
--=item Macros
--
--WIFEXITED WEXITSTATUS WIFSIGNALED WTERMSIG WIFSTOPPED WSTOPSIG
--
--=over 16
--
--=item WIFEXITED
--
--WIFEXITED($?) returns true if the child process exited normally
--(C<exit()> or by falling off the end of C<main()>)
--
--=item WEXITSTATUS
--
--WEXITSTATUS($?) returns the normal exit status of the child process
--(only meaningful if WIFEXITED($?) is true)
--
--=item WIFSIGNALED
--
--WIFSIGNALED($?) returns true if the child process terminated because
--of a signal
--
--=item WTERMSIG
--
--WTERMSIG($?) returns the signal the child process terminated for
--(only meaningful if WIFSIGNALED($?) is true)
--
--=item WIFSTOPPED
--
--WIFSTOPPED($?) returns true if the child process is currently stopped
--(can happen only if you specified the WUNTRACED flag to waitpid())
--
--=item WSTOPSIG
--
--WSTOPSIG($?) returns the signal the child process was stopped for
--(only meaningful if WIFSTOPPED($?) is true)
--
--=back
--
--=back
--
-diff --git a/ext/POSIX/lib/POSIX.pm b/ext/POSIX/lib/POSIX.pm
-new file mode 100644
-index 0000000..ffbd9de
---- /dev/null
-+++ b/ext/POSIX/lib/POSIX.pm
-@@ -0,0 +1,1042 @@
-+package POSIX;
-+use strict;
-+use warnings;
-+
-+our(@ISA, %EXPORT_TAGS, @EXPORT_OK, @EXPORT, $AUTOLOAD, %SIGRT) = ();
-+
-+our $VERSION = "1.19";
-+
-+use AutoLoader;
-+
-+use XSLoader ();
-+
-+use Fcntl qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK F_SETFD
-+ F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK O_ACCMODE O_APPEND
-+ O_CREAT O_EXCL O_NOCTTY O_NONBLOCK O_RDONLY O_RDWR O_TRUNC
-+ O_WRONLY SEEK_CUR SEEK_END SEEK_SET
-+ S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISREG
-+ S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU S_ISGID S_ISUID
-+ S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR);
-+
-+# Grandfather old foo_h form to new :foo_h form
-+my $loaded;
-+
-+sub import {
-+ load_imports() unless $loaded++;
-+ my $this = shift;
-+ my @list = map { m/^\w+_h$/ ? ":$_" : $_ } @_;
-+ local $Exporter::ExportLevel = 1;
-+ Exporter::import($this, at list);
-+}
-+
-+sub croak { require Carp; goto &Carp::croak }
-+# declare usage to assist AutoLoad
-+sub usage;
-+
-+XSLoader::load 'POSIX', $VERSION;
-+
-+sub AUTOLOAD {
-+ no strict;
-+ no warnings 'uninitialized';
-+ if ($AUTOLOAD =~ /::(_?[a-z])/) {
-+ # require AutoLoader;
-+ $AutoLoader::AUTOLOAD = $AUTOLOAD;
-+ goto &AutoLoader::AUTOLOAD
-+ }
-+ local $! = 0;
-+ my $constname = $AUTOLOAD;
-+ $constname =~ s/.*:://;
-+ my ($error, $val) = constant($constname);
-+ croak $error if $error;
-+ *$AUTOLOAD = sub { $val };
-+
-+ goto &$AUTOLOAD;
-+}
-+
-+package POSIX::SigAction;
-+
-+use AutoLoader 'AUTOLOAD';
-+
-+package POSIX::SigRt;
-+
-+use AutoLoader 'AUTOLOAD';
-+
-+use Tie::Hash;
-+
-+use vars qw($SIGACTION_FLAGS $_SIGRTMIN $_SIGRTMAX $_sigrtn @ISA);
-+ at POSIX::SigRt::ISA = qw(Tie::StdHash);
-+
-+$SIGACTION_FLAGS = 0;
-+
-+tie %POSIX::SIGRT, 'POSIX::SigRt';
-+
-+sub DESTROY {};
-+
-+package POSIX;
-+
-+1;
-+__END__
-+
-+sub usage {
-+ my ($mess) = @_;
-+ croak "Usage: POSIX::$mess";
-+}
-+
-+sub redef {
-+ my ($mess) = @_;
-+ croak "Use method $mess instead";
-+}
-+
-+sub unimpl {
-+ my ($mess) = @_;
-+ $mess =~ s/xxx//;
-+ croak "Unimplemented: POSIX::$mess";
-+}
-+
-+sub assert {
-+ usage "assert(expr)" if @_ != 1;
-+ if (!$_[0]) {
-+ croak "Assertion failed";
-+ }
-+}
-+
-+sub tolower {
-+ usage "tolower(string)" if @_ != 1;
-+ lc($_[0]);
-+}
-+
-+sub toupper {
-+ usage "toupper(string)" if @_ != 1;
-+ uc($_[0]);
-+}
-+
-+sub closedir {
-+ usage "closedir(dirhandle)" if @_ != 1;
-+ CORE::closedir($_[0]);
-+}
-+
-+sub opendir {
-+ usage "opendir(directory)" if @_ != 1;
-+ my $dirhandle;
-+ CORE::opendir($dirhandle, $_[0])
-+ ? $dirhandle
-+ : undef;
-+}
-+
-+sub readdir {
-+ usage "readdir(dirhandle)" if @_ != 1;
-+ CORE::readdir($_[0]);
-+}
-+
-+sub rewinddir {
-+ usage "rewinddir(dirhandle)" if @_ != 1;
-+ CORE::rewinddir($_[0]);
-+}
-+
-+sub errno {
-+ usage "errno()" if @_ != 0;
-+ $! + 0;
-+}
-+
-+sub creat {
-+ usage "creat(filename, mode)" if @_ != 2;
-+ &open($_[0], &O_WRONLY | &O_CREAT | &O_TRUNC, $_[1]);
-+}
-+
-+sub fcntl {
-+ usage "fcntl(filehandle, cmd, arg)" if @_ != 3;
-+ CORE::fcntl($_[0], $_[1], $_[2]);
-+}
-+
-+sub getgrgid {
-+ usage "getgrgid(gid)" if @_ != 1;
-+ CORE::getgrgid($_[0]);
-+}
-+
-+sub getgrnam {
-+ usage "getgrnam(name)" if @_ != 1;
-+ CORE::getgrnam($_[0]);
-+}
-+
-+sub atan2 {
-+ usage "atan2(x,y)" if @_ != 2;
-+ CORE::atan2($_[0], $_[1]);
-+}
-+
-+sub cos {
-+ usage "cos(x)" if @_ != 1;
-+ CORE::cos($_[0]);
-+}
-+
-+sub exp {
-+ usage "exp(x)" if @_ != 1;
-+ CORE::exp($_[0]);
-+}
-+
-+sub fabs {
-+ usage "fabs(x)" if @_ != 1;
-+ CORE::abs($_[0]);
-+}
-+
-+sub log {
-+ usage "log(x)" if @_ != 1;
-+ CORE::log($_[0]);
-+}
-+
-+sub pow {
-+ usage "pow(x,exponent)" if @_ != 2;
-+ $_[0] ** $_[1];
-+}
-+
-+sub sin {
-+ usage "sin(x)" if @_ != 1;
-+ CORE::sin($_[0]);
-+}
-+
-+sub sqrt {
-+ usage "sqrt(x)" if @_ != 1;
-+ CORE::sqrt($_[0]);
-+}
-+
-+sub getpwnam {
-+ usage "getpwnam(name)" if @_ != 1;
-+ CORE::getpwnam($_[0]);
-+}
-+
-+sub getpwuid {
-+ usage "getpwuid(uid)" if @_ != 1;
-+ CORE::getpwuid($_[0]);
-+}
-+
-+sub longjmp {
-+ unimpl "longjmp() is C-specific: use die instead";
-+}
-+
-+sub setjmp {
-+ unimpl "setjmp() is C-specific: use eval {} instead";
-+}
-+
-+sub siglongjmp {
-+ unimpl "siglongjmp() is C-specific: use die instead";
-+}
-+
-+sub sigsetjmp {
-+ unimpl "sigsetjmp() is C-specific: use eval {} instead";
-+}
-+
-+sub kill {
-+ usage "kill(pid, sig)" if @_ != 2;
-+ CORE::kill $_[1], $_[0];
-+}
-+
-+sub raise {
-+ usage "raise(sig)" if @_ != 1;
-+ CORE::kill $_[0], $$; # Is this good enough?
-+}
-+
-+sub offsetof {
-+ unimpl "offsetof() is C-specific, stopped";
-+}
-+
-+sub clearerr {
-+ redef "IO::Handle::clearerr()";
-+}
-+
-+sub fclose {
-+ redef "IO::Handle::close()";
-+}
-+
-+sub fdopen {
-+ redef "IO::Handle::new_from_fd()";
-+}
-+
-+sub feof {
-+ redef "IO::Handle::eof()";
-+}
-+
-+sub fgetc {
-+ redef "IO::Handle::getc()";
-+}
-+
-+sub fgets {
-+ redef "IO::Handle::gets()";
-+}
-+
-+sub fileno {
-+ redef "IO::Handle::fileno()";
-+}
-+
-+sub fopen {
-+ redef "IO::File::open()";
-+}
-+
-+sub fprintf {
-+ unimpl "fprintf() is C-specific--use printf instead";
-+}
-+
-+sub fputc {
-+ unimpl "fputc() is C-specific--use print instead";
-+}
-+
-+sub fputs {
-+ unimpl "fputs() is C-specific--use print instead";
-+}
-+
-+sub fread {
-+ unimpl "fread() is C-specific--use read instead";
-+}
-+
-+sub freopen {
-+ unimpl "freopen() is C-specific--use open instead";
-+}
-+
-+sub fscanf {
-+ unimpl "fscanf() is C-specific--use <> and regular expressions instead";
-+}
-+
-+sub fseek {
-+ redef "IO::Seekable::seek()";
-+}
-+
-+sub fsync {
-+ redef "IO::Handle::sync()";
-+}
-+
-+sub ferror {
-+ redef "IO::Handle::error()";
-+}
-+
-+sub fflush {
-+ redef "IO::Handle::flush()";
-+}
-+
-+sub fgetpos {
-+ redef "IO::Seekable::getpos()";
-+}
-+
-+sub fsetpos {
-+ redef "IO::Seekable::setpos()";
-+}
-+
-+sub ftell {
-+ redef "IO::Seekable::tell()";
-+}
-+
-+sub fwrite {
-+ unimpl "fwrite() is C-specific--use print instead";
-+}
-+
-+sub getc {
-+ usage "getc(handle)" if @_ != 1;
-+ CORE::getc($_[0]);
-+}
-+
-+sub getchar {
-+ usage "getchar()" if @_ != 0;
-+ CORE::getc(STDIN);
-+}
-+
-+sub gets {
-+ usage "gets()" if @_ != 0;
-+ scalar <STDIN>;
-+}
-+
-+sub perror {
-+ print STDERR "@_: " if @_;
-+ print STDERR $!,"\n";
-+}
-+
-+sub printf {
-+ usage "printf(pattern, args...)" if @_ < 1;
-+ CORE::printf STDOUT @_;
-+}
-+
-+sub putc {
-+ unimpl "putc() is C-specific--use print instead";
-+}
-+
-+sub putchar {
-+ unimpl "putchar() is C-specific--use print instead";
-+}
-+
-+sub puts {
-+ unimpl "puts() is C-specific--use print instead";
-+}
-+
-+sub remove {
-+ usage "remove(filename)" if @_ != 1;
-+ (-d $_[0]) ? CORE::rmdir($_[0]) : CORE::unlink($_[0]);
-+}
-+
-+sub rename {
-+ usage "rename(oldfilename, newfilename)" if @_ != 2;
-+ CORE::rename($_[0], $_[1]);
-+}
-+
-+sub rewind {
-+ usage "rewind(filehandle)" if @_ != 1;
-+ CORE::seek($_[0],0,0);
-+}
-+
-+sub scanf {
-+ unimpl "scanf() is C-specific--use <> and regular expressions instead";
-+}
-+
-+sub sprintf {
-+ usage "sprintf(pattern,args)" if @_ == 0;
-+ CORE::sprintf(shift, at _);
-+}
-+
-+sub sscanf {
-+ unimpl "sscanf() is C-specific--use regular expressions instead";
-+}
-+
-+sub tmpfile {
-+ redef "IO::File::new_tmpfile()";
-+}
-+
-+sub ungetc {
-+ redef "IO::Handle::ungetc()";
-+}
-+
-+sub vfprintf {
-+ unimpl "vfprintf() is C-specific";
-+}
-+
-+sub vprintf {
-+ unimpl "vprintf() is C-specific";
-+}
-+
-+sub vsprintf {
-+ unimpl "vsprintf() is C-specific";
-+}
-+
-+sub abs {
-+ usage "abs(x)" if @_ != 1;
-+ CORE::abs($_[0]);
-+}
-+
-+sub atexit {
-+ unimpl "atexit() is C-specific: use END {} instead";
-+}
-+
-+sub atof {
-+ unimpl "atof() is C-specific, stopped";
-+}
-+
-+sub atoi {
-+ unimpl "atoi() is C-specific, stopped";
-+}
-+
-+sub atol {
-+ unimpl "atol() is C-specific, stopped";
-+}
-+
-+sub bsearch {
-+ unimpl "bsearch() not supplied";
-+}
-+
-+sub calloc {
-+ unimpl "calloc() is C-specific, stopped";
-+}
-+
-+sub div {
-+ unimpl "div() is C-specific, use /, % and int instead";
-+}
-+
-+sub exit {
-+ usage "exit(status)" if @_ != 1;
-+ CORE::exit($_[0]);
-+}
-+
-+sub free {
-+ unimpl "free() is C-specific, stopped";
-+}
-+
-+sub getenv {
-+ usage "getenv(name)" if @_ != 1;
-+ $ENV{$_[0]};
-+}
-+
-+sub labs {
-+ unimpl "labs() is C-specific, use abs instead";
-+}
-+
-+sub ldiv {
-+ unimpl "ldiv() is C-specific, use /, % and int instead";
-+}
-+
-+sub malloc {
-+ unimpl "malloc() is C-specific, stopped";
-+}
-+
-+sub qsort {
-+ unimpl "qsort() is C-specific, use sort instead";
-+}
-+
-+sub rand {
-+ unimpl "rand() is non-portable, use Perl's rand instead";
-+}
-+
-+sub realloc {
-+ unimpl "realloc() is C-specific, stopped";
-+}
-+
-+sub srand {
-+ unimpl "srand()";
-+}
-+
-+sub system {
-+ usage "system(command)" if @_ != 1;
-+ CORE::system($_[0]);
-+}
-+
-+sub memchr {
-+ unimpl "memchr() is C-specific, use index() instead";
-+}
-+
-+sub memcmp {
-+ unimpl "memcmp() is C-specific, use eq instead";
-+}
-+
-+sub memcpy {
-+ unimpl "memcpy() is C-specific, use = instead";
-+}
-+
-+sub memmove {
-+ unimpl "memmove() is C-specific, use = instead";
-+}
-+
-+sub memset {
-+ unimpl "memset() is C-specific, use x instead";
-+}
-+
-+sub strcat {
-+ unimpl "strcat() is C-specific, use .= instead";
-+}
-+
-+sub strchr {
-+ unimpl "strchr() is C-specific, use index() instead";
-+}
-+
-+sub strcmp {
-+ unimpl "strcmp() is C-specific, use eq instead";
-+}
-+
-+sub strcpy {
-+ unimpl "strcpy() is C-specific, use = instead";
-+}
-+
-+sub strcspn {
-+ unimpl "strcspn() is C-specific, use regular expressions instead";
-+}
-+
-+sub strerror {
-+ usage "strerror(errno)" if @_ != 1;
-+ local $! = $_[0];
-+ $! . "";
-+}
-+
-+sub strlen {
-+ unimpl "strlen() is C-specific, use length instead";
-+}
-+
-+sub strncat {
-+ unimpl "strncat() is C-specific, use .= instead";
-+}
-+
-+sub strncmp {
-+ unimpl "strncmp() is C-specific, use eq instead";
-+}
-+
-+sub strncpy {
-+ unimpl "strncpy() is C-specific, use = instead";
-+}
-+
-+sub strpbrk {
-+ unimpl "strpbrk() is C-specific, stopped";
-+}
-+
-+sub strrchr {
-+ unimpl "strrchr() is C-specific, use rindex() instead";
-+}
-+
-+sub strspn {
-+ unimpl "strspn() is C-specific, stopped";
-+}
-+
-+sub strstr {
-+ usage "strstr(big, little)" if @_ != 2;
-+ CORE::index($_[0], $_[1]);
-+}
-+
-+sub strtok {
-+ unimpl "strtok() is C-specific, stopped";
-+}
-+
-+sub chmod {
-+ usage "chmod(mode, filename)" if @_ != 2;
-+ CORE::chmod($_[0], $_[1]);
-+}
-+
-+sub fstat {
-+ usage "fstat(fd)" if @_ != 1;
-+ local *TMP;
-+ CORE::open(TMP, "<&$_[0]"); # Gross.
-+ my @l = CORE::stat(TMP);
-+ CORE::close(TMP);
-+ @l;
-+}
-+
-+sub mkdir {
-+ usage "mkdir(directoryname, mode)" if @_ != 2;
-+ CORE::mkdir($_[0], $_[1]);
-+}
-+
-+sub stat {
-+ usage "stat(filename)" if @_ != 1;
-+ CORE::stat($_[0]);
-+}
-+
-+sub umask {
-+ usage "umask(mask)" if @_ != 1;
-+ CORE::umask($_[0]);
-+}
-+
-+sub wait {
-+ usage "wait()" if @_ != 0;
-+ CORE::wait();
-+}
-+
-+sub waitpid {
-+ usage "waitpid(pid, options)" if @_ != 2;
-+ CORE::waitpid($_[0], $_[1]);
-+}
-+
-+sub gmtime {
-+ usage "gmtime(time)" if @_ != 1;
-+ CORE::gmtime($_[0]);
-+}
-+
-+sub localtime {
-+ usage "localtime(time)" if @_ != 1;
-+ CORE::localtime($_[0]);
-+}
-+
-+sub time {
-+ usage "time()" if @_ != 0;
-+ CORE::time;
-+}
-+
-+sub alarm {
-+ usage "alarm(seconds)" if @_ != 1;
-+ CORE::alarm($_[0]);
-+}
-+
-+sub chdir {
-+ usage "chdir(directory)" if @_ != 1;
-+ CORE::chdir($_[0]);
-+}
-+
-+sub chown {
-+ usage "chown(uid, gid, filename)" if @_ != 3;
-+ CORE::chown($_[0], $_[1], $_[2]);
-+}
-+
-+sub execl {
-+ unimpl "execl() is C-specific, stopped";
-+}
-+
-+sub execle {
-+ unimpl "execle() is C-specific, stopped";
-+}
-+
-+sub execlp {
-+ unimpl "execlp() is C-specific, stopped";
-+}
-+
-+sub execv {
-+ unimpl "execv() is C-specific, stopped";
-+}
-+
-+sub execve {
-+ unimpl "execve() is C-specific, stopped";
-+}
-+
-+sub execvp {
-+ unimpl "execvp() is C-specific, stopped";
-+}
-+
-+sub fork {
-+ usage "fork()" if @_ != 0;
-+ CORE::fork;
-+}
-+
-+sub getegid {
-+ usage "getegid()" if @_ != 0;
-+ $) + 0;
-+}
-+
-+sub geteuid {
-+ usage "geteuid()" if @_ != 0;
-+ $> + 0;
-+}
-+
-+sub getgid {
-+ usage "getgid()" if @_ != 0;
-+ $( + 0;
-+}
-+
-+sub getgroups {
-+ usage "getgroups()" if @_ != 0;
-+ my %seen;
-+ grep(!$seen{$_}++, split(' ', $) ));
-+}
-+
-+sub getlogin {
-+ usage "getlogin()" if @_ != 0;
-+ CORE::getlogin();
-+}
-+
-+sub getpgrp {
-+ usage "getpgrp()" if @_ != 0;
-+ CORE::getpgrp;
-+}
-+
-+sub getpid {
-+ usage "getpid()" if @_ != 0;
-+ $$;
-+}
-+
-+sub getppid {
-+ usage "getppid()" if @_ != 0;
-+ CORE::getppid;
-+}
-+
-+sub getuid {
-+ usage "getuid()" if @_ != 0;
-+ $<;
-+}
-+
-+sub isatty {
-+ usage "isatty(filehandle)" if @_ != 1;
-+ -t $_[0];
-+}
-+
-+sub link {
-+ usage "link(oldfilename, newfilename)" if @_ != 2;
-+ CORE::link($_[0], $_[1]);
-+}
-+
-+sub rmdir {
-+ usage "rmdir(directoryname)" if @_ != 1;
-+ CORE::rmdir($_[0]);
-+}
-+
-+sub setbuf {
-+ redef "IO::Handle::setbuf()";
-+}
-+
-+sub setvbuf {
-+ redef "IO::Handle::setvbuf()";
-+}
-+
-+sub sleep {
-+ usage "sleep(seconds)" if @_ != 1;
-+ $_[0] - CORE::sleep($_[0]);
-+}
-+
-+sub unlink {
-+ usage "unlink(filename)" if @_ != 1;
-+ CORE::unlink($_[0]);
-+}
-+
-+sub utime {
-+ usage "utime(filename, atime, mtime)" if @_ != 3;
-+ CORE::utime($_[1], $_[2], $_[0]);
-+}
-+
-+sub load_imports {
-+%EXPORT_TAGS = (
-+
-+ assert_h => [qw(assert NDEBUG)],
-+
-+ ctype_h => [qw(isalnum isalpha iscntrl isdigit isgraph islower
-+ isprint ispunct isspace isupper isxdigit tolower toupper)],
-+
-+ dirent_h => [],
-+
-+ errno_h => [qw(E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT
-+ EAGAIN EALREADY EBADF EBUSY ECHILD ECONNABORTED
-+ ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ EDOM EDQUOT
-+ EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH EINPROGRESS
-+ EINTR EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK
-+ EMSGSIZE ENAMETOOLONG ENETDOWN ENETRESET ENETUNREACH
-+ ENFILE ENOBUFS ENODEV ENOENT ENOEXEC ENOLCK ENOMEM
-+ ENOPROTOOPT ENOSPC ENOSYS ENOTBLK ENOTCONN ENOTDIR
-+ ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM
-+ EPFNOSUPPORT EPIPE EPROCLIM EPROTONOSUPPORT EPROTOTYPE
-+ ERANGE EREMOTE ERESTART EROFS ESHUTDOWN ESOCKTNOSUPPORT
-+ ESPIPE ESRCH ESTALE ETIMEDOUT ETOOMANYREFS ETXTBSY
-+ EUSERS EWOULDBLOCK EXDEV errno)],
-+
-+ fcntl_h => [qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK
-+ F_SETFD F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK
-+ O_ACCMODE O_APPEND O_CREAT O_EXCL O_NOCTTY O_NONBLOCK
-+ O_RDONLY O_RDWR O_TRUNC O_WRONLY
-+ creat
-+ SEEK_CUR SEEK_END SEEK_SET
-+ S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU
-+ S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG S_ISUID
-+ S_IWGRP S_IWOTH S_IWUSR)],
-+
-+ float_h => [qw(DBL_DIG DBL_EPSILON DBL_MANT_DIG
-+ DBL_MAX DBL_MAX_10_EXP DBL_MAX_EXP
-+ DBL_MIN DBL_MIN_10_EXP DBL_MIN_EXP
-+ FLT_DIG FLT_EPSILON FLT_MANT_DIG
-+ FLT_MAX FLT_MAX_10_EXP FLT_MAX_EXP
-+ FLT_MIN FLT_MIN_10_EXP FLT_MIN_EXP
-+ FLT_RADIX FLT_ROUNDS
-+ LDBL_DIG LDBL_EPSILON LDBL_MANT_DIG
-+ LDBL_MAX LDBL_MAX_10_EXP LDBL_MAX_EXP
-+ LDBL_MIN LDBL_MIN_10_EXP LDBL_MIN_EXP)],
-+
-+ grp_h => [],
-+
-+ limits_h => [qw( ARG_MAX CHAR_BIT CHAR_MAX CHAR_MIN CHILD_MAX
-+ INT_MAX INT_MIN LINK_MAX LONG_MAX LONG_MIN MAX_CANON
-+ MAX_INPUT MB_LEN_MAX NAME_MAX NGROUPS_MAX OPEN_MAX
-+ PATH_MAX PIPE_BUF SCHAR_MAX SCHAR_MIN SHRT_MAX SHRT_MIN
-+ SSIZE_MAX STREAM_MAX TZNAME_MAX UCHAR_MAX UINT_MAX
-+ ULONG_MAX USHRT_MAX _POSIX_ARG_MAX _POSIX_CHILD_MAX
-+ _POSIX_LINK_MAX _POSIX_MAX_CANON _POSIX_MAX_INPUT
-+ _POSIX_NAME_MAX _POSIX_NGROUPS_MAX _POSIX_OPEN_MAX
-+ _POSIX_PATH_MAX _POSIX_PIPE_BUF _POSIX_SSIZE_MAX
-+ _POSIX_STREAM_MAX _POSIX_TZNAME_MAX)],
-+
-+ locale_h => [qw(LC_ALL LC_COLLATE LC_CTYPE LC_MESSAGES
-+ LC_MONETARY LC_NUMERIC LC_TIME NULL
-+ localeconv setlocale)],
-+
-+ math_h => [qw(HUGE_VAL acos asin atan ceil cosh fabs floor fmod
-+ frexp ldexp log10 modf pow sinh tan tanh)],
-+
-+ pwd_h => [],
-+
-+ setjmp_h => [qw(longjmp setjmp siglongjmp sigsetjmp)],
-+
-+ signal_h => [qw(SA_NOCLDSTOP SA_NOCLDWAIT SA_NODEFER SA_ONSTACK
-+ SA_RESETHAND SA_RESTART SA_SIGINFO SIGABRT SIGALRM
-+ SIGCHLD SIGCONT SIGFPE SIGHUP SIGILL SIGINT SIGKILL
-+ SIGPIPE %SIGRT SIGRTMIN SIGRTMAX SIGQUIT SIGSEGV SIGSTOP
-+ SIGTERM SIGTSTP SIGTTIN SIGTTOU SIGUSR1 SIGUSR2
-+ SIG_BLOCK SIG_DFL SIG_ERR SIG_IGN SIG_SETMASK SIG_UNBLOCK
-+ raise sigaction signal sigpending sigprocmask sigsuspend)],
-+
-+ stdarg_h => [],
-+
-+ stddef_h => [qw(NULL offsetof)],
-+
-+ stdio_h => [qw(BUFSIZ EOF FILENAME_MAX L_ctermid L_cuserid
-+ L_tmpname NULL SEEK_CUR SEEK_END SEEK_SET
-+ STREAM_MAX TMP_MAX stderr stdin stdout
-+ clearerr fclose fdopen feof ferror fflush fgetc fgetpos
-+ fgets fopen fprintf fputc fputs fread freopen
-+ fscanf fseek fsetpos ftell fwrite getchar gets
-+ perror putc putchar puts remove rewind
-+ scanf setbuf setvbuf sscanf tmpfile tmpnam
-+ ungetc vfprintf vprintf vsprintf)],
-+
-+ stdlib_h => [qw(EXIT_FAILURE EXIT_SUCCESS MB_CUR_MAX NULL RAND_MAX
-+ abort atexit atof atoi atol bsearch calloc div
-+ free getenv labs ldiv malloc mblen mbstowcs mbtowc
-+ qsort realloc strtod strtol strtoul wcstombs wctomb)],
-+
-+ string_h => [qw(NULL memchr memcmp memcpy memmove memset strcat
-+ strchr strcmp strcoll strcpy strcspn strerror strlen
-+ strncat strncmp strncpy strpbrk strrchr strspn strstr
-+ strtok strxfrm)],
-+
-+ sys_stat_h => [qw(S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU
-+ S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG
-+ S_ISUID S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR
-+ fstat mkfifo)],
-+
-+ sys_times_h => [],
-+
-+ sys_types_h => [],
-+
-+ sys_utsname_h => [qw(uname)],
-+
-+ sys_wait_h => [qw(WEXITSTATUS WIFEXITED WIFSIGNALED WIFSTOPPED
-+ WNOHANG WSTOPSIG WTERMSIG WUNTRACED)],
-+
-+ termios_h => [qw( B0 B110 B1200 B134 B150 B1800 B19200 B200 B2400
-+ B300 B38400 B4800 B50 B600 B75 B9600 BRKINT CLOCAL
-+ CREAD CS5 CS6 CS7 CS8 CSIZE CSTOPB ECHO ECHOE ECHOK
-+ ECHONL HUPCL ICANON ICRNL IEXTEN IGNBRK IGNCR IGNPAR
-+ INLCR INPCK ISIG ISTRIP IXOFF IXON NCCS NOFLSH OPOST
-+ PARENB PARMRK PARODD TCIFLUSH TCIOFF TCIOFLUSH TCION
-+ TCOFLUSH TCOOFF TCOON TCSADRAIN TCSAFLUSH TCSANOW
-+ TOSTOP VEOF VEOL VERASE VINTR VKILL VMIN VQUIT VSTART
-+ VSTOP VSUSP VTIME
-+ cfgetispeed cfgetospeed cfsetispeed cfsetospeed tcdrain
-+ tcflow tcflush tcgetattr tcsendbreak tcsetattr )],
-+
-+ time_h => [qw(CLK_TCK CLOCKS_PER_SEC NULL asctime clock ctime
-+ difftime mktime strftime tzset tzname)],
-+
-+ unistd_h => [qw(F_OK NULL R_OK SEEK_CUR SEEK_END SEEK_SET
-+ STDERR_FILENO STDIN_FILENO STDOUT_FILENO W_OK X_OK
-+ _PC_CHOWN_RESTRICTED _PC_LINK_MAX _PC_MAX_CANON
-+ _PC_MAX_INPUT _PC_NAME_MAX _PC_NO_TRUNC _PC_PATH_MAX
-+ _PC_PIPE_BUF _PC_VDISABLE _POSIX_CHOWN_RESTRICTED
-+ _POSIX_JOB_CONTROL _POSIX_NO_TRUNC _POSIX_SAVED_IDS
-+ _POSIX_VDISABLE _POSIX_VERSION _SC_ARG_MAX
-+ _SC_CHILD_MAX _SC_CLK_TCK _SC_JOB_CONTROL
-+ _SC_NGROUPS_MAX _SC_OPEN_MAX _SC_PAGESIZE _SC_SAVED_IDS
-+ _SC_STREAM_MAX _SC_TZNAME_MAX _SC_VERSION
-+ _exit access ctermid cuserid
-+ dup2 dup execl execle execlp execv execve execvp
-+ fpathconf fsync getcwd getegid geteuid getgid getgroups
-+ getpid getuid isatty lseek pathconf pause setgid setpgid
-+ setsid setuid sysconf tcgetpgrp tcsetpgrp ttyname)],
-+
-+ utime_h => [],
-+
-+);
-+
-+# Exporter::export_tags();
-+{
-+ # De-duplicate the export list:
-+ my %export;
-+ @export{map {@$_} values %EXPORT_TAGS} = ();
-+ # Doing the de-dup with a temporary hash has the advantage that the SVs in
-+ # @EXPORT are actually shared hash key sacalars, which will save some memory.
-+ push @EXPORT, keys %export;
-+}
-+
-+ at EXPORT_OK = qw(
-+ abs
-+ alarm
-+ atan2
-+ chdir
-+ chmod
-+ chown
-+ close
-+ closedir
-+ cos
-+ exit
-+ exp
-+ fcntl
-+ fileno
-+ fork
-+ getc
-+ getgrgid
-+ getgrnam
-+ getlogin
-+ getpgrp
-+ getppid
-+ getpwnam
-+ getpwuid
-+ gmtime
-+ isatty
-+ kill
-+ lchown
-+ link
-+ localtime
-+ log
-+ mkdir
-+ nice
-+ open
-+ opendir
-+ pipe
-+ printf
-+ rand
-+ read
-+ readdir
-+ rename
-+ rewinddir
-+ rmdir
-+ sin
-+ sleep
-+ sprintf
-+ sqrt
-+ srand
-+ stat
-+ system
-+ time
-+ times
-+ umask
-+ unlink
-+ utime
-+ wait
-+ waitpid
-+ write
-+);
-+
-+require Exporter;
-+}
-+
-+package POSIX::SigAction;
-+
-+sub new { bless {HANDLER => $_[1], MASK => $_[2], FLAGS => $_[3] || 0, SAFE => 0}, $_[0] }
-+sub handler { $_[0]->{HANDLER} = $_[1] if @_ > 1; $_[0]->{HANDLER} };
-+sub mask { $_[0]->{MASK} = $_[1] if @_ > 1; $_[0]->{MASK} };
-+sub flags { $_[0]->{FLAGS} = $_[1] if @_ > 1; $_[0]->{FLAGS} };
-+sub safe { $_[0]->{SAFE} = $_[1] if @_ > 1; $_[0]->{SAFE} };
-+
-+package POSIX::SigRt;
-+
-+
-+sub _init {
-+ $_SIGRTMIN = &POSIX::SIGRTMIN;
-+ $_SIGRTMAX = &POSIX::SIGRTMAX;
-+ $_sigrtn = $_SIGRTMAX - $_SIGRTMIN;
-+}
-+
-+sub _croak {
-+ &_init unless defined $_sigrtn;
-+ die "POSIX::SigRt not available" unless defined $_sigrtn && $_sigrtn > 0;
-+}
-+
-+sub _getsig {
-+ &_croak;
-+ my $rtsig = $_[0];
-+ # Allow (SIGRT)?MIN( + n)?, a common idiom when doing these things in C.
-+ $rtsig = $_SIGRTMIN + ($1 || 0)
-+ if $rtsig =~ /^(?:(?:SIG)?RT)?MIN(\s*\+\s*(\d+))?$/;
-+ return $rtsig;
-+}
-+
-+sub _exist {
-+ my $rtsig = _getsig($_[1]);
-+ my $ok = $rtsig >= $_SIGRTMIN && $rtsig <= $_SIGRTMAX;
-+ ($rtsig, $ok);
-+}
-+
-+sub _check {
-+ my ($rtsig, $ok) = &_exist;
-+ die "No POSIX::SigRt signal $_[1] (valid range SIGRTMIN..SIGRTMAX, or $_SIGRTMIN..$_SIGRTMAX)"
-+ unless $ok;
-+ return $rtsig;
-+}
-+
-+sub new {
-+ my ($rtsig, $handler, $flags) = @_;
-+ my $sigset = POSIX::SigSet->new($rtsig);
-+ my $sigact = POSIX::SigAction->new($handler,
-+ $sigset,
-+ $flags);
-+ POSIX::sigaction($rtsig, $sigact);
-+}
-+
-+sub EXISTS { &_exist }
-+sub FETCH { my $rtsig = &_check;
-+ my $oa = POSIX::SigAction->new();
-+ POSIX::sigaction($rtsig, undef, $oa);
-+ return $oa->{HANDLER} }
-+sub STORE { my $rtsig = &_check; new($rtsig, $_[2], $SIGACTION_FLAGS) }
-+sub DELETE { delete $SIG{ &_check } }
-+sub CLEAR { &_exist; delete @SIG{ &POSIX::SIGRTMIN .. &POSIX::SIGRTMAX } }
-+sub SCALAR { &_croak; $_sigrtn + 1 }
-diff --git a/ext/POSIX/lib/POSIX.pod b/ext/POSIX/lib/POSIX.pod
-new file mode 100644
-index 0000000..64852e9
---- /dev/null
-+++ b/ext/POSIX/lib/POSIX.pod
-@@ -0,0 +1,2218 @@
-+=head1 NAME
-+
-+POSIX - Perl interface to IEEE Std 1003.1
-+
-+=head1 SYNOPSIS
-+
-+ use POSIX;
-+ use POSIX qw(setsid);
-+ use POSIX qw(:errno_h :fcntl_h);
-+
-+ printf "EINTR is %d\n", EINTR;
-+
-+ $sess_id = POSIX::setsid();
-+
-+ $fd = POSIX::open($path, O_CREAT|O_EXCL|O_WRONLY, 0644);
-+ # note: that's a filedescriptor, *NOT* a filehandle
-+
-+=head1 DESCRIPTION
-+
-+The POSIX module permits you to access all (or nearly all) the standard
-+POSIX 1003.1 identifiers. Many of these identifiers have been given Perl-ish
-+interfaces.
-+
-+I<Everything is exported by default> with the exception of any POSIX
-+functions with the same name as a built-in Perl function, such as
-+C<abs>, C<alarm>, C<rmdir>, C<write>, etc.., which will be exported
-+only if you ask for them explicitly. This is an unfortunate backwards
-+compatibility feature. You can stop the exporting by saying C<use
-+POSIX ()> and then use the fully qualified names (ie. C<POSIX::SEEK_END>).
-+
-+This document gives a condensed list of the features available in the POSIX
-+module. Consult your operating system's manpages for general information on
-+most features. Consult L<perlfunc> for functions which are noted as being
-+identical to Perl's builtin functions.
-+
-+The first section describes POSIX functions from the 1003.1 specification.
-+The second section describes some classes for signal objects, TTY objects,
-+and other miscellaneous objects. The remaining sections list various
-+constants and macros in an organization which roughly follows IEEE Std
-+1003.1b-1993.
-+
-+=head1 NOTE
-+
-+The POSIX module is probably the most complex Perl module supplied with
-+the standard distribution. It incorporates autoloading, namespace games,
-+and dynamic loading of code that's in Perl, C, or both. It's a great
-+source of wisdom.
-+
-+=head1 CAVEATS
-+
-+A few functions are not implemented because they are C specific. If you
-+attempt to call these, they will print a message telling you that they
-+aren't implemented, and suggest using the Perl equivalent should one
-+exist. For example, trying to access the setjmp() call will elicit the
-+message "setjmp() is C-specific: use eval {} instead".
-+
-+Furthermore, some evil vendors will claim 1003.1 compliance, but in fact
-+are not so: they will not pass the PCTS (POSIX Compliance Test Suites).
-+For example, one vendor may not define EDEADLK, or the semantics of the
-+errno values set by open(2) might not be quite right. Perl does not
-+attempt to verify POSIX compliance. That means you can currently
-+successfully say "use POSIX", and then later in your program you find
-+that your vendor has been lax and there's no usable ICANON macro after
-+all. This could be construed to be a bug.
-+
-+=head1 FUNCTIONS
-+
-+=over 8
-+
-+=item _exit
-+
-+This is identical to the C function C<_exit()>. It exits the program
-+immediately which means among other things buffered I/O is B<not> flushed.
-+
-+Note that when using threads and in Linux this is B<not> a good way to
-+exit a thread because in Linux processes and threads are kind of the
-+same thing (Note: while this is the situation in early 2003 there are
-+projects under way to have threads with more POSIXly semantics in Linux).
-+If you want not to return from a thread, detach the thread.
-+
-+=item abort
-+
-+This is identical to the C function C<abort()>. It terminates the
-+process with a C<SIGABRT> signal unless caught by a signal handler or
-+if the handler does not return normally (it e.g. does a C<longjmp>).
-+
-+=item abs
-+
-+This is identical to Perl's builtin C<abs()> function, returning
-+the absolute value of its numerical argument.
-+
-+=item access
-+
-+Determines the accessibility of a file.
-+
-+ if( POSIX::access( "/", &POSIX::R_OK ) ){
-+ print "have read permission\n";
-+ }
-+
-+Returns C<undef> on failure. Note: do not use C<access()> for
-+security purposes. Between the C<access()> call and the operation
-+you are preparing for the permissions might change: a classic
-+I<race condition>.
-+
-+=item acos
-+
-+This is identical to the C function C<acos()>, returning
-+the arcus cosine of its numerical argument. See also L<Math::Trig>.
-+
-+=item alarm
-+
-+This is identical to Perl's builtin C<alarm()> function,
-+either for arming or disarming the C<SIGARLM> timer.
-+
-+=item asctime
-+
-+This is identical to the C function C<asctime()>. It returns
-+a string of the form
-+
-+ "Fri Jun 2 18:22:13 2000\n\0"
-+
-+and it is called thusly
-+
-+ $asctime = asctime($sec, $min, $hour, $mday, $mon, $year,
-+ $wday, $yday, $isdst);
-+
-+The C<$mon> is zero-based: January equals C<0>. The C<$year> is
-+1900-based: 2001 equals C<101>. C<$wday> and C<$yday> default to zero
-+(and are usually ignored anyway), and C<$isdst> defaults to -1.
-+
-+=item asin
-+
-+This is identical to the C function C<asin()>, returning
-+the arcus sine of its numerical argument. See also L<Math::Trig>.
-+
-+=item assert
-+
-+Unimplemented, but you can use L<perlfunc/die> and the L<Carp> module
-+to achieve similar things.
-+
-+=item atan
-+
-+This is identical to the C function C<atan()>, returning the
-+arcus tangent of its numerical argument. See also L<Math::Trig>.
-+
-+=item atan2
-+
-+This is identical to Perl's builtin C<atan2()> function, returning
-+the arcus tangent defined by its two numerical arguments, the I<y>
-+coordinate and the I<x> coordinate. See also L<Math::Trig>.
-+
-+=item atexit
-+
-+atexit() is C-specific: use C<END {}> instead, see L<perlsub>.
-+
-+=item atof
-+
-+atof() is C-specific. Perl converts strings to numbers transparently.
-+If you need to force a scalar to a number, add a zero to it.
-+
-+=item atoi
-+
-+atoi() is C-specific. Perl converts strings to numbers transparently.
-+If you need to force a scalar to a number, add a zero to it.
-+If you need to have just the integer part, see L<perlfunc/int>.
-+
-+=item atol
-+
-+atol() is C-specific. Perl converts strings to numbers transparently.
-+If you need to force a scalar to a number, add a zero to it.
-+If you need to have just the integer part, see L<perlfunc/int>.
-+
-+=item bsearch
-+
-+bsearch() not supplied. For doing binary search on wordlists,
-+see L<Search::Dict>.
-+
-+=item calloc
-+
-+calloc() is C-specific. Perl does memory management transparently.
-+
-+=item ceil
-+
-+This is identical to the C function C<ceil()>, returning the smallest
-+integer value greater than or equal to the given numerical argument.
-+
-+=item chdir
-+
-+This is identical to Perl's builtin C<chdir()> function, allowing
-+one to change the working (default) directory, see L<perlfunc/chdir>.
-+
-+=item chmod
-+
-+This is identical to Perl's builtin C<chmod()> function, allowing
-+one to change file and directory permissions, see L<perlfunc/chmod>.
-+
-+=item chown
-+
-+This is identical to Perl's builtin C<chown()> function, allowing one
-+to change file and directory owners and groups, see L<perlfunc/chown>.
-+
-+=item clearerr
-+
-+Use the method C<IO::Handle::clearerr()> instead, to reset the error
-+state (if any) and EOF state (if any) of the given stream.
-+
-+=item clock
-+
-+This is identical to the C function C<clock()>, returning the
-+amount of spent processor time in microseconds.
-+
-+=item close
-+
-+Close the file. This uses file descriptors such as those obtained by calling
-+C<POSIX::open>.
-+
-+ $fd = POSIX::open( "foo", &POSIX::O_RDONLY );
-+ POSIX::close( $fd );
-+
-+Returns C<undef> on failure.
-+
-+See also L<perlfunc/close>.
-+
-+=item closedir
-+
-+This is identical to Perl's builtin C<closedir()> function for closing
-+a directory handle, see L<perlfunc/closedir>.
-+
-+=item cos
-+
-+This is identical to Perl's builtin C<cos()> function, for returning
-+the cosine of its numerical argument, see L<perlfunc/cos>.
-+See also L<Math::Trig>.
-+
-+=item cosh
-+
-+This is identical to the C function C<cosh()>, for returning
-+the hyperbolic cosine of its numeric argument. See also L<Math::Trig>.
-+
-+=item creat
-+
-+Create a new file. This returns a file descriptor like the ones returned by
-+C<POSIX::open>. Use C<POSIX::close> to close the file.
-+
-+ $fd = POSIX::creat( "foo", 0611 );
-+ POSIX::close( $fd );
-+
-+See also L<perlfunc/sysopen> and its C<O_CREAT> flag.
-+
-+=item ctermid
-+
-+Generates the path name for the controlling terminal.
-+
-+ $path = POSIX::ctermid();
-+
-+=item ctime
-+
-+This is identical to the C function C<ctime()> and equivalent
-+to C<asctime(localtime(...))>, see L</asctime> and L</localtime>.
-+
-+=item cuserid
-+
-+Get the login name of the owner of the current process.
-+
-+ $name = POSIX::cuserid();
-+
-+=item difftime
-+
-+This is identical to the C function C<difftime()>, for returning
-+the time difference (in seconds) between two times (as returned
-+by C<time()>), see L</time>.
-+
-+=item div
-+
-+div() is C-specific, use L<perlfunc/int> on the usual C</> division and
-+the modulus C<%>.
-+
-+=item dup
-+
-+This is similar to the C function C<dup()>, for duplicating a file
-+descriptor.
-+
-+This uses file descriptors such as those obtained by calling
-+C<POSIX::open>.
-+
-+Returns C<undef> on failure.
-+
-+=item dup2
-+
-+This is similar to the C function C<dup2()>, for duplicating a file
-+descriptor to an another known file descriptor.
-+
-+This uses file descriptors such as those obtained by calling
-+C<POSIX::open>.
-+
-+Returns C<undef> on failure.
-+
-+=item errno
-+
-+Returns the value of errno.
-+
-+ $errno = POSIX::errno();
-+
-+This identical to the numerical values of the C<$!>, see L<perlvar/$ERRNO>.
-+
-+=item execl
-+
-+execl() is C-specific, see L<perlfunc/exec>.
-+
-+=item execle
-+
-+execle() is C-specific, see L<perlfunc/exec>.
-+
-+=item execlp
-+
-+execlp() is C-specific, see L<perlfunc/exec>.
-+
-+=item execv
-+
-+execv() is C-specific, see L<perlfunc/exec>.
-+
-+=item execve
-+
-+execve() is C-specific, see L<perlfunc/exec>.
-+
-+=item execvp
-+
-+execvp() is C-specific, see L<perlfunc/exec>.
-+
-+=item exit
-+
-+This is identical to Perl's builtin C<exit()> function for exiting the
-+program, see L<perlfunc/exit>.
-+
-+=item exp
-+
-+This is identical to Perl's builtin C<exp()> function for
-+returning the exponent (I<e>-based) of the numerical argument,
-+see L<perlfunc/exp>.
-+
-+=item fabs
-+
-+This is identical to Perl's builtin C<abs()> function for returning
-+the absolute value of the numerical argument, see L<perlfunc/abs>.
-+
-+=item fclose
-+
-+Use method C<IO::Handle::close()> instead, or see L<perlfunc/close>.
-+
-+=item fcntl
-+
-+This is identical to Perl's builtin C<fcntl()> function,
-+see L<perlfunc/fcntl>.
-+
-+=item fdopen
-+
-+Use method C<IO::Handle::new_from_fd()> instead, or see L<perlfunc/open>.
-+
-+=item feof
-+
-+Use method C<IO::Handle::eof()> instead, or see L<perlfunc/eof>.
-+
-+=item ferror
-+
-+Use method C<IO::Handle::error()> instead.
-+
-+=item fflush
-+
-+Use method C<IO::Handle::flush()> instead.
-+See also L<perlvar/$OUTPUT_AUTOFLUSH>.
-+
-+=item fgetc
-+
-+Use method C<IO::Handle::getc()> instead, or see L<perlfunc/read>.
-+
-+=item fgetpos
-+
-+Use method C<IO::Seekable::getpos()> instead, or see L<L/seek>.
-+
-+=item fgets
-+
-+Use method C<IO::Handle::gets()> instead. Similar to E<lt>E<gt>, also known
-+as L<perlfunc/readline>.
-+
-+=item fileno
-+
-+Use method C<IO::Handle::fileno()> instead, or see L<perlfunc/fileno>.
-+
-+=item floor
-+
-+This is identical to the C function C<floor()>, returning the largest
-+integer value less than or equal to the numerical argument.
-+
-+=item fmod
-+
-+This is identical to the C function C<fmod()>.
-+
-+ $r = fmod($x, $y);
-+
-+It returns the remainder C<$r = $x - $n*$y>, where C<$n = trunc($x/$y)>.
-+The C<$r> has the same sign as C<$x> and magnitude (absolute value)
-+less than the magnitude of C<$y>.
-+
-+=item fopen
-+
-+Use method C<IO::File::open()> instead, or see L<perlfunc/open>.
-+
-+=item fork
-+
-+This is identical to Perl's builtin C<fork()> function
-+for duplicating the current process, see L<perlfunc/fork>
-+and L<perlfork> if you are in Windows.
-+
-+=item fpathconf
-+
-+Retrieves the value of a configurable limit on a file or directory. This
-+uses file descriptors such as those obtained by calling C<POSIX::open>.
-+
-+The following will determine the maximum length of the longest allowable
-+pathname on the filesystem which holds C</var/foo>.
-+
-+ $fd = POSIX::open( "/var/foo", &POSIX::O_RDONLY );
-+ $path_max = POSIX::fpathconf( $fd, &POSIX::_PC_PATH_MAX );
-+
-+Returns C<undef> on failure.
-+
-+=item fprintf
-+
-+fprintf() is C-specific, see L<perlfunc/printf> instead.
-+
-+=item fputc
-+
-+fputc() is C-specific, see L<perlfunc/print> instead.
-+
-+=item fputs
-+
-+fputs() is C-specific, see L<perlfunc/print> instead.
-+
-+=item fread
-+
-+fread() is C-specific, see L<perlfunc/read> instead.
-+
-+=item free
-+
-+free() is C-specific. Perl does memory management transparently.
-+
-+=item freopen
-+
-+freopen() is C-specific, see L<perlfunc/open> instead.
-+
-+=item frexp
-+
-+Return the mantissa and exponent of a floating-point number.
-+
-+ ($mantissa, $exponent) = POSIX::frexp( 1.234e56 );
-+
-+=item fscanf
-+
-+fscanf() is C-specific, use E<lt>E<gt> and regular expressions instead.
-+
-+=item fseek
-+
-+Use method C<IO::Seekable::seek()> instead, or see L<perlfunc/seek>.
-+
-+=item fsetpos
-+
-+Use method C<IO::Seekable::setpos()> instead, or seek L<perlfunc/seek>.
-+
-+=item fstat
-+
-+Get file status. This uses file descriptors such as those obtained by
-+calling C<POSIX::open>. The data returned is identical to the data from
-+Perl's builtin C<stat> function.
-+
-+ $fd = POSIX::open( "foo", &POSIX::O_RDONLY );
-+ @stats = POSIX::fstat( $fd );
-+
-+=item fsync
-+
-+Use method C<IO::Handle::sync()> instead.
-+
-+=item ftell
-+
-+Use method C<IO::Seekable::tell()> instead, or see L<perlfunc/tell>.
-+
-+=item fwrite
-+
-+fwrite() is C-specific, see L<perlfunc/print> instead.
-+
-+=item getc
-+
-+This is identical to Perl's builtin C<getc()> function,
-+see L<perlfunc/getc>.
-+
-+=item getchar
-+
-+Returns one character from STDIN. Identical to Perl's C<getc()>,
-+see L<perlfunc/getc>.
-+
-+=item getcwd
-+
-+Returns the name of the current working directory.
-+See also L<Cwd>.
-+
-+=item getegid
-+
-+Returns the effective group identifier. Similar to Perl' s builtin
-+variable C<$(>, see L<perlvar/$EGID>.
-+
-+=item getenv
-+
-+Returns the value of the specified environment variable.
-+The same information is available through the C<%ENV> array.
-+
-+=item geteuid
-+
-+Returns the effective user identifier. Identical to Perl's builtin C<$E<gt>>
-+variable, see L<perlvar/$EUID>.
-+
-+=item getgid
-+
-+Returns the user's real group identifier. Similar to Perl's builtin
-+variable C<$)>, see L<perlvar/$GID>.
-+
-+=item getgrgid
-+
-+This is identical to Perl's builtin C<getgrgid()> function for
-+returning group entries by group identifiers, see
-+L<perlfunc/getgrgid>.
-+
-+=item getgrnam
-+
-+This is identical to Perl's builtin C<getgrnam()> function for
-+returning group entries by group names, see L<perlfunc/getgrnam>.
-+
-+=item getgroups
-+
-+Returns the ids of the user's supplementary groups. Similar to Perl's
-+builtin variable C<$)>, see L<perlvar/$GID>.
-+
-+=item getlogin
-+
-+This is identical to Perl's builtin C<getlogin()> function for
-+returning the user name associated with the current session, see
-+L<perlfunc/getlogin>.
-+
-+=item getpgrp
-+
-+This is identical to Perl's builtin C<getpgrp()> function for
-+returning the process group identifier of the current process, see
-+L<perlfunc/getpgrp>.
-+
-+=item getpid
-+
-+Returns the process identifier. Identical to Perl's builtin
-+variable C<$$>, see L<perlvar/$PID>.
-+
-+=item getppid
-+
-+This is identical to Perl's builtin C<getppid()> function for
-+returning the process identifier of the parent process of the current
-+process , see L<perlfunc/getppid>.
-+
-+=item getpwnam
-+
-+This is identical to Perl's builtin C<getpwnam()> function for
-+returning user entries by user names, see L<perlfunc/getpwnam>.
-+
-+=item getpwuid
-+
-+This is identical to Perl's builtin C<getpwuid()> function for
-+returning user entries by user identifiers, see L<perlfunc/getpwuid>.
-+
-+=item gets
-+
-+Returns one line from C<STDIN>, similar to E<lt>E<gt>, also known
-+as the C<readline()> function, see L<perlfunc/readline>.
-+
-+B<NOTE>: if you have C programs that still use C<gets()>, be very
-+afraid. The C<gets()> function is a source of endless grief because
-+it has no buffer overrun checks. It should B<never> be used. The
-+C<fgets()> function should be preferred instead.
-+
-+=item getuid
-+
-+Returns the user's identifier. Identical to Perl's builtin C<$E<lt>> variable,
-+see L<perlvar/$UID>.
-+
-+=item gmtime
-+
-+This is identical to Perl's builtin C<gmtime()> function for
-+converting seconds since the epoch to a date in Greenwich Mean Time,
-+see L<perlfunc/gmtime>.
-+
-+=item isalnum
-+
-+This is identical to the C function, except that it can apply to a
-+single character or to a whole string. Note that locale settings may
-+affect what characters are considered C<isalnum>. Does not work on
-+Unicode characters code point 256 or higher. Consider using regular
-+expressions and the C</[[:alnum:]]/> construct instead, or possibly
-+the C</\w/> construct.
-+
-+=item isalpha
-+
-+This is identical to the C function, except that it can apply to
-+a single character or to a whole string. Note that locale settings
-+may affect what characters are considered C<isalpha>. Does not work
-+on Unicode characters code point 256 or higher. Consider using regular
-+expressions and the C</[[:alpha:]]/> construct instead.
-+
-+=item isatty
-+
-+Returns a boolean indicating whether the specified filehandle is connected
-+to a tty. Similar to the C<-t> operator, see L<perlfunc/-X>.
-+
-+=item iscntrl
-+
-+This is identical to the C function, except that it can apply to
-+a single character or to a whole string. Note that locale settings
-+may affect what characters are considered C<iscntrl>. Does not work
-+on Unicode characters code point 256 or higher. Consider using regular
-+expressions and the C</[[:cntrl:]]/> construct instead.
-+
-+=item isdigit
-+
-+This is identical to the C function, except that it can apply to
-+a single character or to a whole string. Note that locale settings
-+may affect what characters are considered C<isdigit> (unlikely, but
-+still possible). Does not work on Unicode characters code point 256
-+or higher. Consider using regular expressions and the C</[[:digit:]]/>
-+construct instead, or the C</\d/> construct.
-+
-+=item isgraph
-+
-+This is identical to the C function, except that it can apply to
-+a single character or to a whole string. Note that locale settings
-+may affect what characters are considered C<isgraph>. Does not work
-+on Unicode characters code point 256 or higher. Consider using regular
-+expressions and the C</[[:graph:]]/> construct instead.
-+
-+=item islower
-+
-+This is identical to the C function, except that it can apply to
-+a single character or to a whole string. Note that locale settings
-+may affect what characters are considered C<islower>. Does not work
-+on Unicode characters code point 256 or higher. Consider using regular
-+expressions and the C</[[:lower:]]/> construct instead. Do B<not> use
-+C</[a-z]/>.
-+
-+=item isprint
-+
-+This is identical to the C function, except that it can apply to
-+a single character or to a whole string. Note that locale settings
-+may affect what characters are considered C<isprint>. Does not work
-+on Unicode characters code point 256 or higher. Consider using regular
-+expressions and the C</[[:print:]]/> construct instead.
-+
-+=item ispunct
-+
-+This is identical to the C function, except that it can apply to
-+a single character or to a whole string. Note that locale settings
-+may affect what characters are considered C<ispunct>. Does not work
-+on Unicode characters code point 256 or higher. Consider using regular
-+expressions and the C</[[:punct:]]/> construct instead.
-+
-+=item isspace
-+
-+This is identical to the C function, except that it can apply to
-+a single character or to a whole string. Note that locale settings
-+may affect what characters are considered C<isspace>. Does not work
-+on Unicode characters code point 256 or higher. Consider using regular
-+expressions and the C</[[:space:]]/> construct instead, or the C</\s/>
-+construct. (Note that C</\s/> and C</[[:space:]]/> are slightly
-+different in that C</[[:space:]]/> can normally match a vertical tab,
-+while C</\s/> does not.)
-+
-+=item isupper
-+
-+This is identical to the C function, except that it can apply to
-+a single character or to a whole string. Note that locale settings
-+may affect what characters are considered C<isupper>. Does not work
-+on Unicode characters code point 256 or higher. Consider using regular
-+expressions and the C</[[:upper:]]/> construct instead. Do B<not> use
-+C</[A-Z]/>.
-+
-+=item isxdigit
-+
-+This is identical to the C function, except that it can apply to a single
-+character or to a whole string. Note that locale settings may affect what
-+characters are considered C<isxdigit> (unlikely, but still possible).
-+Does not work on Unicode characters code point 256 or higher.
-+Consider using regular expressions and the C</[[:xdigit:]]/>
-+construct instead, or simply C</[0-9a-f]/i>.
-+
-+=item kill
-+
-+This is identical to Perl's builtin C<kill()> function for sending
-+signals to processes (often to terminate them), see L<perlfunc/kill>.
-+
-+=item labs
-+
-+(For returning absolute values of long integers.)
-+labs() is C-specific, see L<perlfunc/abs> instead.
-+
-+=item lchown
-+
-+This is identical to the C function, except the order of arguments is
-+consistent with Perl's builtin C<chown()> with the added restriction
-+of only one path, not an list of paths. Does the same thing as the
-+C<chown()> function but changes the owner of a symbolic link instead
-+of the file the symbolic link points to.
-+
-+=item ldexp
-+
-+This is identical to the C function C<ldexp()>
-+for multiplying floating point numbers with powers of two.
-+
-+ $x_quadrupled = POSIX::ldexp($x, 2);
-+
-+=item ldiv
-+
-+(For computing dividends of long integers.)
-+ldiv() is C-specific, use C</> and C<int()> instead.
-+
-+=item link
-+
-+This is identical to Perl's builtin C<link()> function
-+for creating hard links into files, see L<perlfunc/link>.
-+
-+=item localeconv
-+
-+Get numeric formatting information. Returns a reference to a hash
-+containing the current locale formatting values.
-+
-+Here is how to query the database for the B<de> (Deutsch or German) locale.
-+
-+ $loc = POSIX::setlocale( &POSIX::LC_ALL, "de" );
-+ print "Locale = $loc\n";
-+ $lconv = POSIX::localeconv();
-+ print "decimal_point = ", $lconv->{decimal_point}, "\n";
-+ print "thousands_sep = ", $lconv->{thousands_sep}, "\n";
-+ print "grouping = ", $lconv->{grouping}, "\n";
-+ print "int_curr_symbol = ", $lconv->{int_curr_symbol}, "\n";
-+ print "currency_symbol = ", $lconv->{currency_symbol}, "\n";
-+ print "mon_decimal_point = ", $lconv->{mon_decimal_point}, "\n";
-+ print "mon_thousands_sep = ", $lconv->{mon_thousands_sep}, "\n";
-+ print "mon_grouping = ", $lconv->{mon_grouping}, "\n";
-+ print "positive_sign = ", $lconv->{positive_sign}, "\n";
-+ print "negative_sign = ", $lconv->{negative_sign}, "\n";
-+ print "int_frac_digits = ", $lconv->{int_frac_digits}, "\n";
-+ print "frac_digits = ", $lconv->{frac_digits}, "\n";
-+ print "p_cs_precedes = ", $lconv->{p_cs_precedes}, "\n";
-+ print "p_sep_by_space = ", $lconv->{p_sep_by_space}, "\n";
-+ print "n_cs_precedes = ", $lconv->{n_cs_precedes}, "\n";
-+ print "n_sep_by_space = ", $lconv->{n_sep_by_space}, "\n";
-+ print "p_sign_posn = ", $lconv->{p_sign_posn}, "\n";
-+ print "n_sign_posn = ", $lconv->{n_sign_posn}, "\n";
-+
-+=item localtime
-+
-+This is identical to Perl's builtin C<localtime()> function for
-+converting seconds since the epoch to a date see L<perlfunc/localtime>.
-+
-+=item log
-+
-+This is identical to Perl's builtin C<log()> function,
-+returning the natural (I<e>-based) logarithm of the numerical argument,
-+see L<perlfunc/log>.
-+
-+=item log10
-+
-+This is identical to the C function C<log10()>,
-+returning the 10-base logarithm of the numerical argument.
-+You can also use
-+
-+ sub log10 { log($_[0]) / log(10) }
-+
-+or
-+
-+ sub log10 { log($_[0]) / 2.30258509299405 }
-+
-+or
-+
-+ sub log10 { log($_[0]) * 0.434294481903252 }
-+
-+=item longjmp
-+
-+longjmp() is C-specific: use L<perlfunc/die> instead.
-+
-+=item lseek
-+
-+Move the file's read/write position. This uses file descriptors such as
-+those obtained by calling C<POSIX::open>.
-+
-+ $fd = POSIX::open( "foo", &POSIX::O_RDONLY );
-+ $off_t = POSIX::lseek( $fd, 0, &POSIX::SEEK_SET );
-+
-+Returns C<undef> on failure.
-+
-+=item malloc
-+
-+malloc() is C-specific. Perl does memory management transparently.
-+
-+=item mblen
-+
-+This is identical to the C function C<mblen()>.
-+Perl does not have any support for the wide and multibyte
-+characters of the C standards, so this might be a rather
-+useless function.
-+
-+=item mbstowcs
-+
-+This is identical to the C function C<mbstowcs()>.
-+Perl does not have any support for the wide and multibyte
-+characters of the C standards, so this might be a rather
-+useless function.
-+
-+=item mbtowc
-+
-+This is identical to the C function C<mbtowc()>.
-+Perl does not have any support for the wide and multibyte
-+characters of the C standards, so this might be a rather
-+useless function.
-+
-+=item memchr
-+
-+memchr() is C-specific, see L<perlfunc/index> instead.
-+
-+=item memcmp
-+
-+memcmp() is C-specific, use C<eq> instead, see L<perlop>.
-+
-+=item memcpy
-+
-+memcpy() is C-specific, use C<=>, see L<perlop>, or see L<perlfunc/substr>.
-+
-+=item memmove
-+
-+memmove() is C-specific, use C<=>, see L<perlop>, or see L<perlfunc/substr>.
-+
-+=item memset
-+
-+memset() is C-specific, use C<x> instead, see L<perlop>.
-+
-+=item mkdir
-+
-+This is identical to Perl's builtin C<mkdir()> function
-+for creating directories, see L<perlfunc/mkdir>.
-+
-+=item mkfifo
-+
-+This is similar to the C function C<mkfifo()> for creating
-+FIFO special files.
-+
-+ if (mkfifo($path, $mode)) { ....
-+
-+Returns C<undef> on failure. The C<$mode> is similar to the
-+mode of C<mkdir()>, see L<perlfunc/mkdir>, though for C<mkfifo>
-+you B<must> specify the C<$mode>.
-+
-+=item mktime
-+
-+Convert date/time info to a calendar time.
-+
-+Synopsis:
-+
-+ mktime(sec, min, hour, mday, mon, year, wday = 0, yday = 0, isdst = -1)
-+
-+The month (C<mon>), weekday (C<wday>), and yearday (C<yday>) begin at zero.
-+I.e. January is 0, not 1; Sunday is 0, not 1; January 1st is 0, not 1. The
-+year (C<year>) is given in years since 1900. I.e. The year 1995 is 95; the
-+year 2001 is 101. Consult your system's C<mktime()> manpage for details
-+about these and the other arguments.
-+
-+Calendar time for December 12, 1995, at 10:30 am.
-+
-+ $time_t = POSIX::mktime( 0, 30, 10, 12, 11, 95 );
-+ print "Date = ", POSIX::ctime($time_t);
-+
-+Returns C<undef> on failure.
-+
-+=item modf
-+
-+Return the integral and fractional parts of a floating-point number.
-+
-+ ($fractional, $integral) = POSIX::modf( 3.14 );
-+
-+=item nice
-+
-+This is similar to the C function C<nice()>, for changing
-+the scheduling preference of the current process. Positive
-+arguments mean more polite process, negative values more
-+needy process. Normal user processes can only be more polite.
-+
-+Returns C<undef> on failure.
-+
-+=item offsetof
-+
-+offsetof() is C-specific, you probably want to see L<perlfunc/pack> instead.
-+
-+=item open
-+
-+Open a file for reading for writing. This returns file descriptors, not
-+Perl filehandles. Use C<POSIX::close> to close the file.
-+
-+Open a file read-only with mode 0666.
-+
-+ $fd = POSIX::open( "foo" );
-+
-+Open a file for read and write.
-+
-+ $fd = POSIX::open( "foo", &POSIX::O_RDWR );
-+
-+Open a file for write, with truncation.
-+
-+ $fd = POSIX::open( "foo", &POSIX::O_WRONLY | &POSIX::O_TRUNC );
-+
-+Create a new file with mode 0640. Set up the file for writing.
-+
-+ $fd = POSIX::open( "foo", &POSIX::O_CREAT | &POSIX::O_WRONLY, 0640 );
-+
-+Returns C<undef> on failure.
-+
-+See also L<perlfunc/sysopen>.
-+
-+=item opendir
-+
-+Open a directory for reading.
-+
-+ $dir = POSIX::opendir( "/var" );
-+ @files = POSIX::readdir( $dir );
-+ POSIX::closedir( $dir );
-+
-+Returns C<undef> on failure.
-+
-+=item pathconf
-+
-+Retrieves the value of a configurable limit on a file or directory.
-+
-+The following will determine the maximum length of the longest allowable
-+pathname on the filesystem which holds C</var>.
-+
-+ $path_max = POSIX::pathconf( "/var", &POSIX::_PC_PATH_MAX );
-+
-+Returns C<undef> on failure.
-+
-+=item pause
-+
-+This is similar to the C function C<pause()>, which suspends
-+the execution of the current process until a signal is received.
-+
-+Returns C<undef> on failure.
-+
-+=item perror
-+
-+This is identical to the C function C<perror()>, which outputs to the
-+standard error stream the specified message followed by ": " and the
-+current error string. Use the C<warn()> function and the C<$!>
-+variable instead, see L<perlfunc/warn> and L<perlvar/$ERRNO>.
-+
-+=item pipe
-+
-+Create an interprocess channel. This returns file descriptors like those
-+returned by C<POSIX::open>.
-+
-+ my ($read, $write) = POSIX::pipe();
-+ POSIX::write( $write, "hello", 5 );
-+ POSIX::read( $read, $buf, 5 );
-+
-+See also L<perlfunc/pipe>.
-+
-+=item pow
-+
-+Computes C<$x> raised to the power C<$exponent>.
-+
-+ $ret = POSIX::pow( $x, $exponent );
-+
-+You can also use the C<**> operator, see L<perlop>.
-+
-+=item printf
-+
-+Formats and prints the specified arguments to STDOUT.
-+See also L<perlfunc/printf>.
-+
-+=item putc
-+
-+putc() is C-specific, see L<perlfunc/print> instead.
-+
-+=item putchar
-+
-+putchar() is C-specific, see L<perlfunc/print> instead.
-+
-+=item puts
-+
-+puts() is C-specific, see L<perlfunc/print> instead.
-+
-+=item qsort
-+
-+qsort() is C-specific, see L<perlfunc/sort> instead.
-+
-+=item raise
-+
-+Sends the specified signal to the current process.
-+See also L<perlfunc/kill> and the C<$$> in L<perlvar/$PID>.
-+
-+=item rand
-+
-+C<rand()> is non-portable, see L<perlfunc/rand> instead.
-+
-+=item read
-+
-+Read from a file. This uses file descriptors such as those obtained by
-+calling C<POSIX::open>. If the buffer C<$buf> is not large enough for the
-+read then Perl will extend it to make room for the request.
-+
-+ $fd = POSIX::open( "foo", &POSIX::O_RDONLY );
-+ $bytes = POSIX::read( $fd, $buf, 3 );
-+
-+Returns C<undef> on failure.
-+
-+See also L<perlfunc/sysread>.
-+
-+=item readdir
-+
-+This is identical to Perl's builtin C<readdir()> function
-+for reading directory entries, see L<perlfunc/readdir>.
-+
-+=item realloc
-+
-+realloc() is C-specific. Perl does memory management transparently.
-+
-+=item remove
-+
-+This is identical to Perl's builtin C<unlink()> function
-+for removing files, see L<perlfunc/unlink>.
-+
-+=item rename
-+
-+This is identical to Perl's builtin C<rename()> function
-+for renaming files, see L<perlfunc/rename>.
-+
-+=item rewind
-+
-+Seeks to the beginning of the file.
-+
-+=item rewinddir
-+
-+This is identical to Perl's builtin C<rewinddir()> function for
-+rewinding directory entry streams, see L<perlfunc/rewinddir>.
-+
-+=item rmdir
-+
-+This is identical to Perl's builtin C<rmdir()> function
-+for removing (empty) directories, see L<perlfunc/rmdir>.
-+
-+=item scanf
-+
-+scanf() is C-specific, use E<lt>E<gt> and regular expressions instead,
-+see L<perlre>.
-+
-+=item setgid
-+
-+Sets the real group identifier and the effective group identifier for
-+this process. Similar to assigning a value to the Perl's builtin
-+C<$)> variable, see L<perlvar/$EGID>, except that the latter
-+will change only the real user identifier, and that the setgid()
-+uses only a single numeric argument, as opposed to a space-separated
-+list of numbers.
-+
-+=item setjmp
-+
-+C<setjmp()> is C-specific: use C<eval {}> instead,
-+see L<perlfunc/eval>.
-+
-+=item setlocale
-+
-+Modifies and queries program's locale. The following examples assume
-+
-+ use POSIX qw(setlocale LC_ALL LC_CTYPE);
-+
-+has been issued.
-+
-+The following will set the traditional UNIX system locale behavior
-+(the second argument C<"C">).
-+
-+ $loc = setlocale( LC_ALL, "C" );
-+
-+The following will query the current LC_CTYPE category. (No second
-+argument means 'query'.)
-+
-+ $loc = setlocale( LC_CTYPE );
-+
-+The following will set the LC_CTYPE behaviour according to the locale
-+environment variables (the second argument C<"">).
-+Please see your systems C<setlocale(3)> documentation for the locale
-+environment variables' meaning or consult L<perllocale>.
-+
-+ $loc = setlocale( LC_CTYPE, "" );
-+
-+The following will set the LC_COLLATE behaviour to Argentinian
-+Spanish. B<NOTE>: The naming and availability of locales depends on
-+your operating system. Please consult L<perllocale> for how to find
-+out which locales are available in your system.
-+
-+ $loc = setlocale( LC_COLLATE, "es_AR.ISO8859-1" );
-+
-+=item setpgid
-+
-+This is similar to the C function C<setpgid()> for
-+setting the process group identifier of the current process.
-+
-+Returns C<undef> on failure.
-+
-+=item setsid
-+
-+This is identical to the C function C<setsid()> for
-+setting the session identifier of the current process.
-+
-+=item setuid
-+
-+Sets the real user identifier and the effective user identifier for
-+this process. Similar to assigning a value to the Perl's builtin
-+C<$E<lt>> variable, see L<perlvar/$UID>, except that the latter
-+will change only the real user identifier.
-+
-+=item sigaction
-+
-+Detailed signal management. This uses C<POSIX::SigAction> objects for
-+the C<action> and C<oldaction> arguments (the oldaction can also be
-+just a hash reference). Consult your system's C<sigaction> manpage
-+for details, see also C<POSIX::SigRt>.
-+
-+Synopsis:
-+
-+ sigaction(signal, action, oldaction = 0)
-+
-+Returns C<undef> on failure. The C<signal> must be a number (like
-+SIGHUP), not a string (like "SIGHUP"), though Perl does try hard
-+to understand you.
-+
-+If you use the SA_SIGINFO flag, the signal handler will in addition to
-+the first argument, the signal name, also receive a second argument, a
-+hash reference, inside which are the following keys with the following
-+semantics, as defined by POSIX/SUSv3:
-+
-+ signo the signal number
-+ errno the error number
-+ code if this is zero or less, the signal was sent by
-+ a user process and the uid and pid make sense,
-+ otherwise the signal was sent by the kernel
-+
-+The following are also defined by POSIX/SUSv3, but unfortunately
-+not very widely implemented:
-+
-+ pid the process id generating the signal
-+ uid the uid of the process id generating the signal
-+ status exit value or signal for SIGCHLD
-+ band band event for SIGPOLL
-+
-+A third argument is also passed to the handler, which contains a copy
-+of the raw binary contents of the siginfo structure: if a system has
-+some non-POSIX fields, this third argument is where to unpack() them
-+from.
-+
-+Note that not all siginfo values make sense simultaneously (some are
-+valid only for certain signals, for example), and not all values make
-+sense from Perl perspective, you should to consult your system's
-+C<sigaction> and possibly also C<siginfo> documentation.
-+
-+=item siglongjmp
-+
-+siglongjmp() is C-specific: use L<perlfunc/die> instead.
-+
-+=item sigpending
-+
-+Examine signals that are blocked and pending. This uses C<POSIX::SigSet>
-+objects for the C<sigset> argument. Consult your system's C<sigpending>
-+manpage for details.
-+
-+Synopsis:
-+
-+ sigpending(sigset)
-+
-+Returns C<undef> on failure.
-+
-+=item sigprocmask
-+
-+Change and/or examine calling process's signal mask. This uses
-+C<POSIX::SigSet> objects for the C<sigset> and C<oldsigset> arguments.
-+Consult your system's C<sigprocmask> manpage for details.
-+
-+Synopsis:
-+
-+ sigprocmask(how, sigset, oldsigset = 0)
-+
-+Returns C<undef> on failure.
-+
-+=item sigsetjmp
-+
-+C<sigsetjmp()> is C-specific: use C<eval {}> instead,
-+see L<perlfunc/eval>.
-+
-+=item sigsuspend
-+
-+Install a signal mask and suspend process until signal arrives. This uses
-+C<POSIX::SigSet> objects for the C<signal_mask> argument. Consult your
-+system's C<sigsuspend> manpage for details.
-+
-+Synopsis:
-+
-+ sigsuspend(signal_mask)
-+
-+Returns C<undef> on failure.
-+
-+=item sin
-+
-+This is identical to Perl's builtin C<sin()> function
-+for returning the sine of the numerical argument,
-+see L<perlfunc/sin>. See also L<Math::Trig>.
-+
-+=item sinh
-+
-+This is identical to the C function C<sinh()>
-+for returning the hyperbolic sine of the numerical argument.
-+See also L<Math::Trig>.
-+
-+=item sleep
-+
-+This is functionally identical to Perl's builtin C<sleep()> function
-+for suspending the execution of the current for process for certain
-+number of seconds, see L<perlfunc/sleep>. There is one significant
-+difference, however: C<POSIX::sleep()> returns the number of
-+B<unslept> seconds, while the C<CORE::sleep()> returns the
-+number of slept seconds.
-+
-+=item sprintf
-+
-+This is similar to Perl's builtin C<sprintf()> function
-+for returning a string that has the arguments formatted as requested,
-+see L<perlfunc/sprintf>.
-+
-+=item sqrt
-+
-+This is identical to Perl's builtin C<sqrt()> function.
-+for returning the square root of the numerical argument,
-+see L<perlfunc/sqrt>.
-+
-+=item srand
-+
-+Give a seed the pseudorandom number generator, see L<perlfunc/srand>.
-+
-+=item sscanf
-+
-+sscanf() is C-specific, use regular expressions instead,
-+see L<perlre>.
-+
-+=item stat
-+
-+This is identical to Perl's builtin C<stat()> function
-+for returning information about files and directories.
-+
-+=item strcat
-+
-+strcat() is C-specific, use C<.=> instead, see L<perlop>.
-+
-+=item strchr
-+
-+strchr() is C-specific, see L<perlfunc/index> instead.
-+
-+=item strcmp
-+
-+strcmp() is C-specific, use C<eq> or C<cmp> instead, see L<perlop>.
-+
-+=item strcoll
-+
-+This is identical to the C function C<strcoll()>
-+for collating (comparing) strings transformed using
-+the C<strxfrm()> function. Not really needed since
-+Perl can do this transparently, see L<perllocale>.
-+
-+=item strcpy
-+
-+strcpy() is C-specific, use C<=> instead, see L<perlop>.
-+
-+=item strcspn
-+
-+strcspn() is C-specific, use regular expressions instead,
-+see L<perlre>.
-+
-+=item strerror
-+
-+Returns the error string for the specified errno.
-+Identical to the string form of the C<$!>, see L<perlvar/$ERRNO>.
-+
-+=item strftime
-+
-+Convert date and time information to string. Returns the string.
-+
-+Synopsis:
-+
-+ strftime(fmt, sec, min, hour, mday, mon, year, wday = -1, yday = -1, isdst = -1)
-+
-+The month (C<mon>), weekday (C<wday>), and yearday (C<yday>) begin at zero.
-+I.e. January is 0, not 1; Sunday is 0, not 1; January 1st is 0, not 1. The
-+year (C<year>) is given in years since 1900. I.e., the year 1995 is 95; the
-+year 2001 is 101. Consult your system's C<strftime()> manpage for details
-+about these and the other arguments.
-+
-+If you want your code to be portable, your format (C<fmt>) argument
-+should use only the conversion specifiers defined by the ANSI C
-+standard (C89, to play safe). These are C<aAbBcdHIjmMpSUwWxXyYZ%>.
-+But even then, the B<results> of some of the conversion specifiers are
-+non-portable. For example, the specifiers C<aAbBcpZ> change according
-+to the locale settings of the user, and both how to set locales (the
-+locale names) and what output to expect are non-standard.
-+The specifier C<c> changes according to the timezone settings of the
-+user and the timezone computation rules of the operating system.
-+The C<Z> specifier is notoriously unportable since the names of
-+timezones are non-standard. Sticking to the numeric specifiers is the
-+safest route.
-+
-+The given arguments are made consistent as though by calling
-+C<mktime()> before calling your system's C<strftime()> function,
-+except that the C<isdst> value is not affected.
-+
-+The string for Tuesday, December 12, 1995.
-+
-+ $str = POSIX::strftime( "%A, %B %d, %Y", 0, 0, 0, 12, 11, 95, 2 );
-+ print "$str\n";
-+
-+=item strlen
-+
-+strlen() is C-specific, use C<length()> instead, see L<perlfunc/length>.
-+
-+=item strncat
-+
-+strncat() is C-specific, use C<.=> instead, see L<perlop>.
-+
-+=item strncmp
-+
-+strncmp() is C-specific, use C<eq> instead, see L<perlop>.
-+
-+=item strncpy
-+
-+strncpy() is C-specific, use C<=> instead, see L<perlop>.
-+
-+=item strpbrk
-+
-+strpbrk() is C-specific, use regular expressions instead,
-+see L<perlre>.
-+
-+=item strrchr
-+
-+strrchr() is C-specific, see L<perlfunc/rindex> instead.
-+
-+=item strspn
-+
-+strspn() is C-specific, use regular expressions instead,
-+see L<perlre>.
-+
-+=item strstr
-+
-+This is identical to Perl's builtin C<index()> function,
-+see L<perlfunc/index>.
-+
-+=item strtod
-+
-+String to double translation. Returns the parsed number and the number
-+of characters in the unparsed portion of the string. Truly
-+POSIX-compliant systems set $! ($ERRNO) to indicate a translation
-+error, so clear $! before calling strtod. However, non-POSIX systems
-+may not check for overflow, and therefore will never set $!.
-+
-+strtod should respect any POSIX I<setlocale()> settings.
-+
-+To parse a string $str as a floating point number use
-+
-+ $! = 0;
-+ ($num, $n_unparsed) = POSIX::strtod($str);
-+
-+The second returned item and $! can be used to check for valid input:
-+
-+ if (($str eq '') || ($n_unparsed != 0) || $!) {
-+ die "Non-numeric input $str" . ($! ? ": $!\n" : "\n");
-+ }
-+
-+When called in a scalar context strtod returns the parsed number.
-+
-+=item strtok
-+
-+strtok() is C-specific, use regular expressions instead, see
-+L<perlre>, or L<perlfunc/split>.
-+
-+=item strtol
-+
-+String to (long) integer translation. Returns the parsed number and
-+the number of characters in the unparsed portion of the string. Truly
-+POSIX-compliant systems set $! ($ERRNO) to indicate a translation
-+error, so clear $! before calling strtol. However, non-POSIX systems
-+may not check for overflow, and therefore will never set $!.
-+
-+strtol should respect any POSIX I<setlocale()> settings.
-+
-+To parse a string $str as a number in some base $base use
-+
-+ $! = 0;
-+ ($num, $n_unparsed) = POSIX::strtol($str, $base);
-+
-+The base should be zero or between 2 and 36, inclusive. When the base
-+is zero or omitted strtol will use the string itself to determine the
-+base: a leading "0x" or "0X" means hexadecimal; a leading "0" means
-+octal; any other leading characters mean decimal. Thus, "1234" is
-+parsed as a decimal number, "01234" as an octal number, and "0x1234"
-+as a hexadecimal number.
-+
-+The second returned item and $! can be used to check for valid input:
-+
-+ if (($str eq '') || ($n_unparsed != 0) || !$!) {
-+ die "Non-numeric input $str" . $! ? ": $!\n" : "\n";
-+ }
-+
-+When called in a scalar context strtol returns the parsed number.
-+
-+=item strtoul
-+
-+String to unsigned (long) integer translation. strtoul() is identical
-+to strtol() except that strtoul() only parses unsigned integers. See
-+L</strtol> for details.
-+
-+Note: Some vendors supply strtod() and strtol() but not strtoul().
-+Other vendors that do supply strtoul() parse "-1" as a valid value.
-+
-+=item strxfrm
-+
-+String transformation. Returns the transformed string.
-+
-+ $dst = POSIX::strxfrm( $src );
-+
-+Used in conjunction with the C<strcoll()> function, see L</strcoll>.
-+
-+Not really needed since Perl can do this transparently, see
-+L<perllocale>.
-+
-+=item sysconf
-+
-+Retrieves values of system configurable variables.
-+
-+The following will get the machine's clock speed.
-+
-+ $clock_ticks = POSIX::sysconf( &POSIX::_SC_CLK_TCK );
-+
-+Returns C<undef> on failure.
-+
-+=item system
-+
-+This is identical to Perl's builtin C<system()> function, see
-+L<perlfunc/system>.
-+
-+=item tan
-+
-+This is identical to the C function C<tan()>, returning the
-+tangent of the numerical argument. See also L<Math::Trig>.
-+
-+=item tanh
-+
-+This is identical to the C function C<tanh()>, returning the
-+hyperbolic tangent of the numerical argument. See also L<Math::Trig>.
-+
-+=item tcdrain
-+
-+This is similar to the C function C<tcdrain()> for draining
-+the output queue of its argument stream.
-+
-+Returns C<undef> on failure.
-+
-+=item tcflow
-+
-+This is similar to the C function C<tcflow()> for controlling
-+the flow of its argument stream.
-+
-+Returns C<undef> on failure.
-+
-+=item tcflush
-+
-+This is similar to the C function C<tcflush()> for flushing
-+the I/O buffers of its argument stream.
-+
-+Returns C<undef> on failure.
-+
-+=item tcgetpgrp
-+
-+This is identical to the C function C<tcgetpgrp()> for returning the
-+process group identifier of the foreground process group of the controlling
-+terminal.
-+
-+=item tcsendbreak
-+
-+This is similar to the C function C<tcsendbreak()> for sending
-+a break on its argument stream.
-+
-+Returns C<undef> on failure.
-+
-+=item tcsetpgrp
-+
-+This is similar to the C function C<tcsetpgrp()> for setting the
-+process group identifier of the foreground process group of the controlling
-+terminal.
-+
-+Returns C<undef> on failure.
-+
-+=item time
-+
-+This is identical to Perl's builtin C<time()> function
-+for returning the number of seconds since the epoch
-+(whatever it is for the system), see L<perlfunc/time>.
-+
-+=item times
-+
-+The times() function returns elapsed realtime since some point in the past
-+(such as system startup), user and system times for this process, and user
-+and system times used by child processes. All times are returned in clock
-+ticks.
-+
-+ ($realtime, $user, $system, $cuser, $csystem) = POSIX::times();
-+
-+Note: Perl's builtin C<times()> function returns four values, measured in
-+seconds.
-+
-+=item tmpfile
-+
-+Use method C<IO::File::new_tmpfile()> instead, or see L<File::Temp>.
-+
-+=item tmpnam
-+
-+Returns a name for a temporary file.
-+
-+ $tmpfile = POSIX::tmpnam();
-+
-+For security reasons, which are probably detailed in your system's
-+documentation for the C library tmpnam() function, this interface
-+should not be used; instead see L<File::Temp>.
-+
-+=item tolower
-+
-+This is identical to the C function, except that it can apply to a single
-+character or to a whole string. Consider using the C<lc()> function,
-+see L<perlfunc/lc>, or the equivalent C<\L> operator inside doublequotish
-+strings.
-+
-+=item toupper
-+
-+This is identical to the C function, except that it can apply to a single
-+character or to a whole string. Consider using the C<uc()> function,
-+see L<perlfunc/uc>, or the equivalent C<\U> operator inside doublequotish
-+strings.
-+
-+=item ttyname
-+
-+This is identical to the C function C<ttyname()> for returning the
-+name of the current terminal.
-+
-+=item tzname
-+
-+Retrieves the time conversion information from the C<tzname> variable.
-+
-+ POSIX::tzset();
-+ ($std, $dst) = POSIX::tzname();
-+
-+=item tzset
-+
-+This is identical to the C function C<tzset()> for setting
-+the current timezone based on the environment variable C<TZ>,
-+to be used by C<ctime()>, C<localtime()>, C<mktime()>, and C<strftime()>
-+functions.
-+
-+=item umask
-+
-+This is identical to Perl's builtin C<umask()> function
-+for setting (and querying) the file creation permission mask,
-+see L<perlfunc/umask>.
-+
-+=item uname
-+
-+Get name of current operating system.
-+
-+ ($sysname, $nodename, $release, $version, $machine) = POSIX::uname();
-+
-+Note that the actual meanings of the various fields are not
-+that well standardized, do not expect any great portability.
-+The C<$sysname> might be the name of the operating system,
-+the C<$nodename> might be the name of the host, the C<$release>
-+might be the (major) release number of the operating system,
-+the C<$version> might be the (minor) release number of the
-+operating system, and the C<$machine> might be a hardware identifier.
-+Maybe.
-+
-+=item ungetc
-+
-+Use method C<IO::Handle::ungetc()> instead.
-+
-+=item unlink
-+
-+This is identical to Perl's builtin C<unlink()> function
-+for removing files, see L<perlfunc/unlink>.
-+
-+=item utime
-+
-+This is identical to Perl's builtin C<utime()> function
-+for changing the time stamps of files and directories,
-+see L<perlfunc/utime>.
-+
-+=item vfprintf
-+
-+vfprintf() is C-specific, see L<perlfunc/printf> instead.
-+
-+=item vprintf
-+
-+vprintf() is C-specific, see L<perlfunc/printf> instead.
-+
-+=item vsprintf
-+
-+vsprintf() is C-specific, see L<perlfunc/sprintf> instead.
-+
-+=item wait
-+
-+This is identical to Perl's builtin C<wait()> function,
-+see L<perlfunc/wait>.
-+
-+=item waitpid
-+
-+Wait for a child process to change state. This is identical to Perl's
-+builtin C<waitpid()> function, see L<perlfunc/waitpid>.
-+
-+ $pid = POSIX::waitpid( -1, POSIX::WNOHANG );
-+ print "status = ", ($? / 256), "\n";
-+
-+=item wcstombs
-+
-+This is identical to the C function C<wcstombs()>.
-+Perl does not have any support for the wide and multibyte
-+characters of the C standards, so this might be a rather
-+useless function.
-+
-+=item wctomb
-+
-+This is identical to the C function C<wctomb()>.
-+Perl does not have any support for the wide and multibyte
-+characters of the C standards, so this might be a rather
-+useless function.
-+
-+=item write
-+
-+Write to a file. This uses file descriptors such as those obtained by
-+calling C<POSIX::open>.
-+
-+ $fd = POSIX::open( "foo", &POSIX::O_WRONLY );
-+ $buf = "hello";
-+ $bytes = POSIX::write( $fd, $buf, 5 );
-+
-+Returns C<undef> on failure.
-+
-+See also L<perlfunc/syswrite>.
-+
-+=back
-+
-+=head1 CLASSES
-+
-+=head2 POSIX::SigAction
-+
-+=over 8
-+
-+=item new
-+
-+Creates a new C<POSIX::SigAction> object which corresponds to the C
-+C<struct sigaction>. This object will be destroyed automatically when
-+it is no longer needed. The first parameter is the handler, a sub
-+reference. The second parameter is a C<POSIX::SigSet> object, it
-+defaults to the empty set. The third parameter contains the
-+C<sa_flags>, it defaults to 0.
-+
-+ $sigset = POSIX::SigSet->new(SIGINT, SIGQUIT);
-+ $sigaction = POSIX::SigAction->new( \&handler, $sigset, &POSIX::SA_NOCLDSTOP );
-+
-+This C<POSIX::SigAction> object is intended for use with the C<POSIX::sigaction()>
-+function.
-+
-+=back
-+
-+=over 8
-+
-+=item handler
-+
-+=item mask
-+
-+=item flags
-+
-+accessor functions to get/set the values of a SigAction object.
-+
-+ $sigset = $sigaction->mask;
-+ $sigaction->flags(&POSIX::SA_RESTART);
-+
-+=item safe
-+
-+accessor function for the "safe signals" flag of a SigAction object; see
-+L<perlipc> for general information on safe (a.k.a. "deferred") signals. If
-+you wish to handle a signal safely, use this accessor to set the "safe" flag
-+in the C<POSIX::SigAction> object:
-+
-+ $sigaction->safe(1);
-+
-+You may also examine the "safe" flag on the output action object which is
-+filled in when given as the third parameter to C<POSIX::sigaction()>:
-+
-+ sigaction(SIGINT, $new_action, $old_action);
-+ if ($old_action->safe) {
-+ # previous SIGINT handler used safe signals
-+ }
-+
-+=back
-+
-+=head2 POSIX::SigRt
-+
-+=over 8
-+
-+=item %SIGRT
-+
-+A hash of the POSIX realtime signal handlers. It is an extension of
-+the standard %SIG, the $POSIX::SIGRT{SIGRTMIN} is roughly equivalent
-+to $SIG{SIGRTMIN}, but the right POSIX moves (see below) are made with
-+the POSIX::SigSet and POSIX::sigaction instead of accessing the %SIG.
-+
-+You can set the %POSIX::SIGRT elements to set the POSIX realtime
-+signal handlers, use C<delete> and C<exists> on the elements, and use
-+C<scalar> on the C<%POSIX::SIGRT> to find out how many POSIX realtime
-+signals there are available (SIGRTMAX - SIGRTMIN + 1, the SIGRTMAX is
-+a valid POSIX realtime signal).
-+
-+Setting the %SIGRT elements is equivalent to calling this:
-+
-+ sub new {
-+ my ($rtsig, $handler, $flags) = @_;
-+ my $sigset = POSIX::SigSet($rtsig);
-+ my $sigact = POSIX::SigAction->new($handler, $sigset, $flags);
-+ sigaction($rtsig, $sigact);
-+ }
-+
-+The flags default to zero, if you want something different you can
-+either use C<local> on $POSIX::SigRt::SIGACTION_FLAGS, or you can
-+derive from POSIX::SigRt and define your own C<new()> (the tied hash
-+STORE method of the %SIGRT calls C<new($rtsig, $handler, $SIGACTION_FLAGS)>,
-+where the $rtsig ranges from zero to SIGRTMAX - SIGRTMIN + 1).
-+
-+Just as with any signal, you can use sigaction($rtsig, undef, $oa) to
-+retrieve the installed signal handler (or, rather, the signal action).
-+
-+B<NOTE:> whether POSIX realtime signals really work in your system, or
-+whether Perl has been compiled so that it works with them, is outside
-+of this discussion.
-+
-+=item SIGRTMIN
-+
-+Return the minimum POSIX realtime signal number available, or C<undef>
-+if no POSIX realtime signals are available.
-+
-+=item SIGRTMAX
-+
-+Return the maximum POSIX realtime signal number available, or C<undef>
-+if no POSIX realtime signals are available.
-+
-+=back
-+
-+=head2 POSIX::SigSet
-+
-+=over 8
-+
-+=item new
-+
-+Create a new SigSet object. This object will be destroyed automatically
-+when it is no longer needed. Arguments may be supplied to initialize the
-+set.
-+
-+Create an empty set.
-+
-+ $sigset = POSIX::SigSet->new;
-+
-+Create a set with SIGUSR1.
-+
-+ $sigset = POSIX::SigSet->new( &POSIX::SIGUSR1 );
-+
-+=item addset
-+
-+Add a signal to a SigSet object.
-+
-+ $sigset->addset( &POSIX::SIGUSR2 );
-+
-+Returns C<undef> on failure.
-+
-+=item delset
-+
-+Remove a signal from the SigSet object.
-+
-+ $sigset->delset( &POSIX::SIGUSR2 );
-+
-+Returns C<undef> on failure.
-+
-+=item emptyset
-+
-+Initialize the SigSet object to be empty.
-+
-+ $sigset->emptyset();
-+
-+Returns C<undef> on failure.
-+
-+=item fillset
-+
-+Initialize the SigSet object to include all signals.
-+
-+ $sigset->fillset();
-+
-+Returns C<undef> on failure.
-+
-+=item ismember
-+
-+Tests the SigSet object to see if it contains a specific signal.
-+
-+ if( $sigset->ismember( &POSIX::SIGUSR1 ) ){
-+ print "contains SIGUSR1\n";
-+ }
-+
-+=back
-+
-+=head2 POSIX::Termios
-+
-+=over 8
-+
-+=item new
-+
-+Create a new Termios object. This object will be destroyed automatically
-+when it is no longer needed. A Termios object corresponds to the termios
-+C struct. new() mallocs a new one, getattr() fills it from a file descriptor,
-+and setattr() sets a file descriptor's parameters to match Termios' contents.
-+
-+ $termios = POSIX::Termios->new;
-+
-+=item getattr
-+
-+Get terminal control attributes.
-+
-+Obtain the attributes for stdin.
-+
-+ $termios->getattr( 0 ) # Recommended for clarity.
-+ $termios->getattr()
-+
-+Obtain the attributes for stdout.
-+
-+ $termios->getattr( 1 )
-+
-+Returns C<undef> on failure.
-+
-+=item getcc
-+
-+Retrieve a value from the c_cc field of a termios object. The c_cc field is
-+an array so an index must be specified.
-+
-+ $c_cc[1] = $termios->getcc(1);
-+
-+=item getcflag
-+
-+Retrieve the c_cflag field of a termios object.
-+
-+ $c_cflag = $termios->getcflag;
-+
-+=item getiflag
-+
-+Retrieve the c_iflag field of a termios object.
-+
-+ $c_iflag = $termios->getiflag;
-+
-+=item getispeed
-+
-+Retrieve the input baud rate.
-+
-+ $ispeed = $termios->getispeed;
-+
-+=item getlflag
-+
-+Retrieve the c_lflag field of a termios object.
-+
-+ $c_lflag = $termios->getlflag;
-+
-+=item getoflag
-+
-+Retrieve the c_oflag field of a termios object.
-+
-+ $c_oflag = $termios->getoflag;
-+
-+=item getospeed
-+
-+Retrieve the output baud rate.
-+
-+ $ospeed = $termios->getospeed;
-+
-+=item setattr
-+
-+Set terminal control attributes.
-+
-+Set attributes immediately for stdout.
-+
-+ $termios->setattr( 1, &POSIX::TCSANOW );
-+
-+Returns C<undef> on failure.
-+
-+=item setcc
-+
-+Set a value in the c_cc field of a termios object. The c_cc field is an
-+array so an index must be specified.
-+
-+ $termios->setcc( &POSIX::VEOF, 1 );
-+
-+=item setcflag
-+
-+Set the c_cflag field of a termios object.
-+
-+ $termios->setcflag( $c_cflag | &POSIX::CLOCAL );
-+
-+=item setiflag
-+
-+Set the c_iflag field of a termios object.
-+
-+ $termios->setiflag( $c_iflag | &POSIX::BRKINT );
-+
-+=item setispeed
-+
-+Set the input baud rate.
-+
-+ $termios->setispeed( &POSIX::B9600 );
-+
-+Returns C<undef> on failure.
-+
-+=item setlflag
-+
-+Set the c_lflag field of a termios object.
-+
-+ $termios->setlflag( $c_lflag | &POSIX::ECHO );
-+
-+=item setoflag
-+
-+Set the c_oflag field of a termios object.
-+
-+ $termios->setoflag( $c_oflag | &POSIX::OPOST );
-+
-+=item setospeed
-+
-+Set the output baud rate.
-+
-+ $termios->setospeed( &POSIX::B9600 );
-+
-+Returns C<undef> on failure.
-+
-+=item Baud rate values
-+
-+B38400 B75 B200 B134 B300 B1800 B150 B0 B19200 B1200 B9600 B600 B4800 B50 B2400 B110
-+
-+=item Terminal interface values
-+
-+TCSADRAIN TCSANOW TCOON TCIOFLUSH TCOFLUSH TCION TCIFLUSH TCSAFLUSH TCIOFF TCOOFF
-+
-+=item c_cc field values
-+
-+VEOF VEOL VERASE VINTR VKILL VQUIT VSUSP VSTART VSTOP VMIN VTIME NCCS
-+
-+=item c_cflag field values
-+
-+CLOCAL CREAD CSIZE CS5 CS6 CS7 CS8 CSTOPB HUPCL PARENB PARODD
-+
-+=item c_iflag field values
-+
-+BRKINT ICRNL IGNBRK IGNCR IGNPAR INLCR INPCK ISTRIP IXOFF IXON PARMRK
-+
-+=item c_lflag field values
-+
-+ECHO ECHOE ECHOK ECHONL ICANON IEXTEN ISIG NOFLSH TOSTOP
-+
-+=item c_oflag field values
-+
-+OPOST
-+
-+=back
-+
-+=head1 PATHNAME CONSTANTS
-+
-+=over 8
-+
-+=item Constants
-+
-+_PC_CHOWN_RESTRICTED _PC_LINK_MAX _PC_MAX_CANON _PC_MAX_INPUT _PC_NAME_MAX _PC_NO_TRUNC _PC_PATH_MAX _PC_PIPE_BUF _PC_VDISABLE
-+
-+=back
-+
-+=head1 POSIX CONSTANTS
-+
-+=over 8
-+
-+=item Constants
-+
-+_POSIX_ARG_MAX _POSIX_CHILD_MAX _POSIX_CHOWN_RESTRICTED _POSIX_JOB_CONTROL _POSIX_LINK_MAX _POSIX_MAX_CANON _POSIX_MAX_INPUT _POSIX_NAME_MAX _POSIX_NGROUPS_MAX _POSIX_NO_TRUNC _POSIX_OPEN_MAX _POSIX_PATH_MAX _POSIX_PIPE_BUF _POSIX_SAVED_IDS _POSIX_SSIZE_MAX _POSIX_STREAM_MAX _POSIX_TZNAME_MAX _POSIX_VDISABLE _POSIX_VERSION
-+
-+=back
-+
-+=head1 SYSTEM CONFIGURATION
-+
-+=over 8
-+
-+=item Constants
-+
-+_SC_ARG_MAX _SC_CHILD_MAX _SC_CLK_TCK _SC_JOB_CONTROL _SC_NGROUPS_MAX _SC_OPEN_MAX _SC_PAGESIZE _SC_SAVED_IDS _SC_STREAM_MAX _SC_TZNAME_MAX _SC_VERSION
-+
-+=back
-+
-+=head1 ERRNO
-+
-+=over 8
-+
-+=item Constants
-+
-+E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT EAGAIN EALREADY EBADF
-+EBUSY ECHILD ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ
-+EDOM EDQUOT EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH EINPROGRESS EINTR
-+EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK EMSGSIZE ENAMETOOLONG
-+ENETDOWN ENETRESET ENETUNREACH ENFILE ENOBUFS ENODEV ENOENT ENOEXEC
-+ENOLCK ENOMEM ENOPROTOOPT ENOSPC ENOSYS ENOTBLK ENOTCONN ENOTDIR
-+ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM EPFNOSUPPORT EPIPE
-+EPROCLIM EPROTONOSUPPORT EPROTOTYPE ERANGE EREMOTE ERESTART EROFS
-+ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESTALE ETIMEDOUT ETOOMANYREFS
-+ETXTBSY EUSERS EWOULDBLOCK EXDEV
-+
-+=back
-+
-+=head1 FCNTL
-+
-+=over 8
-+
-+=item Constants
-+
-+FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_OK F_RDLCK F_SETFD F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK O_ACCMODE O_APPEND O_CREAT O_EXCL O_NOCTTY O_NONBLOCK O_RDONLY O_RDWR O_TRUNC O_WRONLY
-+
-+=back
-+
-+=head1 FLOAT
-+
-+=over 8
-+
-+=item Constants
-+
-+DBL_DIG DBL_EPSILON DBL_MANT_DIG DBL_MAX DBL_MAX_10_EXP DBL_MAX_EXP DBL_MIN DBL_MIN_10_EXP DBL_MIN_EXP FLT_DIG FLT_EPSILON FLT_MANT_DIG FLT_MAX FLT_MAX_10_EXP FLT_MAX_EXP FLT_MIN FLT_MIN_10_EXP FLT_MIN_EXP FLT_RADIX FLT_ROUNDS LDBL_DIG LDBL_EPSILON LDBL_MANT_DIG LDBL_MAX LDBL_MAX_10_EXP LDBL_MAX_EXP LDBL_MIN LDBL_MIN_10_EXP LDBL_MIN_EXP
-+
-+=back
-+
-+=head1 LIMITS
-+
-+=over 8
-+
-+=item Constants
-+
-+ARG_MAX CHAR_BIT CHAR_MAX CHAR_MIN CHILD_MAX INT_MAX INT_MIN LINK_MAX LONG_MAX LONG_MIN MAX_CANON MAX_INPUT MB_LEN_MAX NAME_MAX NGROUPS_MAX OPEN_MAX PATH_MAX PIPE_BUF SCHAR_MAX SCHAR_MIN SHRT_MAX SHRT_MIN SSIZE_MAX STREAM_MAX TZNAME_MAX UCHAR_MAX UINT_MAX ULONG_MAX USHRT_MAX
-+
-+=back
-+
-+=head1 LOCALE
-+
-+=over 8
-+
-+=item Constants
-+
-+LC_ALL LC_COLLATE LC_CTYPE LC_MONETARY LC_NUMERIC LC_TIME
-+
-+=back
-+
-+=head1 MATH
-+
-+=over 8
-+
-+=item Constants
-+
-+HUGE_VAL
-+
-+=back
-+
-+=head1 SIGNAL
-+
-+=over 8
-+
-+=item Constants
-+
-+SA_NOCLDSTOP SA_NOCLDWAIT SA_NODEFER SA_ONSTACK SA_RESETHAND SA_RESTART
-+SA_SIGINFO SIGABRT SIGALRM SIGCHLD SIGCONT SIGFPE SIGHUP SIGILL SIGINT
-+SIGKILL SIGPIPE SIGQUIT SIGSEGV SIGSTOP SIGTERM SIGTSTP SIGTTIN SIGTTOU
-+SIGUSR1 SIGUSR2 SIG_BLOCK SIG_DFL SIG_ERR SIG_IGN SIG_SETMASK
-+SIG_UNBLOCK
-+
-+=back
-+
-+=head1 STAT
-+
-+=over 8
-+
-+=item Constants
-+
-+S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU S_ISGID S_ISUID S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR
-+
-+=item Macros
-+
-+S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISREG
-+
-+=back
-+
-+=head1 STDLIB
-+
-+=over 8
-+
-+=item Constants
-+
-+EXIT_FAILURE EXIT_SUCCESS MB_CUR_MAX RAND_MAX
-+
-+=back
-+
-+=head1 STDIO
-+
-+=over 8
-+
-+=item Constants
-+
-+BUFSIZ EOF FILENAME_MAX L_ctermid L_cuserid L_tmpname TMP_MAX
-+
-+=back
-+
-+=head1 TIME
-+
-+=over 8
-+
-+=item Constants
-+
-+CLK_TCK CLOCKS_PER_SEC
-+
-+=back
-+
-+=head1 UNISTD
-+
-+=over 8
-+
-+=item Constants
-+
-+R_OK SEEK_CUR SEEK_END SEEK_SET STDIN_FILENO STDOUT_FILENO STDERR_FILENO W_OK X_OK
-+
-+=back
-+
-+=head1 WAIT
-+
-+=over 8
-+
-+=item Constants
-+
-+WNOHANG WUNTRACED
-+
-+=over 16
-+
-+=item WNOHANG
-+
-+Do not suspend the calling process until a child process
-+changes state but instead return immediately.
-+
-+=item WUNTRACED
-+
-+Catch stopped child processes.
-+
-+=back
-+
-+=item Macros
-+
-+WIFEXITED WEXITSTATUS WIFSIGNALED WTERMSIG WIFSTOPPED WSTOPSIG
-+
-+=over 16
-+
-+=item WIFEXITED
-+
-+WIFEXITED($?) returns true if the child process exited normally
-+(C<exit()> or by falling off the end of C<main()>)
-+
-+=item WEXITSTATUS
-+
-+WEXITSTATUS($?) returns the normal exit status of the child process
-+(only meaningful if WIFEXITED($?) is true)
-+
-+=item WIFSIGNALED
-+
-+WIFSIGNALED($?) returns true if the child process terminated because
-+of a signal
-+
-+=item WTERMSIG
-+
-+WTERMSIG($?) returns the signal the child process terminated for
-+(only meaningful if WIFSIGNALED($?) is true)
-+
-+=item WIFSTOPPED
-+
-+WIFSTOPPED($?) returns true if the child process is currently stopped
-+(can happen only if you specified the WUNTRACED flag to waitpid())
-+
-+=item WSTOPSIG
-+
-+WSTOPSIG($?) returns the signal the child process was stopped for
-+(only meaningful if WIFSTOPPED($?) is true)
-+
-+=back
-+
-+=back
-+
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_4.patch b/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_4.patch
deleted file mode 100644
index 98bf074..0000000
--- a/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_4.patch
+++ /dev/null
@@ -1,57 +0,0 @@
-Upstream-Status:Inappropriate [Backport]
-
-commit 43c0c913165d6abe1bc0cb45a784eb1c32c3700b
-Author: Nicholas Clark <nick at ccl4.org>
-Date: Mon Feb 14 09:06:42 2011 +0000
-
- For miniperl, use the USE_SITECUSTOMIZE feature to load the build-time @INC
-
- For miniperl (only), always enable USE_SITECUSTOMIZE, but change it to load
- a buildcustomize.pl file from $INC[0], if present. The default @INC for
- miniperl is '.', so by default this does nothing.
-
-diff --git a/perl.c b/perl.c
-index 8f8565d..6bb9f46 100644
---- a/perl.c
-+++ b/perl.c
-@@ -24,6 +24,10 @@
- * function of the interpreter; that can be found in perlmain.c
- */
-
-+#ifdef PERL_IS_MINIPERL
-+# define USE_SITECUSTOMIZE
-+#endif
-+
- #include "EXTERN.h"
- #define PERL_IN_PERL_C
- #include "perl.h"
-@@ -1973,15 +1977,26 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
- }
- }
-
--#if defined(USE_SITECUSTOMIZE) && !defined(PERL_IS_MINIPERL)
-+#if defined(USE_SITECUSTOMIZE)
- if (!minus_f) {
-- /* SITELIB_EXP is a function call on Win32.
-- The games with local $! are to avoid setting errno if there is no
-+ /* The games with local $! are to avoid setting errno if there is no
- sitecustomize script. */
-+# ifdef PERL_IS_MINIPERL
-+ AV *const inc = GvAV(PL_incgv);
-+ SV **const inc0 = inc ? av_fetch(inc, 0, FALSE) : NULL;
-+
-+ if (inc0) {
-+ (void)Perl_av_create_and_unshift_one(aTHX_ &PL_preambleav,
-+ Perl_newSVpvf(aTHX_
-+ "BEGIN { do {local $!; -f '%"SVf"/buildcustomize.pl'} && do '%"SVf"/buildcustomize.pl' }", *inc0, *inc0));
-+ }
-+# else
-+ /* SITELIB_EXP is a function call on Win32. */
- const char *const sitelib = SITELIB_EXP;
- (void)Perl_av_create_and_unshift_one(aTHX_ &PL_preambleav,
- Perl_newSVpvf(aTHX_
- "BEGIN { do {local $!; -f '%s/sitecustomize.pl'} && do '%s/sitecustomize.pl' }", sitelib, sitelib));
-+# endif
- }
- #endif
-
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_5.patch b/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_5.patch
deleted file mode 100644
index 5891ee6..0000000
--- a/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_5.patch
+++ /dev/null
@@ -1,430 +0,0 @@
-Upstream-Status:Inappropriate [Backport]
-
-Rebased by Nitin A Kamble <nitin.a.kamble at intel.com> on 3/11/2011
-
-commit 5e4c4c91bd52a48de59520d5e9b4e3478e49c613
-Author: Nicholas Clark <nick at ccl4.org>
-Date: Mon Feb 14 10:14:18 2011 +0000
-
- Use a buildcustomize.pl to set @INC in miniperl when building extensions.
-
- With the build tools now shipped in various subdirectories of cpan/ and dist/
- we need to add several paths to @INC when invoking MakeMaker (etc) to build
- extensions.
-
- The previous approach of using $ENV{PERL5LIB} was fragile, because:
- a: It was hitting the length limit for %ENV variables on VMS
- b: It was running the risk of race conditions in a parallel build -
- ExtUtils::Makemaker "knows" to add -I../..lib, which puts lib at the *front*
- of @INC, but if one parallel process happens to copy a module into lib/
- whilst another is searching for it, the second may get a partial read
- c: Overwriting $ENV{PERL5LIB} breaks any system where any of the installed
- build tools are actually implemented in Perl, if they are relying on
- $ENV{PERL5LIB} for setup
-
- This approach
-
- a: Doesn't have %ENV length limits
- b: Ensures that lib/ is last, so copy targets are always shadowing copy
- sources
- c: Only affects miniperl, and doesn't touch $ENV{PERL5LIB}
-
- Approaches that turned out to have fatal flaws:
-
- 1: Using $ENV{PERL5OPT} with a module fails because ExtUtils::MakeMaker
- searches for the build perl without setting lib, and treats the error
- caused by a failed -M as "not a valid perl 5 binary"
- 2: Refactoring ExtUtils::MakeMaker to *not* use -I for lib, and instead rely
- on $ENV{PERL5LIB} [which includes "../../lib"] fails because:
- some extensions have subdirectories, and on these EU::MM correctly uses
- -I../../../lib, where as $ENV{PERL5LIB} only has space for relative paths,
- and only with two levels.
-
- This approach actually takes advantage of ExtUtils::MakeMaker setting an -I
- option correct for the depth of directory being built.
-
-Index: perl-5.12.3/Cross/Makefile-cross-SH
-===================================================================
---- perl-5.12.3.orig/Cross/Makefile-cross-SH
-+++ perl-5.12.3/Cross/Makefile-cross-SH
-@@ -324,7 +324,7 @@ $spitshell >>$Makefile <<'!NO!SUBS!'
-
- CONFIGPM = xlib/$(CROSS_NAME)/Config.pm
-
--private = preplibrary $(CONFIGPM) $(CROSS_LIB)/Config.pod
-+private = preplibrary $(CONFIGPM) $(CROSS_LIB)/Config.pod lib/buildcustomize.pl
-
- shextract = Makefile cflags config.h makeaperl makedepend \
- makedir myconfig writemain pod/Makefile
-@@ -752,6 +752,9 @@ lib/lib.pm: miniperl $(CONFIGPM)
- @-rm -f $@
- $(LDLIBPTH) ./miniperl -Ilib -MCross lib/lib_pm.PL
-
-+lib/buildcustomize.pl: $(MINIPERL_EXE) write_buildcustomize.pl
-+ $(MINIPERL) write_buildcustomize.pl >lib/buildcustomize.pl
-+
- unidatafiles $(unidatafiles): uni.data
-
- uni.data: miniperl$(EXE_EXT) $(CONFIGPM) lib/unicore/mktables
-@@ -922,16 +925,16 @@ manicheck: FORCE
-
-
-
--$(DYNALOADER): preplibrary FORCE
-+$(DYNALOADER): lib/buildcustomize.pl preplibrary FORCE
- @$(LDLIBPTH) $(RUN) ./miniperl$(EXE_EXT) -Ilib make_ext.pl --cross $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL) LINKTYPE=static $(STATIC_LDFLAGS)
-
--d_dummy $(dynamic_ext): miniperl$(EXE_EXT) preplibrary makeppport $(DYNALOADER) FORCE
-+d_dummy $(dynamic_ext): miniperl$(EXE_EXT) lib/buildcustomize.pl preplibrary makeppport $(DYNALOADER) FORCE
- @$(LDLIBPTH) $(RUN) ./miniperl$(EXE_EXT) -Ilib make_ext.pl --cross $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL) LINKTYPE=dynamic
-
--s_dummy $(static_ext): miniperl$(EXE_EXT) preplibrary makeppport $(DYNALOADER) FORCE
-+s_dummy $(static_ext): miniperl$(EXE_EXT) lib/buildcustomize.pl preplibrary makeppport $(DYNALOADER) FORCE
- @$(LDLIBPTH) $(RUN) ./miniperl$(EXE_EXT) -Ilib make_ext.pl --cross $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL) LINKTYPE=static $(STATIC_LDFLAGS)
-
--n_dummy $(nonxs_ext): miniperl$(EXE_EXT) preplibrary $(DYNALOADER) FORCE
-+n_dummy $(nonxs_ext): miniperl$(EXE_EXT) lib/buildcustomize.pl preplibrary $(DYNALOADER) FORCE
- @$(LDLIBPTH) $(RUN) ./miniperl$(EXE_EXT) -Ilib make_ext.pl --cross $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL)
- !NO!SUBS!
-
-Index: perl-5.12.3/MANIFEST
-===================================================================
---- perl-5.12.3.orig/MANIFEST
-+++ perl-5.12.3/MANIFEST
-@@ -4747,6 +4747,7 @@ win32/wince.c WinCE port
- win32/wince.h WinCE port
- win32/wincesck.c WinCE port
- writemain.SH Generate perlmain.c from miniperlmain.c+extensions
-+write_buildcustomize.pl Generate lib/buildcustomize.pl
- x2p/a2p.c Output of a2p.y run through byacc
- x2p/a2p.h Global declarations
- x2p/a2p.pod Pod for awk to perl translator
-Index: perl-5.12.3/Makefile.SH
-===================================================================
---- perl-5.12.3.orig/Makefile.SH
-+++ perl-5.12.3/Makefile.SH
-@@ -428,7 +428,7 @@ esac
- ## In the following dollars and backticks do not need the extra backslash.
- $spitshell >>$Makefile <<'!NO!SUBS!'
-
--private = preplibrary $(CONFIGPM) $(CONFIGPOD) lib/ExtUtils/Miniperl.pm git_version.h
-+private = preplibrary $(CONFIGPM) $(CONFIGPOD) lib/ExtUtils/Miniperl.pm git_version.h lib/buildcustomize.pl
-
- # Files to be built with variable substitution before miniperl
- # is available.
-@@ -991,6 +991,9 @@ $(plextract): $(MINIPERL_EXE) $(CONFIGPM
- x2p/s2p: $(MINIPERL_EXE) $(CONFIGPM) $(dynamic_ext) x2p/s2p.PL
- cd x2p; $(LDLIBPTH) $(MAKE) s2p
-
-+lib/buildcustomize.pl: $(MINIPERL_EXE) write_buildcustomize.pl
-+ $(MINIPERL) write_buildcustomize.pl >lib/buildcustomize.pl
-+
- unidatafiles $(unidatafiles) pod/perluniprops.pod: uni.data
-
- uni.data: $(MINIPERL_EXE) $(CONFIGPM) lib/unicore/mktables $(nonxs_ext)
-@@ -1160,16 +1163,16 @@ manicheck: FORCE
- #
- # DynaLoader may be needed for extensions that use Makefile.PL.
-
--$(DYNALOADER): $(MINIPERL_EXE) preplibrary FORCE $(nonxs_ext)
-+$(DYNALOADER): $(MINIPERL_EXE) lib/buildcustomize.pl preplibrary FORCE $(nonxs_ext)
- $(MINIPERL) make_ext.pl $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL) LINKTYPE=static $(STATIC_LDFLAGS)
-
--d_dummy $(dynamic_ext): $(MINIPERL_EXE) preplibrary makeppport $(DYNALOADER) FORCE $(PERLEXPORT)
-+d_dummy $(dynamic_ext): $(MINIPERL_EXE) lib/buildcustomize.pl preplibrary makeppport $(DYNALOADER) FORCE $(PERLEXPORT)
- $(MINIPERL) make_ext.pl $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL) LINKTYPE=dynamic
-
--s_dummy $(static_ext): $(MINIPERL_EXE) preplibrary makeppport $(DYNALOADER) FORCE
-+s_dummy $(static_ext): $(MINIPERL_EXE) lib/buildcustomize.pl preplibrary makeppport $(DYNALOADER) FORCE
- $(MINIPERL) make_ext.pl $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL) LINKTYPE=static $(STATIC_LDFLAGS)
-
--n_dummy $(nonxs_ext): $(MINIPERL_EXE) preplibrary FORCE
-+n_dummy $(nonxs_ext): $(MINIPERL_EXE) lib/buildcustomize.pl preplibrary FORCE
- $(MINIPERL) make_ext.pl $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL)
- !NO!SUBS!
-
-Index: perl-5.12.3/installperl
-===================================================================
---- perl-5.12.3.orig/installperl
-+++ perl-5.12.3/installperl
-@@ -714,6 +714,8 @@ sub installlib {
- # ignore the test extensions
- return if $dir =~ m{\bXS/(?:APItest|Typemap)\b};
- return if $name =~ m{\b(?:APItest|Typemap)\.pm$};
-+ # ignore the build support code
-+ return if $name =~ /\bbuildcustomize\.pl$/;
- # ignore the demo files
- return if $dir =~ /\b(?:demos?|eg)\b/;
-
-Index: perl-5.12.3/make_ext.pl
-===================================================================
---- perl-5.12.3.orig/make_ext.pl
-+++ perl-5.12.3/make_ext.pl
-@@ -4,11 +4,9 @@ use warnings;
- use Config;
- BEGIN {
- if ($^O eq 'MSWin32') {
-- unshift @INC, ('../cpan/Cwd', '../cpan/Cwd/lib');
-- require File::Spec::Functions;
-+ unshift @INC, '../cpan/Cwd';
- require FindExt;
-- }
-- else {
-+ } else {
- unshift @INC, 'cpan/Cwd';
- }
- }
-@@ -18,27 +16,6 @@ my $is_Win32 = $^O eq 'MSWin32';
- my $is_VMS = $^O eq 'VMS';
- my $is_Unix = !$is_Win32 && !$is_VMS;
-
--# To clarify, this isn't the entire suite of modules considered "toolchain"
--# It's not even all modules needed to build ext/
--# It's just the source paths of the (minimum complete set of) modules in ext/
--# needed to build the nonxs modules
--# After which, all nonxs modules are in lib, which was always sufficient to
--# allow miniperl to build everything else.
--
--# This list cannot get any longer without overflowing the length limit for
--# environment variables on VMS
--my @toolchain = qw(cpan/AutoLoader/lib
-- cpan/Cwd cpan/Cwd/lib
-- cpan/ExtUtils-Command/lib
-- dist/ExtUtils-Install/lib
-- cpan/ExtUtils-MakeMaker/lib
-- cpan/ExtUtils-Manifest/lib
-- cpan/File-Path/lib
-- );
--
--# Used only in ExtUtils::Liblist::Kid::_win32_ext()
--push @toolchain, 'cpan/Text-ParseWords/lib' if $is_Win32;
--
- my @ext_dirs = qw(cpan dist ext);
- my $ext_dirs_re = '(?:' . join('|', @ext_dirs) . ')';
-
-@@ -295,16 +272,7 @@ sub build_extension {
- $perl ||= "$up/miniperl";
- my $return_dir = $up;
- my $lib_dir = "$up/lib";
-- # $lib_dir must be last, as we're copying files into it, and in a parallel
-- # make there's a race condition if one process tries to open a module that
-- # another process has half-written.
-- my @new_inc = ((map {"$up/$_"} @toolchain), $lib_dir);
-- if ($is_Win32) {
-- @new_inc = map {File::Spec::Functions::rel2abs($_)} @new_inc;
-- }
-- $ENV{PERL5LIB} = join $Config{path_sep}, @new_inc;
- $ENV{PERL_CORE} = 1;
-- # warn $ENV{PERL5LIB};
-
- my $makefile;
- if ($is_VMS) {
-@@ -375,7 +343,7 @@ EOM
- @cross = '-MCross';
- }
-
-- my @args = (@cross, 'Makefile.PL');
-+ my @args = ("-I$lib_dir", @cross, 'Makefile.PL');
- if ($is_VMS) {
- my $libd = VMS::Filespec::vmspath($lib_dir);
- push @args, "INST_LIB=$libd", "INST_ARCHLIB=$libd";
-Index: perl-5.12.3/vms/descrip_mms.template
-===================================================================
---- perl-5.12.3.orig/vms/descrip_mms.template
-+++ perl-5.12.3/vms/descrip_mms.template
-@@ -360,7 +360,7 @@ CRTLOPTS =,$(CRTL)/Options
- unidatadirs = lib/unicore/To lib/unicore/lib
-
- # Modules which must be installed before we can build extensions
--LIBPREREQ = $(ARCHDIR)Config.pm $(ARCHDIR)Config_heavy.pl [.lib.VMS]Filespec.pm $(ARCHDIR)vmspipe.com [.lib]re.pm
-+LIBPREREQ = $(ARCHDIR)Config.pm $(ARCHDIR)Config_heavy.pl [.lib.VMS]Filespec.pm $(ARCHDIR)vmspipe.com [.lib]re.pm [.lib]buildcustomize.pl
-
- utils1 = [.lib.pods]perldoc.com [.lib.ExtUtils]Miniperl.pm [.utils]c2ph.com [.utils]h2ph.com
- utils2 = [.utils]h2xs.com [.utils]libnetcfg.com [.lib]perlbug.com [.utils]dprofpp.com
-@@ -458,6 +458,9 @@ archcorefiles : $(ac) $(ARCHAUTO)time.st
- [.lib]re.pm : [.ext.re]re.pm
- Copy/NoConfirm/Log $(MMS$SOURCE) [.lib]
-
-+[.lib]buildcustomize.pl : write_buildcustomize.pl $(MINIPERL_EXE)
-+ $(MINIPERL) write_buildcustomize.pl > [.lib]buildcustomize.pl
-+
- vmspipe.com : [.vms]vmspipe.com
- Copy/NoConfirm/Log $(MMS$SOURCE) []
-
-@@ -561,7 +564,7 @@ unidatafiles.ts : $(MINIPERL_EXE) [.lib]
- @ If F$Search("$(MMS$TARGET)").nes."" Then Delete/NoLog/NoConfirm $(MMS$TARGET);*
- @ Copy/NoConfirm _NLA0: $(MMS$TARGET)
-
--DynaLoader$(O) : $(ARCHDIR)Config.pm $(MINIPERL_EXE) [.lib.VMS]Filespec.pm
-+DynaLoader$(O) : [.lib]buildcustomize.pl $(ARCHDIR)Config.pm $(MINIPERL_EXE) [.lib.VMS]Filespec.pm
- $(MINIPERL) make_ext.pl "MAKE=$(MMS)" "DynaLoader"
-
- dynext : $(LIBPREREQ) $(DBG)perlshr$(E) unidatafiles.ts DynaLoader$(O) preplibrary makeppport $(MINIPERL_EXE)
-@@ -1856,6 +1859,7 @@ tidy : cleanlis
- - If F$Search("[.utils]*.com;-1").nes."" Then Purge/NoConfirm/Log [.utils]*.com
- - If F$Search("[.x2p]*.com;-1").nes."" Then Purge/NoConfirm/Log [.x2p]*.com
- - If F$Search("[.lib.pods]*.com;-1").nes."" Then Purge/NoConfirm/Log [.lib.pods]*.com
-+ - If F$Search("[.lib]buildcustomize.pl;-1").nes."" Then Purge/NoConfirm/Log [.lib]buildcustomize.pl
-
- clean : tidy cleantest
- - $(MINIPERL) make_ext.pl "MAKE=$(MMS)" "--all" "--target=clean"
-Index: perl-5.12.3/win32/Makefile
-===================================================================
---- perl-5.12.3.orig/win32/Makefile
-+++ perl-5.12.3/win32/Makefile
-@@ -923,6 +923,9 @@ $(CONFIGPM) : $(MINIPERL) ..\config.sh c
- -$(MINIPERL) -I..\lib $(ICWD) config_h.PL "INST_VER=$(INST_VER)"
- if errorlevel 1 $(MAKE) /$(MAKEFLAGS) $(CONFIGPM)
-
-+..\lib\buildcustomize.pl: $(MINIPERL) ..\write_buildcustomize.pl
-+ $(MINIPERL) -I..\lib ..\write_buildcustomize.pl .. >..\lib\buildcustomize.pl
-+
- $(MINIPERL) : $(MINIDIR) $(MINI_OBJ)
- $(LINK32) -subsystem:console -out:$@ @<<
- $(LINK_FLAGS) $(LIBFILES) $(MINI_OBJ)
-@@ -1045,24 +1048,24 @@ MakePPPort: $(MINIPERL) $(CONFIGPM) Exte
- #-------------------------------------------------------------------------------
- # There's no direct way to mark a dependency on
- # DynaLoader.pm, so this will have to do
--Extensions: ..\make_ext.pl $(PERLDEP) $(CONFIGPM) $(DYNALOADER)
-+Extensions: ..\make_ext.pl ..\lib\buildcustomize.pl $(PERLDEP) $(CONFIGPM) $(DYNALOADER)
- $(XCOPY) ..\*.h $(COREDIR)\*.*
- $(MINIPERL) -I..\lib ..\make_ext.pl "MAKE=$(MAKE)" --dir=$(CPANDIR) --dir=$(DISTDIR) --dir=$(EXTDIR) --dynamic
-
--Extensions_reonly: ..\make_ext.pl $(PERLDEP) $(CONFIGPM) $(DYNALOADER)
-+Extensions_reonly: ..\make_ext.pl ..\lib\buildcustomize.pl $(PERLDEP) $(CONFIGPM) $(DYNALOADER)
- $(XCOPY) ..\*.h $(COREDIR)\*.*
- $(MINIPERL) -I..\lib ..\make_ext.pl "MAKE=$(MAKE)" --dir=$(CPANDIR) --dir=$(DISTDIR) --dir=$(EXTDIR) --dynamic +re
-
--Extensions_static : ..\make_ext.pl list_static_libs.pl $(PERLDEP) $(CONFIGPM)
-+Extensions_static : ..\make_ext.pl ..\lib\buildcustomize.pl list_static_libs.pl $(PERLDEP) $(CONFIGPM)
- $(XCOPY) ..\*.h $(COREDIR)\*.*
- $(MINIPERL) -I..\lib ..\make_ext.pl "MAKE=$(MAKE)" --dir=$(CPANDIR) --dir=$(DISTDIR) --dir=$(EXTDIR) --static
- $(MINIPERL) -I..\lib list_static_libs.pl > Extensions_static
-
--Extensions_nonxs: ..\make_ext.pl $(PERLDEP) $(CONFIGPM)
-+Extensions_nonxs: ..\make_ext.pl ..\lib\buildcustomize.pl $(PERLDEP) $(CONFIGPM)
- $(XCOPY) ..\*.h $(COREDIR)\*.*
- $(MINIPERL) -I..\lib ..\make_ext.pl "MAKE=$(MAKE)" --dir=$(CPANDIR) --dir=$(DISTDIR) --dir=$(EXTDIR) --nonxs
-
--$(DYNALOADER) : ..\make_ext.pl $(PERLDEP) $(CONFIGPM) Extensions_nonxs
-+$(DYNALOADER) : ..\make_ext.pl ..\lib\buildcustomize.pl $(PERLDEP) $(CONFIGPM) Extensions_nonxs
- $(XCOPY) ..\*.h $(COREDIR)\*.*
- $(MINIPERL) -I..\lib ..\make_ext.pl "MAKE=$(MAKE)" --dir=$(EXTDIR) --dynaloader
-
-@@ -1159,6 +1162,7 @@ distclean: realclean
- -del /f $(LIBDIR)\Win32CORE.pm
- -del /f $(LIBDIR)\Win32API\File.pm
- -del /f $(LIBDIR)\Win32API\File\cFile.pc
-+ -del /f $(LIBDIR)\buildcustomize.pl
- -del /f $(DISTDIR)\XSLoader\XSLoader.pm
- -if exist $(LIBDIR)\App rmdir /s /q $(LIBDIR)\App
- -if exist $(LIBDIR)\Archive rmdir /s /q $(LIBDIR)\Archive
-Index: perl-5.12.3/win32/makefile.mk
-===================================================================
---- perl-5.12.3.orig/win32/makefile.mk
-+++ perl-5.12.3/win32/makefile.mk
-@@ -1215,6 +1215,10 @@ $(CONFIGPM) : $(MINIPERL) ..\config.sh c
- $(MINIPERL) -I..\lib $(ICWD) config_h.PL "INST_VER=$(INST_VER)" \
- || $(MAKE) $(MAKEMACROS) $(CONFIGPM) $(MAKEFILE)
-
-+..\lib\buildcustomize.pl: $(MINIPERL) ..\write_buildcustomize.pl
-+ $(MINIPERL) -I..\lib ..\write_buildcustomize.pl .. >..\lib\buildcustomize.pl
-+
-+
- $(MINIPERL) : $(MINIDIR) $(MINI_OBJ) $(CRTIPMLIBS)
- .IF "$(CCTYPE)" == "BORLAND"
- if not exist $(CCLIBDIR)\PSDK\odbccp32.lib \
-@@ -1423,24 +1427,24 @@ MakePPPort: $(MINIPERL) $(CONFIGPM) Exte
- #-------------------------------------------------------------------------------
- # There's no direct way to mark a dependency on
- # DynaLoader.pm, so this will have to do
--Extensions : ..\make_ext.pl $(PERLDEP) $(CONFIGPM) $(DYNALOADER)
-+Extensions : ..\make_ext.pl ..\lib\buildcustomize.pl $(PERLDEP) $(CONFIGPM) $(DYNALOADER)
- $(XCOPY) ..\*.h $(COREDIR)\*.*
- $(MINIPERL) -I..\lib ..\make_ext.pl "MAKE=$(MAKE)" --dir=$(CPANDIR) --dir=$(DISTDIR) --dir=$(EXTDIR) --dynamic
-
--Extensions_reonly : ..\make_ext.pl $(PERLDEP) $(CONFIGPM) $(DYNALOADER)
-+Extensions_reonly : ..\make_ext.pl ..\lib\buildcustomize.pl $(PERLDEP) $(CONFIGPM) $(DYNALOADER)
- $(XCOPY) ..\*.h $(COREDIR)\*.*
- $(MINIPERL) -I..\lib ..\make_ext.pl "MAKE=$(MAKE)" --dir=$(CPANDIR) --dir=$(DISTDIR) --dir=$(EXTDIR) --dynamic +re
-
--Extensions_static : ..\make_ext.pl list_static_libs.pl $(PERLDEP) $(CONFIGPM)
-+Extensions_static : ..\make_ext.pl ..\lib\buildcustomize.pl list_static_libs.pl $(PERLDEP) $(CONFIGPM)
- $(XCOPY) ..\*.h $(COREDIR)\*.*
- $(MINIPERL) -I..\lib ..\make_ext.pl "MAKE=$(MAKE)" --dir=$(CPANDIR) --dir=$(DISTDIR) --dir=$(EXTDIR) --static
- $(MINIPERL) -I..\lib list_static_libs.pl > Extensions_static
-
--Extensions_nonxs : ..\make_ext.pl $(PERLDEP) $(CONFIGPM)
-+Extensions_nonxs : ..\make_ext.pl ..\lib\buildcustomize.pl $(PERLDEP) $(CONFIGPM)
- $(XCOPY) ..\*.h $(COREDIR)\*.*
- $(MINIPERL) -I..\lib ..\make_ext.pl "MAKE=$(MAKE)" --dir=$(CPANDIR) --dir=$(DISTDIR) --dir=$(EXTDIR) --nonxs
-
--$(DYNALOADER) : ..\make_ext.pl $(PERLDEP) $(CONFIGPM) Extensions_nonxs
-+$(DYNALOADER) : ..\make_ext.pl ..\lib\buildcustomize.pl $(PERLDEP) $(CONFIGPM) Extensions_nonxs
- $(XCOPY) ..\*.h $(COREDIR)\*.*
- $(MINIPERL) -I..\lib ..\make_ext.pl "MAKE=$(MAKE)" --dir=$(EXTDIR) --dynaloader
-
-@@ -1534,6 +1538,7 @@ distclean: realclean
- -del /f $(LIBDIR)\Win32CORE.pm
- -del /f $(LIBDIR)\Win32API\File.pm
- -del /f $(LIBDIR)\Win32API\File\cFile.pc
-+ -del /f $(LIBDIR)\buildcustomize.pl
- -del /f $(DISTDIR)\XSLoader\XSLoader.pm
- -if exist $(LIBDIR)\App rmdir /s /q $(LIBDIR)\App
- -if exist $(LIBDIR)\Archive rmdir /s /q $(LIBDIR)\Archive
-Index: perl-5.12.3/write_buildcustomize.pl
-===================================================================
---- /dev/null
-+++ perl-5.12.3/write_buildcustomize.pl
-@@ -0,0 +1,50 @@
-+#!./miniperl -w
-+
-+use strict;
-+if (@ARGV) {
-+ my $dir = shift;
-+ chdir $dir or die "Can't chdir '$dir': $!";
-+ unshift @INC, 'lib';
-+}
-+
-+unshift @INC, ('cpan/Cwd', 'cpan/Cwd/lib');
-+require File::Spec::Functions;
-+
-+# To clarify, this isn't the entire suite of modules considered "toolchain"
-+# It's not even all modules needed to build ext/
-+# It's just the source paths of the (minimum complete set of) modules in ext/
-+# needed to build the nonxs modules
-+# After which, all nonxs modules are in lib, which was always sufficient to
-+# allow miniperl to build everything else.
-+
-+my @toolchain = qw(cpan/AutoLoader/lib
-+ cpan/Cwd cpan/Cwd/lib
-+ cpan/ExtUtils-Command/lib
-+ dist/ExtUtils-Install/lib
-+ cpan/ExtUtils-MakeMaker/lib
-+ cpan/ExtUtils-Manifest/lib
-+ cpan/File-Path/lib
-+ );
-+
-+# Used only in ExtUtils::Liblist::Kid::_win32_ext()
-+push @toolchain, 'cpan/Text-ParseWords/lib' if $^O eq 'MSWin32';
-+
-+# lib must be last, as the the toolchain modules write themselves into it
-+# as they build, and it's important that @INC order ensures that the partially
-+# written files are always masked by the complete versions.
-+
-+my $inc = join ",\n ",
-+ map { "q\0$_\0" }
-+ (map {File::Spec::Functions::rel2abs($_)} @toolchain, 'lib'), '.';
-+
-+# If any of the system's build tools are written in Perl, then this module
-+# may well be loaded by a much older version than we are building. So keep it
-+# as backwards compatible as is easy.
-+print <<"EOT";
-+#!perl
-+
-+# We are miniperl, building extensions
-+# Reset \@INC completely, adding the directories we need, and removing the
-+# installed directories (which we don't need to read, and may confuse us)
-+\@INC = ($inc);
-+EOT
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_6.patch b/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_6.patch
deleted file mode 100644
index 4267739..0000000
--- a/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_6.patch
+++ /dev/null
@@ -1,158 +0,0 @@
-Upstream-Status:Inappropriate [Backport]
-
-Rebased by Nitin A Kamble <nitin.a.kamble at intel.com> on 3/11/2011
-
-commit 7353f64c5bca6e7102582a1e0017c850930249c3
-Author: Nicholas Clark <nick at ccl4.org>
-Date: Mon Feb 14 20:36:36 2011 +0000
-
- Add ext/re/re.pm to the @INC set for miniperl by lib/buildcustomize.pl
-
- This avoids a build-time race condition where lib/re.pm might be read midway
- through the *second* copy of it (when ext/re/Makefile is being run). It also
- simplifies many [Mm]akefile* rules, which previously had a special case to
- copy it early.
-
-Index: perl-5.12.3/Cross/Makefile-cross-SH
-===================================================================
---- perl-5.12.3.orig/Cross/Makefile-cross-SH
-+++ perl-5.12.3/Cross/Makefile-cross-SH
-@@ -727,7 +727,7 @@ fi
- $spitshell >>$Makefile <<'!NO!SUBS!'
-
- .PHONY: preplibrary
--preplibrary: miniperl $(CONFIGPM) lib/lib.pm lib/re.pm $(PREPLIBRARY_LIBPERL)
-+preplibrary: miniperl $(CONFIGPM) lib/lib.pm $(PREPLIBRARY_LIBPERL)
-
- .PHONY: makeppport
- makeppport: miniperl$(EXE_EXT) $(CONFIGPM)
-@@ -748,10 +748,6 @@ $(plextract): miniperl $(CONFIGPM) x2p/s
- @-rm -f $@
- $(LDLIBPTH) ./miniperl -I`pwd`/lib $@.PL
-
--lib/lib.pm: miniperl $(CONFIGPM)
-- @-rm -f $@
-- $(LDLIBPTH) ./miniperl -Ilib -MCross lib/lib_pm.PL
--
- lib/buildcustomize.pl: $(MINIPERL_EXE) write_buildcustomize.pl
- $(MINIPERL) write_buildcustomize.pl >lib/buildcustomize.pl
-
-@@ -1212,7 +1208,7 @@ minitest.prep:
-
- # Can't depend on lib/Config.pm because that might be where miniperl
- # is crashing.
--minitest: miniperl$(EXE_EXT) lib/re.pm minitest.prep
-+minitest: miniperl$(EXE_EXT) minitest.prep
- - cd t && (rm -f perl$(EXE_EXT); $(LNS) ../miniperl$(EXE_EXT) perl$(EXE_EXT)) \
- && $(LDLIBPTH) ./perl TEST -minitest base/*.t comp/*.t cmd/*.t run/*.t io/*.t op/*.t uni/*.t </dev/tty
-
-Index: perl-5.12.3/Makefile.SH
-===================================================================
---- perl-5.12.3.orig/Makefile.SH
-+++ perl-5.12.3/Makefile.SH
-@@ -970,7 +970,7 @@ esac
- $spitshell >>$Makefile <<'!NO!SUBS!'
-
- .PHONY: preplibrary
--preplibrary: $(MINIPERL_EXE) $(CONFIGPM) lib/re.pm $(PREPLIBRARY_LIBPERL)
-+preplibrary: $(MINIPERL_EXE) $(CONFIGPM) $(PREPLIBRARY_LIBPERL)
-
- $(CONFIGPM_FROM_CONFIG_SH): $(CONFIGPOD)
-
-@@ -980,10 +980,6 @@ $(CONFIGPOD): config.sh $(MINIPERL_EXE)
- lib/ExtUtils/Miniperl.pm: miniperlmain.c $(MINIPERL_EXE) minimod.pl $(CONFIGPM)
- $(MINIPERL) minimod.pl > lib/ExtUtils/Miniperl.pm
-
--lib/re.pm: ext/re/re.pm
-- @-rm -f $@
-- cp ext/re/re.pm lib/re.pm
--
- $(plextract): $(MINIPERL_EXE) $(CONFIGPM) x2p/s2p $(dynamic_ext)
- @-rm -f $@
- $(MINIPERL) $@.PL
-@@ -1267,7 +1263,7 @@ _cleaner2:
- rm -f lib/.exists lib/*/.exists lib/*/*/.exists
- rm -f h2ph.man pstruct
- rm -rf .config
-- rm -f preload lib/re.pm
-+ rm -f preload
- rm -rf lib/Encode lib/Compress lib/Hash lib/re
- rm -rf lib/TAP lib/Module/Pluggable lib/App
- rm -rf lib/mro
-@@ -1464,7 +1460,7 @@ minitest.prep:
-
- # Can't depend on lib/Config.pm because that might be where miniperl
- # is crashing.
--minitest: $(MINIPERL_EXE) lib/re.pm minitest.prep
-+minitest: $(MINIPERL_EXE) minitest.prep
- - cd t && (rm -f $(PERL_EXE); $(LNS) ../$(MINIPERL_EXE) $(PERL_EXE)) \
- && $(RUN_PERL) TEST -minitest base/*.t comp/*.t cmd/*.t run/*.t io/*.t re/*.t op/*.t uni/*.t </dev/tty
-
-Index: perl-5.12.3/vms/descrip_mms.template
-===================================================================
---- perl-5.12.3.orig/vms/descrip_mms.template
-+++ perl-5.12.3/vms/descrip_mms.template
-@@ -360,7 +360,7 @@ CRTLOPTS =,$(CRTL)/Options
- unidatadirs = lib/unicore/To lib/unicore/lib
-
- # Modules which must be installed before we can build extensions
--LIBPREREQ = $(ARCHDIR)Config.pm $(ARCHDIR)Config_heavy.pl [.lib.VMS]Filespec.pm $(ARCHDIR)vmspipe.com [.lib]re.pm [.lib]buildcustomize.pl
-+LIBPREREQ = $(ARCHDIR)Config.pm $(ARCHDIR)Config_heavy.pl [.lib.VMS]Filespec.pm $(ARCHDIR)vmspipe.com [.lib]buildcustomize.pl
-
- utils1 = [.lib.pods]perldoc.com [.lib.ExtUtils]Miniperl.pm [.utils]c2ph.com [.utils]h2ph.com
- utils2 = [.utils]h2xs.com [.utils]libnetcfg.com [.lib]perlbug.com [.utils]dprofpp.com
-@@ -455,9 +455,6 @@ pod = $(pod0) $(pod1) $(pod2) $(pod3) $(
- archcorefiles : $(ac) $(ARCHAUTO)time.stamp
- @ $(NOOP)
-
--[.lib]re.pm : [.ext.re]re.pm
-- Copy/NoConfirm/Log $(MMS$SOURCE) [.lib]
--
- [.lib]buildcustomize.pl : write_buildcustomize.pl $(MINIPERL_EXE)
- $(MINIPERL) write_buildcustomize.pl > [.lib]buildcustomize.pl
-
-@@ -1487,7 +1484,7 @@ test_harness : all [.t.lib]vmsfspec.t
- - @[.vms]test.com "$(E)" "$(__DEBUG__)"
- @ $(MINIPERL) -e "print ""Ran tests"";" > [.t]rantests.
-
--minitest : $(MINITEST_EXE) [.lib]re.pm [.lib.VMS]Filespec.pm unidatafiles.ts
-+minitest : $(MINITEST_EXE) [.lib.VMS]Filespec.pm unidatafiles.ts
- @ PERL_TEST_DRIVER == "minitest"
- - @[.vms]test.com "$(E)" "$(__DEBUG__)"
-
-Index: perl-5.12.3/win32/Makefile
-===================================================================
---- perl-5.12.3.orig/win32/Makefile
-+++ perl-5.12.3/win32/Makefile
-@@ -918,7 +918,6 @@ $(CONFIGPM) : $(MINIPERL) ..\config.sh c
- if exist lib\* $(RCOPY) lib\*.* ..\lib\$(NULL)
- $(XCOPY) ..\*.h $(COREDIR)\*.*
- $(XCOPY) *.h $(COREDIR)\*.*
-- $(XCOPY) ..\ext\re\re.pm $(LIBDIR)\*.*
- $(RCOPY) include $(COREDIR)\*.*
- -$(MINIPERL) -I..\lib $(ICWD) config_h.PL "INST_VER=$(INST_VER)"
- if errorlevel 1 $(MAKE) /$(MAKEFLAGS) $(CONFIGPM)
-Index: perl-5.12.3/win32/makefile.mk
-===================================================================
---- perl-5.12.3.orig/win32/makefile.mk
-+++ perl-5.12.3/win32/makefile.mk
-@@ -1210,7 +1210,6 @@ $(CONFIGPM) : $(MINIPERL) ..\config.sh c
- if exist lib\* $(RCOPY) lib\*.* ..\lib\$(NULL)
- $(XCOPY) ..\*.h $(COREDIR)\*.*
- $(XCOPY) *.h $(COREDIR)\*.*
-- $(XCOPY) ..\ext\re\re.pm $(LIBDIR)\*.*
- $(RCOPY) include $(COREDIR)\*.*
- $(MINIPERL) -I..\lib $(ICWD) config_h.PL "INST_VER=$(INST_VER)" \
- || $(MAKE) $(MAKEMACROS) $(CONFIGPM) $(MAKEFILE)
-Index: perl-5.12.3/write_buildcustomize.pl
-===================================================================
---- perl-5.12.3.orig/write_buildcustomize.pl
-+++ perl-5.12.3/write_buildcustomize.pl
-@@ -24,6 +24,7 @@ my @toolchain = qw(cpan/AutoLoader/lib
- cpan/ExtUtils-MakeMaker/lib
- dist/ExtUtils-Manifest/lib
- cpan/File-Path/lib
-+ ext/re
- );
-
- # Used only in ExtUtils::Liblist::Kid::_win32_ext()
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/09_fix_installperl.patch b/meta/recipes-devtools/perl/perl-5.14.2/09_fix_installperl.patch
similarity index 100%
rename from meta/recipes-devtools/perl/perl-5.12.3/09_fix_installperl.patch
rename to meta/recipes-devtools/perl/perl-5.14.2/09_fix_installperl.patch
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/Configure-multilib.patch b/meta/recipes-devtools/perl/perl-5.14.2/Configure-multilib.patch
similarity index 100%
rename from meta/recipes-devtools/perl/perl-5.12.3/Configure-multilib.patch
rename to meta/recipes-devtools/perl/perl-5.14.2/Configure-multilib.patch
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/MM_Unix.pm.patch b/meta/recipes-devtools/perl/perl-5.14.2/MM_Unix.pm.patch
similarity index 100%
rename from meta/recipes-devtools/perl/perl-5.12.3/MM_Unix.pm.patch
rename to meta/recipes-devtools/perl/perl-5.14.2/MM_Unix.pm.patch
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/Makefile.SH.patch b/meta/recipes-devtools/perl/perl-5.14.2/Makefile.SH.patch
similarity index 75%
rename from meta/recipes-devtools/perl/perl-5.12.3/Makefile.SH.patch
rename to meta/recipes-devtools/perl/perl-5.14.2/Makefile.SH.patch
index 6371a3d..c9fd5e2 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/Makefile.SH.patch
+++ b/meta/recipes-devtools/perl/perl-5.14.2/Makefile.SH.patch
@@ -1,29 +1,19 @@
Upstream-Status:Inappropriate [embedded specific]
-Index: perl-5.12.3/Makefile.SH
+Index: perl-5.14.2/Makefile.SH
===================================================================
---- perl-5.12.3.orig/Makefile.SH
-+++ perl-5.12.3/Makefile.SH
-@@ -50,12 +50,12 @@ case "$useshrplib" in
+--- perl-5.14.2.orig/Makefile.SH
++++ perl-5.14.2/Makefile.SH
+@@ -36,7 +36,7 @@ case "$useshrplib" in
true)
# Prefix all runs of 'miniperl' and 'perl' with
# $ldlibpth so that ./perl finds *this* shared libperl.
-- case "$LD_LIBRARY_PATH" in
-- '')
-- ldlibpth="LD_LIBRARY_PATH=`pwd`";;
-- *)
-- ldlibpth="LD_LIBRARY_PATH=`pwd`:${LD_LIBRARY_PATH}";;
-- esac
-+# case "$LD_LIBRARY_PATH" in
-+# '')
-+# ldlibpth="LD_LIBRARY_PATH=`pwd`";;
-+# *)
-+# ldlibpth="LD_LIBRARY_PATH=`pwd`:${LD_LIBRARY_PATH}";;
-+# esac
+- ldlibpth=LD_LIBRARY_PATH=`pwd`'$${LD_LIBRARY_PATH:+:}$$LD_LIBRARY_PATH'
++ #ldlibpth=LD_LIBRARY_PATH=`pwd`'$${LD_LIBRARY_PATH:+:}$$LD_LIBRARY_PATH'
pldlflags="$cccdlflags"
static_ldflags=''
-@@ -133,7 +133,8 @@ true)
+@@ -114,7 +114,8 @@ true)
ldlibpth=''
;;
*)
@@ -33,7 +23,7 @@ Index: perl-5.12.3/Makefile.SH
;;
esac
# Strip off any trailing :'s
-@@ -154,18 +155,7 @@ true)
+@@ -135,18 +136,7 @@ true)
# INSTALL file, under "Building a shared perl library".
# If there is no pre-existing $libperl, we don't need
# to do anything further.
@@ -53,7 +43,7 @@ Index: perl-5.12.3/Makefile.SH
;;
os390) test -f /bin/env && ldlibpth="/bin/env $ldlibpth"
;;
-@@ -557,9 +547,19 @@ splintfiles = $(c1)
+@@ -529,9 +519,19 @@ splintfiles = $(c1)
.c.s:
$(CCCMDSRC) -S $*.c
@@ -76,7 +66,7 @@ Index: perl-5.12.3/Makefile.SH
.PHONY: all translators utilities
-@@ -567,16 +567,16 @@ all: $(FIRSTMAKEFILE) $(MINIPERL_EXE) $(
+@@ -539,7 +539,7 @@ all: $(FIRSTMAKEFILE) $(MINIPERL_EXE) $(
# by make_patchnum.pl.
git_version.h: lib/Config_git.pl
@@ -85,18 +75,45 @@ Index: perl-5.12.3/Makefile.SH
$(MINIPERL) make_patchnum.pl
# make sure that we recompile perl.c if the git version changes
- perl$(OBJ_EXT): git_version.h
-
--translators: $(MINIPERL_EXE) $(CONFIGPM) $(dynamic_ext) FORCE
-+translators: $(CONFIGPM) $(dynamic_ext) FORCE
- @echo " "; echo " Making x2p stuff"; cd x2p; $(LDLIBPTH) $(MAKE) all
+@@ -552,8 +552,8 @@ perl$(OBJ_EXT): git_version.h
+ # loading, we need to build perl first.
+ case "$usedl" in
+ define)
+- util_deps='$(MINIPERL_EXE) $(CONFIGPM) lib/auto/Cwd/Cwd$(DLSUFFIX) FORCE'
+- x2p_deps='$(MINIPERL_EXE) $(CONFIGPM) $(dynamic_ext) FORCE'
++ util_deps='$(CONFIGPM) lib/auto/Cwd/Cwd$(DLSUFFIX) FORCE'
++ x2p_deps='$(CONFIGPM) $(dynamic_ext) FORCE'
+ ;;
+ *) util_deps='$(PERL_EXE) $(CONFIGPM) FORCE'
+ x2p_deps='$(PERL_EXE) $(CONFIGPM) FORCE'
+@@ -627,7 +627,7 @@ generate_uudmap$(HOST_EXE_EXT): generate
+ miniperlmain$(OBJ_EXT): miniperlmain.c patchlevel.h
+ $(CCCMD) $(PLDLFLAGS) $*.c
+
+-perlmain.c: $(MINIPERL_EXE) lib/ExtUtils/Miniperl.pm
++perlmain.c: lib/ExtUtils/Miniperl.pm
+ $(MINIPERL) -Ilib -MExtUtils::Miniperl -e 'writemain(@ARGV)' DynaLoader $(static_ext) > perlmain.c
+
+ perlmain$(OBJ_EXT): perlmain.c
+@@ -691,7 +691,7 @@ PERLEXPORT = perl.exp
+ ;;
+ esac
+ $spitshell >>$Makefile <<'!NO!SUBS!'
+-perl.exp: $(MINIPERLEXP) makedef.pl config.sh $(SYM) $(SYMH)
++perl.exp: makedef.pl config.sh $(SYM) $(SYMH)
+ ./$(MINIPERLEXP) makedef.pl PLATFORM=aix CC_FLAGS="$(OPTIMIZE)" | sort -u | sort -f > perl.exp
--utilities: $(MINIPERL_EXE) $(CONFIGPM) $(plextract) FORCE
-+utilities: $(CONFIGPM) $(plextract) FORCE
- @echo " "; echo " Making utilities"; cd utils; $(LDLIBPTH) $(MAKE) all
+ !NO!SUBS!
+@@ -700,7 +700,7 @@ os2)
+ $spitshell >>$Makefile <<'!NO!SUBS!'
+ MINIPERLEXP = miniperl
+-perl5.def: $(MINIPERLEXP) makedef.pl config.sh $(SYM) $(SYMH) miniperl.map
++perl5.def: makedef.pl config.sh $(SYM) $(SYMH) miniperl.map
+ ./$(MINIPERLEXP) makedef.pl PLATFORM=os2 -DPERL_DLL=$(PERL_DLL) CC_FLAGS="$(OPTIMIZE)" > perl5.def
-@@ -754,7 +754,7 @@ $(LIBPERL): $& $(obj) $(DYNALOADER) $(LI
+ !NO!SUBS!
+@@ -757,7 +757,7 @@ $(LIBPERL): $& $(obj) $(DYNALOADER) $(LI
true)
$spitshell >>$Makefile <<'!NO!SUBS!'
rm -f $@
@@ -105,7 +122,7 @@ Index: perl-5.12.3/Makefile.SH
!NO!SUBS!
case "$osname" in
aix)
-@@ -795,7 +795,9 @@ $(MINIPERL_EXE): $& miniperlmain$(OBJ_EX
+@@ -798,7 +798,9 @@ $(MINIPERL_EXE): $& miniperlmain$(OBJ_EX
$(CC) -o $(MINIPERL_EXE) $(CLDFLAGS) \
$(mini_obj) \
miniperlmain$(OBJ_EXT) opmini$(OBJ_EXT) perlmini$(OBJ_EXT) $(libs)
@@ -116,7 +133,7 @@ Index: perl-5.12.3/Makefile.SH
!NO!SUBS!
;;
next4*)
-@@ -803,7 +805,9 @@ $(MINIPERL_EXE): $& miniperlmain$(OBJ_EX
+@@ -806,7 +808,9 @@ $(MINIPERL_EXE): $& miniperlmain$(OBJ_EX
$(MINIPERL_EXE): $& miniperlmain$(OBJ_EXT) $(mini_obj) perlmini$(OBJ_EXT) opmini$(OBJ_EXT)
$(CC) -o $(MINIPERL_EXE) $(mini_obj) \
miniperlmain$(OBJ_EXT) opmini$(OBJ_EXT) perlmini$(OBJ_EXT) $(libs)
@@ -127,7 +144,7 @@ Index: perl-5.12.3/Makefile.SH
!NO!SUBS!
;;
darwin*)
-@@ -825,7 +829,9 @@ $(MINIPERL_EXE): $& miniperlmain$(OBJ_EX
+@@ -828,7 +832,9 @@ $(MINIPERL_EXE): $& miniperlmain$(OBJ_EX
$(CC) $(CLDFLAGS) $(NAMESPACEFLAGS) -o $(MINIPERL_EXE) \
$(mini_obj) \
miniperlmain$(OBJ_EXT) opmini$(OBJ_EXT) perlmini$(OBJ_EXT) $(libs)
@@ -138,7 +155,7 @@ Index: perl-5.12.3/Makefile.SH
!NO!SUBS!
;;
*)
-@@ -835,7 +841,10 @@ $(MINIPERL_EXE): $& miniperlmain$(OBJ_EX
+@@ -838,7 +844,10 @@ $(MINIPERL_EXE): $& miniperlmain$(OBJ_EX
$(LDLIBPTH) $(CC) $(CLDFLAGS) -o $(MINIPERL_EXE) \
$(mini_obj) \
miniperlmain$(OBJ_EXT) opmini$(OBJ_EXT) perlmini$(OBJ_EXT) $(libs)
@@ -150,7 +167,7 @@ Index: perl-5.12.3/Makefile.SH
!NO!SUBS!
;;
esac
-@@ -957,7 +966,7 @@ case "${osname}" in
+@@ -960,7 +969,7 @@ case "${osname}" in
catamount)
$spitshell >>$Makefile <<!GROK!THIS!
.PHONY: makeppport
@@ -159,7 +176,7 @@ Index: perl-5.12.3/Makefile.SH
- at for f in Makefile.PL PPPort_pm.PL PPPort_xs.PL ppport_h.PL; do \
(cd ext/Devel-PPPort && `pwd`/run.sh ../../$(MINIPERL_EXE) -I../../lib \$\$f); \
done
-@@ -967,7 +976,7 @@ makeppport: \$(MINIPERL_EXE) \$(CONFIGPM
+@@ -970,7 +979,7 @@ makeppport: \$(MINIPERL_EXE) \$(CONFIGPM
*)
$spitshell >>$Makefile <<'!NO!SUBS!'
.PHONY: makeppport
@@ -168,7 +185,7 @@ Index: perl-5.12.3/Makefile.SH
$(MINIPERL) $(Icwd) mkppport
!NO!SUBS!
-@@ -977,29 +986,29 @@ esac
+@@ -980,22 +989,22 @@ esac
$spitshell >>$Makefile <<'!NO!SUBS!'
.PHONY: preplibrary
@@ -185,15 +202,6 @@ Index: perl-5.12.3/Makefile.SH
+lib/ExtUtils/Miniperl.pm: miniperlmain.c minimod.pl $(CONFIGPM)
$(MINIPERL) minimod.pl > lib/ExtUtils/Miniperl.pm
--$(plextract): $(MINIPERL_EXE) $(CONFIGPM) x2p/s2p $(dynamic_ext)
-+$(plextract): $(CONFIGPM) x2p/s2p $(dynamic_ext)
- @-rm -f $@
- $(MINIPERL) $@.PL
-
--x2p/s2p: $(MINIPERL_EXE) $(CONFIGPM) $(dynamic_ext) x2p/s2p.PL
-+x2p/s2p: $(CONFIGPM) $(dynamic_ext) x2p/s2p.PL
- cd x2p; $(LDLIBPTH) $(MAKE) s2p
-
-lib/buildcustomize.pl: $(MINIPERL_EXE) write_buildcustomize.pl
+lib/buildcustomize.pl: write_buildcustomize.pl
$(MINIPERL) write_buildcustomize.pl >lib/buildcustomize.pl
@@ -205,13 +213,13 @@ Index: perl-5.12.3/Makefile.SH
$(MINIPERL) $(Icwd) lib/unicore/mktables -C lib/unicore -P pod -maketest -makelist -p
# Commented out so always runs, mktables looks at far more files than we
# can in this makefile to decide if needs to run or not
-@@ -1008,21 +1017,21 @@ uni.data: $(MINIPERL_EXE) $(CONFIGPM) li
+@@ -1004,21 +1013,21 @@ uni.data: $(MINIPERL_EXE) $(CONFIGPM) li
# $(PERL_EXE) and ext because buildtoc uses Text::Wrap uses re
# But also this ensures that all extensions are built before we try to scan
# them, which picks up Devel::PPPort's documentation.
-pod/perltoc.pod: $(perltoc_pod_prereqs) $(PERL_EXE) $(ext) pod/buildtoc
- $(RUN_PERL) -f -Ilib pod/buildtoc --build-toc -q
-+pod/perltoc.pod: $(perltoc_pod_prereqs) $(ext) pod/buildtoc
++pod/perltoc.pod: $(perltoc_pod_prereqs) $(ext) pod/buildtoc
+ $(MINIPERL) -f -Ilib pod/buildtoc --build-toc -q
pod/perlapi.pod: pod/perlintern.pod
@@ -224,15 +232,15 @@ Index: perl-5.12.3/Makefile.SH
+pod/perlmodlib.pod: pod/perlmodlib.PL MANIFEST
$(MINIPERL) $(Icwd) pod/perlmodlib.PL -q
- pod/perldelta.pod: pod/perl5123delta.pod
- $(LNS) perl5123delta.pod pod/perldelta.pod
+ pod/perl5142delta.pod: pod/perldelta.pod
+ $(LNS) perldelta.pod pod/perl5142delta.pod
-extra.pods: $(MINIPERL_EXE)
-+extra.pods:
++extra.pods:
- at test ! -f extra.pods || rm -f `cat extra.pods`
- at rm -f extra.pods
- at for x in `grep -l '^=[a-z]' README.* | grep -v README.vms` ; do \
-@@ -1065,11 +1074,7 @@ no-install:
+@@ -1058,11 +1067,7 @@ no-install:
INSTALL_DEPENDENCE = all
install.perl: $(INSTALL_DEPENDENCE) installperl
@@ -245,7 +253,7 @@ Index: perl-5.12.3/Makefile.SH
# XXX Experimental. Hardwired values, but useful for testing.
# Eventually Configure could ask for some of these values.
-@@ -1166,16 +1171,16 @@ manicheck: FORCE
+@@ -1161,16 +1166,16 @@ manicheck: FORCE
#
# DynaLoader may be needed for extensions that use Makefile.PL.
@@ -266,12 +274,12 @@ Index: perl-5.12.3/Makefile.SH
$(MINIPERL) make_ext.pl $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL)
!NO!SUBS!
-@@ -1373,10 +1378,10 @@ _test:
+@@ -1365,10 +1370,10 @@ _test:
test_prep_pre: preplibrary utilities $(nonxs_ext)
--test_prep: test_prep_pre $(MINIPERL_EXE) $(unidatafiles) $(PERL_EXE) $(dynamic_ext) $(TEST_PERL_DLL) runtests
-+test_prep: test_prep_pre $(unidatafiles) $(PERL_EXE) $(dynamic_ext) $(TEST_PERL_DLL) runtests
+-test_prep: test_prep_pre $(MINIPERL_EXE) $(unidatafiles) $(PERL_EXE) $(dynamic_ext) $(TEST_PERL_DLL) runtests x2p/s2p $(generated_pods)
++test_prep: test_prep_pre $(unidatafiles) $(PERL_EXE) $(dynamic_ext) $(TEST_PERL_DLL) runtests x2p/s2p $(generated_pods)
cd t && (rm -f $(PERL_EXE); $(LNS) ../$(PERL_EXE) $(PERL_EXE))
-test_prep_reonly: $(MINIPERL_EXE) $(PERL_EXE) $(dynamic_ext_re) $(TEST_PERL_DLL)
@@ -279,12 +287,12 @@ Index: perl-5.12.3/Makefile.SH
$(MINIPERL) make_ext.pl $(dynamic_ext_re) MAKE=$(MAKE) LIBPERL_A=$(LIBPERL) LINKTYPE=dynamic
cd t && (rm -f $(PERL_EXE); $(LNS) ../$(PERL_EXE) $(PERL_EXE))
-@@ -1467,7 +1472,7 @@ minitest.prep:
+@@ -1459,7 +1464,7 @@ minitest.prep:
# Can't depend on lib/Config.pm because that might be where miniperl
# is crashing.
-minitest: $(MINIPERL_EXE) minitest.prep
+minitest: minitest.prep
- cd t && (rm -f $(PERL_EXE); $(LNS) ../$(MINIPERL_EXE) $(PERL_EXE)) \
- && $(RUN_PERL) TEST -minitest base/*.t comp/*.t cmd/*.t run/*.t io/*.t re/*.t op/*.t uni/*.t </dev/tty
+ && $(RUN_PERL) TEST base/*.t comp/*.t cmd/*.t run/*.t io/*.t re/*.t op/*.t uni/*.t </dev/tty
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/Makefile.patch b/meta/recipes-devtools/perl/perl-5.14.2/Makefile.patch
similarity index 87%
rename from meta/recipes-devtools/perl/perl-5.12.3/Makefile.patch
rename to meta/recipes-devtools/perl/perl-5.14.2/Makefile.patch
index 8a279a5..858e2e1 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/Makefile.patch
+++ b/meta/recipes-devtools/perl/perl-5.14.2/Makefile.patch
@@ -1,12 +1,11 @@
Upstream-Status:Inappropriate [embedded specific]
-Index: perl-5.12.3/Cross/Makefile
+Index: perl-5.14.2/Cross/Makefile
===================================================================
---- perl-5.12.3.orig/Cross/Makefile
-+++ perl-5.12.3/Cross/Makefile
-@@ -2,7 +2,8 @@
- #
- ## $Id: Makefile,v 1.5 2003/12/12 00:48:19 red Exp red $
+--- perl-5.14.2.orig/Cross/Makefile
++++ perl-5.14.2/Cross/Makefile
+@@ -1,6 +1,7 @@
+ ## Toplevel Makefile for cross-compilation of perl
-export TOPDIR=${shell pwd}
+override TOPDIR=${shell pwd}
@@ -14,7 +13,7 @@ Index: perl-5.12.3/Cross/Makefile
include $(TOPDIR)/config
export CFLAGS
export SYS=$(ARCH)-$(OS)
-@@ -12,7 +13,7 @@ export OPTIMIZATION = -O2
+@@ -10,7 +11,7 @@ export OPTIMIZATION = -O2
export CC = $(CROSS)gcc
export CXX = $(CROSS)g++
@@ -23,7 +22,7 @@ Index: perl-5.12.3/Cross/Makefile
export STRIP = $(CROSS)strip
export AR = $(CROSS)ar
export RANLIB = $(CROSS)ranlib
-@@ -34,17 +35,6 @@ CFLAGS+=$(FULL_OPTIMIZATION)
+@@ -32,17 +33,6 @@ CFLAGS+=$(FULL_OPTIMIZATION)
all:
@echo Please read the README file before doing anything else.
@@ -41,7 +40,7 @@ Index: perl-5.12.3/Cross/Makefile
perl:
@echo Perl cross-build directory is $(TOPDIR)
@echo Target arch is $(SYS)
-@@ -54,11 +44,11 @@ perl:
+@@ -52,11 +42,11 @@ perl:
$(TOPDIR)/generate_config_sh config.sh-$(SYS) > $(TOPDIR)/../config.sh
cd $(TOPDIR)/.. ; ./Configure -S ; make depend ; make ; make more
cd $(TOPDIR)/.. ; mkdir -p fake_config_library ; cp lib/Config.pm lib/Config_heavy.pl fake_config_library
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/asm-pageh-fix.patch b/meta/recipes-devtools/perl/perl-5.14.2/asm-pageh-fix.patch
similarity index 100%
rename from meta/recipes-devtools/perl/perl-5.12.3/asm-pageh-fix.patch
rename to meta/recipes-devtools/perl/perl-5.14.2/asm-pageh-fix.patch
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/config.sh b/meta/recipes-devtools/perl/perl-5.14.2/config.sh
similarity index 94%
rename from meta/recipes-devtools/perl/perl-5.12.3/config.sh
rename to meta/recipes-devtools/perl/perl-5.14.2/config.sh
index f1c5001..b3e2d43 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/config.sh
+++ b/meta/recipes-devtools/perl/perl-5.14.2/config.sh
@@ -14,7 +14,7 @@
: Configure command line arguments.
config_arg0='Configure'
-config_args='-des -Doptimize=-O2 -Dmyhostname=localhost -Dperladmin=root at localhost -Dcc=gcc -Dcf_by=Open Embedded -Dinstallprefix=@DESTDIR@ -Dprefix=/usr -Dvendorprefix=/usr -Dsiteprefix=/usr -Dotherlibdirs=/usr/lib/perl5/5.12.3 -Duseshrplib -Dusethreads -Duseithreads -Duselargefiles -Ud_dosuid -Dd_semctl_semun -Ui_db -Ui_ndbm -Ui_gdbm -Di_shadow -Di_syslog -Dman3ext=3pm -Duseperlio -Dinstallusrbinperl -Ubincompat5005 -Uversiononly -Dpager=/usr/bin/less -isr'
+config_args='-des -Doptimize=-O2 -Dmyhostname=localhost -Dperladmin=root at localhost -Dcc=gcc -Dcf_by=Open Embedded -Dinstallprefix=@DESTDIR@ -Dprefix=/usr -Dvendorprefix=/usr -Dsiteprefix=/usr -Dotherlibdirs=/usr/lib/perl5/5.14.2 -Duseshrplib -Dusethreads -Duseithreads -Duselargefiles -Ud_dosuid -Dd_semctl_semun -Ui_db -Ui_ndbm -Ui_gdbm -Di_shadow -Di_syslog -Dman3ext=3pm -Duseperlio -Dinstallusrbinperl -Ubincompat5005 -Uversiononly -Dpager=/usr/bin/less -isr'
config_argc=28
config_arg1='-des'
config_arg2='-Doptimize=-O2'
@@ -26,7 +26,7 @@ config_arg7='-Dinstallprefix=@DESTDIR@'
config_arg8='-Dprefix=/usr'
config_arg9='-Dvendorprefix=/usr'
config_arg10='-Dsiteprefix=/usr'
-config_arg11='-Dotherlibdirs=/usr/lib/perl5/5.12.3'
+config_arg11='-Dotherlibdirs=/usr/lib/perl5/5.14.2'
config_arg12='-Duseshrplib'
config_arg13='-Dusethreads'
config_arg14='-Duseithreads'
@@ -64,11 +64,11 @@ ansi2knr=''
aphostname=''
api_revision='5'
api_subversion='0'
-api_version='12'
-api_versionstring='5.12.0'
+api_version='14'
+api_versionstring='5.14.0'
ar='ar'
-archlib='/usr/lib/perl5/5.12.3/@ARCH at -thread-multi'
-archlibexp='/usr/lib/perl5/5.12.3/@ARCH at -thread-multi'
+archlib='/usr/lib/perl5/5.14.2/@ARCH at -thread-multi'
+archlibexp='/usr/lib/perl5/5.14.2/@ARCH at -thread-multi'
archname64=''
archname='@ARCH at -thread-multi'
archobjs=''
@@ -86,7 +86,7 @@ castflags='0'
cat='cat'
cc='gcc'
cccdlflags='-fPIC'
-ccdlflags='-Wl,-E -Wl,-rpath,/usr/lib/perl5/5.12.3/@ARCH at -thread-multi/CORE'
+ccdlflags='-Wl,-E -Wl,-rpath,/usr/lib/perl5/5.14.2/@ARCH at -thread-multi/CORE'
ccflags='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe -fstack-protector -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
ccflags_uselargefiles='-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
ccname='gcc'
@@ -746,7 +746,7 @@ inc_version_list_init='0'
incpath=''
inews=''
initialinstalllocation='/usr/bin'
-installarchlib='@DESTDIR@/lib/perl5/5.12.3/@ARCH at -thread-multi'
+installarchlib='@DESTDIR@/lib/perl5/5.14.2/@ARCH at -thread-multi'
installbin='@DESTDIR@/bin'
installhtml1dir=''
installhtml3dir=''
@@ -754,23 +754,23 @@ installman1dir=''
installman3dir=''
installprefix='@DESTDIR@'
installprefixexp='@DESTDIR@'
-installprivlib='@DESTDIR@/lib/perl5/5.12.3'
+installprivlib='@DESTDIR@/lib/perl5/5.14.2'
installscript='@DESTDIR@/bin'
-installsitearch='@DESTDIR@/lib/perl5/site_perl/5.12.3/@ARCH at -thread-multi'
+installsitearch='@DESTDIR@/lib/perl5/site_perl/5.14.2/@ARCH at -thread-multi'
installsitebin='@DESTDIR@/bin'
installsitehtml1dir=''
installsitehtml3dir=''
-installsitelib='@DESTDIR@/lib/perl5/site_perl/5.12.3'
+installsitelib='@DESTDIR@/lib/perl5/site_perl/5.14.2'
installsiteman1dir=''
installsiteman3dir=''
installsitescript='@DESTDIR@/bin'
installstyle='lib/perl5'
installusrbinperl='define'
-installvendorarch='@DESTDIR@/lib/perl5/vendor_perl/5.12.3/@ARCH at -thread-multi'
+installvendorarch='@DESTDIR@/lib/perl5/vendor_perl/5.14.2/@ARCH at -thread-multi'
installvendorbin='@DESTDIR@/bin'
installvendorhtml1dir=''
installvendorhtml3dir=''
-installvendorlib='@DESTDIR@/lib/perl5/vendor_perl/5.12.3'
+installvendorlib='@DESTDIR@/lib/perl5/vendor_perl/5.14.2'
installvendorman1dir=''
installvendorman3dir=''
installvendorscript='@DESTDIR@/bin'
@@ -864,11 +864,11 @@ optimize='-O2'
orderlib='false'
osname='linux'
osvers='2.6.37-rc5-yocto-standard+'
-otherlibdirs='/usr/lib/perl5/5.12.3'
+otherlibdirs='/usr/lib/perl5/5.14.2'
package='perl5'
pager='/usr/bin/less -isr'
passcat='cat /etc/passwd'
-patchlevel='12'
+patchlevel='14'
path_sep=':'
perl5='/usr/bin/perl'
perl=''
@@ -884,8 +884,8 @@ pmake=''
pr=''
prefix='/usr'
prefixexp='/usr'
-privlib='/usr/lib/perl5/5.12.3'
-privlibexp='/usr/lib/perl5/5.12.3'
+privlib='/usr/lib/perl5/5.14.2'
+privlibexp='/usr/lib/perl5/5.14.2'
procselfexe='"/proc/self/exe"'
prototype='define'
randbits='48'
@@ -937,17 +937,17 @@ sig_num='0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
sig_num_init='0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 6, 17, 29, 31, 0'
sig_size='69'
signal_t='void'
-sitearch='/usr/lib/perl5/site_perl/5.12.3/@ARCH at -thread-multi'
-sitearchexp='/usr/lib/perl5/site_perl/5.12.3/@ARCH at -thread-multi'
+sitearch='/usr/lib/perl5/site_perl/5.14.2/@ARCH at -thread-multi'
+sitearchexp='/usr/lib/perl5/site_perl/5.14.2/@ARCH at -thread-multi'
sitebin='/usr/bin'
sitebinexp='/usr/bin'
sitehtml1dir=''
sitehtml1direxp=''
sitehtml3dir=''
sitehtml3direxp=''
-sitelib='/usr/lib/perl5/site_perl/5.12.3'
+sitelib='/usr/lib/perl5/site_perl/5.14.2'
sitelib_stem='/usr/lib/perl5/site_perl'
-sitelibexp='/usr/lib/perl5/site_perl/5.12.3'
+sitelibexp='/usr/lib/perl5/site_perl/5.14.2'
siteman1dir=''
siteman1direxp=''
siteman3dir=''
@@ -1045,17 +1045,17 @@ uvtype='unsigned long'
uvuformat='"lu"'
uvxformat='"lx"'
vaproto='define'
-vendorarch='/usr/lib/perl5/vendor_perl/5.12.3/@ARCH at -thread-multi'
-vendorarchexp='/usr/lib/perl5/vendor_perl/5.12.3/@ARCH at -thread-multi'
+vendorarch='/usr/lib/perl5/vendor_perl/5.14.2/@ARCH at -thread-multi'
+vendorarchexp='/usr/lib/perl5/vendor_perl/5.14.2/@ARCH at -thread-multi'
vendorbin='/usr/bin'
vendorbinexp='/usr/bin'
vendorhtml1dir=' '
vendorhtml1direxp=''
vendorhtml3dir=' '
vendorhtml3direxp=''
-vendorlib='/usr/lib/perl5/vendor_perl/5.12.3'
+vendorlib='/usr/lib/perl5/vendor_perl/5.14.2'
vendorlib_stem='/usr/lib/perl5/vendor_perl'
-vendorlibexp='/usr/lib/perl5/vendor_perl/5.12.3'
+vendorlibexp='/usr/lib/perl5/vendor_perl/5.14.2'
vendorman1dir=' '
vendorman1direxp=''
vendorman3dir=' '
@@ -1064,8 +1064,8 @@ vendorprefix='/usr'
vendorprefixexp='/usr'
vendorscript='/usr/bin'
vendorscriptexp='/usr/bin'
-version='5.12.3'
-version_patchlevel_string='version 12 subversion 2'
+version='5.14.2'
+version_patchlevel_string='version 14 subversion 2'
versiononly='undef'
vi=''
voidflags='15'
@@ -1075,12 +1075,19 @@ yaccflags=''
zcat=''
zip='zip'
PERL_REVISION=5
-PERL_VERSION=12
+PERL_VERSION=14
PERL_SUBVERSION=2
PERL_API_REVISION=5
-PERL_API_VERSION=12
+PERL_API_VERSION=14
PERL_API_SUBVERSION=0
PERL_PATCHLEVEL=''
PERL_CONFIG_SH=true
: Variables propagated from previous config.sh file.
libdb_needs_pthread='N'
+
+d_static_inline='define'
+d_sockaddr_sa_len='undef'
+d_sin6_scope_id='define'
+d_prctl='define'
+d_prctl_set_name='define'
+perl_static_inline='static __inline__'
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/config.sh-32 b/meta/recipes-devtools/perl/perl-5.14.2/config.sh-32
similarity index 100%
rename from meta/recipes-devtools/perl/perl-5.12.3/config.sh-32
rename to meta/recipes-devtools/perl/perl-5.14.2/config.sh-32
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/config.sh-32-be b/meta/recipes-devtools/perl/perl-5.14.2/config.sh-32-be
similarity index 100%
rename from meta/recipes-devtools/perl/perl-5.12.3/config.sh-32-be
rename to meta/recipes-devtools/perl/perl-5.14.2/config.sh-32-be
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/config.sh-32-le b/meta/recipes-devtools/perl/perl-5.14.2/config.sh-32-le
similarity index 100%
rename from meta/recipes-devtools/perl/perl-5.12.3/config.sh-32-le
rename to meta/recipes-devtools/perl/perl-5.14.2/config.sh-32-le
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/config.sh-64 b/meta/recipes-devtools/perl/perl-5.14.2/config.sh-64
similarity index 100%
rename from meta/recipes-devtools/perl/perl-5.12.3/config.sh-64
rename to meta/recipes-devtools/perl/perl-5.14.2/config.sh-64
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/config.sh-64-be b/meta/recipes-devtools/perl/perl-5.14.2/config.sh-64-be
similarity index 100%
rename from meta/recipes-devtools/perl/perl-5.12.3/config.sh-64-be
rename to meta/recipes-devtools/perl/perl-5.14.2/config.sh-64-be
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/config.sh-64-le b/meta/recipes-devtools/perl/perl-5.14.2/config.sh-64-le
similarity index 100%
rename from meta/recipes-devtools/perl/perl-5.12.3/config.sh-64-le
rename to meta/recipes-devtools/perl/perl-5.14.2/config.sh-64-le
diff --git a/meta/recipes-devtools/perl/perl-5.14.2/cross-generate_uudmap.patch b/meta/recipes-devtools/perl/perl-5.14.2/cross-generate_uudmap.patch
new file mode 100644
index 0000000..a00ad61
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.14.2/cross-generate_uudmap.patch
@@ -0,0 +1,15 @@
+Upstream-Status:Inappropriate [embedded specific]
+
+Index: perl-5.14.2/Makefile.SH
+===================================================================
+--- perl-5.14.2.orig/Makefile.SH
++++ perl-5.14.2/Makefile.SH
+@@ -622,7 +622,7 @@ bitcount.h: generate_uudmap$(HOST_EXE_EX
+ $(RUN) ./generate_uudmap$(HOST_EXE_EXT) uudmap.h bitcount.h
+
+ generate_uudmap$(HOST_EXE_EXT): generate_uudmap$(OBJ_EXT)
+- $(CC) -o generate_uudmap$(EXE_EXT) $(LDFLAGS) generate_uudmap$(OBJ_EXT) $(libs)
++ $(BUILD_CC) -o generate_uudmap$(EXE_EXT) generate_uudmap.c
+
+ miniperlmain$(OBJ_EXT): miniperlmain.c patchlevel.h
+ $(CCCMD) $(PLDLFLAGS) $*.c
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/arm_thread_stress_timeout.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/arm_thread_stress_timeout.diff
similarity index 66%
rename from meta/recipes-devtools/perl/perl-5.12.3/debian/arm_thread_stress_timeout.diff
rename to meta/recipes-devtools/perl/perl-5.14.2/debian/arm_thread_stress_timeout.diff
index 700b344..1d80e95 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/arm_thread_stress_timeout.diff
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/arm_thread_stress_timeout.diff
@@ -1,15 +1,18 @@
-Upstream-Status:Inappropriate [debian patch]
+From f624a9f1206cdd44fde99c40d82e2f326db485dd Mon Sep 17 00:00:00 2001
+From: Niko Tyni <ntyni at debian.org>
+Date: Sat, 1 Nov 2008 15:10:16 +0200
+Subject: Raise the timeout of ext/threads/shared/t/stress.t to accommodate
+ slower build hosts
-Subject: Raise the timeout of ext/threads/shared/t/stress.t to accommodate slower build hosts
Bug-Debian: http://bugs.debian.org/501970
-
+Patch-Name: debian/arm_thread_stress_timeout.diff
---
dist/threads-shared/t/stress.t | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/dist/threads-shared/t/stress.t b/dist/threads-shared/t/stress.t
-index adfd1ed..652a3e6 100755
+index adfd1ed..652a3e6 100644
--- a/dist/threads-shared/t/stress.t
+++ b/dist/threads-shared/t/stress.t
@@ -34,7 +34,7 @@ use threads::shared;
@@ -21,5 +24,3 @@ index adfd1ed..652a3e6 100755
my $mutex = 1;
share($mutex);
---
-tg: (a508b62..) debian/arm_thread_stress_timeout (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/cpan_definstalldirs.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/cpan_definstalldirs.diff
similarity index 80%
rename from meta/recipes-devtools/perl/perl-5.12.3/debian/cpan_definstalldirs.diff
rename to meta/recipes-devtools/perl/perl-5.14.2/debian/cpan_definstalldirs.diff
index 3931c2d..9fa9378 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/cpan_definstalldirs.diff
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/cpan_definstalldirs.diff
@@ -1,21 +1,23 @@
-Upstream-Status:Inappropriate [debian patch]
-
-Subject: Provide a sensible INSTALLDIRS default for modules installed from CPAN.
+From 4b63b9a433661cd13cfb1448dbfb90c5f53a53be Mon Sep 17 00:00:00 2001
+From: Brendan O'Dea <bod at debian.org>
+Date: Tue, 8 Mar 2005 19:30:38 +1100
+Subject: Provide a sensible INSTALLDIRS default for modules installed from
+ CPAN.
Some modules which are included in core set INSTALLDIRS => 'perl'
explicitly in Makefile.PL or Build.PL. This makes sense for the normal @INC
ordering, but not ours.
-
+Patch-Name: debian/cpan_definstalldirs.diff
---
cpan/CPAN/lib/CPAN/FirstTime.pm | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/cpan/CPAN/lib/CPAN/FirstTime.pm b/cpan/CPAN/lib/CPAN/FirstTime.pm
-index 53ffbf1..53976ff 100644
+index 667bdca..c38c890 100644
--- a/cpan/CPAN/lib/CPAN/FirstTime.pm
+++ b/cpan/CPAN/lib/CPAN/FirstTime.pm
-@@ -947,7 +947,7 @@ sub init {
+@@ -990,7 +990,7 @@ sub init {
my_prompt_loop(prefer_installer => 'MB', $matcher, 'MB|EUMM|RAND');
if (!$matcher or 'makepl_arg make_arg' =~ /$matcher/) {
@@ -24,7 +26,7 @@ index 53ffbf1..53976ff 100644
my_dflt_prompt(make_arg => "", $matcher);
if ( $CPAN::Config->{makepl_arg} =~ /LIBS=|INC=/ ) {
$CPAN::Frontend->mywarn(
-@@ -969,7 +969,7 @@ sub init {
+@@ -1022,7 +1022,7 @@ sub init {
my_dflt_prompt(make_install_arg => $CPAN::Config->{make_arg} || "",
$matcher);
@@ -33,5 +35,3 @@ index 53ffbf1..53976ff 100644
my_dflt_prompt(mbuild_arg => "", $matcher);
if (exists $CPAN::HandleConfig::keys{mbuild_install_build_command}
---
-tg: (a508b62..) debian/cpan_definstalldirs (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/cpanplus_config_path.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/cpanplus_config_path.diff
similarity index 83%
rename from meta/recipes-devtools/perl/perl-5.12.3/debian/cpanplus_config_path.diff
rename to meta/recipes-devtools/perl/perl-5.14.2/debian/cpanplus_config_path.diff
index 8f2f5d2..e3e5ec9 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/cpanplus_config_path.diff
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/cpanplus_config_path.diff
@@ -1,25 +1,26 @@
-Upstream-Status:Inappropriate [debian patch]
-
+From 9825086b15f34f365a272cc8d6caf4e2044bede6 Mon Sep 17 00:00:00 2001
From: Niko Tyni <ntyni at debian.org>
+Date: Mon, 6 Jul 2009 22:17:53 +0300
Subject: Save local versions of CPANPLUS::Config::System into /etc/perl.
-
+
This is a configuration file and needs to go in /etc by policy.
Besides, /usr may not even be writable.
-
+
This mirrors the Debian setup of CPAN.pm in debian/cpan_config_path.
See #533707.
+Patch-Name: debian/cpanplus_config_path.diff
---
cpan/CPANPLUS/lib/CPANPLUS/Configure.pm | 1 +
cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants.pm | 3 +++
2 files changed, 4 insertions(+), 0 deletions(-)
diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Configure.pm b/cpan/CPANPLUS/lib/CPANPLUS/Configure.pm
-index baac91d..a3794de 100644
+index ba1ca07..25cbe5f 100644
--- a/cpan/CPANPLUS/lib/CPANPLUS/Configure.pm
+++ b/cpan/CPANPLUS/lib/CPANPLUS/Configure.pm
-@@ -276,6 +276,7 @@ Saves the configuration to the package name you provided.
+@@ -280,6 +280,7 @@ Saves the configuration to the package name you provided.
If this package is not C<CPANPLUS::Config::System>, it will
be saved in your C<.cpanplus> directory, otherwise it will
be attempted to be saved in the system wide directory.
@@ -28,10 +29,10 @@ index baac91d..a3794de 100644
If no argument is provided, it will default to your personal
config.
diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants.pm b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants.pm
-index 1a38200..6ee0d82 100644
+index 443d5a4..f7085a8 100644
--- a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants.pm
+++ b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants.pm
-@@ -199,6 +199,9 @@ use constant CONFIG_USER_FILE => sub {
+@@ -209,6 +209,9 @@ use constant CONFIG_USER_FILE => sub {
) . '.pm';
};
use constant CONFIG_SYSTEM_FILE => sub {
@@ -41,5 +42,3 @@ index 1a38200..6ee0d82 100644
require CPANPLUS::Internals;
require File::Basename;
my $dir = File::Basename::dirname(
---
-tg: (a508b62..) debian/cpanplus_config_path (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/cpanplus_definstalldirs.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/cpanplus_definstalldirs.diff
similarity index 84%
rename from meta/recipes-devtools/perl/perl-5.12.3/debian/cpanplus_definstalldirs.diff
rename to meta/recipes-devtools/perl/perl-5.14.2/debian/cpanplus_definstalldirs.diff
index bd5fe80..6d05c34 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/cpanplus_definstalldirs.diff
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/cpanplus_definstalldirs.diff
@@ -1,18 +1,21 @@
-Upstream-Status:Inappropriate [debian patch]
-
+From 66517b14790aa6410fd37e411dd62521e1e02b7f Mon Sep 17 00:00:00 2001
From: Niko Tyni <ntyni at debian.org>
+Date: Mon, 6 Jul 2009 21:58:41 +0300
Subject: Configure CPANPLUS to use the site directories by default.
-Closes: 533707
-
+
+Bug-Debian: http://bugs.debian.org/533707
+
The core modules usually default to INSTALLDIRS=perl (ExtUtils::MakeMaker)
or installdirs=core (Module::Build), so we need to explicitly ask for
the site destination to get upgraded versions into /usr/local.
See also the sister patch, debian/cpan_definstalldirs .
+Patch-Name: debian/cpanplus_definstalldirs.diff
---
cpan/CPANPLUS/lib/CPANPLUS/Config/System.pm | 30 +++++++++++++++++++++++++++
1 files changed, 30 insertions(+), 0 deletions(-)
+ create mode 100644 cpan/CPANPLUS/lib/CPANPLUS/Config/System.pm
diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Config/System.pm b/cpan/CPANPLUS/lib/CPANPLUS/Config/System.pm
new file mode 100644
@@ -50,5 +53,3 @@ index 0000000..5e6e11e
+}
+
+1;
---
-tg: (a508b62..) debian/cpanplus_definstalldirs (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/db_file_ver.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/db_file_ver.diff
similarity index 83%
rename from meta/recipes-devtools/perl/perl-5.12.3/debian/db_file_ver.diff
rename to meta/recipes-devtools/perl/perl-5.14.2/debian/db_file_ver.diff
index e9aa60a..ff07ec5 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/db_file_ver.diff
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/db_file_ver.diff
@@ -1,17 +1,19 @@
-Upstream-Status:Inappropriate [debian patch]
-
+From 0d1acf7af6da3a3f933faba8459ad9ff03fe3e5b Mon Sep 17 00:00:00 2001
+From: Brendan O'Dea <bod at debian.org>
+Date: Fri, 16 Dec 2005 01:32:14 +1100
Subject: Remove overly restrictive DB_File version check.
+
Bug-Debian: http://bugs.debian.org/340047
Package dependencies ensure the correct library is linked at run-time.
-
+Patch-Name: debian/db_file_ver.diff
---
cpan/DB_File/version.c | 2 ++
1 files changed, 2 insertions(+), 0 deletions(-)
diff --git a/cpan/DB_File/version.c b/cpan/DB_File/version.c
-index 47158d3..67ccdff 100644
+index e01f6f6..544e6ee 100644
--- a/cpan/DB_File/version.c
+++ b/cpan/DB_File/version.c
@@ -48,6 +48,7 @@ __getBerkeleyDBInfo()
@@ -30,5 +32,3 @@ index 47158d3..67ccdff 100644
/* check that libdb is recent enough -- we need 2.3.4 or greater */
if (Major == 2 && (Minor < 3 || (Minor == 3 && Patch < 4)))
---
-tg: (a508b62..) debian/db_file_ver (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/deprecate-with-apt.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/deprecate-with-apt.diff
new file mode 100644
index 0000000..65a132d
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/deprecate-with-apt.diff
@@ -0,0 +1,406 @@
+From c2bd2059cfbba573643c748ace4ff4db4cbf015d Mon Sep 17 00:00:00 2001
+From: Dominic Hargreaves <dom at earth.li>
+Date: Mon, 17 May 2010 13:23:07 +0300
+Subject: Point users to Debian packages of deprecated core modules
+
+Bug-Debian: http://bugs.debian.org/580034
+
+Class::ISA, Switch, Pod::Plainer, and (partially) Shell were
+deprecated from the Perl core in 5.12.0.
+
+Class::ISA, Switch, Pod::Plainer were removed from the Perl core in
+5.14.0.
+
+Shell and Devel::DProf, and Perl 4 libraries, were deprecated from the
+Perl core in 5.14.0.
+
+To get a clean transition, perl/perl-modules is going to recommend the
+separate Debian packages of these for one release cycle so that they will be
+pulled in by default on upgrades.
+
+However, on systems configured to ignore recommendations the deprecation
+warnings will still be useful, so modify them slightly to point to the
+separate packages instead.
+
+Patch-Name: debian/deprecate-with-apt.diff
+---
+ lib/abbrev.pl | 2 +-
+ lib/assert.pl | 2 +-
+ lib/bigfloat.pl | 2 +-
+ lib/bigint.pl | 2 +-
+ lib/bigrat.pl | 2 +-
+ lib/cacheout.pl | 2 +-
+ lib/complete.pl | 2 +-
+ lib/ctime.pl | 2 +-
+ lib/deprecate.pm | 16 +++++++++++++++-
+ lib/dotsh.pl | 2 +-
+ lib/exceptions.pl | 2 +-
+ lib/fastcwd.pl | 2 +-
+ lib/find.pl | 2 +-
+ lib/finddepth.pl | 2 +-
+ lib/flush.pl | 2 +-
+ lib/getcwd.pl | 2 +-
+ lib/getopt.pl | 2 +-
+ lib/getopts.pl | 2 +-
+ lib/hostname.pl | 2 +-
+ lib/importenv.pl | 2 +-
+ lib/look.pl | 2 +-
+ lib/newgetopt.pl | 2 +-
+ lib/open2.pl | 2 +-
+ lib/open3.pl | 2 +-
+ lib/pwd.pl | 2 +-
+ lib/shellwords.pl | 2 +-
+ lib/stat.pl | 2 +-
+ lib/syslog.pl | 2 +-
+ lib/tainted.pl | 2 +-
+ lib/termcap.pl | 2 +-
+ lib/timelocal.pl | 2 +-
+ lib/validate.pl | 2 +-
+ 32 files changed, 46 insertions(+), 32 deletions(-)
+
+diff --git a/lib/abbrev.pl b/lib/abbrev.pl
+index d46321f..0168631 100644
+--- a/lib/abbrev.pl
++++ b/lib/abbrev.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ ;# Usage:
+ ;# %foo = ();
+diff --git a/lib/assert.pl b/lib/assert.pl
+index d47e006..80593c5 100644
+--- a/lib/assert.pl
++++ b/lib/assert.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ #
+ # This library is no longer being maintained, and is included for backward
+diff --git a/lib/bigfloat.pl b/lib/bigfloat.pl
+index 82d0f5c..c21bac6 100644
+--- a/lib/bigfloat.pl
++++ b/lib/bigfloat.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ package bigfloat;
+ require "bigint.pl";
+diff --git a/lib/bigint.pl b/lib/bigint.pl
+index 6de1c53..031e8ad 100644
+--- a/lib/bigint.pl
++++ b/lib/bigint.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ package bigint;
+ #
+diff --git a/lib/bigrat.pl b/lib/bigrat.pl
+index aaf1713..146a8f4 100644
+--- a/lib/bigrat.pl
++++ b/lib/bigrat.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ package bigrat;
+ require "bigint.pl";
+diff --git a/lib/cacheout.pl b/lib/cacheout.pl
+index a5da453..937405d 100644
+--- a/lib/cacheout.pl
++++ b/lib/cacheout.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ #
+ # This library is no longer being maintained, and is included for backward
+diff --git a/lib/complete.pl b/lib/complete.pl
+index 9ed041c..2ab0c6a 100644
+--- a/lib/complete.pl
++++ b/lib/complete.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ ;#
+ #
+diff --git a/lib/ctime.pl b/lib/ctime.pl
+index aa00d00..ac24e71 100644
+--- a/lib/ctime.pl
++++ b/lib/ctime.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ ;# ctime.pl is a simple Perl emulation for the well known ctime(3C) function.
+ #
+diff --git a/lib/deprecate.pm b/lib/deprecate.pm
+index 7562c69..fc548b0 100644
+--- a/lib/deprecate.pm
++++ b/lib/deprecate.pm
+@@ -7,6 +7,14 @@ our $VERSION = 0.02;
+ our %Config;
+ unless (%Config) { require Config; *Config = \%Config::Config; }
+
++# Debian-specific change: recommend the separate Debian packages of
++# deprecated modules where available
++
++my %DEBIAN_PACKAGES = (
++ "Shell" => "libshell-perl",
++ "Devel::DProf" => "libdevel-dprof-perl"
++);
++
+ # This isn't a public API. It's internal to code maintained by the perl-porters
+ # If you would like it to be a public API, please send a patch with
+ # documentation and tests. Until then, it may change without warning.
+@@ -58,9 +66,15 @@ EOM
+ if (defined $callers_bitmask
+ && (vec($callers_bitmask, $warnings::Offsets{deprecated}, 1)
+ || vec($callers_bitmask, $warnings::Offsets{all}, 1))) {
+- warn <<"EOM";
++ if (my $deb = $DEBIAN_PACKAGES{$package}) {
++ warn <<"EOM";
++$package will be removed from the Perl core distribution in the next major release. Please install the separate $deb package. It is being used at $call_file, line $call_line.
++EOM
++ } else {
++ warn <<"EOM";
+ $package will be removed from the Perl core distribution in the next major release. Please install it from CPAN. It is being used at $call_file, line $call_line.
+ EOM
++ }
+ }
+ }
+ }
+diff --git a/lib/dotsh.pl b/lib/dotsh.pl
+index 92f1f4c..4085122 100644
+--- a/lib/dotsh.pl
++++ b/lib/dotsh.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ #
+ # @(#)dotsh.pl 03/19/94
+diff --git a/lib/exceptions.pl b/lib/exceptions.pl
+index 8af64c8..b5b1427 100644
+--- a/lib/exceptions.pl
++++ b/lib/exceptions.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ # exceptions.pl
+ # tchrist at convex.com
+diff --git a/lib/fastcwd.pl b/lib/fastcwd.pl
+index 70007a1..2c7c42e 100644
+--- a/lib/fastcwd.pl
++++ b/lib/fastcwd.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ # By John Bazik
+ #
+diff --git a/lib/find.pl b/lib/find.pl
+index 8e1b42c..7fb2fbf 100644
+--- a/lib/find.pl
++++ b/lib/find.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ # This library is deprecated and unmaintained. It is included for
+ # compatibility with Perl 4 scripts which may use it, but it will be
+diff --git a/lib/finddepth.pl b/lib/finddepth.pl
+index 479905f..c07cea5 100644
+--- a/lib/finddepth.pl
++++ b/lib/finddepth.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ # This library is deprecated and unmaintained. It is included for
+ # compatibility with Perl 4 scripts which may use it, but it will be
+diff --git a/lib/flush.pl b/lib/flush.pl
+index c427976..e5ed0ae 100644
+--- a/lib/flush.pl
++++ b/lib/flush.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ #
+ # This library is no longer being maintained, and is included for backward
+diff --git a/lib/getcwd.pl b/lib/getcwd.pl
+index 77b2442..3810a99 100644
+--- a/lib/getcwd.pl
++++ b/lib/getcwd.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ # By Brandon S. Allbery
+ #
+diff --git a/lib/getopt.pl b/lib/getopt.pl
+index 1d4008a..019a165 100644
+--- a/lib/getopt.pl
++++ b/lib/getopt.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ ;# $RCSfile: getopt.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:23:58 $
+ #
+diff --git a/lib/getopts.pl b/lib/getopts.pl
+index 37ecb4a..3d27418 100644
+--- a/lib/getopts.pl
++++ b/lib/getopts.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ ;# getopts.pl - a better getopt.pl
+ #
+diff --git a/lib/hostname.pl b/lib/hostname.pl
+index f57375e..b055d30 100644
+--- a/lib/hostname.pl
++++ b/lib/hostname.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ # From: asherman at fmrco.com (Aaron Sherman)
+ #
+diff --git a/lib/importenv.pl b/lib/importenv.pl
+index 625edf6..52ee722 100644
+--- a/lib/importenv.pl
++++ b/lib/importenv.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ # This library is no longer being maintained, and is included for backward
+ # compatibility with Perl 4 programs which may require it.
+diff --git a/lib/look.pl b/lib/look.pl
+index 7be55b2..12dcace 100644
+--- a/lib/look.pl
++++ b/lib/look.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ ;# Usage: &look(*FILEHANDLE,$key,$dict,$fold)
+ #
+diff --git a/lib/newgetopt.pl b/lib/newgetopt.pl
+index 4ac9470..08df6cb 100644
+--- a/lib/newgetopt.pl
++++ b/lib/newgetopt.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ # This library is no longer being maintained, and is included for backward
+ # compatibility with Perl 4 programs which may require it.
+diff --git a/lib/open2.pl b/lib/open2.pl
+index ceb5653..a05f2ab 100644
+--- a/lib/open2.pl
++++ b/lib/open2.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ # This legacy library is deprecated and will be removed in a future
+ # release of perl.
+diff --git a/lib/open3.pl b/lib/open3.pl
+index 9f4d5a4..27f7ab4 100644
+--- a/lib/open3.pl
++++ b/lib/open3.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ # This legacy library is deprecated and will be removed in a future
+ # release of perl.
+diff --git a/lib/pwd.pl b/lib/pwd.pl
+index bd8123b..bdace6e 100644
+--- a/lib/pwd.pl
++++ b/lib/pwd.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ ;# pwd.pl - keeps track of current working directory in PWD environment var
+ ;#
+diff --git a/lib/shellwords.pl b/lib/shellwords.pl
+index b562f5f..7f16375 100644
+--- a/lib/shellwords.pl
++++ b/lib/shellwords.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ ;# This legacy library is deprecated and will be removed in a future
+ ;# release of perl.
+diff --git a/lib/stat.pl b/lib/stat.pl
+index feda273..910ce1c 100644
+--- a/lib/stat.pl
++++ b/lib/stat.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ ;# This legacy library is deprecated and will be removed in a future
+ ;# release of perl.
+diff --git a/lib/syslog.pl b/lib/syslog.pl
+index 7504a5d..4c2b95f 100644
+--- a/lib/syslog.pl
++++ b/lib/syslog.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ #
+ # syslog.pl
+diff --git a/lib/tainted.pl b/lib/tainted.pl
+index e88bca1..d58c765 100644
+--- a/lib/tainted.pl
++++ b/lib/tainted.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ # This legacy library is deprecated and will be removed in a future
+ # release of perl.
+diff --git a/lib/termcap.pl b/lib/termcap.pl
+index a84cba3..e641f4d 100644
+--- a/lib/termcap.pl
++++ b/lib/termcap.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ ;# $RCSfile: termcap.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:24:16 $
+ #
+diff --git a/lib/timelocal.pl b/lib/timelocal.pl
+index fefb9da..2297888 100644
+--- a/lib/timelocal.pl
++++ b/lib/timelocal.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ ;# timelocal.pl
+ ;#
+diff --git a/lib/validate.pl b/lib/validate.pl
+index fc2d16a..1a8aef4 100644
+--- a/lib/validate.pl
++++ b/lib/validate.pl
+@@ -1,4 +1,4 @@
+-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
+
+ ;# The validate routine takes a single multiline string consisting of
+ ;# lines containing a filename plus a file test to try on it. (The
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/disable-zlib-bundling.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/disable-zlib-bundling.diff
similarity index 83%
rename from meta/recipes-devtools/perl/perl-5.12.3/debian/disable-zlib-bundling.diff
rename to meta/recipes-devtools/perl/perl-5.14.2/debian/disable-zlib-bundling.diff
index 44349a5..80c0acb 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/disable-zlib-bundling.diff
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/disable-zlib-bundling.diff
@@ -1,11 +1,12 @@
-Upstream-Status:Inappropriate [debian patch]
-
+From 90c7967530102c66bbff25d89273d3f0bf189a83 Mon Sep 17 00:00:00 2001
From: Niko Tyni <ntyni at debian.org>
+Date: Fri, 10 Apr 2009 01:17:43 +0300
Subject: Disable zlib bundling in Compress::Raw::Zlib
Compress::Raw::Zlib statically links its bundled version of zlib
by default, but we use the system library instead.
+Patch-Name: debian/disable-zlib-bundling.diff
---
cpan/Compress-Raw-Zlib/config.in | 6 +++---
1 files changed, 3 insertions(+), 3 deletions(-)
@@ -27,5 +28,3 @@ index c56cc03..2c6659b 100644
OLD_ZLIB = False
GZIP_OS_CODE = AUTO_DETECT
---
-tg: (a508b62..) debian/disable-zlib-bundling (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/doc_info.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/doc_info.diff
similarity index 78%
rename from meta/recipes-devtools/perl/perl-5.12.3/debian/doc_info.diff
rename to meta/recipes-devtools/perl/perl-5.14.2/debian/doc_info.diff
index be75f30..a118da3 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/doc_info.diff
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/doc_info.diff
@@ -1,19 +1,21 @@
-Upstream-Status:Inappropriate [debian patch]
-
-Subject: Replace generic man(1) instructions with Debian-specific information.
+From 16ebe1f5232621d8894aa6c6210fdf2fc9b54a84 Mon Sep 17 00:00:00 2001
+From: Brendan O'Dea <bod at debian.org>
+Date: Fri, 18 Mar 2005 22:22:25 +1100
+Subject: Replace generic man(1) instructions with Debian-specific
+ information.
Indicate that the user needs to install the perl-doc package.
-
+Patch-Name: debian/doc_info.diff
---
pod/perl.pod | 12 ++++++++++--
1 files changed, 10 insertions(+), 2 deletions(-)
diff --git a/pod/perl.pod b/pod/perl.pod
-index e67f062..3b8ae83 100644
+index 29cabf1..529ad6f 100644
--- a/pod/perl.pod
+++ b/pod/perl.pod
-@@ -242,8 +242,16 @@ For ease of access, the Perl manual has been split up into several sections.
+@@ -261,8 +261,16 @@ For ease of access, the Perl manual has been split up into several sections.
perlwin32 Perl notes for Windows
@@ -32,5 +34,3 @@ index e67f062..3b8ae83 100644
In general, if something strange has gone wrong with your program and you're
not sure where you should look for help, try the B<-w> switch first. It will
---
-tg: (a508b62..) debian/doc_info (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/enc2xs_inc.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/enc2xs_inc.diff
similarity index 90%
rename from meta/recipes-devtools/perl/perl-5.12.3/debian/enc2xs_inc.diff
rename to meta/recipes-devtools/perl/perl-5.14.2/debian/enc2xs_inc.diff
index 4cac4b7..7c33e90 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/enc2xs_inc.diff
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/enc2xs_inc.diff
@@ -1,6 +1,8 @@
-Upstream-Status:Inappropriate [debian patch]
-
+From e9fd6e7729b9ebd9bc74b8cf295cd3a7f5aa5472 Mon Sep 17 00:00:00 2001
+From: Brendan O'Dea <bod at debian.org>
+Date: Tue, 8 Mar 2005 19:30:38 +1100
Subject: Tweak enc2xs to follow symlinks and ignore missing @INC directories.
+
Bug-Debian: http://bugs.debian.org/290336
- ignore missing directories,
@@ -8,6 +10,7 @@ Bug-Debian: http://bugs.debian.org/290336
- filter "." out when running "enc2xs -C", it's unnecessary and causes
issues with follow => 1 (see #603686 and [rt.cpan.org #64585])
+Patch-Name: debian/enc2xs_inc.diff
---
cpan/Encode/bin/enc2xs | 8 ++++----
1 files changed, 4 insertions(+), 4 deletions(-)
@@ -48,5 +51,3 @@ index 773c0a0..bc1ae1b 100644
$_ModLines = "";
for my $enc ( sort keys %LocalMod ) {
$_ModLines .=
---
-tg: (a508b62..) debian/enc2xs_inc (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/errno_ver.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/errno_ver.diff
similarity index 70%
rename from meta/recipes-devtools/perl/perl-5.12.3/debian/errno_ver.diff
rename to meta/recipes-devtools/perl/perl-5.14.2/debian/errno_ver.diff
index de73ed5..0f3bfa6 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/errno_ver.diff
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/errno_ver.diff
@@ -1,25 +1,28 @@
-Upstream-Status:Inappropriate [debian patch]
+From 973bed42db538804179f39d66dab37c82c6ade24 Mon Sep 17 00:00:00 2001
+From: Brendan O'Dea <bod at debian.org>
+Date: Fri, 16 Dec 2005 01:32:14 +1100
+Subject: Remove Errno version check due to upgrade problems with long-running
+ processes.
-Subject: Remove Errno version check due to upgrade problems with long-running processes.
Bug-Debian: http://bugs.debian.org/343351
Remove version check which can cause problems for long running
processes embedding perl when upgrading to a newer version,
compatible, but built on a different machine.
-
+Patch-Name: debian/errno_ver.diff
---
ext/Errno/Errno_pm.PL | 5 -----
1 files changed, 0 insertions(+), 5 deletions(-)
diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL
-index 124b8fc..b554cd4 100644
+index 56bc815..01f510a 100644
--- a/ext/Errno/Errno_pm.PL
+++ b/ext/Errno/Errno_pm.PL
-@@ -341,13 +341,8 @@ EOF
+@@ -332,13 +332,8 @@ EOF
+
package Errno;
- our (\@EXPORT_OK,\%EXPORT_TAGS,\@ISA,\$VERSION,\%errno,\$AUTOLOAD);
- use Exporter ();
+ require Exporter;
-use Config;
use strict;
@@ -27,8 +30,6 @@ index 124b8fc..b554cd4 100644
-"$Config{'archname'}-$Config{'osvers'}" or
- die "Errno architecture ($Config{'archname'}-$Config{'osvers'}) does not match executable architecture (\$Config{'archname'}-\$Config{'osvers'})";
-
- \$VERSION = "$VERSION";
+ our \$VERSION = "$VERSION";
\$VERSION = eval \$VERSION;
- \@ISA = qw(Exporter);
---
-tg: (a508b62..) debian/errno_ver (depends on: upstream)
+ our \@ISA = 'Exporter';
diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/extutils_set_libperl_path.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/extutils_set_libperl_path.diff
new file mode 100644
index 0000000..4c2da32
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/extutils_set_libperl_path.diff
@@ -0,0 +1,23 @@
+From 334ac01a8306485ed901f4fb45d79f39a944fe77 Mon Sep 17 00:00:00 2001
+From: Brendan O'Dea <bod at debian.org>
+Date: Tue, 8 Mar 2005 19:30:38 +1100
+Subject: EU:MM: Set location of libperl.a to /usr/lib
+
+Patch-Name: debian/extutils_set_libperl_path.diff
+---
+ cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm | 2 +-
+ 1 files changed, 1 insertions(+), 1 deletions(-)
+
+diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
+index 4ee6b3f..42bbb83 100644
+--- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
++++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
+@@ -2409,7 +2409,7 @@ MAP_PRELIBS = $Config{perllibs} $Config{cryptlib}
+ ($lperl = $libperl) =~ s/\$\(A\)/$self->{LIB_EXT}/;
+ }
+ unless ($libperl && -f $lperl) { # Ilya's code...
+- my $dir = $self->{PERL_SRC} || "$self->{PERL_ARCHLIB}/CORE";
++ my $dir = $self->{PERL_SRC} || "/usr/lib";
+ $dir = "$self->{PERL_ARCHLIB}/.." if $self->{UNINSTALLED_PERL};
+ $libperl ||= "libperl$self->{LIB_EXT}";
+ $libperl = "$dir/$libperl";
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/fakeroot.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/fakeroot.diff
similarity index 79%
rename from meta/recipes-devtools/perl/perl-5.12.3/debian/fakeroot.diff
rename to meta/recipes-devtools/perl/perl-5.14.2/debian/fakeroot.diff
index 2c8def5..bd90af9 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/fakeroot.diff
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/fakeroot.diff
@@ -1,5 +1,6 @@
-Upstream-Status:Inappropriate [debian patch]
-
+From a46a7107fb045ffa6047488b8002fec97b621a11 Mon Sep 17 00:00:00 2001
+From: Brendan O'Dea <bod at debian.org>
+Date: Fri, 18 Mar 2005 22:22:25 +1100
Subject: Postpone LD_LIBRARY_PATH evaluation to the binary targets.
Modify the setting of LD_LIBRARY_PATH to append pre-existing values at the
@@ -9,16 +10,16 @@ This is required when building packages with dpkg-buildpackage and fakeroot,
since fakeroot (which now sets LD_LIBRARY_PATH) is not used for the "build"
rule where the Makefile is created, but is for the clean/binary* targets.
-
+Patch-Name: debian/fakeroot.diff
---
Makefile.SH | 9 ++-------
1 files changed, 2 insertions(+), 7 deletions(-)
diff --git a/Makefile.SH b/Makefile.SH
-index fc13b2b..d420229 100755
+index eb6326a..1dac585 100755
--- a/Makefile.SH
+++ b/Makefile.SH
-@@ -50,12 +50,7 @@ case "$useshrplib" in
+@@ -36,12 +36,7 @@ case "$useshrplib" in
true)
# Prefix all runs of 'miniperl' and 'perl' with
# $ldlibpth so that ./perl finds *this* shared libperl.
@@ -32,7 +33,7 @@ index fc13b2b..d420229 100755
pldlflags="$cccdlflags"
static_ldflags=''
-@@ -126,7 +121,7 @@ true)
+@@ -112,7 +107,7 @@ true)
;;
esac
case "$ldlibpthname" in
@@ -41,5 +42,3 @@ index fc13b2b..d420229 100755
*)
case "$osname" in
os2)
---
-tg: (a508b62..) debian/fakeroot (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/find_html2text.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/find_html2text.diff
new file mode 100644
index 0000000..16de7ad
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/find_html2text.diff
@@ -0,0 +1,35 @@
+From ca66b95be369b47a6d372c3653be57cd737f7f21 Mon Sep 17 00:00:00 2001
+From: Andreas Marschke <andreas.marschke at googlemail.com>
+Date: Sat, 17 Sep 2011 11:38:42 +0100
+Subject: Configure CPAN::Distribution with correct name of html2text
+
+Bug-Debian: http://bugs.debian.org/640479
+Patch-Name: debian/find_html2text.diff
+
+If you use cpan from Debian you usually wind up trying to read online
+documentation through it. Unfortunately cpan can't find the
+html2text.pl script even though it is installed using the Debian
+package 'html2text'.
+
+Please see the attached patch for a quick fix of this issue.
+
+[Maintainer's note: html2text in Debian is not the same implementation
+as the html2text.pl which is expected, but should provide similar
+functionality].
+---
+ cpan/CPAN/lib/CPAN/Distribution.pm | 2 +-
+ 1 files changed, 1 insertions(+), 1 deletions(-)
+
+diff --git a/cpan/CPAN/lib/CPAN/Distribution.pm b/cpan/CPAN/lib/CPAN/Distribution.pm
+index 637ab27..a8193d9 100644
+--- a/cpan/CPAN/lib/CPAN/Distribution.pm
++++ b/cpan/CPAN/lib/CPAN/Distribution.pm
+@@ -3715,7 +3715,7 @@ sub _display_url {
+ if $CPAN::DEBUG;
+
+ # should we define it in the config instead?
+- my $html_converter = "html2text.pl";
++ my $html_converter = "html2text";
+
+ my $web_browser = $CPAN::Config->{'lynx'} || undef;
+ my $web_browser_out = $web_browser
diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/document_makemaker_ccflags.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/document_makemaker_ccflags.diff
new file mode 100644
index 0000000..3bda8f7
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/document_makemaker_ccflags.diff
@@ -0,0 +1,31 @@
+From f0e3a51bd7286788e410510af86a6c07edac4445 Mon Sep 17 00:00:00 2001
+From: Niko Tyni <ntyni at debian.org>
+Date: Mon, 30 May 2011 22:54:24 +0300
+Subject: Document that CCFLAGS should include $Config{ccflags}
+
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=68613
+Bug-Debian: http://bugs.debian.org/628522
+
+Compiling XS extensions without $Config{ccflags} can break the
+binary interface on some platforms.
+
+Patch-Name: fixes/document_makemaker_ccflags.diff
+---
+ cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm | 4 ++++
+ 1 files changed, 4 insertions(+), 0 deletions(-)
+
+diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm
+index be9624e..c56ca8f 100644
+--- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm
++++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm
+@@ -1524,6 +1524,10 @@ currently used by MakeMaker but may be handy in Makefile.PLs.
+ String that will be included in the compiler call command line between
+ the arguments INC and OPTIMIZE.
+
++The default value is taken from $Config{ccflags}. When overriding
++CCFLAGS, make sure to include the $Config{ccflags} settings to avoid
++binary incompatibilities.
++
+ =item CONFIG
+
+ Arrayref. E.g. [qw(archname manext)] defines ARCHNAME & MANEXT from
diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/extutils-cbuilder-cflags.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/extutils-cbuilder-cflags.diff
new file mode 100644
index 0000000..cd86a76
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/extutils-cbuilder-cflags.diff
@@ -0,0 +1,86 @@
+From 0c91624f1f9ec46a6f13cad3031b706213233479 Mon Sep 17 00:00:00 2001
+From: Niko Tyni <ntyni at debian.org>
+Date: Thu, 28 Apr 2011 09:18:54 +0300
+Subject: Append CFLAGS and LDFLAGS to their Config.pm counterparts in
+ EU::CBuilder
+
+Bug: http://rt.perl.org/rt3//Public/Bug/Display.html?id=89478
+Bug-Debian: http://bugs.debian.org/624460
+Origin: upstream, http://perl5.git.perl.org/perl.git/commitdiff/011e8fb476b5fb27c9aa613360d918aa0b798b3d
+
+Since ExtUtils::CBuilder 0.27_04 (bleadperl commit 06e8058f27e4),
+CFLAGS and LDFLAGS from the environment have overridden the Config.pm
+ccflags and ldflags settings. This can cause binary incompatibilities
+between the core Perl and extensions built with EU::CBuilder.
+
+Append to the Config.pm values rather than overriding them.
+
+Patch-Name: fixes/extutils-cbuilder-cflags.diff
+---
+ .../lib/ExtUtils/CBuilder/Base.pm | 6 +++-
+ dist/ExtUtils-CBuilder/t/04-base.t | 25 +++++++++++++++++++-
+ 2 files changed, 28 insertions(+), 3 deletions(-)
+
+diff --git a/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm b/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm
+index b572312..2255c51 100644
+--- a/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm
++++ b/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm
+@@ -40,11 +40,13 @@ sub new {
+ $self->{config}{$k} = $v unless exists $self->{config}{$k};
+ }
+ $self->{config}{cc} = $ENV{CC} if defined $ENV{CC};
+- $self->{config}{ccflags} = $ENV{CFLAGS} if defined $ENV{CFLAGS};
++ $self->{config}{ccflags} = join(" ", $self->{config}{ccflags}, $ENV{CFLAGS})
++ if defined $ENV{CFLAGS};
+ $self->{config}{cxx} = $ENV{CXX} if defined $ENV{CXX};
+ $self->{config}{cxxflags} = $ENV{CXXFLAGS} if defined $ENV{CXXFLAGS};
+ $self->{config}{ld} = $ENV{LD} if defined $ENV{LD};
+- $self->{config}{ldflags} = $ENV{LDFLAGS} if defined $ENV{LDFLAGS};
++ $self->{config}{ldflags} = join(" ", $self->{config}{ldflags}, $ENV{LDFLAGS})
++ if defined $ENV{LDFLAGS};
+
+ unless ( exists $self->{config}{cxx} ) {
+ my ($ccpath, $ccbase, $ccsfx ) = fileparse($self->{config}{cc}, qr/\.[^.]*/);
+diff --git a/dist/ExtUtils-CBuilder/t/04-base.t b/dist/ExtUtils-CBuilder/t/04-base.t
+index db0ef98..49819a1 100644
+--- a/dist/ExtUtils-CBuilder/t/04-base.t
++++ b/dist/ExtUtils-CBuilder/t/04-base.t
+@@ -1,7 +1,7 @@
+ #! perl -w
+
+ use strict;
+-use Test::More tests => 50;
++use Test::More tests => 64;
+ use Config;
+ use Cwd;
+ use File::Path qw( mkpath );
+@@ -328,6 +328,29 @@ is_deeply( $mksymlists_args,
+ "_prepare_mksymlists_args(): got expected arguments for Mksymlists",
+ );
+
++my %testvars = (
++ CFLAGS => 'ccflags',
++ LDFLAGS => 'ldflags',
++);
++
++while (my ($VAR, $var) = each %testvars) {
++ local $ENV{$VAR};
++ $base = ExtUtils::CBuilder::Base->new( quiet => 1 );
++ ok( $base, "ExtUtils::CBuilder::Base->new() returned true value" );
++ isa_ok( $base, 'ExtUtils::CBuilder::Base' );
++ like($base->{config}{$var}, qr/\Q$Config{$var}/,
++ "honours $var from Config.pm");
++
++ $ENV{$VAR} = "-foo -bar";
++ $base = ExtUtils::CBuilder::Base->new( quiet => 1 );
++ ok( $base, "ExtUtils::CBuilder::Base->new() returned true value" );
++ isa_ok( $base, 'ExtUtils::CBuilder::Base' );
++ like($base->{config}{$var}, qr/\Q$ENV{$VAR}/,
++ "honours $VAR from the environment");
++ like($base->{config}{$var}, qr/\Q$Config{$var}/,
++ "doesn't override $var from Config.pm with $VAR from the environment");
++}
++
+ #####
+
+ for ($source_file, $object_file, $lib_file) {
diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/h2ph-multiarch.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/h2ph-multiarch.diff
new file mode 100644
index 0000000..b18b464
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/h2ph-multiarch.diff
@@ -0,0 +1,69 @@
+From 37969e249dfc593ebabfcb682893b6c69dc6b313 Mon Sep 17 00:00:00 2001
+From: Niko Tyni <ntyni at debian.org>
+Date: Wed, 18 May 2011 21:44:06 -0700
+Subject: Make h2ph correctly search gcc include directories
+
+Bug: http://rt.perl.org/rt3/Public/Bug/Display.html?id=90122
+Bug-Debian: http://bugs.debian.org/625808
+Origin: upstream, http://perl5.git.perl.org/perl.git/commit/e7ec705d9b91d35fa99dc50d0a232b6372160a77
+
+System header conversion with "h2ph -a" is currently broken on Ubuntu
+Natty and Oneiric (unless the gcc-multilib package is installed for
+backward compatibility), resulting in things like
+
+ # perl -e 'require "syscall.ph"'
+ Can't locate asm/unistd.ph in @INC [...]
+
+This happens because Ubuntu has switched to a 'multiarch' setup, see
+<https://wiki.ubuntu.com/MultiarchSpec> for details.
+
+The asm subdirectory isn't in $Config{usrinc} anymore: /usr/include/asm
+is now /usr/include/x86_64-linux-gnu/asm. (The third component of the
+new path varies with the actual architecture.)
+
+gcc --print-search-dirs doesn't really tell anything about where gcc
+looks for the include directories, it was just used to find the gcc
+internal directory prefix.
+
+Parse the output of "gcc -v -E" instead, and append $Config{usrinc}
+for safety. Duplicates shouldn't matter.
+
+The h2ph "-a" switch isn't currently tested automatically, and that
+seems nontrivial to do portably. Manual testing was done with
+
+ # mkdir ttt
+ # ./perl -Ilib ./utils/h2ph -a -d $(pwd)/ttt syscall.h
+
+The gcc invocation has been tested to work with gcc 4.6, 4.1, and 3.3.
+
+http://bugs.debian.org/625808
+https://bugs.launchpad.net/bugs/777903
+
+Patch-Name: fixes/h2ph-multiarch.diff
+---
+ utils/h2ph.PL | 12 ++----------
+ 1 files changed, 2 insertions(+), 10 deletions(-)
+
+diff --git a/utils/h2ph.PL b/utils/h2ph.PL
+index 87f3c7d..4545d6d 100644
+--- a/utils/h2ph.PL
++++ b/utils/h2ph.PL
+@@ -761,16 +761,8 @@ sub queue_includes_from
+ # non-GCC?) C compilers, but gcc uses additional include directories.
+ sub inc_dirs
+ {
+- my $from_gcc = `LC_ALL=C $Config{cc} -v 2>&1`;
+- if( !( $from_gcc =~ s:^Reading specs from (.*?)/specs\b.*:$1/include:s ) )
+- { # gcc-4+ :
+- $from_gcc = `LC_ALL=C $Config{cc} -print-search-dirs 2>&1`;
+- if ( !($from_gcc =~ s/^install:\s*([^\s]+[^\s\/])([\s\/]*).*$/$1\/include/s) )
+- {
+- $from_gcc = '';
+- };
+- };
+- length($from_gcc) ? ($from_gcc, $from_gcc . "-fixed", $Config{usrinc}) : ($Config{usrinc});
++ my $from_gcc = `LC_ALL=C $Config{cc} -v -E - < /dev/null 2>&1 | awk '/^#include/, /^End of search list/' | grep '^ '`;
++ length($from_gcc) ? (split(' ', $from_gcc), $Config{usrinc}) : ($Config{usrinc});
+ }
+
+
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/hurd-ccflags.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/hurd-ccflags.diff
similarity index 67%
rename from meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/hurd-ccflags.diff
rename to meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/hurd-ccflags.diff
index 8868c64..901f98d 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/hurd-ccflags.diff
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/hurd-ccflags.diff
@@ -1,12 +1,16 @@
-Upstream-Status:Inappropriate [debian patch]
-
-Author: Samuel Thibault <sthibault at debian.org>
+From f66e8575cb0ca11171f43efe0f9e3c6e790b75bc Mon Sep 17 00:00:00 2001
+From: Samuel Thibault <sthibault at debian.org>
+Date: Wed, 4 Aug 2010 13:34:05 +0300
Subject: Make hints/gnu.sh append to $ccflags rather than overriding them
+
+Bug: http://rt.perl.org/rt3/Public/Bug/Display.html?id=92244
Bug-Debian: http://bugs.debian.org/587901
+Origin: upstream, http://perl5.git.perl.org/perl.git/commit/a190e648879
Don't override possible extra $ccflags values given to Configure
on GNU/Hurd.
+Patch-Name: fixes/hurd-ccflags.diff
---
hints/gnu.sh | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
@@ -24,5 +28,3 @@ index 2cfce54..c1ba2db 100644
# The following routines are only available as stubs in GNU libc.
# XXX remove this once metaconf detects the GNU libc stubs.
---
-tg: (a508b62..) fixes/hurd-ccflags (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/hurd-hints.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/hurd-hints.diff
new file mode 100644
index 0000000..1ba9cbd
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/hurd-hints.diff
@@ -0,0 +1,48 @@
+From d6fd7595fcd04b332e7449f59ea298639f10a183 Mon Sep 17 00:00:00 2001
+From: Pino Toscano <pino at debian.org>
+Date: Wed, 10 Aug 2011 08:11:33 +0300
+Subject: Improve general GNU hints, needed for GNU/Hurd.
+
+Bug-Debian: http://bugs.debian.org/636609
+
+Patch-Name: fixes/hurd-hints.diff
+---
+ ext/ODBM_File/hints/gnu.pl | 1 +
+ hints/gnu.sh | 12 ++++++++++++
+ 2 files changed, 13 insertions(+), 0 deletions(-)
+ create mode 100644 ext/ODBM_File/hints/gnu.pl
+
+diff --git a/ext/ODBM_File/hints/gnu.pl b/ext/ODBM_File/hints/gnu.pl
+new file mode 100644
+index 0000000..db63567
+--- /dev/null
++++ b/ext/ODBM_File/hints/gnu.pl
+@@ -0,0 +1 @@
++do './hints/linux.pl' or die $@;
+diff --git a/hints/gnu.sh b/hints/gnu.sh
+index c1ba2db..f075642 100644
+--- a/hints/gnu.sh
++++ b/hints/gnu.sh
+@@ -8,10 +8,22 @@ set `echo X "$libswanted "| sed -e 's/ nsl / /' -e 's/ c / pthread /'`
+ shift
+ libswanted="$*"
+
++# Debian 4.0 puts ndbm in the -lgdbm_compat library.
++libswanted="$libswanted gdbm_compat"
++
+ case "$optimize" in
+ '') optimize='-O2' ;;
+ esac
+
++case "$plibpth" in
++'') plibpth=`gcc -print-search-dirs | grep libraries |
++ cut -f2- -d= | tr ':' $trnl | grep -v 'gcc' | sed -e 's:/$::'`
++ set X $plibpth # Collapse all entries on one line
++ shift
++ plibpth="$*"
++ ;;
++esac
++
+ # Flags needed to produce shared libraries.
+ lddlflags='-shared'
+
diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/index-tainting.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/index-tainting.diff
new file mode 100644
index 0000000..204e999
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/index-tainting.diff
@@ -0,0 +1,73 @@
+From e25298a339dd6679f1b080f0125ac1b237b87950 Mon Sep 17 00:00:00 2001
+From: David Mitchell <davem at iabyn.com>
+Date: Tue, 28 Jun 2011 17:04:40 +0100
+Subject: RT 64804: tainting with index() of a constant
+
+Bug: http://rt.perl.org/rt3/Public/Bug/Display.html?id=64804
+Bug-Debian: http://bugs.debian.org/291450
+Origin: upstream, http://perl5.git.perl.org/perl.git/commit/3b36395d31cf0a2f3a017505cd0ea857a7acb5d1
+
+At compile time, ck_index with a tainted constant set PL_tainted,
+which remained on during the rest of compilation, tainting all other
+constants.
+
+Fix this by saving and restoring PL_tainted across the call to
+fbm_compile, which is what sets PL_tainted.
+
+Patch-Name: fixes/index-tainting.diff
+---
+ op.c | 5 ++++-
+ t/op/taint.t | 16 +++++++++++++++-
+ 2 files changed, 19 insertions(+), 2 deletions(-)
+
+diff --git a/op.c b/op.c
+index e21b9a4..973df13 100644
+--- a/op.c
++++ b/op.c
+@@ -7780,8 +7780,11 @@ Perl_ck_index(pTHX_ OP *o)
+ OP *kid = cLISTOPo->op_first->op_sibling; /* get past pushmark */
+ if (kid)
+ kid = kid->op_sibling; /* get past "big" */
+- if (kid && kid->op_type == OP_CONST)
++ if (kid && kid->op_type == OP_CONST) {
++ const bool save_taint = PL_tainted;
+ fbm_compile(((SVOP*)kid)->op_sv, 0);
++ PL_tainted = save_taint;
++ }
+ }
+ return ck_fun(o);
+ }
+diff --git a/t/op/taint.t b/t/op/taint.t
+index 9df6fee..a300b9b 100644
+--- a/t/op/taint.t
++++ b/t/op/taint.t
+@@ -17,7 +17,7 @@ BEGIN {
+ use strict;
+ use Config;
+
+-plan tests => 774;
++plan tests => 778;
+
+ $| = 1;
+
+@@ -2144,6 +2144,20 @@ end
+ is_tainted $dest, "ucfirst(tainted) taints its return value";
+ }
+
++
++# tainted constants and index()
++# RT 64804; http://bugs.debian.org/291450
++{
++ ok(tainted $old_env_path, "initial taintedness");
++ BEGIN { no strict 'refs'; my $v = $old_env_path; *{"::C"} = sub () { $v }; }
++ ok(tainted C, "constant is tainted properly");
++ ok(!tainted "", "tainting not broken yet");
++ index(undef, C);
++ ok(!tainted "", "tainting still works after index() of the constant");
++}
++
++
++
+ # This may bomb out with the alarm signal so keep it last
+ SKIP: {
+ skip "No alarm()" unless $Config{d_alarm};
diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/module-build-home-directory.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/module-build-home-directory.diff
new file mode 100644
index 0000000..1c9009b
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/module-build-home-directory.diff
@@ -0,0 +1,37 @@
+From 9266292f705f2a3b6e5b97fa50e5f2be31371d5c Mon Sep 17 00:00:00 2001
+From: Dominic Hargreaves <dom at earth.li>
+Date: Mon, 2 May 2011 10:35:04 +0100
+Subject: Fix failing tilde test when run under a UID without a passwd entry
+
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=67893
+Bug-Debian: http://bugs.debian.org/624850
+
+Patch-Name: fixes/module-build-home-directory.diff
+---
+ cpan/Module-Build/t/tilde.t | 6 ++++--
+ 1 files changed, 4 insertions(+), 2 deletions(-)
+
+diff --git a/cpan/Module-Build/t/tilde.t b/cpan/Module-Build/t/tilde.t
+index fac821b..04f0210 100644
+--- a/cpan/Module-Build/t/tilde.t
++++ b/cpan/Module-Build/t/tilde.t
+@@ -46,7 +46,8 @@ SKIP: {
+
+ unless (defined $home) {
+ my @info = eval { getpwuid $> };
+- skip "No home directory for tilde-expansion tests", 15 if $@;
++ skip "No home directory for tilde-expansion tests", 15 if $@
++ or !defined $info[7];
+ $home = $info[7];
+ }
+
+@@ -95,7 +96,8 @@ SKIP: {
+ # Again, with named users
+ SKIP: {
+ my @info = eval { getpwuid $> };
+- skip "No home directory for tilde-expansion tests", 1 if $@;
++ 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";
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/net_smtp_docs.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/net_smtp_docs.diff
similarity index 76%
rename from meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/net_smtp_docs.diff
rename to meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/net_smtp_docs.diff
index 2307a09..549fc10 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/net_smtp_docs.diff
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/net_smtp_docs.diff
@@ -1,10 +1,12 @@
-Upstream-Status:Inappropriate [debian patch]
-
+From ab32eba7fcc45d864c22e8f4ee02e0a6712070e0 Mon Sep 17 00:00:00 2001
+From: Brendan O'Dea <bod at debian.org>
+Date: Thu, 20 Sep 2007 19:47:14 +1000
Subject: Document the Net::SMTP 'Port' option
+
Bug-Debian: http://bugs.debian.org/100195
Bug: http://rt.cpan.org/Public/Bug/Display.html?id=36038
-
+Patch-Name: fixes/net_smtp_docs.diff
---
cpan/libnet/Net/SMTP.pm | 1 +
1 files changed, 1 insertions(+), 0 deletions(-)
@@ -21,5 +23,3 @@ index a28496d..07b2498 100644
Example:
---
-tg: (a508b62..) fixes/net_smtp_docs (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/pod_fixes.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/pod_fixes.diff
new file mode 100644
index 0000000..eb0eb0b
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/pod_fixes.diff
@@ -0,0 +1,145 @@
+From c6b1fdd18dab0236458502564e54c180bb0ce341 Mon Sep 17 00:00:00 2001
+From: Keith Thompson <kst at mib.org>
+Date: Fri, 29 Jul 2011 17:17:00 -0700
+Subject: Fix typos in several pod/perl*.pod files
+
+Bug-Debian: http://bugs.debian.org/637816
+Origin: http://perl5.git.perl.org/perl.git/commit/7698aede74509727f7bca31c58fc7a53b182315d
+Patch-Name: fixes/pod_fixes.diff
+---
+ pod/perlfunc.pod | 8 ++++----
+ pod/perlglossary.pod | 10 +++++-----
+ pod/perlmod.pod | 4 ++--
+ pod/perlretut.pod | 6 +++---
+ 4 files changed, 14 insertions(+), 14 deletions(-)
+
+diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
+index 2ee3637..719a740 100644
+--- a/pod/perlfunc.pod
++++ b/pod/perlfunc.pod
+@@ -3918,7 +3918,7 @@ count. A numeric repeat count may optionally be enclosed in brackets, as
+ in C<pack("C[80]", @arr)>. The repeat count gobbles that many values from
+ the LIST when used with all format types other than C<a>, C<A>, C<Z>, C<b>,
+ C<B>, C<h>, C<H>, C<@>, C<.>, C<x>, C<X>, and C<P>, where it means
+-something else, dscribed below. Supplying a C<*> for the repeat count
++something else, described below. Supplying a C<*> for the repeat count
+ instead of a number means to use however many items are left, except for:
+
+ =over
+@@ -5870,7 +5870,7 @@ sometimes saying the opposite, for example) the results are not
+ well-defined.
+
+ Because C<< <=> >> returns C<undef> when either operand is C<NaN>
+-(not-a-number), and laso because C<sort> raises an exception unless the
++(not-a-number), and also because C<sort> raises an exception unless the
+ result of a comparison is defined, be careful when sorting with a
+ comparison function like C<< $a <=> $b >> any lists that might contain a
+ C<NaN>. The following example takes advantage that C<NaN != NaN> to
+@@ -5958,7 +5958,7 @@ specified.
+
+ A pattern matching the empty string (not to be confused with
+ an empty pattern C<//>, which is just one member of the set of patterns
+-matching the epmty string), splits EXPR into individual
++matching the empty string), splits EXPR into individual
+ characters. For example:
+
+ print join(':', split(/ */, 'hi there')), "\n";
+@@ -6222,7 +6222,7 @@ For example:
+ printf '<%.1e>', 10; # prints "<1.0e+01>"
+
+ For "g" and "G", this specifies the maximum number of digits to show,
+-including thoe prior to the decimal point and those after it; for
++including those prior to the decimal point and those after it; for
+ example:
+
+ # These examples are subject to system-specific variation.
+diff --git a/pod/perlglossary.pod b/pod/perlglossary.pod
+index 639ce33..191371c 100644
+--- a/pod/perlglossary.pod
++++ b/pod/perlglossary.pod
+@@ -507,7 +507,7 @@ the class (its L<objects|/object>). See also L</inheritance>.
+
+ =item class method
+
+-A L</method> whose L</invocand> is a L</package> name, not an
++A L</method> whose L</invocant> is a L</package> name, not an
+ L</object> reference. A method associated with the class as a whole.
+
+ =item client
+@@ -1470,7 +1470,7 @@ Perl, C<print STDOUT "$foo\n";> can be understood as "verb
+ indirect-object object" where L</STDOUT> is the recipient of the
+ L<print|perlfunc/print> action, and C<"$foo"> is the object being
+ printed. Similarly, when invoking a L</method>, you might place the
+-invocand between the method and its arguments:
++invocant between the method and its arguments:
+
+ $gollum = new Pathetic::Creature "Smeagol";
+ give $gollum "Fisssssh!";
+@@ -1548,11 +1548,11 @@ of compiler that takes a program and turns it into a more executable
+ form (L<syntax trees|/syntax tree>) within the I<perl> process itself,
+ which the Perl L</run time> system then interprets.
+
+-=item invocand
++=item invocant
+
+ The agent on whose behalf a L</method> is invoked. In a L</class>
+-method, the invocand is a package name. In an L</instance> method,
+-the invocand is an object reference.
++method, the invocant is a package name. In an L</instance> method,
++the invocant is an object reference.
+
+ =item invocation
+
+diff --git a/pod/perlmod.pod b/pod/perlmod.pod
+index 5266f19..17de73e 100644
+--- a/pod/perlmod.pod
++++ b/pod/perlmod.pod
+@@ -571,7 +571,7 @@ like for example handle the cloning of non-Perl data, if necessary.
+ C<CLONE> will be called once as a class method for every package that has it
+ defined (or inherits it). It will be called in the context of the new thread,
+ so all modifications are made in the new area. Currently CLONE is called with
+-no parameters other than the invocand package name, but code should not assume
++no parameters other than the invocant package name, but code should not assume
+ that this will remain unchanged, as it is likely that in future extra parameters
+ will be passed in to give more information about the state of cloning.
+
+@@ -593,7 +593,7 @@ to make use of the objects, then a more sophisticated approach is
+ needed.
+
+ Like C<CLONE>, C<CLONE_SKIP> is currently called with no parameters other
+-than the invocand package name, although that may change. Similarly, to
++than the invocant package name, although that may change. Similarly, to
+ allow for future expansion, the return value should be a single C<0> or
+ C<1> value.
+
+diff --git a/pod/perlretut.pod b/pod/perlretut.pod
+index ea80594..1c65f5b 100644
+--- a/pod/perlretut.pod
++++ b/pod/perlretut.pod
+@@ -781,7 +781,7 @@ so may lead to surprising and unsatisfactory results.
+ =head2 Relative backreferences
+
+ Counting the opening parentheses to get the correct number for a
+-backreference is errorprone as soon as there is more than one
++backreference is error-prone as soon as there is more than one
+ capturing group. A more convenient technique became available
+ with Perl 5.10: relative backreferences. To refer to the immediately
+ preceding capture group one now may write C<\g{-1}>, the next but
+@@ -1537,7 +1537,7 @@ the regexp in the I<last successful match> is used instead. So we have
+
+ =head3 Global matching
+
+-The final two modifiers we will disccuss here,
++The final two modifiers we will discuss here,
+ C<//g> and C<//c>, concern multiple matches.
+ The modifier C<//g> stands for global matching and allows the
+ matching operator to match within a string as many times as possible.
+@@ -1870,7 +1870,7 @@ substituted.
+
+ C<\Q>, C<\L>, C<\l>, C<\U>, C<\u> and C<\E> are actually part of
+ double-quotish syntax, and not part of regexp syntax proper. They will
+-work if they appear in a regular expression embeddded directly in a
++work if they appear in a regular expression embedded directly in a
+ program, but not when contained in a string that is interpolated in a
+ pattern.
+
diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/respect_umask.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/respect_umask.diff
new file mode 100644
index 0000000..a84c9f9
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/respect_umask.diff
@@ -0,0 +1,153 @@
+From 0d1ab4f799eb14d5488fcc959f4a6bdec548b370 Mon Sep 17 00:00:00 2001
+From: Brendan O'Dea <bod at debian.org>
+Date: Tue, 8 Mar 2005 19:30:38 +1100
+Subject: Respect umask during installation
+
+This is needed to satisfy Debian policy regarding group-writable
+site directories.
+
+Patch-Name: fixes/respect_umask.diff
+---
+ cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm | 18 +++++++++---------
+ dist/ExtUtils-Install/lib/ExtUtils/Install.pm | 18 +++++++++---------
+ 2 files changed, 18 insertions(+), 18 deletions(-)
+
+diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
+index 6964eea..865d36d 100644
+--- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
++++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
+@@ -2053,7 +2053,7 @@ doc__install : doc_site_install
+ $(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site
+
+ pure_perl_install :: all
+- $(NOECHO) $(MOD_INSTALL) \
++ $(NOECHO) umask 022; $(MOD_INSTALL) \
+ read }.$self->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q{ \
+ write }.$self->catfile('$(DESTINSTALLARCHLIB)','auto','$(FULLEXT)','.packlist').q{ \
+ $(INST_LIB) $(DESTINSTALLPRIVLIB) \
+@@ -2067,7 +2067,7 @@ pure_perl_install :: all
+
+
+ pure_site_install :: all
+- $(NOECHO) $(MOD_INSTALL) \
++ $(NOECHO) umask 022; $(MOD_INSTALL) \
+ read }.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{ \
+ write }.$self->catfile('$(DESTINSTALLSITEARCH)','auto','$(FULLEXT)','.packlist').q{ \
+ $(INST_LIB) $(DESTINSTALLSITELIB) \
+@@ -2080,7 +2080,7 @@ pure_site_install :: all
+ }.$self->catdir('$(PERL_ARCHLIB)','auto','$(FULLEXT)').q{
+
+ pure_vendor_install :: all
+- $(NOECHO) $(MOD_INSTALL) \
++ $(NOECHO) umask 022; $(MOD_INSTALL) \
+ read }.$self->catfile('$(VENDORARCHEXP)','auto','$(FULLEXT)','.packlist').q{ \
+ write }.$self->catfile('$(DESTINSTALLVENDORARCH)','auto','$(FULLEXT)','.packlist').q{ \
+ $(INST_LIB) $(DESTINSTALLVENDORLIB) \
+@@ -2092,8 +2092,8 @@ pure_vendor_install :: all
+
+ doc_perl_install :: all
+ $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod
+- -$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
+- -$(NOECHO) $(DOC_INSTALL) \
++ -$(NOECHO) umask 022; $(MKPATH) $(DESTINSTALLARCHLIB)
++ -$(NOECHO) umask 022; $(DOC_INSTALL) \
+ "Module" "$(NAME)" \
+ "installed into" "$(INSTALLPRIVLIB)" \
+ LINKTYPE "$(LINKTYPE)" \
+@@ -2103,8 +2103,8 @@ doc_perl_install :: all
+
+ doc_site_install :: all
+ $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod
+- -$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
+- -$(NOECHO) $(DOC_INSTALL) \
++ -$(NOECHO) umask 022; $(MKPATH) $(DESTINSTALLARCHLIB)
++ -$(NOECHO) umask 022; $(DOC_INSTALL) \
+ "Module" "$(NAME)" \
+ "installed into" "$(INSTALLSITELIB)" \
+ LINKTYPE "$(LINKTYPE)" \
+@@ -2114,8 +2114,8 @@ doc_site_install :: all
+
+ doc_vendor_install :: all
+ $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod
+- -$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB)
+- -$(NOECHO) $(DOC_INSTALL) \
++ -$(NOECHO) umask 022; $(MKPATH) $(DESTINSTALLARCHLIB)
++ -$(NOECHO) umask 022; $(DOC_INSTALL) \
+ "Module" "$(NAME)" \
+ "installed into" "$(INSTALLVENDORLIB)" \
+ LINKTYPE "$(LINKTYPE)" \
+diff --git a/dist/ExtUtils-Install/lib/ExtUtils/Install.pm b/dist/ExtUtils-Install/lib/ExtUtils/Install.pm
+index 3b030a5..cb0e9e0 100644
+--- a/dist/ExtUtils-Install/lib/ExtUtils/Install.pm
++++ b/dist/ExtUtils-Install/lib/ExtUtils/Install.pm
+@@ -468,7 +468,7 @@ sub _can_write_dir {
+
+ =pod
+
+-=item _mkpath($dir,$show,$mode,$verbose,$dry_run)
++=item _mkpath($dir,$show,$verbose,$dry_run)
+
+ Wrapper around File::Path::mkpath() to handle errors.
+
+@@ -485,13 +485,13 @@ writable.
+ =cut
+
+ sub _mkpath {
+- my ($dir,$show,$mode,$verbose,$dry_run)=@_;
++ my ($dir,$show,$verbose,$dry_run)=@_;
+ if ( $verbose && $verbose > 1 && ! -d $dir) {
+ $show= 1;
+- printf "mkpath(%s,%d,%#o)\n", $dir, $show, $mode;
++ printf "mkpath(%s,%d)\n", $dir, $show;
+ }
+ if (!$dry_run) {
+- if ( ! eval { File::Path::mkpath($dir,$show,$mode); 1 } ) {
++ if ( ! eval { File::Path::mkpath($dir,$show); 1 } ) {
+ _choke("Can't create '$dir'","$@");
+ }
+
+@@ -796,7 +796,7 @@ sub install { #XXX OS-SPECIFIC
+ _chdir($cwd);
+ }
+ foreach my $targetdir (sort keys %check_dirs) {
+- _mkpath( $targetdir, 0, 0755, $verbose, $dry_run );
++ _mkpath( $targetdir, 0, $verbose, $dry_run );
+ }
+ foreach my $found (@found_files) {
+ my ($diff, $ffd, $origfile, $mode, $size, $atime, $mtime,
+@@ -810,7 +810,7 @@ sub install { #XXX OS-SPECIFIC
+ $targetfile= _unlink_or_rename( $targetfile, 'tryhard', 'install' )
+ unless $dry_run;
+ } elsif ( ! -d $targetdir ) {
+- _mkpath( $targetdir, 0, 0755, $verbose, $dry_run );
++ _mkpath( $targetdir, 0, $verbose, $dry_run );
+ }
+ print "Installing $targetfile\n";
+
+@@ -850,7 +850,7 @@ sub install { #XXX OS-SPECIFIC
+
+ if ($pack{'write'}) {
+ $dir = install_rooted_dir(dirname($pack{'write'}));
+- _mkpath( $dir, 0, 0755, $verbose, $dry_run );
++ _mkpath( $dir, 0, $verbose, $dry_run );
+ print "Writing $pack{'write'}\n" if $verbose;
+ $packlist->write(install_rooted_file($pack{'write'})) unless $dry_run;
+ }
+@@ -1190,7 +1190,7 @@ be prepended as a directory to each installed file (and directory).
+ sub pm_to_blib {
+ my($fromto,$autodir,$pm_filter) = @_;
+
+- _mkpath($autodir,0,0755);
++ _mkpath($autodir,0);
+ while(my($from, $to) = each %$fromto) {
+ if( -f $to && -s $from == -s $to && -M $to < -M $from ) {
+ print "Skip $to (unchanged)\n";
+@@ -1213,7 +1213,7 @@ sub pm_to_blib {
+ # we wont try hard here. its too likely to mess things up.
+ forceunlink($to);
+ } else {
+- _mkpath(dirname($to),0,0755);
++ _mkpath(dirname($to),0);
+ }
+ if ($need_filtering) {
+ run_filter($pm_filter, $from, $to);
diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/sys-syslog-socket-timeout-kfreebsd.patch b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/sys-syslog-socket-timeout-kfreebsd.patch
new file mode 100644
index 0000000..e29e9b0
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/sys-syslog-socket-timeout-kfreebsd.patch
@@ -0,0 +1,36 @@
+From 9ba88d73444c22788b7c2a212e15dbfe3da2a1af Mon Sep 17 00:00:00 2001
+From: Niko Tyni <ntyni at debian.org>
+Date: Wed, 3 Aug 2011 22:36:24 +0300
+Subject: Use a socket timeout on GNU/kFreeBSD to catch ICMP port unreachable
+ messages
+
+Bug: http://rt.cpan.org/Ticket/Display.html?id=69997
+Bug-Debian: http://bugs.debian.org/627821
+
+Without this, openlog() on a UDP socket may succeed on the FreeBSD kernel
+even when there's no listener, causing test failures.
+
+It seems probable that all FreeBSD-based systems suffer from the
+same issue, but that's for upstream to decide.
+
+Patch-Name: fixes/sys-syslog-socket-timeout-kfreebsd.patch
+---
+ cpan/Sys-Syslog/Syslog.pm | 5 ++++-
+ 1 files changed, 4 insertions(+), 1 deletions(-)
+
+diff --git a/cpan/Sys-Syslog/Syslog.pm b/cpan/Sys-Syslog/Syslog.pm
+index 002e6e4..b445c66 100644
+--- a/cpan/Sys-Syslog/Syslog.pm
++++ b/cpan/Sys-Syslog/Syslog.pm
+@@ -138,7 +138,10 @@ my @fallbackMethods = ();
+ # happy, the timeout is now zero by default on all systems
+ # except on OSX where it is set to 250 msec, and can be set
+ # with the infamous setlogsock() function.
+-$sock_timeout = 0.25 if $^O =~ /darwin/;
++#
++# Debian change: include Debian GNU/kFreeBSD, lower to 1ms
++# see [rt.cpan.org #69997]
++$sock_timeout = 0.001 if $^O =~ /darwin|gnukfreebsd/;
+
+ # coderef for a nicer handling of errors
+ my $err_sub = $options{nofatal} ? \&warnings::warnif : \&croak;
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/instmodsh_doc.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/instmodsh_doc.diff
similarity index 81%
rename from meta/recipes-devtools/perl/perl-5.12.3/debian/instmodsh_doc.diff
rename to meta/recipes-devtools/perl/perl-5.14.2/debian/instmodsh_doc.diff
index 5555dfc..ab0133d 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/instmodsh_doc.diff
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/instmodsh_doc.diff
@@ -1,8 +1,9 @@
-Upstream-Status:Inappropriate [debian patch]
-
+From ab89a31d1f46388a61953349c3546e4082cd38de Mon Sep 17 00:00:00 2001
+From: Brendan O'Dea <bod at debian.org>
+Date: Tue, 8 Mar 2005 19:30:38 +1100
Subject: Debian policy doesn't install .packlist files for core or vendor.
-
+Patch-Name: debian/instmodsh_doc.diff
---
cpan/ExtUtils-MakeMaker/bin/instmodsh | 4 +++-
1 files changed, 3 insertions(+), 1 deletions(-)
@@ -24,5 +25,3 @@ index 5874aa6..6a2f03e 100644
=head1 SEE ALSO
ExtUtils::Installed
---
-tg: (a508b62..) debian/instmodsh_doc (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/ld_run_path.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/ld_run_path.diff
similarity index 68%
rename from meta/recipes-devtools/perl/perl-5.12.3/debian/ld_run_path.diff
rename to meta/recipes-devtools/perl/perl-5.14.2/debian/ld_run_path.diff
index 02610d3..d38b04b 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/ld_run_path.diff
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/ld_run_path.diff
@@ -1,25 +1,24 @@
-Upstream-Status:Inappropriate [debian patch]
-
+From 704f6017119ce0301a9105944512120a38a43a02 Mon Sep 17 00:00:00 2001
+From: Brendan O'Dea <bod at debian.org>
+Date: Fri, 18 Mar 2005 22:22:25 +1100
Subject: Remove standard libs from LD_RUN_PATH as per Debian policy.
-
+Patch-Name: debian/ld_run_path.diff
---
.../ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm | 3 +++
1 files changed, 3 insertions(+), 0 deletions(-)
diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm
-index b807e97..6c955d7 100644
+index cf4826f..eb212b5 100644
--- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm
+++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm
-@@ -53,6 +53,9 @@ sub _unix_os2_ext {
+@@ -54,6 +54,9 @@ sub _unix_os2_ext {
my($pwd) = cwd(); # from Cwd.pm
my($found) = 0;
+ # Debian-specific: don't use LD_RUN_PATH for standard dirs
-+ $ld_run_path_seen{$_}++ for qw(/lib /usr/lib /usr/X11R6/lib);
++ $ld_run_path_seen{$_}++ for @libpath;
+
foreach my $thislib (split ' ', $potential_libs) {
# Handle possible linker path arguments.
---
-tg: (a508b62..) debian/ld_run_path (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/libnet_config_path.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/libnet_config_path.diff
similarity index 85%
rename from meta/recipes-devtools/perl/perl-5.12.3/debian/libnet_config_path.diff
rename to meta/recipes-devtools/perl/perl-5.14.2/debian/libnet_config_path.diff
index a38e78a..6604d35 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/libnet_config_path.diff
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/libnet_config_path.diff
@@ -1,8 +1,10 @@
-Upstream-Status:Inappropriate [debian patch]
-
-Subject: Set location of libnet.cfg to /etc/perl/Net as /usr may not be writable.
-
+From 7465b6d008187580eabe655b9c8e75351d3d24b4 Mon Sep 17 00:00:00 2001
+From: Brendan O'Dea <bod at debian.org>
+Date: Tue, 8 Mar 2005 19:30:38 +1100
+Subject: Set location of libnet.cfg to /etc/perl/Net as /usr may not be
+ writable.
+Patch-Name: debian/libnet_config_path.diff
---
cpan/libnet/Net/Config.pm | 7 +++----
1 files changed, 3 insertions(+), 4 deletions(-)
@@ -33,5 +35,3 @@ index db51c1f..8404593 100644
can be done by having a C<.libnetrc> file in their home directory. This file
should return a reference to a HASH containing the keys described below.
For example
---
-tg: (a508b62..) debian/libnet_config_path (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/libperl_embed_doc.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/libperl_embed_doc.diff
new file mode 100644
index 0000000..cc3e050
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/libperl_embed_doc.diff
@@ -0,0 +1,26 @@
+From d70e88badfcc6edd05e884597f19fbbdcf2cf6a7 Mon Sep 17 00:00:00 2001
+From: Brendan O'Dea <bod at debian.org>
+Date: Tue, 8 Mar 2005 19:30:38 +1100
+Subject: Note that libperl-dev package is required for embedded linking
+
+Bug-Debian: http://bugs.debian.org/186778
+
+Patch-Name: debian/libperl_embed_doc.diff
+---
+ lib/ExtUtils/Embed.pm | 3 +++
+ 1 files changed, 3 insertions(+), 0 deletions(-)
+
+diff --git a/lib/ExtUtils/Embed.pm b/lib/ExtUtils/Embed.pm
+index 9710630..86f13b5 100644
+--- a/lib/ExtUtils/Embed.pm
++++ b/lib/ExtUtils/Embed.pm
+@@ -305,6 +305,9 @@ and extensions in your C/C++ applications.
+ Typically, an application B<Makefile> will invoke ExtUtils::Embed
+ functions while building your application.
+
++Note that on Debian systems the B<libperl-dev> package is required for
++compiling applications which embed an interpreter.
++
+ =head1 @EXPORT
+
+ ExtUtils::Embed exports the following functions:
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/m68k_thread_stress.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/m68k_thread_stress.diff
similarity index 78%
rename from meta/recipes-devtools/perl/perl-5.12.3/debian/m68k_thread_stress.diff
rename to meta/recipes-devtools/perl/perl-5.14.2/debian/m68k_thread_stress.diff
index 675c9aa..f1dfe36 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/m68k_thread_stress.diff
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/m68k_thread_stress.diff
@@ -1,16 +1,19 @@
-Upstream-Status:Inappropriate [debian patch]
-
+From 55a718425dc4612ac01850ef786f75f072b20b9e Mon Sep 17 00:00:00 2001
+From: Niko Tyni <ntyni at debian.org>
+Date: Mon, 8 Sep 2008 20:48:14 +0300
Subject: Disable some threads tests on m68k for now due to missing TLS.
-Closes: #495826, #517938
+Bug-Debian: http://bugs.debian.org/495826
+Bug-Debian: http://bugs.debian.org/517938
+Patch-Name: debian/m68k_thread_stress.diff
---
dist/threads-shared/t/stress.t | 4 ++++
dist/threads-shared/t/waithires.t | 6 ++++++
2 files changed, 10 insertions(+), 0 deletions(-)
diff --git a/dist/threads-shared/t/stress.t b/dist/threads-shared/t/stress.t
-index adfd1ed..8573f1a 100755
+index 652a3e6..2f1b576 100644
--- a/dist/threads-shared/t/stress.t
+++ b/dist/threads-shared/t/stress.t
@@ -11,6 +11,10 @@ BEGIN {
@@ -25,7 +28,7 @@ index adfd1ed..8573f1a 100755
use ExtUtils::testlib;
diff --git a/dist/threads-shared/t/waithires.t b/dist/threads-shared/t/waithires.t
-index e3a1086..633374e 100755
+index 3c3e852..349c5b4 100644
--- a/dist/threads-shared/t/waithires.t
+++ b/dist/threads-shared/t/waithires.t
@@ -16,6 +16,12 @@ BEGIN {
@@ -41,5 +44,3 @@ index e3a1086..633374e 100755
}
use ExtUtils::testlib;
---
-tg: (a508b62..) debian/m68k_thread_stress (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/mod_paths.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/mod_paths.diff
similarity index 89%
rename from meta/recipes-devtools/perl/perl-5.12.3/debian/mod_paths.diff
rename to meta/recipes-devtools/perl/perl-5.14.2/debian/mod_paths.diff
index 26d8ed0..2cc0946 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/mod_paths.diff
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/mod_paths.diff
@@ -1,5 +1,6 @@
-Upstream-Status:Inappropriate [debian patch]
-
+From 11633e598640b02e19329f323623af254fbac451 Mon Sep 17 00:00:00 2001
+From: Brendan O'Dea <bod at debian.org>
+Date: Fri, 18 Mar 2005 22:22:25 +1100
Subject: Tweak @INC ordering for Debian
Our order is:
@@ -15,16 +16,16 @@ The rationale being that an admin (via site), or module packager
(vendor) can chose to shadow core modules when there is a newer
version than is included in core.
-
+Patch-Name: debian/mod_paths.diff
---
perl.c | 58 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1 files changed, 58 insertions(+), 0 deletions(-)
diff --git a/perl.c b/perl.c
-index 05cea40..023d6a0 100644
+index f756e02..d26dcb0 100644
--- a/perl.c
+++ b/perl.c
-@@ -4125,6 +4125,11 @@ S_init_perllib(pTHX)
+@@ -4219,6 +4219,11 @@ S_init_perllib(pTHX)
INCPUSH_ADD_SUB_DIRS|INCPUSH_CAN_RELOCATE);
#endif
@@ -36,7 +37,7 @@ index 05cea40..023d6a0 100644
#ifdef SITEARCH_EXP
/* sitearch is always relative to sitelib on Windows for
* DLL-based path intuition to work correctly */
-@@ -4242,6 +4247,59 @@ S_init_perllib(pTHX)
+@@ -4336,6 +4341,59 @@ S_init_perllib(pTHX)
INCPUSH_ADD_OLD_VERS|INCPUSH_CAN_RELOCATE);
#endif
@@ -96,5 +97,3 @@ index 05cea40..023d6a0 100644
#ifdef PERL_OTHERLIBDIRS
S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_OTHERLIBDIRS),
INCPUSH_ADD_OLD_VERS|INCPUSH_ADD_ARCHONLY_SUB_DIRS
---
-tg: (a508b62..) debian/mod_paths (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/module_build_man_extensions.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/module_build_man_extensions.diff
similarity index 81%
rename from meta/recipes-devtools/perl/perl-5.12.3/debian/module_build_man_extensions.diff
rename to meta/recipes-devtools/perl/perl-5.14.2/debian/module_build_man_extensions.diff
index 63c8441..b11433f 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/module_build_man_extensions.diff
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/module_build_man_extensions.diff
@@ -1,17 +1,21 @@
-Upstream-Status:Inappropriate [debian patch]
+From fbb5f07872d45bac76b5c3c83b50a19aa5da10b0 Mon Sep 17 00:00:00 2001
+From: Niko Tyni <ntyni at debian.org>
+Date: Thu, 8 May 2008 14:32:33 +0300
+Subject: Adjust Module::Build manual page extensions for the Debian Perl
+ policy
-Subject: Adjust Module::Build manual page extensions for the Debian Perl policy
Bug-Debian: http://bugs.debian.org/479460
+Patch-Name: debian/module_build_man_extensions.diff
---
cpan/Module-Build/lib/Module/Build/Base.pm | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/cpan/Module-Build/lib/Module/Build/Base.pm b/cpan/Module-Build/lib/Module/Build/Base.pm
-index 5bd8ec7..b4e606a 100644
+index fba916a..82df4cc 100644
--- a/cpan/Module-Build/lib/Module/Build/Base.pm
+++ b/cpan/Module-Build/lib/Module/Build/Base.pm
-@@ -3071,7 +3071,7 @@ sub manify_bin_pods {
+@@ -3246,7 +3246,7 @@ sub manify_bin_pods {
foreach my $file (keys %$files) {
# Pod::Simple based parsers only support one document per instance.
# This is expected to change in a future version (Pod::Simple > 3.03).
@@ -20,7 +24,7 @@ index 5bd8ec7..b4e606a 100644
my $manpage = $self->man1page_name( $file ) . '.' .
$self->config( 'man1ext' );
my $outfile = File::Spec->catfile($mandir, $manpage);
-@@ -3096,7 +3096,7 @@ sub manify_lib_pods {
+@@ -3271,7 +3271,7 @@ sub manify_lib_pods {
while (my ($file, $relfile) = each %$files) {
# Pod::Simple based parsers only support one document per instance.
# This is expected to change in a future version (Pod::Simple > 3.03).
@@ -29,5 +33,3 @@ index 5bd8ec7..b4e606a 100644
my $manpage = $self->man3page_name( $relfile ) . '.' .
$self->config( 'man3ext' );
my $outfile = File::Spec->catfile( $mandir, $manpage);
---
-tg: (a508b62..) debian/module_build_man_extensions (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/no_packlist_perllocal.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/no_packlist_perllocal.diff
new file mode 100644
index 0000000..3324c1e
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/no_packlist_perllocal.diff
@@ -0,0 +1,88 @@
+From 44c7521619dd0e637920393184affcb26a27d5b7 Mon Sep 17 00:00:00 2001
+From: Brendan O'Dea <bod at debian.org>
+Date: Tue, 8 Mar 2005 19:30:38 +1100
+Subject: Don't install .packlist or perllocal.pod for perl or vendor
+
+Patch-Name: debian/no_packlist_perllocal.diff
+---
+ cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm | 31 +++--------------------
+ 1 files changed, 4 insertions(+), 27 deletions(-)
+
+diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
+index 42bbb83..a16e2d0 100644
+--- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
++++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
+@@ -2054,8 +2054,6 @@ doc__install : doc_site_install
+
+ pure_perl_install :: all
+ $(NOECHO) umask 022; $(MOD_INSTALL) \
+- read }.$self->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q{ \
+- write }.$self->catfile('$(DESTINSTALLARCHLIB)','auto','$(FULLEXT)','.packlist').q{ \
+ $(INST_LIB) $(DESTINSTALLPRIVLIB) \
+ $(INST_ARCHLIB) $(DESTINSTALLARCHLIB) \
+ $(INST_BIN) $(DESTINSTALLBIN) \
+@@ -2081,8 +2079,6 @@ pure_site_install :: all
+
+ pure_vendor_install :: all
+ $(NOECHO) umask 022; $(MOD_INSTALL) \
+- read }.$self->catfile('$(VENDORARCHEXP)','auto','$(FULLEXT)','.packlist').q{ \
+- write }.$self->catfile('$(DESTINSTALLVENDORARCH)','auto','$(FULLEXT)','.packlist').q{ \
+ $(INST_LIB) $(DESTINSTALLVENDORLIB) \
+ $(INST_ARCHLIB) $(DESTINSTALLVENDORARCH) \
+ $(INST_BIN) $(DESTINSTALLVENDORBIN) \
+@@ -2091,37 +2087,19 @@ pure_vendor_install :: all
+ $(INST_MAN3DIR) $(DESTINSTALLVENDORMAN3DIR)
+
+ doc_perl_install :: all
+- $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod
+- -$(NOECHO) umask 022; $(MKPATH) $(DESTINSTALLARCHLIB)
+- -$(NOECHO) umask 022; $(DOC_INSTALL) \
+- "Module" "$(NAME)" \
+- "installed into" "$(INSTALLPRIVLIB)" \
+- LINKTYPE "$(LINKTYPE)" \
+- VERSION "$(VERSION)" \
+- EXE_FILES "$(EXE_FILES)" \
+- >> }.$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q{
+
+ doc_site_install :: all
+- $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod
+- -$(NOECHO) umask 02; $(MKPATH) $(DESTINSTALLARCHLIB)
++ $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLSITEARCH)/perllocal.pod
++ -$(NOECHO) umask 02; $(MKPATH) $(DESTINSTALLSITEARCH)
+ -$(NOECHO) umask 02; $(DOC_INSTALL) \
+ "Module" "$(NAME)" \
+ "installed into" "$(INSTALLSITELIB)" \
+ LINKTYPE "$(LINKTYPE)" \
+ VERSION "$(VERSION)" \
+ EXE_FILES "$(EXE_FILES)" \
+- >> }.$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q{
++ >> }.$self->catfile('$(DESTINSTALLSITEARCH)','perllocal.pod').q{
+
+ doc_vendor_install :: all
+- $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod
+- -$(NOECHO) umask 022; $(MKPATH) $(DESTINSTALLARCHLIB)
+- -$(NOECHO) umask 022; $(DOC_INSTALL) \
+- "Module" "$(NAME)" \
+- "installed into" "$(INSTALLVENDORLIB)" \
+- LINKTYPE "$(LINKTYPE)" \
+- VERSION "$(VERSION)" \
+- EXE_FILES "$(EXE_FILES)" \
+- >> }.$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q{
+
+ };
+
+@@ -2130,13 +2108,12 @@ uninstall :: uninstall_from_$(INSTALLDIRS)dirs
+ $(NOECHO) $(NOOP)
+
+ uninstall_from_perldirs ::
+- $(NOECHO) $(UNINSTALL) }.$self->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q{
+
+ uninstall_from_sitedirs ::
+ $(NOECHO) $(UNINSTALL) }.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{
+
+ uninstall_from_vendordirs ::
+- $(NOECHO) $(UNINSTALL) }.$self->catfile('$(VENDORARCHEXP)','auto','$(FULLEXT)','.packlist').q{
++
+ };
+
+ join("", at m);
diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/patchlevel.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/patchlevel.diff
new file mode 100644
index 0000000..0a8a467
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/patchlevel.diff
@@ -0,0 +1,30 @@
+From cf928101697efa4a46ada500c2f449caeb854fd4 Mon Sep 17 00:00:00 2001
+From: Niko Tyni <ntyni at debian.org>
+Date: Sun, 15 May 2011 19:35:58 +0300
+Subject: List packaged patches in patchlevel.h
+
+Origin: vendor
+Bug-Debian: http://bugs.debian.org/567489
+
+The list of packaged patches is in patchlevel-debian.h, which is generated
+from the debian/patches/ directory when building the package.
+
+Patch-Name: debian/patchlevel.diff
+---
+ patchlevel.h | 3 +++
+ 1 files changed, 3 insertions(+), 0 deletions(-)
+
+diff --git a/patchlevel.h b/patchlevel.h
+index 5dc2a53..1356595 100644
+--- a/patchlevel.h
++++ b/patchlevel.h
+@@ -137,6 +137,9 @@ static const char * const local_patches[] = {
+ ,"uncommitted-changes"
+ #endif
+ PERL_GIT_UNPUSHED_COMMITS /* do not remove this line */
++#ifdef DEBIAN
++#include "patchlevel-debian.h"
++#endif
+ ,NULL
+ };
+
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/perlivp.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/perlivp.diff
similarity index 77%
rename from meta/recipes-devtools/perl/perl-5.12.3/debian/perlivp.diff
rename to meta/recipes-devtools/perl/perl-5.14.2/debian/perlivp.diff
index 304e4c1..98b1b50 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/perlivp.diff
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/perlivp.diff
@@ -1,8 +1,9 @@
-Upstream-Status:Inappropriate [debian patch]
-
+From 4c7e04f75c9513451d1622e5a6dd58c2c8377d81 Mon Sep 17 00:00:00 2001
From: Niko Tyni <ntyni at debian.org>
+Date: Fri, 9 Jan 2009 18:54:47 +0200
Subject: Make perlivp skip include directories in /usr/local
-Closes: 510895
+
+Bug-Debian: http://bugs.debian.org/510895
On Sat, Jan 10, 2009 at 12:37:18AM +1100, Brendan O'Dea wrote:
> On Wed, Jan 7, 2009 at 12:21 AM, Niko Tyni <ntyni at debian.org> wrote:
@@ -17,15 +18,15 @@ On Sat, Jan 10, 2009 at 12:37:18AM +1100, Brendan O'Dea wrote:
> installed any local packages. As Niko points out, they will be
> created as required.
-
Signed-off-by: Niko Tyni <ntyni at debian.org>
+Patch-Name: debian/perlivp.diff
---
utils/perlivp.PL | 1 +
1 files changed, 1 insertions(+), 0 deletions(-)
diff --git a/utils/perlivp.PL b/utils/perlivp.PL
-index 9783261..156146f 100644
+index 6fcb670..1401cac 100644
--- a/utils/perlivp.PL
+++ b/utils/perlivp.PL
@@ -142,6 +142,7 @@ my $INC_total = 0;
@@ -33,8 +34,6 @@ index 9783261..156146f 100644
foreach (@INC) {
next if $_ eq '.'; # skip -d test here
+ next if m|/usr/local|; # not shipped on Debian
- if ($^O eq 'MacOS') {
- next if $_ eq ':'; # skip -d test here
- next if $_ eq 'Dev:Pseudo:'; # why is this in @INC?
---
-tg: (a508b62..) debian/perlivp (depends on: upstream)
+ if (-d $_) {
+ print "## Perl \@INC directory `$_' exists.\n" if $opt{'v'};
+ $INC_there++;
diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/prefix_changes.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/prefix_changes.diff
new file mode 100644
index 0000000..a1e17ce
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/prefix_changes.diff
@@ -0,0 +1,118 @@
+From 148e2717682ce8c65475ffdeea84b3cdd1ab1649 Mon Sep 17 00:00:00 2001
+From: Brendan O'Dea <bod at debian.org>
+Date: Tue, 8 Mar 2005 19:30:38 +1100
+Subject: Fiddle with *PREFIX and variables written to the makefile
+
+Fiddle with *PREFIX and variables written to the makefile so that
+install directories may be changed when make is run by passing
+PREFIX= to the "make install" command (used when packaging
+modules).
+
+Patch-Name: debian/prefix_changes.diff
+---
+ cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm | 12 ++++++------
+ cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm | 3 +--
+ cpan/ExtUtils-MakeMaker/t/INST.t | 4 +---
+ cpan/ExtUtils-MakeMaker/t/INST_PREFIX.t | 10 +++++-----
+ 4 files changed, 13 insertions(+), 16 deletions(-)
+
+diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm
+index a38f274..93d3fe9 100644
+--- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm
++++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm
+@@ -701,8 +701,6 @@ all POD files in MAN1PODS and MAN3PODS.
+ sub manifypods_target {
+ my($self) = shift;
+
+- my $man1pods = '';
+- my $man3pods = '';
+ my $dependencies = '';
+
+ # populate manXpods & dependencies:
+@@ -718,7 +716,7 @@ END
+ foreach my $section (qw(1 3)) {
+ my $pods = $self->{"MAN${section}PODS"};
+ push @man_cmds, $self->split_command(<<CMD, %$pods);
+- \$(NOECHO) \$(POD2MAN) --section=$section --perm_rw=\$(PERM_RW)
++ \$(NOECHO) \$(POD2MAN) --section=\$(MAN${section}EXT) --perm_rw=\$(PERM_RW)
+ CMD
+ }
+
+@@ -1521,9 +1519,11 @@ sub init_INSTALL_from_PREFIX {
+ $self->{SITEPREFIX} ||= $sprefix;
+ $self->{VENDORPREFIX} ||= $vprefix;
+
+- # Lots of MM extension authors like to use $(PREFIX) so we
+- # put something sensible in there no matter what.
+- $self->{PREFIX} = '$('.uc $self->{INSTALLDIRS}.'PREFIX)';
++ my $p = $self->{PREFIX} = $self->{PERLPREFIX};
++ for my $t (qw/PERL SITE VENDOR/)
++ {
++ $self->{"${t}PREFIX"} =~ s!^\Q$p\E(?=/|$)!\$(PREFIX)!;
++ }
+ }
+
+ my $arch = $Config{archname};
+diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
+index a16e2d0..c308c49 100644
+--- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
++++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
+@@ -2981,8 +2981,7 @@ sub prefixify {
+ print STDERR " prefixify $var => $path\n" if $Verbose >= 2;
+ print STDERR " from $sprefix to $rprefix\n" if $Verbose >= 2;
+
+- if( $self->{ARGS}{PREFIX} &&
+- $path !~ s{^\Q$sprefix\E\b}{$rprefix}s )
++ if( $path !~ s{^\Q$sprefix\E\b}{$rprefix}s && $self->{ARGS}{PREFIX} )
+ {
+
+ print STDERR " cannot prefix, using default.\n" if $Verbose >= 2;
+diff --git a/cpan/ExtUtils-MakeMaker/t/INST.t b/cpan/ExtUtils-MakeMaker/t/INST.t
+index 6aac294..28294f2 100644
+--- a/cpan/ExtUtils-MakeMaker/t/INST.t
++++ b/cpan/ExtUtils-MakeMaker/t/INST.t
+@@ -61,9 +61,7 @@ isa_ok( $mm, 'ExtUtils::MakeMaker' );
+ is( $mm->{NAME}, 'Big::Dummy', 'NAME' );
+ is( $mm->{VERSION}, 0.01, 'VERSION' );
+
+-my $config_prefix = $Config{installprefixexp} || $Config{installprefix} ||
+- $Config{prefixexp} || $Config{prefix};
+-is( $mm->{PERLPREFIX}, $config_prefix, 'PERLPREFIX' );
++is( $mm->{PERLPREFIX}, '$(PREFIX)', 'PERLPREFIX' );
+
+ is( !!$mm->{PERL_CORE}, !!$ENV{PERL_CORE}, 'PERL_CORE' );
+
+diff --git a/cpan/ExtUtils-MakeMaker/t/INST_PREFIX.t b/cpan/ExtUtils-MakeMaker/t/INST_PREFIX.t
+index fbb18a3..8987569 100644
+--- a/cpan/ExtUtils-MakeMaker/t/INST_PREFIX.t
++++ b/cpan/ExtUtils-MakeMaker/t/INST_PREFIX.t
+@@ -10,7 +10,7 @@ BEGIN {
+ }
+
+ use strict;
+-use Test::More tests => 52;
++use Test::More tests => 47;
+ use MakeMaker::Test::Utils;
+ use MakeMaker::Test::Setup::BFD;
+ use ExtUtils::MakeMaker;
+@@ -58,16 +58,16 @@ like( $stdout->read, qr{
+ Writing\ MYMETA.yml\n
+ }x );
+
+-is( $mm->{PREFIX}, '$(SITEPREFIX)', 'PREFIX set based on INSTALLDIRS' );
++#is( $mm->{PREFIX}, '$(SITEPREFIX)', 'PREFIX set based on INSTALLDIRS' );
+
+ isa_ok( $mm, 'ExtUtils::MakeMaker' );
+
+ is( $mm->{NAME}, 'Big::Dummy', 'NAME' );
+ is( $mm->{VERSION}, 0.01, 'VERSION' );
+
+-foreach my $prefix (qw(PREFIX PERLPREFIX SITEPREFIX VENDORPREFIX)) {
+- unlike( $mm->{$prefix}, qr/\$\(PREFIX\)/ );
+-}
++#foreach my $prefix (qw(PREFIX PERLPREFIX SITEPREFIX VENDORPREFIX)) {
++# unlike( $mm->{$prefix}, qr/\$\(PREFIX\)/ );
++#}
+
+
+ my $PREFIX = File::Spec->catdir('foo', 'bar');
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/prune_libs.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/prune_libs.diff
similarity index 81%
rename from meta/recipes-devtools/perl/perl-5.12.3/debian/prune_libs.diff
rename to meta/recipes-devtools/perl/perl-5.14.2/debian/prune_libs.diff
index 5bb072c..bb05a94 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/prune_libs.diff
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/prune_libs.diff
@@ -1,21 +1,23 @@
-Upstream-Status:Inappropriate [debian patch]
-
+From 063566907896ff32bea27897fa73cebbbd7bacce Mon Sep 17 00:00:00 2001
+From: Brendan O'Dea <bod at debian.org>
+Date: Fri, 18 Mar 2005 22:22:25 +1100
Subject: Prune the list of libraries wanted to what we actually need.
+
Bug-Debian: http://bugs.debian.org/128355
We want to keep the dependencies on perl-base as small as possible,
and some of the original list may be present on buildds (see Bug#128355).
-
+Patch-Name: debian/prune_libs.diff
---
Configure | 5 ++---
1 files changed, 2 insertions(+), 3 deletions(-)
diff --git a/Configure b/Configure
-index 3a8732b..6013c86 100755
+index d9911f9..f59f75c 100755
--- a/Configure
+++ b/Configure
-@@ -1363,8 +1363,7 @@ libswanted_uselargefiles=''
+@@ -1367,8 +1367,7 @@ libswanted_uselargefiles=''
: set usesocks on the Configure command line to enable socks.
: List of libraries we want.
: If anyone needs extra -lxxx, put those in a hint file.
@@ -25,7 +27,7 @@ index 3a8732b..6013c86 100755
: We probably want to search /usr/shlib before most other libraries.
: This is only used by the lib/ExtUtils/MakeMaker.pm routine extliblist.
glibpth=`echo " $glibpth " | sed -e 's! /usr/shlib ! !'`
-@@ -22179,7 +22178,7 @@ sunos*X4*)
+@@ -22308,7 +22307,7 @@ sunos*X4*)
;;
*) case "$usedl" in
$define|true|[yY]*)
@@ -34,5 +36,3 @@ index 3a8732b..6013c86 100755
shift
perllibs="$*"
;;
---
-tg: (a508b62..) debian/prune_libs (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/series b/meta/recipes-devtools/perl/perl-5.14.2/debian/series
new file mode 100644
index 0000000..08adca5
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/series
@@ -0,0 +1,40 @@
+debian/arm_thread_stress_timeout.diff
+debian/cpan_definstalldirs.diff
+debian/db_file_ver.diff
+debian/doc_info.diff
+debian/enc2xs_inc.diff
+debian/errno_ver.diff
+debian/libperl_embed_doc.diff
+fixes/respect_umask.diff
+debian/writable_site_dirs.diff
+debian/extutils_set_libperl_path.diff
+debian/no_packlist_perllocal.diff
+debian/prefix_changes.diff
+debian/fakeroot.diff
+debian/instmodsh_doc.diff
+debian/ld_run_path.diff
+debian/libnet_config_path.diff
+debian/m68k_thread_stress.diff
+debian/mod_paths.diff
+debian/module_build_man_extensions.diff
+debian/prune_libs.diff
+fixes/net_smtp_docs.diff
+debian/perlivp.diff
+debian/disable-zlib-bundling.diff
+debian/cpanplus_definstalldirs.diff
+debian/cpanplus_config_path.diff
+debian/deprecate-with-apt.diff
+fixes/hurd-ccflags.diff
+debian/squelch-locale-warnings.diff
+debian/skip-upstream-git-tests.diff
+fixes/extutils-cbuilder-cflags.diff
+fixes/module-build-home-directory.diff
+debian/patchlevel.diff
+fixes/h2ph-multiarch.diff
+fixes/index-tainting.diff
+debian/skip-kfreebsd-crash.diff
+fixes/document_makemaker_ccflags.diff
+fixes/sys-syslog-socket-timeout-kfreebsd.patch
+fixes/hurd-hints.diff
+fixes/pod_fixes.diff
+debian/find_html2text.diff
diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/skip-kfreebsd-crash.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/skip-kfreebsd-crash.diff
new file mode 100644
index 0000000..7992129
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/skip-kfreebsd-crash.diff
@@ -0,0 +1,39 @@
+From ff2815399ad94915da2e63cb3c4bbd2d02dac4b2 Mon Sep 17 00:00:00 2001
+From: Niko Tyni <ntyni at debian.org>
+Date: Fri, 5 Aug 2011 10:50:18 +0300
+Subject: Skip a crashing test case in t/op/threads.t on GNU/kFreeBSD
+
+Bug: http://rt.perl.org/rt3/Ticket/Display.html?id=96272
+Bug-Debian: http://bugs.debian.org/628493
+
+The crash is not a regression in 5.14, it just gets triggered there by
+a new unrelated test case.
+
+Skip the test until the culprit is found.
+
+Patch-Name: debian/skip-kfreebsd-crash.diff
+---
+ t/op/threads.t | 4 ++++
+ 1 files changed, 4 insertions(+), 0 deletions(-)
+
+diff --git a/t/op/threads.t b/t/op/threads.t
+index 24e84e4..6a91366 100644
+--- a/t/op/threads.t
++++ b/t/op/threads.t
+@@ -342,6 +342,9 @@ threads->create(
+
+ EOI
+
++SKIP: {
++ skip "[perl #96272] avoid crash on GNU/kFreeBSD", 1
++ if $^O eq 'gnukfreebsd';
+ # [perl #78494] Pipes shared between threads block when closed
+ watchdog 10;
+ {
+@@ -351,5 +354,6 @@ watchdog 10;
+ threads->create(sub { })->join;
+ ok(1, "Pipes shared between threads do not block when closed");
+ }
++}
+
+ # EOF
diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/skip-upstream-git-tests.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/skip-upstream-git-tests.diff
new file mode 100644
index 0000000..a157bc7
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/skip-upstream-git-tests.diff
@@ -0,0 +1,59 @@
+From 2be2eed9148c38d3e982d3371f379ce77021aeb5 Mon Sep 17 00:00:00 2001
+From: Niko Tyni <ntyni at debian.org>
+Date: Fri, 22 Apr 2011 11:15:32 +0300
+Subject: Skip tests specific to the upstream Git repository
+
+These tests fail if run from a different git repository than
+upstream. This complicates things needlessly for downstream packagers.
+
+Skip the tests altogether even if the .git directory exists.
+
+Patch-Name: debian/skip-upstream-git-tests.diff
+---
+ t/porting/authors.t | 3 ++-
+ t/porting/cmp_version.t | 3 ++-
+ t/porting/manifest.t | 3 ++-
+ 3 files changed, 6 insertions(+), 3 deletions(-)
+
+diff --git a/t/porting/authors.t b/t/porting/authors.t
+index 28ca1ca..3c7f069 100644
+--- a/t/porting/authors.t
++++ b/t/porting/authors.t
+@@ -9,7 +9,8 @@ BEGIN {
+ use strict;
+ use warnings;
+
+-if (! -d '.git' ) {
++# Debian change: skip as we're probably in a different git repository
++if (1 || ! -d '.git' ) {
+ print "1..0 # SKIP: not being run from a git checkout\n";
+ exit 0;
+ }
+diff --git a/t/porting/cmp_version.t b/t/porting/cmp_version.t
+index b3c677c..f89f2a7 100644
+--- a/t/porting/cmp_version.t
++++ b/t/porting/cmp_version.t
+@@ -25,7 +25,8 @@ use File::Spec::Functions qw(rel2abs abs2rel catfile catdir curdir);
+ use Getopt::Std;
+ use Maintainers;
+
+-if (! -d '.git' ) {
++# Debian change: skip as we're probably in a different git repository
++if (1 || ! -d '.git' ) {
+ print "1..0 # SKIP: not being run from a git checkout\n";
+ exit 0;
+ }
+diff --git a/t/porting/manifest.t b/t/porting/manifest.t
+index 48dd3ac..b08126b 100644
+--- a/t/porting/manifest.t
++++ b/t/porting/manifest.t
+@@ -59,7 +59,8 @@ SKIP: {
+
+ SKIP: {
+ chdir "..";
+- skip("not under git control", 3) unless -d '.git';
++ # Debian change: skip as we're probably in a different git repository
++ skip("not under git control", 3) unless 0 && -d '.git';
+ chomp(my @repo= grep { !/\.gitignore$/ } `git ls-files`);
+ skip("git ls-files didnt work",3)
+ if !@repo;
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/squelch-locale-warnings.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/squelch-locale-warnings.diff
similarity index 86%
rename from meta/recipes-devtools/perl/perl-5.12.3/debian/squelch-locale-warnings.diff
rename to meta/recipes-devtools/perl/perl-5.14.2/debian/squelch-locale-warnings.diff
index eac0fc3..71660b0 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/debian/squelch-locale-warnings.diff
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/squelch-locale-warnings.diff
@@ -1,7 +1,8 @@
-Upstream-Status:Inappropriate [debian patch]
-
+From 718e9cbd59f0739fc9104af111e42fff66f927a7 Mon Sep 17 00:00:00 2001
From: Niko Tyni <ntyni at debian.org>
+Date: Sun, 3 Oct 2010 21:36:17 +0300
Subject: Squelch locale warnings in Debian package maintainer scripts
+
Bug-Debian: http://bugs.debian.org/508764
The system locales are rather frequently out of sync with the C library
@@ -12,13 +13,14 @@ by the DPKG_RUNNING_VERSION environment variable.
Any real locale problem will show up after the system upgrade too, and
the warning will be triggered normally again at that point.
+Patch-Name: debian/squelch-locale-warnings.diff
---
locale.c | 4 ++++
pod/perllocale.pod | 8 ++++++++
2 files changed, 12 insertions(+), 0 deletions(-)
diff --git a/locale.c b/locale.c
-index 16ccce8..2592b3c 100644
+index 4631b86..94a0962 100644
--- a/locale.c
+++ b/locale.c
@@ -359,6 +359,10 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
@@ -33,10 +35,10 @@ index 16ccce8..2592b3c 100644
if (locwarn) {
diff --git a/pod/perllocale.pod b/pod/perllocale.pod
-index 0dbabe7..60b7bab 100644
+index 8926d8b..6c55889 100644
--- a/pod/perllocale.pod
+++ b/pod/perllocale.pod
-@@ -844,6 +844,14 @@ B<NOTE>: PERL_BADLANG only gives you a way to hide the warning message.
+@@ -861,6 +861,14 @@ B<NOTE>: PERL_BADLANG only gives you a way to hide the warning message.
The message tells about some problem in your system's locale support,
and you should investigate what the problem is.
@@ -51,5 +53,3 @@ index 0dbabe7..60b7bab 100644
=back
The following environment variables are not specific to Perl: They are
---
-tg: (a508b62..) debian/squelch-locale-warnings (depends on: upstream)
diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/writable_site_dirs.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/writable_site_dirs.diff
new file mode 100644
index 0000000..a4fc32a
--- /dev/null
+++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/writable_site_dirs.diff
@@ -0,0 +1,36 @@
+From 492e0d6b4e3e0d786fb88b9058d581f6466c4a3e Mon Sep 17 00:00:00 2001
+From: Brendan O'Dea <bod at debian.org>
+Date: Tue, 8 Mar 2005 19:30:38 +1100
+Subject: Set umask approproately for site install directories
+
+Policy requires group writable site directories
+
+Patch-Name: debian/writable_site_dirs.diff
+---
+ cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm | 6 +++---
+ 1 files changed, 3 insertions(+), 3 deletions(-)
+
+diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
+index 865d36d..4ee6b3f 100644
+--- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
++++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
+@@ -2067,7 +2067,7 @@ pure_perl_install :: all
+
+
+ pure_site_install :: all
+- $(NOECHO) umask 022; $(MOD_INSTALL) \
++ $(NOECHO) umask 02; $(MOD_INSTALL) \
+ read }.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{ \
+ write }.$self->catfile('$(DESTINSTALLSITEARCH)','auto','$(FULLEXT)','.packlist').q{ \
+ $(INST_LIB) $(DESTINSTALLSITELIB) \
+@@ -2103,8 +2103,8 @@ doc_perl_install :: all
+
+ doc_site_install :: all
+ $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod
+- -$(NOECHO) umask 022; $(MKPATH) $(DESTINSTALLARCHLIB)
+- -$(NOECHO) umask 022; $(DOC_INSTALL) \
++ -$(NOECHO) umask 02; $(MKPATH) $(DESTINSTALLARCHLIB)
++ -$(NOECHO) umask 02; $(DOC_INSTALL) \
+ "Module" "$(NAME)" \
+ "installed into" "$(INSTALLSITELIB)" \
+ LINKTYPE "$(LINKTYPE)" \
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/fix_bad_rpath.patch b/meta/recipes-devtools/perl/perl-5.14.2/fix_bad_rpath.patch
similarity index 70%
rename from meta/recipes-devtools/perl/perl-5.12.3/fix_bad_rpath.patch
rename to meta/recipes-devtools/perl/perl-5.14.2/fix_bad_rpath.patch
index 7b99857..69ac434 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/fix_bad_rpath.patch
+++ b/meta/recipes-devtools/perl/perl-5.14.2/fix_bad_rpath.patch
@@ -10,16 +10,15 @@ This fixes this warning for perl recipe as well as libxml-parser-perl recipe.
It is a fix to MakeMaker within perl, so all such perl recipes will get
fixed with this perl fix.
-Index: perl-5.12.3/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm
+Index: perl-5.14.2/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm
===================================================================
---- perl-5.12.3.orig/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm
-+++ perl-5.12.3/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm
-@@ -54,7 +54,7 @@ sub _unix_os2_ext {
+--- perl-5.14.2.orig/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm
++++ perl-5.14.2/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm
+@@ -55,6 +55,7 @@ sub _unix_os2_ext {
my($found) = 0;
# Debian-specific: don't use LD_RUN_PATH for standard dirs
-- $ld_run_path_seen{$_}++ for qw(/lib /usr/lib /usr/X11R6/lib);
-+ $ld_run_path_seen{$_}++ for qw(/lib /usr/lib /usr/X11R6/lib SYSROOTLIB);
++ push(@libpath, "SYSROOTLIB");
+ $ld_run_path_seen{$_}++ for @libpath;
foreach my $thislib (split ' ', $potential_libs) {
-
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/generate-sh.patch b/meta/recipes-devtools/perl/perl-5.14.2/generate-sh.patch
similarity index 100%
rename from meta/recipes-devtools/perl/perl-5.12.3/generate-sh.patch
rename to meta/recipes-devtools/perl/perl-5.14.2/generate-sh.patch
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/installperl.patch b/meta/recipes-devtools/perl/perl-5.14.2/installperl.patch
similarity index 100%
rename from meta/recipes-devtools/perl/perl-5.12.3/installperl.patch
rename to meta/recipes-devtools/perl/perl-5.14.2/installperl.patch
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/letgcc-find-errno.patch b/meta/recipes-devtools/perl/perl-5.14.2/letgcc-find-errno.patch
similarity index 100%
rename from meta/recipes-devtools/perl/perl-5.12.3/letgcc-find-errno.patch
rename to meta/recipes-devtools/perl/perl-5.14.2/letgcc-find-errno.patch
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/native-nopacklist.patch b/meta/recipes-devtools/perl/perl-5.14.2/native-nopacklist.patch
similarity index 100%
rename from meta/recipes-devtools/perl/perl-5.12.3/native-nopacklist.patch
rename to meta/recipes-devtools/perl/perl-5.14.2/native-nopacklist.patch
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/native-perlinc.patch b/meta/recipes-devtools/perl/perl-5.14.2/native-perlinc.patch
similarity index 100%
rename from meta/recipes-devtools/perl/perl-5.12.3/native-perlinc.patch
rename to meta/recipes-devtools/perl/perl-5.14.2/native-perlinc.patch
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/perl-configpm-switch.patch b/meta/recipes-devtools/perl/perl-5.14.2/perl-configpm-switch.patch
similarity index 76%
rename from meta/recipes-devtools/perl/perl-5.12.3/perl-configpm-switch.patch
rename to meta/recipes-devtools/perl/perl-5.14.2/perl-configpm-switch.patch
index 9e9f342..c6cc15c 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/perl-configpm-switch.patch
+++ b/meta/recipes-devtools/perl/perl-5.14.2/perl-configpm-switch.patch
@@ -9,18 +9,20 @@ to use the settings appropriate for the native and/or target builds
as required. This also disables the use of the cache since the cached
values would be valid for the host only.
---- perl-5.8.8/configpm 2007/04/30 03:10:43 1.1
-+++ perl-5.8.8/configpm 2007/04/30 03:11:56
-@@ -374,7 +374,7 @@
+Index: perl-5.14.2/configpm
+===================================================================
+--- perl-5.14.2.orig/configpm
++++ perl-5.14.2/configpm
+@@ -658,7 +658,7 @@ sub FETCH {
my($self, $key) = @_;
# check for cached value (which may be undef so we use exists not defined)
-- return $self->{$key} if exists $self->{$key};
-+ #return $self->{$key} if exists $self->{$key};
-
- return $self->fetch_string($key);
+- return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key);
++ return $self->fetch_string($key);
}
-@@ -530,7 +530,21 @@
+
+ ENDOFEND
+@@ -816,7 +816,21 @@ $config_txt .= sprintf <<'ENDOFTIE', $fa
sub DESTROY { }
sub AUTOLOAD {
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/perl-configure.sh b/meta/recipes-devtools/perl/perl-5.14.2/perl-configure.sh
similarity index 100%
rename from meta/recipes-devtools/perl/perl-5.12.3/perl-configure.sh
rename to meta/recipes-devtools/perl/perl-5.14.2/perl-configure.sh
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/perl-dynloader.patch b/meta/recipes-devtools/perl/perl-5.14.2/perl-dynloader.patch
similarity index 69%
rename from meta/recipes-devtools/perl/perl-5.12.3/perl-dynloader.patch
rename to meta/recipes-devtools/perl/perl-5.14.2/perl-dynloader.patch
index 1840605..035beba 100644
--- a/meta/recipes-devtools/perl/perl-5.12.3/perl-dynloader.patch
+++ b/meta/recipes-devtools/perl/perl-5.14.2/perl-dynloader.patch
@@ -7,12 +7,14 @@ system.
Update by Nitin A Kamble <nitin.a.kamble at intel.com> 2011/04/21
---- perl-5.12.3/dist/XSLoader/XSLoader_pm.PL 2007/04/20 09:03:08 1.1
-+++ perl-5.12.3/dist/XSLoader/XSLoader_pm.PL 2007/04/20 09:03:08
-@@ -65,6 +65,19 @@
- print OUT <<'EOT';
- my $modpname = join('/', at modparts);
- my $modlibname = (caller())[1];
+Index: perl-5.14.2/dist/XSLoader/XSLoader_pm.PL
+===================================================================
+--- perl-5.14.2.orig/dist/XSLoader/XSLoader_pm.PL
++++ perl-5.14.2/dist/XSLoader/XSLoader_pm.PL
+@@ -28,6 +28,20 @@ sub load {
+
+ my ($module, $modlibname) = caller();
+
+ # OE: Allow env to form dynamic loader to look in a different place
+ # This is so it finds the host .so files, not the targets
+ if (defined $ENV{PERLHOSTLIB})
@@ -26,6 +28,7 @@ Update by Nitin A Kamble <nitin.a.kamble at intel.com> 2011/04/21
+ }
+ print STDERR "*** Module name OUT: $modlibname\n";
+ }
- my $c = @modparts;
- $modlibname =~ s,[\\/][^\\/]+$,, while $c--; # Q&D basename
- my $file = "$modlibname/auto/$modpname/$modfname.$dl_dlext";
++
+ if (@_) {
+ $module = $_[0];
+ } else {
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/perl-enable-gdbm.patch b/meta/recipes-devtools/perl/perl-5.14.2/perl-enable-gdbm.patch
similarity index 100%
rename from meta/recipes-devtools/perl/perl-5.12.3/perl-enable-gdbm.patch
rename to meta/recipes-devtools/perl/perl-5.14.2/perl-enable-gdbm.patch
diff --git a/meta/recipes-devtools/perl/perl-5.12.3/perl-moreconfig.patch b/meta/recipes-devtools/perl/perl-5.14.2/perl-moreconfig.patch
similarity index 100%
rename from meta/recipes-devtools/perl/perl-5.12.3/perl-moreconfig.patch
rename to meta/recipes-devtools/perl/perl-5.14.2/perl-moreconfig.patch
diff --git a/meta/recipes-devtools/perl/perl-native_5.12.3.bb b/meta/recipes-devtools/perl/perl-native_5.14.2.bb
similarity index 74%
rename from meta/recipes-devtools/perl/perl-native_5.12.3.bb
rename to meta/recipes-devtools/perl/perl-native_5.14.2.bb
index a8e2346..0f49950 100644
--- a/meta/recipes-devtools/perl/perl-native_5.12.3.bb
+++ b/meta/recipes-devtools/perl/perl-native_5.14.2.bb
@@ -4,7 +4,7 @@ SECTION = "libs"
LICENSE = "Artistic|GPL"
LIC_FILES_CHKSUM = "file://Copying;md5=2b4c6ffbcfcbdee469f02565f253d81a \
file://Artistic;md5=f921793d03cc6d63ec4b15e9be8fd3f8"
-PR = "r5"
+PR = "r0"
LIC_FILES_CHKSUM = "file://Copying;md5=2b4c6ffbcfcbdee469f02565f253d81a \
file://Artistic;md5=f921793d03cc6d63ec4b15e9be8fd3f8"
@@ -12,18 +12,12 @@ LIC_FILES_CHKSUM = "file://Copying;md5=2b4c6ffbcfcbdee469f02565f253d81a \
SRC_URI = "http://www.cpan.org/src/5.0/perl-${PV}.tar.gz \
file://Configure-multilib.patch \
file://perl-configpm-switch.patch \
- file://parallel_build_fix_1.patch \
- file://parallel_build_fix_2.patch \
- file://parallel_build_fix_3.patch \
- file://parallel_build_fix_4.patch \
- file://parallel_build_fix_5.patch \
- file://parallel_build_fix_6.patch \
file://native-nopacklist.patch \
file://native-perlinc.patch \
file://MM_Unix.pm.patch"
-SRC_URI[md5sum] = "29975a69dce54e47fcd6331c085c6c99"
-SRC_URI[sha256sum] = "5678bfd5c2cd59253a26171bf3e681235433b00c730eea8a8046e1b225c11d2f"
+SRC_URI[md5sum] = "3306fbaf976dcebdcd49b2ac0be00eb9"
+SRC_URI[sha256sum] = "6488359573bd7d41761bf935f66f827dc220fb3df961ef9b775d51fbd66548d3"
S = "${WORKDIR}/perl-${PV}"
@@ -88,15 +82,17 @@ do_install () {
install lib/ExtUtils/typemap ${D}${libdir}/perl/${PV}/ExtUtils/
# perl shared library headers
- for i in av.h embed.h gv.h keywords.h op.h perlio.h pp.h regexp.h \
- uconfig.h XSUB.h cc_runtime.h embedvar.h handy.h opnames.h \
- perliol.h pp_proto.h regnodes.h unixish.h config.h EXTERN.h \
- hv.h malloc_ctl.h pad.h perlsdio.h proto.h scope.h utf8.h \
- cop.h fakesdio.h INTERN.h mg.h patchlevel.h perlsfio.h \
- reentr.h sv.h utfebcdic.h cv.h fakethr.h intrpvar.h \
- nostdio.h perlapi.h perlvars.h util.h \
- dosish.h form.h iperlsys.h opcode.h perl.h perly.h regcomp.h \
- thread.h warnings.h; do
+ for i in av.h bitcount.h config.h cop.h cv.h dosish.h embed.h embedvar.h \
+ EXTERN.h fakesdio.h fakethr.h form.h gv.h handy.h hv.h INTERN.h \
+ intrpvar.h iperlsys.h keywords.h l1_char_class_tab.h malloc_ctl.h \
+ metaconfig.h mg.h mydtrace.h nostdio.h opcode.h op.h opnames.h \
+ op_reg_common.h overload.h pad.h parser.h patchlevel.h perlapi.h \
+ perl.h perlio.h perliol.h perlsdio.h perlsfio.h perlvars.h \
+ perly.h pp.h pp_proto.h proto.h reentr.h regcharclass.h regcomp.h \
+ regexp.h regnodes.h scope.h sv.h thread.h time64_config.h \
+ time64.h uconfig.h unixish.h utf8.h utfebcdic.h util.h \
+ uudmap.h warnings.h XSUB.h
+ do
install $i ${D}${libdir}/perl/${PV}/CORE
done
diff --git a/meta/recipes-devtools/perl/perl-rdepends_5.12.3.inc b/meta/recipes-devtools/perl/perl-rdepends_5.14.2.inc
similarity index 90%
rename from meta/recipes-devtools/perl/perl-rdepends_5.12.3.inc
rename to meta/recipes-devtools/perl/perl-rdepends_5.14.2.inc
index 309bd17..25b066a 100644
--- a/meta/recipes-devtools/perl/perl-rdepends_5.12.3.inc
+++ b/meta/recipes-devtools/perl/perl-rdepends_5.14.2.inc
@@ -17,14 +17,15 @@ RDEPENDS_perl-module-math-bigint-calc += "perl-module-integer "
# Depends list
# copy contents of /tmp/1 in this file
-RDEPENDS_perl-module-archive-tar += "perl-module-exporter"
RDEPENDS_perl-module-archive-tar-file += "perl-module-archive-tar"
+RDEPENDS_perl-module-archive-tar += "perl-module-exporter"
RDEPENDS_perl-module-attributes += "perl-module-xsloader"
-RDEPENDS_perl-module-b += "perl-module-exporter"
RDEPENDS_perl-module-b-debug += "perl-module-b"
RDEPENDS_perl-module-bignum += "perl-module-bigint"
RDEPENDS_perl-module-bigrat += "perl-module-bigint"
RDEPENDS_perl-module-bigrat += "perl-module-exporter"
+RDEPENDS_perl-module-b += "perl-module-exporter"
+RDEPENDS_perl-module-build += "perl-module-module-metadata"
RDEPENDS_perl-module-carp += "perl-module-exporter"
RDEPENDS_perl-module-cgi-util += "perl-module-exporter"
RDEPENDS_perl-module-class-struct += "perl-module-exporter"
@@ -32,27 +33,30 @@ RDEPENDS_perl-module-compress-raw-bzip2 += "perl-module-exporter"
RDEPENDS_perl-module-compress-raw-zlib += "perl-module-exporter"
RDEPENDS_perl-module-compress-zlib += "perl-module-exporter"
RDEPENDS_perl-module-config-extensions += "perl-module-exporter"
+RDEPENDS_perl-module-cpan += "perl-module-mac-buildtools"
RDEPENDS_perl-module-cpanplus += "perl-module-base"
+RDEPENDS_perl-module-cpanplus += "perl-module-cpanplus"
RDEPENDS_perl-module-cpanplus += "perl-module-exporter"
RDEPENDS_perl-module-cpanplus += "perl-module-tie-hash"
RDEPENDS_perl-module-data-dumper += "perl-module-exporter"
RDEPENDS_perl-module-data-dumper += "perl-module-overload"
RDEPENDS_perl-module-devel-peek += "perl-module-exporter"
+RDEPENDS_perl-module-devel-peek += "perl-module-xsloader"
RDEPENDS_perl-module-devel-selfstubber += "perl-module-selfloader"
RDEPENDS_perl-module-digest-md5 += "perl-module-exporter"
RDEPENDS_perl-module-digest-sha += "perl-module-dynaloader"
RDEPENDS_perl-module-digest-sha += "perl-module-exporter"
-RDEPENDS_perl-module-dynaloader += "perl-module-autoloader"
-RDEPENDS_perl-module-encode += "perl-module-encode-config"
-RDEPENDS_perl-module-encode += "perl-module-exporter"
RDEPENDS_perl-module-encode-cjkconstants += "perl-module-exporter"
RDEPENDS_perl-module-encode-encoder += "perl-module-exporter"
RDEPENDS_perl-module-encode-encoding += "perl-module-encode"
+RDEPENDS_perl-module-encode += "perl-module-encode-config"
+RDEPENDS_perl-module-encode += "perl-module-exporter"
RDEPENDS_perl-module-encode-unicode += "perl-module-encode"
RDEPENDS_perl-module-english += "perl-module-exporter"
+RDEPENDS_perl-module-errno += "perl-module-exporter"
RDEPENDS_perl-module-exporter-heavy += "perl-module-exporter"
-RDEPENDS_perl-module-extutils-command += "perl-module-exporter"
RDEPENDS_perl-module-extutils-command-mm += "perl-module-exporter"
+RDEPENDS_perl-module-extutils-command += "perl-module-exporter"
RDEPENDS_perl-module-extutils-constant-proxysubs += "perl-module-extutils-constant-xs"
RDEPENDS_perl-module-extutils-constant-xs += "perl-module-extutils-constant-base"
RDEPENDS_perl-module-extutils-embed += "perl-module-exporter"
@@ -64,8 +68,6 @@ RDEPENDS_perl-module-extutils-makemaker += "perl-module-extutils-my"
RDEPENDS_perl-module-extutils-manifest += "perl-module-exporter"
RDEPENDS_perl-module-extutils-miniperl += "perl-module-exporter"
RDEPENDS_perl-module-extutils-mkbootstrap += "perl-module-exporter"
-RDEPENDS_perl-module-extutils-mm += "perl-module-extutils-liblist"
-RDEPENDS_perl-module-extutils-mm += "perl-module-extutils-makemaker"
RDEPENDS_perl-module-extutils-mm-aix += "perl-module-extutils-mm-unix"
RDEPENDS_perl-module-extutils-mm-beos += "perl-module-extutils-mm-any"
RDEPENDS_perl-module-extutils-mm-beos += "perl-module-extutils-mm-unix"
@@ -76,6 +78,8 @@ RDEPENDS_perl-module-extutils-mm-dos += "perl-module-extutils-mm-unix"
RDEPENDS_perl-module-extutils-mm-nw5 += "perl-module-extutils-mm-win32"
RDEPENDS_perl-module-extutils-mm-os2 += "perl-module-extutils-mm-any"
RDEPENDS_perl-module-extutils-mm-os2 += "perl-module-extutils-mm-unix"
+RDEPENDS_perl-module-extutils-mm += "perl-module-extutils-liblist"
+RDEPENDS_perl-module-extutils-mm += "perl-module-extutils-makemaker"
RDEPENDS_perl-module-extutils-mm-qnx += "perl-module-extutils-mm-unix"
RDEPENDS_perl-module-extutils-mm-unix += "perl-module-extutils-mm-any"
RDEPENDS_perl-module-extutils-mm-uwin += "perl-module-extutils-mm-unix"
@@ -89,6 +93,7 @@ RDEPENDS_perl-module-extutils-mm-win95 += "perl-module-extutils-mm-win32"
RDEPENDS_perl-module-extutils-my += "perl-module-extutils-mm"
RDEPENDS_perl-module-extutils-parsexs += "perl-module-exporter"
RDEPENDS_perl-module-fcntl += "perl-module-exporter"
+RDEPENDS_perl-module-fcntl += "perl-module-xsloader"
RDEPENDS_perl-module-file-basename += "perl-module-exporter"
RDEPENDS_perl-module-file-compare += "perl-module-exporter"
RDEPENDS_perl-module-file-copy += "perl-module-exporter"
@@ -96,6 +101,8 @@ RDEPENDS_perl-module-file-find += "perl-module-cwd"
RDEPENDS_perl-module-file-find += "perl-module-exporter"
RDEPENDS_perl-module-file-find += "perl-module-file-basename"
RDEPENDS_perl-module-file-find += "perl-module-file-spec"
+RDEPENDS_perl-module-file-glob += "perl-module-xsloader"
+RDEPENDS_perl-module-filehandle += "perl-module-io-file"
RDEPENDS_perl-module-file-spec-cygwin += "perl-module-file-spec-unix"
RDEPENDS_perl-module-file-spec-epoc += "perl-module-file-spec-unix"
RDEPENDS_perl-module-file-spec-functions += "perl-module-exporter"
@@ -104,27 +111,29 @@ RDEPENDS_perl-module-file-spec-os2 += "perl-module-file-spec-unix"
RDEPENDS_perl-module-file-spec-vms += "perl-module-file-spec-unix"
RDEPENDS_perl-module-file-spec-win32 += "perl-module-file-spec-unix"
RDEPENDS_perl-module-file-temp += "perl-module-symbol"
-RDEPENDS_perl-module-filehandle += "perl-module-io-file"
RDEPENDS_perl-module-filter-util-call += "perl-module-dynaloader"
RDEPENDS_perl-module-filter-util-call += "perl-module-exporter"
RDEPENDS_perl-module-findbin += "perl-module-exporter"
+RDEPENDS_perl-module-gdbm-file += "perl-module-carp"
+RDEPENDS_perl-module-gdbm-file += "perl-module-exporter"
+RDEPENDS_perl-module-gdbm-file += "perl-module-tie-hash"
+RDEPENDS_perl-module-gdbm-file += "perl-module-xsloader"
RDEPENDS_perl-module-getopt-std += "perl-module-exporter"
-RDEPENDS_perl-module-hash-util += "perl-module-dynaloader"
-RDEPENDS_perl-module-hash-util += "perl-module-exporter"
RDEPENDS_perl-module-hash-util-fieldhash += "perl-module-exporter"
-RDEPENDS_perl-module-i18n-collate += "perl-module-exporter"
-RDEPENDS_perl-module-i18n-langinfo += "perl-module-dynaloader"
+RDEPENDS_perl-module-hash-util += "perl-module-exporter"
+RDEPENDS_perl-module-hash-util += "perl-module-xsloader"
RDEPENDS_perl-module-i18n-langinfo += "perl-module-exporter"
+RDEPENDS_perl-module-i18n-langinfo += "perl-module-xsloader"
RDEPENDS_perl-module-i18n-langtags += "perl-module-exporter"
RDEPENDS_perl-module-inc-latest += "perl-module-inc-latest-private"
RDEPENDS_perl-module-io-compress-base-common += "perl-module-exporter"
RDEPENDS_perl-module-io-compress-bzip2 += "perl-module-exporter "
RDEPENDS_perl-module-io-compress-deflate += "perl-module-exporter "
-RDEPENDS_perl-module-io-compress-gzip += "perl-module-exporter "
RDEPENDS_perl-module-io-compress-gzip-constants += "perl-module-exporter"
+RDEPENDS_perl-module-io-compress-gzip += "perl-module-exporter "
RDEPENDS_perl-module-io-compress-rawdeflate += "perl-module-exporter "
-RDEPENDS_perl-module-io-compress-zip += "perl-module-exporter "
RDEPENDS_perl-module-io-compress-zip-constants += "perl-module-exporter"
+RDEPENDS_perl-module-io-compress-zip += "perl-module-exporter "
RDEPENDS_perl-module-io-compress-zlib-constants += "perl-module-exporter"
RDEPENDS_perl-module-io-file += "perl-module-exporter"
RDEPENDS_perl-module-io-handle += "perl-module-exporter"
@@ -152,6 +161,7 @@ RDEPENDS_perl-module-locale-currency += "perl-module-exporter"
RDEPENDS_perl-module-locale-language += "perl-module-exporter"
RDEPENDS_perl-module-locale-script += "perl-module-exporter"
RDEPENDS_perl-module-math-bigfloat += "perl-module-exporter"
+RDEPENDS_perl-module-math-bigint-fastcalc += "perl-module-xsloader"
RDEPENDS_perl-module-math-complex += "perl-module-exporter"
RDEPENDS_perl-module-math-trig += "perl-module-exporter"
RDEPENDS_perl-module-mime-base64 += "perl-module-exporter"
@@ -168,30 +178,33 @@ RDEPENDS_perl-module-net-ftp-l += "perl-module-net-ftp-i"
RDEPENDS_perl-module-net-ping += "perl-module-exporter"
RDEPENDS_perl-module-net-time += "perl-module-exporter"
RDEPENDS_perl-module-object-accessor += "perl-module-overload"
+RDEPENDS_perl-module-perlio-encoding += "perl-module-xsloader"
+RDEPENDS_perl-module-perlio-scalar += "perl-module-xsloader"
+RDEPENDS_perl-module-perlio-via += "perl-module-xsloader"
RDEPENDS_perl-module-pod-escapes += "perl-module-exporter"
RDEPENDS_perl-module-pod-functions += "perl-module-exporter"
-RDEPENDS_perl-module-pod-html += "perl-module-exporter"
RDEPENDS_perl-module-pod-latex += "perl-module-pod-parseutils"
RDEPENDS_perl-module-pod-simple-transcodesmart += "perl-module-encode"
RDEPENDS_perl-module-pod-usage += "perl-module-pod-select"
RDEPENDS_perl-module-posix += "perl-module-exporter"
+RDEPENDS_perl-module-posix += "perl-module-xsloader"
RDEPENDS_perl-module-safe += "perl-module-utf8"
RDEPENDS_perl-module-scalar-util += "perl-module-exporter"
RDEPENDS_perl-module-scalar-util += "perl-module-list-util"
RDEPENDS_perl-module-scalar-util-pp += "perl-module-exporter"
RDEPENDS_perl-module-sdbm-file += "perl-module-tie-hash"
+RDEPENDS_perl-module-sdbm-file += "perl-module-xsloader"
RDEPENDS_perl-module-search-dict += "perl-module-exporter"
RDEPENDS_perl-module-socket += "perl-module-exporter"
-RDEPENDS_perl-module-storable += "perl-module-carp"
-RDEPENDS_perl-module-storable += "perl-module-dynaloader"
+RDEPENDS_perl-module-socket += "perl-module-xsloader"
RDEPENDS_perl-module-storable += "perl-module-exporter"
+RDEPENDS_perl-module-storable += "perl-module-xsloader"
RDEPENDS_perl-module-symbol += "perl-module-exporter"
-RDEPENDS_perl-module-sys-hostname += "perl-module-autoloader"
RDEPENDS_perl-module-sys-hostname += "perl-module-exporter"
RDEPENDS_perl-module-term-complete += "perl-module-exporter"
-RDEPENDS_perl-module-test += "perl-module-exporter"
RDEPENDS_perl-module-test-builder-module += "perl-module-exporter"
RDEPENDS_perl-module-test-builder-tester-color += "perl-module-test-builder-tester"
+RDEPENDS_perl-module-test += "perl-module-exporter"
RDEPENDS_perl-module-text-abbrev += "perl-module-exporter"
RDEPENDS_perl-module-text-tabs += "perl-module-exporter"
RDEPENDS_perl-module-text-wrap += "perl-module-exporter"
@@ -203,6 +216,7 @@ RDEPENDS_perl-module-time-hires += "perl-module-exporter"
RDEPENDS_perl-module-time-local += "perl-module-exporter"
RDEPENDS_perl-module-time-piece += "perl-module-dynaloader"
RDEPENDS_perl-module-time-piece += "perl-module-exporter"
+RDEPENDS_perl-module-unicode-collate += "perl-module-dynaloader"
RDEPENDS_perl-module-unicode-normalize += "perl-module-dynaloader"
RDEPENDS_perl-module-unicode-normalize += "perl-module-exporter"
RDEPENDS_perl-module-unicode-ucd += "perl-module-exporter"
diff --git a/meta/recipes-devtools/perl/perl-rprovides_5.12.3.inc b/meta/recipes-devtools/perl/perl-rprovides_5.14.2.inc
similarity index 100%
rename from meta/recipes-devtools/perl/perl-rprovides_5.12.3.inc
rename to meta/recipes-devtools/perl/perl-rprovides_5.14.2.inc
diff --git a/meta/recipes-devtools/perl/perl_5.12.3.bb b/meta/recipes-devtools/perl/perl_5.14.2.bb
similarity index 92%
rename from meta/recipes-devtools/perl/perl_5.12.3.bb
rename to meta/recipes-devtools/perl/perl_5.14.2.bb
index e4769a4..6bd51ad 100644
--- a/meta/recipes-devtools/perl/perl_5.12.3.bb
+++ b/meta/recipes-devtools/perl/perl_5.14.2.bb
@@ -7,23 +7,25 @@ LIC_FILES_CHKSUM = "file://Copying;md5=2b4c6ffbcfcbdee469f02565f253d81a \
# We need gnugrep (for -I)
DEPENDS = "virtual/db grep-native"
DEPENDS += "gdbm zlib"
-PR = "r5"
+PR = "r0"
# 5.10.1 has Module::Build built-in
PROVIDES += "libmodule-build-perl"
-# Major part of version
-#PVM = "5.13"
-
SRC_URI = "http://www.cpan.org/src/5.0/perl-${PV}.tar.gz \
file://debian/arm_thread_stress_timeout.diff \
- file://debian/cpan_config_path.diff \
file://debian/cpan_definstalldirs.diff \
file://debian/db_file_ver.diff \
file://debian/doc_info.diff \
file://debian/enc2xs_inc.diff \
file://debian/errno_ver.diff \
- file://debian/extutils_hacks.diff \
+ file://debian/libperl_embed_doc.diff \
+ file://debian/fixes/respect_umask.diff \
+ file://debian/writable_site_dirs.diff \
+ file://debian/extutils_set_libperl_path.diff \
+ file://debian/no_packlist_perllocal.diff \
+ file://debian/prefix_changes.diff \
+ file://debian/fakeroot.diff \
file://debian/instmodsh_doc.diff \
file://debian/ld_run_path.diff \
file://debian/libnet_config_path.diff \
@@ -32,31 +34,26 @@ SRC_URI = "http://www.cpan.org/src/5.0/perl-${PV}.tar.gz \
file://debian/module_build_man_extensions.diff \
file://debian/prune_libs.diff \
file://debian/fixes/net_smtp_docs.diff \
- file://debian/fixes/processPL.diff \
file://debian/perlivp.diff \
file://debian/disable-zlib-bundling.diff \
file://debian/cpanplus_definstalldirs.diff \
file://debian/cpanplus_config_path.diff \
- file://debian/fixes/autodie-flock.diff \
- file://debian/devel-ppport-ia64-optim.diff \
- file://debian/fixes/cpanplus-without-home.diff \
- file://debian/arm_optim.diff \
file://debian/deprecate-with-apt.diff \
file://debian/fixes/hurd-ccflags.diff \
file://debian/squelch-locale-warnings.diff \
- file://debian/fixes/lc-numeric-docs.diff \
- file://debian/fixes/lc-numeric-sprintf.diff \
- file://debian/fixes/concat-stack-corruption.diff \
- file://debian/fixes/h2ph-gcc-4.5.diff \
- file://debian/patchlevel \
+ file://debian/skip-upstream-git-tests.diff \
+ file://debian/fixes/extutils-cbuilder-cflags.diff \
+ file://debian/fixes/module-build-home-directory.diff \
+ file://debian/fixes/h2ph-multiarch.diff \
+ file://debian/fixes/index-tainting.diff \
+ file://debian/skip-kfreebsd-crash.diff \
+ file://debian/fixes/document_makemaker_ccflags.diff \
+ file://debian/fixes/sys-syslog-socket-timeout-kfreebsd.patch \
+ file://debian/fixes/hurd-hints.diff \
+ file://debian/fixes/pod_fixes.diff \
+ file://debian/find_html2text.diff \
\
file://Makefile.patch \
- file://parallel_build_fix_1.patch \
- file://parallel_build_fix_2.patch \
- file://parallel_build_fix_3.patch \
- file://parallel_build_fix_4.patch \
- file://parallel_build_fix_5.patch \
- file://parallel_build_fix_6.patch \
file://Makefile.SH.patch \
file://installperl.patch \
file://perl-dynloader.patch \
@@ -78,8 +75,8 @@ SRC_URI = "http://www.cpan.org/src/5.0/perl-${PV}.tar.gz \
file://config.sh-64-be"
# file://debian/fakeroot.diff
-SRC_URI[md5sum] = "29975a69dce54e47fcd6331c085c6c99"
-SRC_URI[sha256sum] = "5678bfd5c2cd59253a26171bf3e681235433b00c730eea8a8046e1b225c11d2f"
+SRC_URI[md5sum] = "3306fbaf976dcebdcd49b2ac0be00eb9"
+SRC_URI[sha256sum] = "6488359573bd7d41761bf935f66f827dc220fb3df961ef9b775d51fbd66548d3"
inherit perlnative siteinfo
@@ -210,6 +207,8 @@ do_install() {
PACKAGE_PREPROCESS_FUNCS += "perl_package_preprocess"
perl_package_preprocess () {
+ set -x
+ pwd
# Fix up installed configuration
sed -i -e "s,${D},,g" \
-e "s,-isystem${STAGING_INCDIR} ,,g" \
@@ -220,8 +219,6 @@ perl_package_preprocess () {
-e "s,${STAGING_BINDIR_NATIVE}/,,g" \
${PKGD}${bindir}/h2xs \
${PKGD}${bindir}/h2ph \
- ${PKGD}${bindir}/pod2html \
- ${PKGD}${bindir}/pod2latex \
${PKGD}${bindir}/pod2man \
${PKGD}${bindir}/pod2text \
${PKGD}${bindir}/pod2usage \
--
1.7.4.4
More information about the Openembedded-core
mailing list