From 3a08c401f298095840a2aee9079845f5ff434410 Mon Sep 17 00:00:00 2001 From: Nitin A Kamble Date: Sat, 23 Apr 2011 19:43:17 -0700 Subject: perl: upgrade from 5.12.2 to 5.12.3 And changed the perl tarball URL to more stable cpan location. Signed-off-by: Nitin A Kamble --- .../perl/perl-5.12.2/09_fix_installperl.patch | 21 - .../perl/perl-5.12.2/Configure-multilib.patch | 17 - .../perl/perl-5.12.2/Makefile.SH.patch | 290 - .../perl/perl-5.12.2/Makefile.patch | 59 - .../perl/perl-5.12.2/asm-pageh-fix.patch | 21 - meta/recipes-devtools/perl/perl-5.12.2/config.sh | 1086 ---- .../recipes-devtools/perl/perl-5.12.2/config.sh-32 | 38 - .../perl/perl-5.12.2/config.sh-32-be | 1 - .../perl/perl-5.12.2/config.sh-32-le | 1 - .../recipes-devtools/perl/perl-5.12.2/config.sh-64 | 38 - .../perl/perl-5.12.2/config.sh-64-be | 1 - .../perl/perl-5.12.2/config.sh-64-le | 1 - .../perl/perl-5.12.2/cross-generate_uudmap.patch | 15 - .../perl/perl-5.12.2/debian/arm_optim.diff | 34 - .../debian/arm_thread_stress_timeout.diff | 25 - .../perl/perl-5.12.2/debian/cpan_config_path.diff | 24 - .../perl-5.12.2/debian/cpan_definstalldirs.diff | 37 - .../perl-5.12.2/debian/cpanplus_config_path.diff | 45 - .../debian/cpanplus_definstalldirs.diff | 54 - .../perl/perl-5.12.2/debian/db_file_ver.diff | 34 - .../perl-5.12.2/debian/deprecate-with-apt.diff | 61 - .../debian/devel-ppport-ia64-optim.diff | 34 - .../perl-5.12.2/debian/disable-zlib-bundling.diff | 31 - .../perl/perl-5.12.2/debian/doc_info.diff | 36 - .../perl/perl-5.12.2/debian/enc2xs_inc.diff | 51 - .../perl/perl-5.12.2/debian/errno_ver.diff | 34 - .../perl/perl-5.12.2/debian/extutils_hacks.diff | 315 - .../perl/perl-5.12.2/debian/fakeroot.diff | 45 - .../perl-5.12.2/debian/fixes/autodie-flock.diff | 100 - .../debian/fixes/concat-stack-corruption.diff | 39 - .../debian/fixes/cpanplus-without-home.diff | 32 - .../perl-5.12.2/debian/fixes/h2ph-gcc-4.5.diff | 108 - .../perl-5.12.2/debian/fixes/hurd-ccflags.diff | 28 - .../perl-5.12.2/debian/fixes/lc-numeric-docs.diff | 97 - .../debian/fixes/lc-numeric-sprintf.diff | 31 - .../perl-5.12.2/debian/fixes/net_smtp_docs.diff | 25 - .../perl/perl-5.12.2/debian/fixes/processPL.diff | 45 - .../perl/perl-5.12.2/debian/instmodsh_doc.diff | 28 - .../perl/perl-5.12.2/debian/ld_run_path.diff | 25 - .../perl-5.12.2/debian/libnet_config_path.diff | 37 - .../perl-5.12.2/debian/m68k_thread_stress.diff | 45 - .../perl/perl-5.12.2/debian/mod_paths.diff | 100 - .../debian/module_build_man_extensions.diff | 33 - .../perl/perl-5.12.2/debian/perlivp.diff | 40 - .../perl/perl-5.12.2/debian/prune_libs.diff | 38 - .../debian/squelch-locale-warnings.diff | 55 - .../perl/perl-5.12.2/generate-sh.patch | 48 - .../perl/perl-5.12.2/installperl.patch | 17 - .../perl/perl-5.12.2/letgcc-find-errno.patch | 46 - .../perl/perl-5.12.2/native-nopacklist.patch | 82 - .../perl/perl-5.12.2/native-perlinc.patch | 26 - .../perl/perl-5.12.2/native-ssp.patch | 16 - .../perl/perl-5.12.2/parallel_build_fix_1.patch | 27 - .../perl/perl-5.12.2/parallel_build_fix_2.patch | 24 - .../perl/perl-5.12.2/parallel_build_fix_3.patch | 6585 -------------------- .../perl/perl-5.12.2/parallel_build_fix_4.patch | 57 - .../perl/perl-5.12.2/parallel_build_fix_5.patch | 430 -- .../perl/perl-5.12.2/parallel_build_fix_6.patch | 158 - .../perl/perl-5.12.2/perl-configpm-switch.patch | 45 - .../perl/perl-5.12.2/perl-configure.sh | 43 - .../perl/perl-5.12.2/perl-dynloader.patch | 31 - .../perl/perl-5.12.2/perl-enable-gdbm.patch | 19 - .../perl/perl-5.12.2/perl-moreconfig.patch | 18 - .../perl/perl-5.12.3/09_fix_installperl.patch | 21 + .../perl/perl-5.12.3/Configure-multilib.patch | 17 + .../perl/perl-5.12.3/Makefile.SH.patch | 290 + .../perl/perl-5.12.3/Makefile.patch | 59 + .../perl/perl-5.12.3/asm-pageh-fix.patch | 21 + meta/recipes-devtools/perl/perl-5.12.3/config.sh | 1086 ++++ .../recipes-devtools/perl/perl-5.12.3/config.sh-32 | 38 + .../perl/perl-5.12.3/config.sh-32-be | 1 + .../perl/perl-5.12.3/config.sh-32-le | 1 + .../recipes-devtools/perl/perl-5.12.3/config.sh-64 | 38 + .../perl/perl-5.12.3/config.sh-64-be | 1 + .../perl/perl-5.12.3/config.sh-64-le | 1 + .../perl/perl-5.12.3/cross-generate_uudmap.patch | 15 + .../perl/perl-5.12.3/debian/arm_optim.diff | 34 + .../debian/arm_thread_stress_timeout.diff | 25 + .../perl/perl-5.12.3/debian/cpan_config_path.diff | 24 + .../perl-5.12.3/debian/cpan_definstalldirs.diff | 37 + .../perl-5.12.3/debian/cpanplus_config_path.diff | 45 + .../debian/cpanplus_definstalldirs.diff | 54 + .../perl/perl-5.12.3/debian/db_file_ver.diff | 34 + .../perl-5.12.3/debian/deprecate-with-apt.diff | 61 + .../debian/devel-ppport-ia64-optim.diff | 34 + .../perl-5.12.3/debian/disable-zlib-bundling.diff | 31 + .../perl/perl-5.12.3/debian/doc_info.diff | 36 + .../perl/perl-5.12.3/debian/enc2xs_inc.diff | 52 + .../perl/perl-5.12.3/debian/errno_ver.diff | 34 + .../perl/perl-5.12.3/debian/extutils_hacks.diff | 315 + .../perl/perl-5.12.3/debian/fakeroot.diff | 45 + .../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/hurd-ccflags.diff | 28 + .../perl-5.12.3/debian/fixes/lc-numeric-docs.diff | 97 + .../debian/fixes/lc-numeric-sprintf.diff | 31 + .../perl-5.12.3/debian/fixes/net_smtp_docs.diff | 25 + .../perl/perl-5.12.3/debian/fixes/processPL.diff | 45 + .../perl/perl-5.12.3/debian/instmodsh_doc.diff | 28 + .../perl/perl-5.12.3/debian/ld_run_path.diff | 25 + .../perl-5.12.3/debian/libnet_config_path.diff | 37 + .../perl-5.12.3/debian/m68k_thread_stress.diff | 45 + .../perl/perl-5.12.3/debian/mod_paths.diff | 100 + .../debian/module_build_man_extensions.diff | 33 + .../perl/perl-5.12.3/debian/patchlevel | 45 + .../perl/perl-5.12.3/debian/perlivp.diff | 40 + .../perl/perl-5.12.3/debian/prune_libs.diff | 38 + .../perl/perl-5.12.3/debian/series | 34 + .../debian/squelch-locale-warnings.diff | 55 + .../perl/perl-5.12.3/generate-sh.patch | 48 + .../perl/perl-5.12.3/installperl.patch | 17 + .../perl/perl-5.12.3/letgcc-find-errno.patch | 46 + .../perl/perl-5.12.3/native-nopacklist.patch | 82 + .../perl/perl-5.12.3/native-perlinc.patch | 26 + .../perl/perl-5.12.3/native-ssp.patch | 16 + .../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 + .../perl/perl-5.12.3/perl-configpm-switch.patch | 45 + .../perl/perl-5.12.3/perl-configure.sh | 43 + .../perl/perl-5.12.3/perl-dynloader.patch | 31 + .../perl/perl-5.12.3/perl-enable-gdbm.patch | 19 + .../perl/perl-5.12.3/perl-moreconfig.patch | 18 + meta/recipes-devtools/perl/perl-native_5.12.2.bb | 106 - meta/recipes-devtools/perl/perl-native_5.12.3.bb | 106 + .../recipes-devtools/perl/perl-rdepends_5.12.2.inc | 210 - .../recipes-devtools/perl/perl-rdepends_5.12.3.inc | 210 + .../perl/perl-rprovides_5.12.2.inc | 1 - .../perl/perl-rprovides_5.12.3.inc | 1 + meta/recipes-devtools/perl/perl_5.12.2.bb | 280 - meta/recipes-devtools/perl/perl_5.12.3.bb | 283 + 136 files changed, 11707 insertions(+), 11624 deletions(-) delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/09_fix_installperl.patch delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/Configure-multilib.patch delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/Makefile.SH.patch delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/Makefile.patch delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/asm-pageh-fix.patch delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/config.sh delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/config.sh-32 delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/config.sh-32-be delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/config.sh-32-le delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/config.sh-64 delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/config.sh-64-be delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/config.sh-64-le delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/cross-generate_uudmap.patch delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/arm_optim.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/arm_thread_stress_timeout.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/cpan_config_path.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/cpan_definstalldirs.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/cpanplus_config_path.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/cpanplus_definstalldirs.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/db_file_ver.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/deprecate-with-apt.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/devel-ppport-ia64-optim.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/disable-zlib-bundling.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/doc_info.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/enc2xs_inc.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/errno_ver.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/extutils_hacks.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/fakeroot.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/autodie-flock.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/concat-stack-corruption.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/cpanplus-without-home.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/h2ph-gcc-4.5.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/hurd-ccflags.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/lc-numeric-docs.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/lc-numeric-sprintf.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/net_smtp_docs.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/processPL.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/instmodsh_doc.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/ld_run_path.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/libnet_config_path.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/m68k_thread_stress.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/mod_paths.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/module_build_man_extensions.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/perlivp.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/prune_libs.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/debian/squelch-locale-warnings.diff delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/generate-sh.patch delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/installperl.patch delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/letgcc-find-errno.patch delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/native-nopacklist.patch delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/native-perlinc.patch delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/native-ssp.patch delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_1.patch delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_2.patch delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_3.patch delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_4.patch delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_5.patch delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_6.patch delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/perl-configpm-switch.patch delete mode 100755 meta/recipes-devtools/perl/perl-5.12.2/perl-configure.sh delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/perl-dynloader.patch delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/perl-enable-gdbm.patch delete mode 100644 meta/recipes-devtools/perl/perl-5.12.2/perl-moreconfig.patch create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/09_fix_installperl.patch create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/Configure-multilib.patch create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/Makefile.SH.patch create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/Makefile.patch create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/asm-pageh-fix.patch create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/config.sh create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/config.sh-32 create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/config.sh-32-be create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/config.sh-32-le create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/config.sh-64 create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/config.sh-64-be create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/config.sh-64-le create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/cross-generate_uudmap.patch create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/arm_optim.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/arm_thread_stress_timeout.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/cpan_config_path.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/cpan_definstalldirs.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/cpanplus_config_path.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/cpanplus_definstalldirs.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/db_file_ver.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/deprecate-with-apt.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/devel-ppport-ia64-optim.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/disable-zlib-bundling.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/doc_info.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/enc2xs_inc.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/errno_ver.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/extutils_hacks.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/fakeroot.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/autodie-flock.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/concat-stack-corruption.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/cpanplus-without-home.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/h2ph-gcc-4.5.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/hurd-ccflags.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/lc-numeric-docs.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/lc-numeric-sprintf.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/net_smtp_docs.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/processPL.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/instmodsh_doc.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/ld_run_path.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/libnet_config_path.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/m68k_thread_stress.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/mod_paths.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/module_build_man_extensions.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/patchlevel create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/perlivp.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/prune_libs.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/series create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/debian/squelch-locale-warnings.diff create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/generate-sh.patch create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/installperl.patch create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/letgcc-find-errno.patch create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/native-nopacklist.patch create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/native-perlinc.patch create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/native-ssp.patch create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_1.patch create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_2.patch create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_3.patch create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_4.patch create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_5.patch create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_6.patch create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/perl-configpm-switch.patch create mode 100755 meta/recipes-devtools/perl/perl-5.12.3/perl-configure.sh create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/perl-dynloader.patch create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/perl-enable-gdbm.patch create mode 100644 meta/recipes-devtools/perl/perl-5.12.3/perl-moreconfig.patch delete mode 100644 meta/recipes-devtools/perl/perl-native_5.12.2.bb create mode 100644 meta/recipes-devtools/perl/perl-native_5.12.3.bb delete mode 100644 meta/recipes-devtools/perl/perl-rdepends_5.12.2.inc create mode 100644 meta/recipes-devtools/perl/perl-rdepends_5.12.3.inc delete mode 100644 meta/recipes-devtools/perl/perl-rprovides_5.12.2.inc create mode 100644 meta/recipes-devtools/perl/perl-rprovides_5.12.3.inc delete mode 100644 meta/recipes-devtools/perl/perl_5.12.2.bb create mode 100644 meta/recipes-devtools/perl/perl_5.12.3.bb (limited to 'meta/recipes-devtools/perl') diff --git a/meta/recipes-devtools/perl/perl-5.12.2/09_fix_installperl.patch b/meta/recipes-devtools/perl/perl-5.12.2/09_fix_installperl.patch deleted file mode 100644 index cfe004724..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/09_fix_installperl.patch +++ /dev/null @@ -1,21 +0,0 @@ -Upstream-Status:Inappropriate [embedded specific] - -Correctly identify arch-specific modules in ext/ where the .pm files -are under lib. - -Ensure that POSIX/SigAction is kept with the rest of the POSIX module -under archlib. - -Index: perl-5.12.2/installperl -=================================================================== ---- perl-5.12.2.orig/installperl -+++ perl-5.12.2/installperl -@@ -750,7 +750,7 @@ sub installlib { - } - - if (-f $_) { -- if (/\.(?:al|ix)$/ && !($dir =~ m[^auto/(.*)$])) { -+ if (/\.(?:al|ix)$/ && !($dir =~ m[^auto/(.*)$] && $archpms{$1})) { - $installlib = $installprivlib; - #We're installing *.al and *.ix files into $installprivlib, - #but we have to delete old *.al and *.ix files from the 5.000 diff --git a/meta/recipes-devtools/perl/perl-5.12.2/Configure-multilib.patch b/meta/recipes-devtools/perl/perl-5.12.2/Configure-multilib.patch deleted file mode 100644 index 6a4125b89..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/Configure-multilib.patch +++ /dev/null @@ -1,17 +0,0 @@ -Upstream-Status:Pending - -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/`uname -m`-linux-gnu/libc.so && glibpth="/usr/lib/`uname -m`-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.2/Makefile.SH.patch b/meta/recipes-devtools/perl/perl-5.12.2/Makefile.SH.patch deleted file mode 100644 index 72f1b8fd0..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/Makefile.SH.patch +++ /dev/null @@ -1,290 +0,0 @@ -Upstream-Status:Inappropriate [embedded specific] - -Index: perl-5.12.2/Makefile.SH -=================================================================== ---- perl-5.12.2.orig/Makefile.SH -+++ perl-5.12.2/Makefile.SH -@@ -50,12 +50,12 @@ 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 - - pldlflags="$cccdlflags" - static_ldflags='' -@@ -133,7 +133,8 @@ true) - ldlibpth='' - ;; - *) -- eval "ldlibpth=\"$ldlibpthname=`pwd`:\$$ldlibpthname\"" -+# We compile in the library path in OE from cross-compile, so lets not do this -+# eval "ldlibpth=\"$ldlibpthname=`pwd`:\$$ldlibpthname\"" - ;; - esac - # Strip off any trailing :'s -@@ -154,18 +155,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. -- if test -f $archlib/CORE/$libperl; then -- rm -f preload -- cat <<'EOT' > preload --#! /bin/sh --lib=$1 --shift --test -r $lib && export LD_PRELOAD="$lib $LD_PRELOAD" --exec "$@" --EOT -- chmod 755 preload -- ldlibpth="$ldlibpth `pwd`/preload `pwd`/$libperl" -- fi -+ echo linux libraries overwritten by cross-compile patches - ;; - os390) test -f /bin/env && ldlibpth="/bin/env $ldlibpth" - ;; -@@ -553,9 +543,19 @@ splintfiles = $(c1) - .c.s: - $(CCCMDSRC) -S $*.c - --all: $(FIRSTMAKEFILE) $(MINIPERL_EXE) miniperl $(generated_pods) $(private) $(unidatafiles) $(public) $(dynamic_ext) $(nonxs_ext) extras.make -- @echo " "; -- @echo " Everything is up to date. Type '$(MAKE) test' to run test suite." -+#all: $(FIRSTMAKEFILE) $(MINIPERL_EXE) miniperl $(generated_pods) $(private) $(unidatafiles) $(public) $(dynamic_ext) $(nonxs_ext) extras.make -+# @echo " "; -+# @echo " Everything is up to date. Type '$(MAKE) test' to run test suite." -+ -+all: $(FIRSTMAKEFILE) $(MINIPERL_EXE) miniperl $(unidatafiles) -+ -+more: $(generated_pods) $(private) $(public) -+ -+more2: $(dynamic_ext) -+ -+more3: $(nonxs_ext) -+ -+more4: extras.make - - .PHONY: all translators utilities - -@@ -563,16 +563,16 @@ all: $(FIRSTMAKEFILE) $(MINIPERL_EXE) mi - # by make_patchnum.pl. - git_version.h: lib/Config_git.pl - --lib/Config_git.pl: $(MINIPERL_EXE) make_patchnum.pl -+lib/Config_git.pl: make_patchnum.pl - $(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 - --utilities: $(MINIPERL_EXE) $(CONFIGPM) $(plextract) FORCE -+utilities: $(CONFIGPM) $(plextract) FORCE - @echo " "; echo " Making utilities"; cd utils; $(LDLIBPTH) $(MAKE) all - - -@@ -747,7 +747,7 @@ $(LIBPERL): $& $(obj) $(DYNALOADER) $(LI - true) - $spitshell >>$Makefile <<'!NO!SUBS!' - rm -f $@ -- $(LD) -o $@ $(SHRPLDFLAGS) $(obj) $(DYNALOADER) $(libs) -+ $(LD) -o $@ $(SHRPLDFLAGS) $(obj) $(DYNALOADER) $(libs) -Wl,-soname,libperl.so.5 - !NO!SUBS! - case "$osname" in - aix) -@@ -788,7 +788,9 @@ $(MINIPERL_EXE): $& miniperlmain$(OBJ_EX - $(CC) -o $(MINIPERL_EXE) $(CLDFLAGS) \ - $(mini_obj) \ - miniperlmain$(OBJ_EXT) opmini$(OBJ_EXT) perlmini$(OBJ_EXT) $(libs) -- $(LDLIBPTH) $(RUN) ./miniperl$(HOST_EXE_EXT) -w -Ilib -MExporter -e '' || $(MAKE) minitest -+ mv -f miniperl miniperl-target -+ ln -s hostperl miniperl -+# $(LDLIBPTH) $(RUN) ./miniperl$(HOST_EXE_EXT) -w -Ilib -MExporter -e '' || $(MAKE) minitest - !NO!SUBS! - ;; - next4*) -@@ -796,7 +798,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) -- $(LDLIBPTH) $(RUN) ./miniperl$(HOST_EXE_EXT) -w -Ilib -MExporter -e '' || $(MAKE) minitest -+ mv -f miniperl miniperl-target -+ ln -s hostperl miniperl -+# $(LDLIBPTH) $(RUN) ./miniperl$(HOST_EXE_EXT) -w -Ilib -MExporter -e '' || $(MAKE) minitest - !NO!SUBS! - ;; - darwin*) -@@ -818,7 +822,9 @@ $(MINIPERL_EXE): $& miniperlmain$(OBJ_EX - $(CC) $(CLDFLAGS) $(NAMESPACEFLAGS) -o $(MINIPERL_EXE) \ - $(mini_obj) \ - miniperlmain$(OBJ_EXT) opmini$(OBJ_EXT) perlmini$(OBJ_EXT) $(libs) -- $(LDLIBPTH) $(RUN) ./miniperl$(HOST_EXE_EXT) -w -Ilib -MExporter -e '' || $(MAKE) minitest -+ mv -f miniperl miniperl-target -+ ln -s hostperl miniperl -+# $(LDLIBPTH) $(RUN) ./miniperl$(HOST_EXE_EXT) -w -Ilib -MExporter -e '' || $(MAKE) minitest - !NO!SUBS! - ;; - *) -@@ -828,7 +834,10 @@ $(MINIPERL_EXE): $& miniperlmain$(OBJ_EX - $(LDLIBPTH) $(CC) $(CLDFLAGS) -o $(MINIPERL_EXE) \ - $(mini_obj) \ - miniperlmain$(OBJ_EXT) opmini$(OBJ_EXT) perlmini$(OBJ_EXT) $(libs) -- $(LDLIBPTH) $(RUN) ./miniperl$(HOST_EXE_EXT) -w -Ilib -MExporter -e '' || $(MAKE) minitest -+ -+ mv -f miniperl miniperl-target -+ ln -s hostperl miniperl -+# $(LDLIBPTH) $(RUN) ./miniperl$(HOST_EXE_EXT) -w -Ilib -MExporter -e '' || $(MAKE) minitest - !NO!SUBS! - ;; - esac -@@ -950,7 +959,7 @@ case "${osname}" in - catamount) - $spitshell >>$Makefile <>$Makefile <<'!NO!SUBS!' - .PHONY: makeppport --makeppport: $(MINIPERL_EXE) $(CONFIGPM) $(nonxs_ext) -+makeppport: $(CONFIGPM) $(nonxs_ext) - $(MINIPERL) $(Icwd) mkppport - - !NO!SUBS! -@@ -970,29 +979,29 @@ esac - $spitshell >>$Makefile <<'!NO!SUBS!' - - .PHONY: preplibrary --preplibrary: $(MINIPERL_EXE) $(CONFIGPM) $(PREPLIBRARY_LIBPERL) -+preplibrary: $(CONFIGPM) $(PREPLIBRARY_LIBPERL) - - $(CONFIGPM_FROM_CONFIG_SH): $(CONFIGPOD) - --$(CONFIGPOD): config.sh $(MINIPERL_EXE) configpm Porting/Glossary lib/Config_git.pl -+$(CONFIGPOD): config.sh configpm Porting/Glossary lib/Config_git.pl - $(MINIPERL) configpm - --lib/ExtUtils/Miniperl.pm: miniperlmain.c $(MINIPERL_EXE) minimod.pl $(CONFIGPM) -+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 - - unidatafiles $(unidatafiles) pod/perluniprops.pod: uni.data - --uni.data: $(MINIPERL_EXE) $(CONFIGPM) lib/unicore/mktables $(nonxs_ext) -+uni.data: $(CONFIGPM) lib/unicore/mktables $(nonxs_ext) - $(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 -@@ -1001,21 +1010,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 -+ $(MINIPERL) -f -Ilib pod/buildtoc --build-toc -q - - pod/perlapi.pod: pod/perlintern.pod - --pod/perlintern.pod: $(MINIPERL_EXE) autodoc.pl embed.fnc -+pod/perlintern.pod: autodoc.pl embed.fnc - $(MINIPERL) autodoc.pl - --pod/perlmodlib.pod: $(MINIPERL_EXE) pod/perlmodlib.PL MANIFEST -+pod/perlmodlib.pod: pod/perlmodlib.PL MANIFEST - $(MINIPERL) $(Icwd) pod/perlmodlib.PL -q - - pod/perldelta.pod: pod/perl5122delta.pod - $(LNS) perl5122delta.pod pod/perldelta.pod - --extra.pods: $(MINIPERL_EXE) -+extra.pods: - -@test ! -f extra.pods || rm -f `cat extra.pods` - -@rm -f extra.pods - -@for x in `grep -l '^=[a-z]' README.* | grep -v README.vms` ; do \ -@@ -1058,11 +1067,7 @@ no-install: - INSTALL_DEPENDENCE = all - - install.perl: $(INSTALL_DEPENDENCE) installperl -- $(RUN_PERL) installperl --destdir=$(DESTDIR) $(INSTALLFLAGS) $(STRIPFLAGS) -- -@test ! -s extras.lst || $(MAKE) extras.install -- --install.man: all installman -- $(RUN_PERL) installman --destdir=$(DESTDIR) $(INSTALLFLAGS) -+ ./hostperl -Ifake_config_library -Ilib -MConfig installperl --destdir=$(DESTDIR) $(INSTALLFLAGS) $(STRIPFLAGS) - - # XXX Experimental. Hardwired values, but useful for testing. - # Eventually Configure could ask for some of these values. -@@ -1159,16 +1164,16 @@ manicheck: FORCE - # - # DynaLoader may be needed for extensions that use Makefile.PL. - --$(DYNALOADER): $(MINIPERL_EXE) lib/buildcustomize.pl preplibrary FORCE $(nonxs_ext) -+$(DYNALOADER): 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) lib/buildcustomize.pl preplibrary makeppport $(DYNALOADER) FORCE $(PERLEXPORT) -+d_dummy $(dynamic_ext): 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) lib/buildcustomize.pl preplibrary makeppport $(DYNALOADER) FORCE -+s_dummy $(static_ext): 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) lib/buildcustomize.pl preplibrary FORCE -+n_dummy $(nonxs_ext): lib/buildcustomize.pl preplibrary FORCE - $(MINIPERL) make_ext.pl $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL) - !NO!SUBS! - -@@ -1366,10 +1371,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 - cd t && (rm -f $(PERL_EXE); $(LNS) ../$(PERL_EXE) $(PERL_EXE)) - --test_prep_reonly: $(MINIPERL_EXE) $(PERL_EXE) $(dynamic_ext_re) $(TEST_PERL_DLL) -+test_prep_reonly: $(PERL_EXE) $(dynamic_ext_re) $(TEST_PERL_DLL) - $(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)) - -@@ -1460,7 +1465,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 Makefile.SH.patch -- diff -Bbur ../installperl installperl > installperl.patch -- --patch: -- cd .. ; if [ ! -e ./CROSS_PATCHED ] ; then \ -- patch -p1 < Cross/Makefile.SH.patch; \ -- patch -p1 < Cross/installperl.patch ; mv installperl installperl-patched; \ -- sed -e 's/XXSTRIPXX/$(SYS)/' installperl-patched > installperl; \ -- touch CROSS_PATCHED ; fi -- - perl: - @echo Perl cross-build directory is $(TOPDIR) - @echo Target arch is $(SYS) -@@ -54,11 +44,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 -- cd $(TOPDIR)/.. ; $(MAKE) more2 "PERLRUN=/usr/bin/perl -I$(TOPDIR)/../fake_config_library -MConfig" -- cd $(TOPDIR)/.. ; $(MAKE) more3 "PERLRUN=/usr/bin/perl -I$(TOPDIR)/../fake_config_library -MConfig" -- cd $(TOPDIR)/.. ; $(MAKE) more4 "PERLRUN=/usr/bin/perl -I$(TOPDIR)/../fake_config_library -MConfig" -+ cd $(TOPDIR)/.. ; $(MAKE) more2 "PERLRUN=hostperl -I$(TOPDIR)/../fake_config_library -MConfig" -+ cd $(TOPDIR)/.. ; $(MAKE) more3 "PERLRUN=hostperl -I$(TOPDIR)/../fake_config_library -MConfig" -+ cd $(TOPDIR)/.. ; $(MAKE) more4 "PERLRUN=hostperl -I$(TOPDIR)/../fake_config_library -MConfig" - cd $(TOPDIR)/.. ; rm -rf install_me_here -- cd $(TOPDIR)/.. ; make install-strip -+# cd $(TOPDIR)/.. ; make install-strip - cd $(TOPDIR)/.. ; sh -x Cross/warp - - diff --git a/meta/recipes-devtools/perl/perl-5.12.2/asm-pageh-fix.patch b/meta/recipes-devtools/perl/perl-5.12.2/asm-pageh-fix.patch deleted file mode 100644 index 251beb9d1..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/asm-pageh-fix.patch +++ /dev/null @@ -1,21 +0,0 @@ -Upstream-Status:Pending - -Perl inclues asm/page.h in order to get the definition for getpagesize which -has been definied in unistd.h since glibc 2.1. Some recent version of linux -libc headers removed the asm/page.h resulting in failures here for some -people. - -Index: perl-5.12.2/cpan/IPC-SysV/SysV.xs -=================================================================== ---- perl-5.12.2.orig/cpan/IPC-SysV/SysV.xs 2001-07-01 04:46:07.000000000 +1000 -+++ perl-5.12.2/cpan/IPC-SysV/SysV.xs 2001-07-01 04:46:07.000000000 +1000 -@@ -3,9 +3,6 @@ - #include "XSUB.h" - - #include --#ifdef __linux__ --# include --#endif - #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM) - #ifndef HAS_SEM - # include diff --git a/meta/recipes-devtools/perl/perl-5.12.2/config.sh b/meta/recipes-devtools/perl/perl-5.12.2/config.sh deleted file mode 100644 index 12d44a838..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/config.sh +++ /dev/null @@ -1,1086 +0,0 @@ -#!/bin/sh -# -# This file was produced by running the Configure script. It holds all the -# definitions figured out by Configure. Should you modify one of these values, -# do not forget to propagate your changes by running "Configure -der". You may -# instead choose to run each of the .SH files by yourself, or "Configure -S". -# - -# Package name : perl5 -# Source directory : . -# Configuration time: Thu Dec 23 03:57:51 UTC 2010 -# Configured by : Open Embedded -# Target system : linux qemux86 2.6.37-rc5-yocto-standard+ #1 preempt mon dec 20 14:21:27 pst 2010 i686 gnulinux - -: Configure command line arguments. -config_arg0='Configure' -config_args='-des -Doptimize=-O2 -Dmyhostname=localhost -Dperladmin=root@localhost -Dcc=gcc -Dcf_by=Open Embedded -Dinstallprefix=@DESTDIR@ -Dprefix=/usr -Dvendorprefix=/usr -Dsiteprefix=/usr -Dotherlibdirs=/usr/lib/perl5/5.12.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' -config_arg3='-Dmyhostname=localhost' -config_arg4='-Dperladmin=root@localhost' -config_arg5='-Dcc=gcc' -config_arg6='-Dcf_by=Open Embedded' -config_arg7='-Dinstallprefix=@DESTDIR@' -config_arg8='-Dprefix=/usr' -config_arg9='-Dvendorprefix=/usr' -config_arg10='-Dsiteprefix=/usr' -config_arg11='-Dotherlibdirs=/usr/lib/perl5/5.12.2' -config_arg12='-Duseshrplib' -config_arg13='-Dusethreads' -config_arg14='-Duseithreads' -config_arg15='-Duselargefiles' -config_arg16='-Ud_dosuid' -config_arg17='-Dd_semctl_semun' -config_arg18='-Ui_db' -config_arg19='-Ui_ndbm' -config_arg20='-Ui_gdbm' -config_arg21='-Di_shadow' -config_arg22='-Di_syslog' -config_arg23='-Dman3ext=3pm' -config_arg24='-Duseperlio' -config_arg25='-Dinstallusrbinperl' -config_arg26='-Ubincompat5005' -config_arg27='-Uversiononly' -config_arg28='-Dpager=/usr/bin/less -isr' - -Author='' -Date='$Date' -Header='' -Id='$Id' -Locker='' -Log='$Log' -RCSfile='$RCSfile' -Revision='$Revision' -Source='' -State='' -_a='.a' -_exe='' -_o='.o' -afs='false' -afsroot='/afs' -ansi2knr='' -aphostname='' -api_revision='5' -api_subversion='0' -api_version='12' -api_versionstring='5.12.0' -ar='ar' -archlib='/usr/lib/perl5/5.12.2/@ARCH@-thread-multi' -archlibexp='/usr/lib/perl5/5.12.2/@ARCH@-thread-multi' -archname64='' -archname='@ARCH@-thread-multi' -archobjs='' -asctime_r_proto='REENTRANT_PROTO_B_SB' -awk='awk' -baserev='5.0' -bash='' -bin='/usr/bin' -bin_ELF='define' -binexp='/usr/bin' -bison='bison' -byacc='byacc' -c='' -castflags='0' -cat='cat' -cc='gcc' -cccdlflags='-fPIC' -ccdlflags='-Wl,-E -Wl,-rpath,/usr/lib/perl5/5.12.2/@ARCH@-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' -ccsymbols='' -ccversion='' -cf_by='Open Embedded' -cf_email='Open Embedded@localhost.localdomain' -charbits='8' -charsize='1' -chgrp='' -chmod='chmod' -chown='' -clocktype='clock_t' -comm='comm' -compress='' -contains='grep' -cp='cp' -cpio='' -cpp='cpp' -cpp_stuff='42' -cppccsymbols='' -cppflags='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe -fstack-protector' -cpplast='-' -cppminus='-' -cpprun='gcc -E' -cppstdin='gcc -E' -crypt_r_proto='REENTRANT_PROTO_B_CCS' -cryptlib='' -csh='csh' -ctermid_r_proto='0' -ctime_r_proto='REENTRANT_PROTO_B_SB' -d_Gconvert='gcvt((x),(n),(b))' -d_PRIEUldbl='define' -d_PRIFUldbl='define' -d_PRIGUldbl='define' -d_PRIXU64='define' -d_PRId64='define' -d_PRIeldbl='define' -d_PRIfldbl='define' -d_PRIgldbl='define' -d_PRIi64='define' -d_PRIo64='define' -d_PRIu64='define' -d_PRIx64='define' -d_SCNfldbl='define' -d__fwalk='undef' -d_access='define' -d_accessx='undef' -d_aintl='undef' -d_alarm='define' -d_archlib='define' -d_asctime64='undef' -d_asctime_r='define' -d_atolf='undef' -d_atoll='define' -d_attribute_deprecated='define' -d_attribute_format='define' -d_attribute_malloc='define' -d_attribute_nonnull='define' -d_attribute_noreturn='define' -d_attribute_pure='define' -d_attribute_unused='define' -d_attribute_warn_unused_result='define' -d_bcmp='define' -d_bcopy='define' -d_bsd='undef' -d_bsdgetpgrp='undef' -d_bsdsetpgrp='undef' -d_builtin_choose_expr='define' -d_builtin_expect='define' -d_bzero='define' -d_c99_variadic_macros='define' -d_casti32='undef' -d_castneg='define' -d_charvspr='undef' -d_chown='define' -d_chroot='define' -d_chsize='undef' -d_class='undef' -d_clearenv='define' -d_closedir='define' -d_cmsghdr_s='define' -d_const='define' -d_copysignl='define' -d_cplusplus='undef' -d_crypt='define' -d_crypt_r='define' -d_csh='undef' -d_ctermid='define' -d_ctermid_r='undef' -d_ctime64='undef' -d_ctime_r='define' -d_cuserid='define' -d_dbl_dig='define' -d_dbminitproto='undef' -d_difftime64='undef' -d_difftime='define' -d_dir_dd_fd='undef' -d_dirfd='define' -d_dirnamlen='undef' -d_dlerror='define' -d_dlopen='define' -d_dlsymun='undef' -d_dosuid='undef' -d_drand48_r='define' -d_drand48proto='define' -d_dup2='define' -d_eaccess='define' -d_endgrent='define' -d_endgrent_r='undef' -d_endhent='define' -d_endhostent_r='undef' -d_endnent='define' -d_endnetent_r='undef' -d_endpent='define' -d_endprotoent_r='undef' -d_endpwent='define' -d_endpwent_r='undef' -d_endsent='define' -d_endservent_r='undef' -d_eofnblk='define' -d_eunice='undef' -d_faststdio='define' -d_fchdir='define' -d_fchmod='define' -d_fchown='define' -d_fcntl='define' -d_fcntl_can_lock='define' -d_fd_macros='define' -d_fd_set='define' -d_fds_bits='define' -d_fgetpos='define' -d_finite='define' -d_finitel='define' -d_flexfnam='define' -d_flock='define' -d_flockproto='define' -d_fork='define' -d_fp_class='undef' -d_fpathconf='define' -d_fpclass='undef' -d_fpclassify='undef' -d_fpclassl='undef' -d_fpos64_t='undef' -d_frexpl='define' -d_fs_data_s='undef' -d_fseeko='define' -d_fsetpos='define' -d_fstatfs='define' -d_fstatvfs='define' -d_fsync='define' -d_ftello='define' -d_ftime='undef' -d_futimes='define' -d_gdbm_ndbm_h_uses_prototypes='undef' -d_gdbmndbm_h_uses_prototypes='undef' -d_getaddrinfo='define' -d_getcwd='define' -d_getespwnam='undef' -d_getfsstat='undef' -d_getgrent='define' -d_getgrent_r='define' -d_getgrgid_r='define' -d_getgrnam_r='define' -d_getgrps='define' -d_gethbyaddr='define' -d_gethbyname='define' -d_gethent='define' -d_gethname='define' -d_gethostbyaddr_r='define' -d_gethostbyname_r='define' -d_gethostent_r='define' -d_gethostprotos='define' -d_getitimer='define' -d_getlogin='define' -d_getlogin_r='define' -d_getmnt='undef' -d_getmntent='define' -d_getnameinfo='define' -d_getnbyaddr='define' -d_getnbyname='define' -d_getnent='define' -d_getnetbyaddr_r='define' -d_getnetbyname_r='define' -d_getnetent_r='define' -d_getnetprotos='define' -d_getpagsz='define' -d_getpbyname='define' -d_getpbynumber='define' -d_getpent='define' -d_getpgid='define' -d_getpgrp2='undef' -d_getpgrp='define' -d_getppid='define' -d_getprior='define' -d_getprotobyname_r='define' -d_getprotobynumber_r='define' -d_getprotoent_r='define' -d_getprotoprotos='define' -d_getprpwnam='undef' -d_getpwent='define' -d_getpwent_r='define' -d_getpwnam_r='define' -d_getpwuid_r='define' -d_getsbyname='define' -d_getsbyport='define' -d_getsent='define' -d_getservbyname_r='define' -d_getservbyport_r='define' -d_getservent_r='define' -d_getservprotos='define' -d_getspnam='define' -d_getspnam_r='define' -d_gettimeod='define' -d_gmtime64='undef' -d_gmtime_r='define' -d_gnulibc='define' -d_grpasswd='define' -d_hasmntopt='define' -d_htonl='define' -d_ilogbl='define' -d_inc_version_list='undef' -d_index='undef' -d_inetaton='define' -d_inetntop='define' -d_inetpton='define' -d_int64_t='define' -d_isascii='define' -d_isfinite='undef' -d_isinf='define' -d_isnan='define' -d_isnanl='define' -d_killpg='define' -d_lchown='define' -d_ldbl_dig='define' -d_libm_lib_version='define' -d_link='define' -d_localtime64='undef' -d_localtime_r='define' -d_localtime_r_needs_tzset='define' -d_locconv='define' -d_lockf='define' -d_longdbl='define' -d_longlong='define' -d_lseekproto='define' -d_lstat='define' -d_madvise='define' -d_malloc_good_size='undef' -d_malloc_size='undef' -d_mblen='define' -d_mbstowcs='define' -d_mbtowc='define' -d_memchr='define' -d_memcmp='define' -d_memcpy='define' -d_memmove='define' -d_memset='define' -d_mkdir='define' -d_mkdtemp='define' -d_mkfifo='define' -d_mkstemp='define' -d_mkstemps='define' -d_mktime64='undef' -d_mktime='define' -d_mmap='define' -d_modfl='define' -d_modfl_pow32_bug='undef' -d_modflproto='define' -d_mprotect='define' -d_msg='define' -d_msg_ctrunc='define' -d_msg_dontroute='define' -d_msg_oob='define' -d_msg_peek='define' -d_msg_proxy='define' -d_msgctl='define' -d_msgget='define' -d_msghdr_s='define' -d_msgrcv='define' -d_msgsnd='define' -d_msync='define' -d_munmap='define' -d_mymalloc='undef' -d_ndbm='undef' -d_ndbm_h_uses_prototypes='undef' -d_nice='define' -d_nl_langinfo='define' -d_nv_zero_is_allbits_zero='define' -d_off64_t='define' -d_old_pthread_create_joinable='undef' -d_oldpthreads='undef' -d_oldsock='undef' -d_open3='define' -d_pathconf='define' -d_pause='define' -d_perl_otherlibdirs='define' -d_phostname='undef' -d_pipe='define' -d_poll='define' -d_portable='define' -d_procselfexe='define' -d_pseudofork='undef' -d_pthread_atfork='define' -d_pthread_attr_setscope='define' -d_pthread_yield='define' -d_pwage='undef' -d_pwchange='undef' -d_pwclass='undef' -d_pwcomment='undef' -d_pwexpire='undef' -d_pwgecos='define' -d_pwpasswd='define' -d_pwquota='undef' -d_qgcvt='define' -d_quad='define' -d_random_r='define' -d_readdir64_r='define' -d_readdir='define' -d_readdir_r='define' -d_readlink='define' -d_readv='define' -d_recvmsg='define' -d_rename='define' -d_rewinddir='define' -d_rmdir='define' -d_safebcpy='undef' -d_safemcpy='undef' -d_sanemcmp='define' -d_sbrkproto='define' -d_scalbnl='define' -d_sched_yield='define' -d_scm_rights='define' -d_seekdir='define' -d_select='define' -d_sem='define' -d_semctl='define' -d_semctl_semid_ds='define' -d_semctl_semun='define' -d_semget='define' -d_semop='define' -d_sendmsg='define' -d_setegid='define' -d_seteuid='define' -d_setgrent='define' -d_setgrent_r='undef' -d_setgrps='define' -d_sethent='define' -d_sethostent_r='undef' -d_setitimer='define' -d_setlinebuf='define' -d_setlocale='define' -d_setlocale_r='undef' -d_setnent='define' -d_setnetent_r='undef' -d_setpent='define' -d_setpgid='define' -d_setpgrp2='undef' -d_setpgrp='define' -d_setprior='define' -d_setproctitle='undef' -d_setprotoent_r='undef' -d_setpwent='define' -d_setpwent_r='undef' -d_setregid='define' -d_setresgid='define' -d_setresuid='define' -d_setreuid='define' -d_setrgid='undef' -d_setruid='undef' -d_setsent='define' -d_setservent_r='undef' -d_setsid='define' -d_setvbuf='define' -d_sfio='undef' -d_shm='define' -d_shmat='define' -d_shmatprototype='define' -d_shmctl='define' -d_shmdt='define' -d_shmget='define' -d_sigaction='define' -d_signbit='define' -d_sigprocmask='define' -d_sigsetjmp='define' -d_sitearch='define' -d_snprintf='define' -d_sockatmark='define' -d_sockatmarkproto='define' -d_socket='define' -d_socklen_t='define' -d_sockpair='define' -d_socks5_init='undef' -d_sprintf_returns_strlen='define' -d_sqrtl='define' -d_srand48_r='define' -d_srandom_r='define' -d_sresgproto='define' -d_sresuproto='define' -d_statblks='define' -d_statfs_f_flags='undef' -d_statfs_s='define' -d_statvfs='define' -d_stdio_cnt_lval='undef' -d_stdio_ptr_lval='define' -d_stdio_ptr_lval_nochange_cnt='undef' -d_stdio_ptr_lval_sets_cnt='define' -d_stdio_stream_array='undef' -d_stdiobase='define' -d_stdstdio='define' -d_strchr='define' -d_strcoll='define' -d_strctcpy='define' -d_strerrm='strerror(e)' -d_strerror='define' -d_strerror_r='define' -d_strftime='define' -d_strlcat='undef' -d_strlcpy='undef' -d_strtod='define' -d_strtol='define' -d_strtold='define' -d_strtoll='define' -d_strtoq='define' -d_strtoul='define' -d_strtoull='define' -d_strtouq='define' -d_strxfrm='define' -d_suidsafe='undef' -d_symlink='define' -d_syscall='define' -d_syscallproto='define' -d_sysconf='define' -d_sysernlst='' -d_syserrlst='define' -d_system='define' -d_tcgetpgrp='define' -d_tcsetpgrp='define' -d_telldir='define' -d_telldirproto='define' -d_time='define' -d_timegm='define' -d_times='define' -d_tm_tm_gmtoff='define' -d_tm_tm_zone='define' -d_tmpnam_r='define' -d_truncate='define' -d_ttyname_r='define' -d_tzname='define' -d_ualarm='define' -d_umask='define' -d_uname='define' -d_union_semun='undef' -d_unordered='undef' -d_unsetenv='define' -d_usleep='define' -d_usleepproto='define' -d_ustat='define' -d_vendorarch='define' -d_vendorbin='define' -d_vendorlib='define' -d_vendorscript='define' -d_vfork='undef' -d_void_closedir='undef' -d_voidsig='define' -d_voidtty='' -d_volatile='define' -d_vprintf='define' -d_vsnprintf='define' -d_wait4='define' -d_waitpid='define' -d_wcstombs='define' -d_wctomb='define' -d_writev='define' -d_xenix='undef' -date='date' -db_hashtype='u_int32_t' -db_prefixtype='size_t' -db_version_major='' -db_version_minor='' -db_version_patch='' -defvoidused='15' -direntrytype='struct dirent' -dlext='so' -dlsrc='dl_dlopen.xs' -doublesize='8' -drand01='drand48()' -drand48_r_proto='REENTRANT_PROTO_I_ST' -dtrace='' -dynamic_ext='B Compress/Raw/Bzip2 Compress/Raw/Zlib Cwd Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Digest/SHA Encode Fcntl File/Glob Filter/Util/Call Hash/Util Hash/Util/FieldHash I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 Math/BigInt/FastCalc Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via GDBM_File SDBM_File Socket Storable Sys/Hostname Sys/Syslog Text/Soundex Time/HiRes Time/Piece Unicode/Normalize XS/APItest XS/APItest/KeywordRPN XS/Typemap attributes mro re threads threads/shared' -eagain='EAGAIN' -ebcdic='undef' -echo='echo' -egrep='egrep' -emacs='' -endgrent_r_proto='0' -endhostent_r_proto='0' -endnetent_r_proto='0' -endprotoent_r_proto='0' -endpwent_r_proto='0' -endservent_r_proto='0' -eunicefix=':' -exe_ext='' -expr='expr' -extensions='B Compress/Raw/Bzip2 Compress/Raw/Zlib Cwd Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Digest/SHA Encode Fcntl File/Glob Filter/Util/Call Hash/Util Hash/Util/FieldHash I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 Math/BigInt/FastCalc Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via GDBM_File SDBM_File Socket Storable Sys/Hostname Sys/Syslog Text/Soundex Time/HiRes Time/Piece Unicode/Normalize XS/APItest XS/APItest/KeywordRPN XS/Typemap attributes mro re threads threads/shared Archive/Extract Archive/Tar Attribute/Handlers AutoLoader B/Debug B/Deparse B/Lint CGI CPAN CPANPLUS CPANPLUS/Dist/Build Class/ISA Devel/SelfStubber Digest Errno ExtUtils/CBuilder ExtUtils/Command ExtUtils/Constant ExtUtils/Install ExtUtils/MakeMaker ExtUtils/Manifest ExtUtils/ParseXS File/Fetch File/Path File/Temp FileCache Filter/Simple Getopt/Long I18N/LangTags IO/Compress IO/Zlib IPC/Cmd IPC/Open2 IPC/Open3 Locale/Codes Locale/Maketext Locale/Maketext/Simple Log/Message Log/Message/Simple Math/BigInt Math/BigRat Math/Complex Memoize Module/Build Module/CoreList Module/Load Module/Load/Conditional Module/Loaded Module/Pluggable NEXT Net/Ping Object/Accessor Package/Constants Params/Check Parse/CPAN/Meta PerlIO/via/QuotedPrint Pod/Escapes Pod/LaTeX Pod/Parser Pod/Perldoc Pod/Plainer Pod/Simple Safe SelfLoader Shell Switch Term/ANSIColor Term/Cap Term/UI Test Test/Harness Test/Simple Text/Balanced Text/ParseWords Text/Tabs Thread/Queue Thread/Semaphore Tie/File Tie/Memoize Tie/RefHash Time/Local Unicode/Collate XSLoader autodie autouse base bignum constant encoding/warnings if lib libnet parent podlators' -extern_C='extern' -extras='' -fflushNULL='define' -fflushall='undef' -find='' -firstmakefile='makefile' -flex='' -fpossize='16' -fpostype='fpos_t' -freetype='void' -from=':' -full_ar='/usr/bin/ar' -full_csh='csh' -full_sed='/bin/sed' -gccansipedantic='' -gccosandvers='' -gccversion='4.5.1' -getgrent_r_proto='REENTRANT_PROTO_I_SBWR' -getgrgid_r_proto='REENTRANT_PROTO_I_TSBWR' -getgrnam_r_proto='REENTRANT_PROTO_I_CSBWR' -gethostbyaddr_r_proto='REENTRANT_PROTO_I_TsISBWRE' -gethostbyname_r_proto='REENTRANT_PROTO_I_CSBWRE' -gethostent_r_proto='REENTRANT_PROTO_I_SBWRE' -getlogin_r_proto='REENTRANT_PROTO_I_BW' -getnetbyaddr_r_proto='REENTRANT_PROTO_I_uISBWRE' -getnetbyname_r_proto='REENTRANT_PROTO_I_CSBWRE' -getnetent_r_proto='REENTRANT_PROTO_I_SBWRE' -getprotobyname_r_proto='REENTRANT_PROTO_I_CSBWR' -getprotobynumber_r_proto='REENTRANT_PROTO_I_ISBWR' -getprotoent_r_proto='REENTRANT_PROTO_I_SBWR' -getpwent_r_proto='REENTRANT_PROTO_I_SBWR' -getpwnam_r_proto='REENTRANT_PROTO_I_CSBWR' -getpwuid_r_proto='REENTRANT_PROTO_I_TSBWR' -getservbyname_r_proto='REENTRANT_PROTO_I_CCSBWR' -getservbyport_r_proto='REENTRANT_PROTO_I_ICSBWR' -getservent_r_proto='REENTRANT_PROTO_I_SBWR' -getspnam_r_proto='REENTRANT_PROTO_I_CSBWR' -gidsign='1' -gidsize='4' -gidtype='gid_t' -glibpth='/usr/shlib /lib /usr/lib /usr/lib/386 /lib/386 /usr/ccs/lib /usr/ucblib /usr/local/lib ' -gmake='gmake' -gmtime_r_proto='REENTRANT_PROTO_S_TS' -gnulibc_version='2.12.1' -grep='grep' -groupcat='cat /etc/group' -groupstype='gid_t' -gzip='gzip' -h_fcntl='false' -h_sysfile='true' -hint='recommended' -hostcat='cat /etc/hosts' -html1dir=' ' -html1direxp='' -html3dir=' ' -html3direxp='' -i16size='2' -i16type='short' -i32size='4' -i64size='8' -i8size='1' -i8type='signed char' -i_arpainet='define' -i_assert='define' -i_bsdioctl='' -i_crypt='define' -i_db='undef' -i_dbm='undef' -i_dirent='define' -i_dld='undef' -i_dlfcn='define' -i_fcntl='undef' -i_float='define' -i_fp='undef' -i_fp_class='undef' -i_gdbm='undef' -i_gdbm_ndbm='undef' -i_gdbmndbm='undef' -i_grp='define' -i_ieeefp='undef' -i_inttypes='define' -i_langinfo='define' -i_libutil='undef' -i_limits='define' -i_locale='define' -i_machcthr='undef' -i_malloc='define' -i_mallocmalloc='undef' -i_math='define' -i_memory='undef' -i_mntent='define' -i_ndbm='undef' -i_netdb='define' -i_neterrno='undef' -i_netinettcp='define' -i_niin='define' -i_poll='define' -i_prot='undef' -i_pthread='define' -i_pwd='define' -i_rpcsvcdbm='undef' -i_sfio='undef' -i_sgtty='undef' -i_shadow='define' -i_socks='undef' -i_stdarg='define' -i_stddef='define' -i_stdlib='define' -i_string='define' -i_sunmath='undef' -i_sysaccess='undef' -i_sysdir='define' -i_sysfile='define' -i_sysfilio='undef' -i_sysin='undef' -i_sysioctl='define' -i_syslog='define' -i_sysmman='define' -i_sysmode='undef' -i_sysmount='define' -i_sysndir='undef' -i_sysparam='define' -i_syspoll='define' -i_sysresrc='define' -i_syssecrt='undef' -i_sysselct='define' -i_syssockio='undef' -i_sysstat='define' -i_sysstatfs='define' -i_sysstatvfs='define' -i_systime='define' -i_systimek='undef' -i_systimes='define' -i_systypes='define' -i_sysuio='define' -i_sysun='define' -i_sysutsname='define' -i_sysvfs='define' -i_syswait='define' -i_termio='undef' -i_termios='define' -i_time='define' -i_unistd='define' -i_ustat='define' -i_utime='define' -i_values='define' -i_varargs='undef' -i_varhdr='stdarg.h' -i_vfork='undef' -ignore_versioned_solibs='y' -inc_version_list=' ' -inc_version_list_init='0' -incpath='' -inews='' -initialinstalllocation='/usr/bin' -installarchlib='@DESTDIR@/lib/perl5/5.12.2/@ARCH@-thread-multi' -installbin='@DESTDIR@/bin' -installhtml1dir='' -installhtml3dir='' -installman1dir='' -installman3dir='' -installprefix='@DESTDIR@' -installprefixexp='@DESTDIR@' -installprivlib='@DESTDIR@/lib/perl5/5.12.2' -installscript='@DESTDIR@/bin' -installsitearch='@DESTDIR@/lib/perl5/site_perl/5.12.2/@ARCH@-thread-multi' -installsitebin='@DESTDIR@/bin' -installsitehtml1dir='' -installsitehtml3dir='' -installsitelib='@DESTDIR@/lib/perl5/site_perl/5.12.2' -installsiteman1dir='' -installsiteman3dir='' -installsitescript='@DESTDIR@/bin' -installstyle='lib/perl5' -installusrbinperl='define' -installvendorarch='@DESTDIR@/lib/perl5/vendor_perl/5.12.2/@ARCH@-thread-multi' -installvendorbin='@DESTDIR@/bin' -installvendorhtml1dir='' -installvendorhtml3dir='' -installvendorlib='@DESTDIR@/lib/perl5/vendor_perl/5.12.2' -installvendorman1dir='' -installvendorman3dir='' -installvendorscript='@DESTDIR@/bin' -intsize='4' -issymlink='test -h' -ivdformat='"ld"' -ivtype='long' -known_extensions='B Compress/Raw/Bzip2 Compress/Raw/Zlib Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Digest/SHA Encode Fcntl File/Glob Filter/Util/Call GDBM_File Hash/Util Hash/Util/FieldHash I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 Math/BigInt/FastCalc NDBM_File ODBM_File Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Text/Soundex Time/HiRes Time/Piece Unicode/Normalize VMS/DCLsym VMS/Stdio Win32 Win32API/File Win32CORE XS/APItest XS/APItest/KeywordRPN XS/Typemap attributes mro re threads threads/shared ' -ksh='' -ld='gcc' -lddlflags='-shared -O2 -fstack-protector' -ldflags=' -fstack-protector' -ldflags_uselargefiles='' -ldlibpthname='LD_LIBRARY_PATH' -less='less' -lib_ext='.a' -libc='/lib/libc-2.12.1.so' -libperl='libperl.so' -libpth='/lib /usr/lib' -libs='-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lpthread -lc' -libsdirs=' /usr/lib' -libsfiles=' libnsl.so libgdbm.so libdb.so libdl.so libm.so libcrypt.so libutil.so libpthread.so libc.so' -libsfound=' /usr/lib/libnsl.so /usr/lib/libgdbm.so /usr/lib/libdb.so /usr/lib/libdl.so /usr/lib/libm.so /usr/lib/libcrypt.so /usr/lib/libutil.so /usr/lib/libpthread.so /usr/lib/libc.so' -libspath=' /lib /usr/lib' -libswanted='sfio socket inet nsl nm ndbm gdbm dbm db malloc dl dld ld sun m crypt sec util pthread c cposix posix ucb BSD gdbm_compat' -libswanted_uselargefiles='' -line='' -lint='' -lkflags='' -ln='ln' -lns='/bin/ln -s' -localtime_r_proto='REENTRANT_PROTO_S_TS' -locincpth='/usr/local/include /opt/local/include /usr/gnu/include /opt/gnu/include /usr/GNU/include /opt/GNU/include' -loclibpth='/usr/local/lib /opt/local/lib /usr/gnu/lib /opt/gnu/lib /usr/GNU/lib /opt/GNU/lib' -longlongsize='8' -lp='' -lpr='' -ls='ls' -lseeksize='8' -lseektype='off_t' -mad='undef' -madlyh='' -madlyobj='' -madlysrc='' -mail='' -mailx='' -make='make' -make_set_make='#' -mallocobj='' -mallocsrc='' -malloctype='void *' -man1dir=' ' -man1direxp='' -man1ext='0' -man3dir=' ' -man3direxp='' -man3ext='0' -mips_type='' -mistrustnm='' -mkdir='mkdir' -mmaptype='void *' -modetype='mode_t' -more='more' -multiarch='undef' -mv='' -myarchname='@ARCH@' -mydomain='.localdomain' -myhostname='localhost' -n='-n' -netdb_hlen_type='size_t' -netdb_name_type='const char *' -netdb_net_type='in_addr_t' -nm='nm' -nm_opt='' -nm_so_opt='--dynamic' -nonxs_ext='Archive/Extract Archive/Tar Attribute/Handlers AutoLoader B/Debug B/Deparse B/Lint CGI CPAN CPANPLUS CPANPLUS/Dist/Build Class/ISA Devel/SelfStubber Digest Errno ExtUtils/CBuilder ExtUtils/Command ExtUtils/Constant ExtUtils/Install ExtUtils/MakeMaker ExtUtils/Manifest ExtUtils/ParseXS File/Fetch File/Path File/Temp FileCache Filter/Simple Getopt/Long I18N/LangTags IO/Compress IO/Zlib IPC/Cmd IPC/Open2 IPC/Open3 Locale/Codes Locale/Maketext Locale/Maketext/Simple Log/Message Log/Message/Simple Math/BigInt Math/BigRat Math/Complex Memoize Module/Build Module/CoreList Module/Load Module/Load/Conditional Module/Loaded Module/Pluggable NEXT Net/Ping Object/Accessor Package/Constants Params/Check Parse/CPAN/Meta PerlIO/via/QuotedPrint Pod/Escapes Pod/LaTeX Pod/Parser Pod/Perldoc Pod/Plainer Pod/Simple Safe SelfLoader Shell Switch Term/ANSIColor Term/Cap Term/UI Test Test/Harness Test/Simple Text/Balanced Text/ParseWords Text/Tabs Thread/Queue Thread/Semaphore Tie/File Tie/Memoize Tie/RefHash Time/Local Unicode/Collate XSLoader autodie autouse base bignum constant encoding/warnings if lib libnet parent podlators' -nroff='nroff' -nvEUformat='"E"' -nvFUformat='"F"' -nvGUformat='"G"' -nv_overflows_integers_at='256.0*256.0*256.0*256.0*256.0*256.0*2.0*2.0*2.0*2.0*2.0' -nveformat='"e"' -nvfformat='"f"' -nvgformat='"g"' -nvsize='8' -nvtype='double' -o_nonblock='O_NONBLOCK' -obj_ext='.o' -old_pthread_create_joinable='' -optimize='-O2' -orderlib='false' -osname='linux' -osvers='2.6.37-rc5-yocto-standard+' -otherlibdirs='/usr/lib/perl5/5.12.2' -package='perl5' -pager='/usr/bin/less -isr' -passcat='cat /etc/passwd' -patchlevel='12' -path_sep=':' -perl5='/usr/bin/perl' -perl='' -perl_patchlevel='' -perladmin='root@localhost' -perllibs='-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc' -perlpath='/usr/bin/perl' -pg='pg' -phostname='' -pidtype='pid_t' -plibpth='' -pmake='' -pr='' -prefix='/usr' -prefixexp='/usr' -privlib='/usr/lib/perl5/5.12.2' -privlibexp='/usr/lib/perl5/5.12.2' -procselfexe='"/proc/self/exe"' -prototype='define' -randbits='48' -randfunc='drand48' -random_r_proto='REENTRANT_PROTO_I_St' -randseedtype='long' -ranlib=':' -rd_nodata='-1' -readdir64_r_proto='REENTRANT_PROTO_I_TSR' -readdir_r_proto='REENTRANT_PROTO_I_TSR' -revision='5' -rm='rm' -rm_try='/bin/rm -f try try a.out .out try.[cho] try..o core core.try* try.core*' -rmail='' -run='' -runnm='false' -sPRIEUldbl='"LE"' -sPRIFUldbl='"LF"' -sPRIGUldbl='"LG"' -sPRIeldbl='"Le"' -sPRIfldbl='"Lf"' -sPRIgldbl='"Lg"' -sSCNfldbl='"Lf"' -sched_yield='sched_yield()' -scriptdir='/usr/bin' -scriptdirexp='/usr/bin' -sed='sed' -seedfunc='srand48' -selecttype='fd_set *' -sendmail='' -setgrent_r_proto='0' -sethostent_r_proto='0' -setlocale_r_proto='0' -setnetent_r_proto='0' -setprotoent_r_proto='0' -setpwent_r_proto='0' -setservent_r_proto='0' -sh='/bin/sh' -shar='' -sharpbang='#!' -shmattype='void *' -shortsize='2' -shrpenv='' -shsharp='true' -sig_count='65' -sig_name='ZERO HUP INT QUIT ILL TRAP ABRT BUS FPE KILL USR1 SEGV USR2 PIPE ALRM TERM STKFLT CHLD CONT STOP TSTP TTIN TTOU URG XCPU XFSZ VTALRM PROF WINCH IO PWR SYS NUM32 NUM33 RTMIN NUM35 NUM36 NUM37 NUM38 NUM39 NUM40 NUM41 NUM42 NUM43 NUM44 NUM45 NUM46 NUM47 NUM48 NUM49 NUM50 NUM51 NUM52 NUM53 NUM54 NUM55 NUM56 NUM57 NUM58 NUM59 NUM60 NUM61 NUM62 NUM63 RTMAX IOT CLD POLL UNUSED ' -sig_name_init='"ZERO", "HUP", "INT", "QUIT", "ILL", "TRAP", "ABRT", "BUS", "FPE", "KILL", "USR1", "SEGV", "USR2", "PIPE", "ALRM", "TERM", "STKFLT", "CHLD", "CONT", "STOP", "TSTP", "TTIN", "TTOU", "URG", "XCPU", "XFSZ", "VTALRM", "PROF", "WINCH", "IO", "PWR", "SYS", "NUM32", "NUM33", "RTMIN", "NUM35", "NUM36", "NUM37", "NUM38", "NUM39", "NUM40", "NUM41", "NUM42", "NUM43", "NUM44", "NUM45", "NUM46", "NUM47", "NUM48", "NUM49", "NUM50", "NUM51", "NUM52", "NUM53", "NUM54", "NUM55", "NUM56", "NUM57", "NUM58", "NUM59", "NUM60", "NUM61", "NUM62", "NUM63", "RTMAX", "IOT", "CLD", "POLL", "UNUSED", 0' -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 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 ' -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.2/@ARCH@-thread-multi' -sitearchexp='/usr/lib/perl5/site_perl/5.12.2/@ARCH@-thread-multi' -sitebin='/usr/bin' -sitebinexp='/usr/bin' -sitehtml1dir='' -sitehtml1direxp='' -sitehtml3dir='' -sitehtml3direxp='' -sitelib='/usr/lib/perl5/site_perl/5.12.2' -sitelib_stem='/usr/lib/perl5/site_perl' -sitelibexp='/usr/lib/perl5/site_perl/5.12.2' -siteman1dir='' -siteman1direxp='' -siteman3dir='' -siteman3direxp='' -siteprefix='/usr' -siteprefixexp='/usr' -sitescript='/usr/bin' -sitescriptexp='/usr/bin' -sizetype='size_t' -sleep='' -smail='' -so='so' -sockethdr='' -socketlib='' -socksizetype='socklen_t' -sort='sort' -spackage='Perl5' -spitshell='cat' -srand48_r_proto='REENTRANT_PROTO_I_LS' -srandom_r_proto='REENTRANT_PROTO_I_TS' -src='.' -ssizetype='ssize_t' -startperl='#!/usr/bin/perl' -startsh='#!/bin/sh' -static_ext=' ' -stdchar='char' -stdio_base='((fp)->_IO_read_base)' -stdio_bufsiz='((fp)->_IO_read_end - (fp)->_IO_read_base)' -stdio_cnt='((fp)->_IO_read_end - (fp)->_IO_read_ptr)' -stdio_filbuf='' -stdio_ptr='((fp)->_IO_read_ptr)' -stdio_stream_array='' -strerror_r_proto='REENTRANT_PROTO_B_IBW' -strings='/usr/include/string.h' -submit='' -subversion='2' -sysman='/usr/share/man/man1' -tail='' -tar='' -targetarch='' -tbl='' -tee='' -test='test' -timeincl='/usr/include/sys/time.h /usr/include/time.h ' -timetype='time_t' -tmpnam_r_proto='REENTRANT_PROTO_B_B' -to=':' -touch='touch' -tr='tr' -trnl='\n' -troff='' -ttyname_r_proto='REENTRANT_PROTO_I_IBW' -u16size='2' -u16type='unsigned short' -u32size='4' -u64size='8' -u8size='1' -u8type='unsigned char' -uidsign='1' -uidsize='4' -uidtype='uid_t' -uname='uname' -uniq='uniq' -use5005threads='undef' -usecrosscompile='undef' -usedevel='undef' -usedl='define' -usedtrace='undef' -usefaststdio='undef' -useithreads='define' -uselargefiles='define' -uselongdouble='undef' -usemallocwrap='define' -usemorebits='undef' -usemultiplicity='define' -usemymalloc='n' -usenm='false' -useopcode='true' -useperlio='define' -useposix='true' -usereentrant='undef' -userelocatableinc='undef' -usesfio='false' -useshrplib='true' -usesitecustomize='undef' -usesocks='undef' -usethreads='define' -usevendorprefix='define' -usevfork='false' -usrinc='/usr/include' -uuname='' -uvXUformat='"lX"' -uvoformat='"lo"' -uvtype='unsigned long' -uvuformat='"lu"' -uvxformat='"lx"' -vaproto='define' -vendorarch='/usr/lib/perl5/vendor_perl/5.12.2/@ARCH@-thread-multi' -vendorarchexp='/usr/lib/perl5/vendor_perl/5.12.2/@ARCH@-thread-multi' -vendorbin='/usr/bin' -vendorbinexp='/usr/bin' -vendorhtml1dir=' ' -vendorhtml1direxp='' -vendorhtml3dir=' ' -vendorhtml3direxp='' -vendorlib='/usr/lib/perl5/vendor_perl/5.12.2' -vendorlib_stem='/usr/lib/perl5/vendor_perl' -vendorlibexp='/usr/lib/perl5/vendor_perl/5.12.2' -vendorman1dir=' ' -vendorman1direxp='' -vendorman3dir=' ' -vendorman3direxp='' -vendorprefix='/usr' -vendorprefixexp='/usr' -vendorscript='/usr/bin' -vendorscriptexp='/usr/bin' -version='5.12.2' -version_patchlevel_string='version 12 subversion 2' -versiononly='undef' -vi='' -voidflags='15' -xlibpth='/usr/lib/386 /lib/386' -yacc='yacc' -yaccflags='' -zcat='' -zip='zip' -PERL_REVISION=5 -PERL_VERSION=12 -PERL_SUBVERSION=2 -PERL_API_REVISION=5 -PERL_API_VERSION=12 -PERL_API_SUBVERSION=0 -PERL_PATCHLEVEL='' -PERL_CONFIG_SH=true -: Variables propagated from previous config.sh file. -libdb_needs_pthread='N' diff --git a/meta/recipes-devtools/perl/perl-5.12.2/config.sh-32 b/meta/recipes-devtools/perl/perl-5.12.2/config.sh-32 deleted file mode 100644 index 7259a0c6a..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/config.sh-32 +++ /dev/null @@ -1,38 +0,0 @@ -alignbytes='4' -cf_time='Thu Dec 23 03:57:51 UTC 2010' -cppsymbols='_FILE_OFFSET_BITS=64 _GNU_SOURCE=1 _LARGEFILE64_SOURCE=1 _LARGEFILE_SOURCE=1 _POSIX_C_SOURCE=200809L _POSIX_SOURCE=1 _REENTRANT=1 _XOPEN_SOURCE=700 _XOPEN_SOURCE_EXTENDED=1 __BIGGEST_ALIGNMENT__=16 __CHAR16_TYPE__=short\ unsigned\ int __CHAR32_TYPE__=unsigned\ int __CHAR_BIT__=8 __DBL_DENORM_MIN__=((double)4.94065645841246544177e-324L) __DBL_DIG__=15 __DBL_EPSILON__=((double)2.22044604925031308085e-16L) __DBL_HAS_DENORM__=1 __DBL_HAS_INFINITY__=1 __DBL_HAS_QUIET_NAN__=1 __DBL_MANT_DIG__=53 __DBL_MAX_10_EXP__=308 __DBL_MAX_EXP__=1024 __DBL_MAX__=((double)1.79769313486231570815e+308L) __DBL_MIN_10_EXP__=(-307) __DBL_MIN_EXP__=(-1021) __DBL_MIN__=((double)2.22507385850720138309e-308L) __DEC128_EPSILON__=1E-33DL __DEC128_MANT_DIG__=34 __DEC128_MAX_EXP__=6145 __DEC128_MAX__=9.999999999999999999999999999999999E6144DL __DEC128_MIN_EXP__=(-6142) __DEC128_MIN__=1E-6143DL __DEC128_SUBNORMAL_MIN__=0.000000000000000000000000000000001E-6143DL __DEC32_EPSILON__=1E-6DF __DEC32_MANT_DIG__=7 __DEC32_MAX_EXP__=97 __DEC32_MAX__=9.999999E96DF __DEC32_MIN_EXP__=(-94) __DEC32_MIN__=1E-95DF __DEC32_SUBNORMAL_MIN__=0.000001E-95DF __DEC64_EPSILON__=1E-15DD __DEC64_MANT_DIG__=16 __DEC64_MAX_EXP__=385 __DEC64_MAX__=9.999999999999999E384DD __DEC64_MIN_EXP__=(-382) __DEC64_MIN__=1E-383DD __DEC64_SUBNORMAL_MIN__=0.000000000000001E-383DD __DECIMAL_BID_FORMAT__=1 __DECIMAL_DIG__=21 __DEC_EVAL_METHOD__=2 __ELF__=1 __FINITE_MATH_ONLY__=0 __FLT_DENORM_MIN__=1.40129846432481707092e-45F __FLT_DIG__=6 __FLT_EPSILON__=1.19209289550781250000e-7F __FLT_EVAL_METHOD__=2 __FLT_HAS_DENORM__=1 __FLT_HAS_INFINITY__=1 __FLT_HAS_QUIET_NAN__=1 __FLT_MANT_DIG__=24 __FLT_MAX_10_EXP__=38 __FLT_MAX_EXP__=128 __FLT_MAX__=3.40282346638528859812e+38F __FLT_MIN_10_EXP__=(-37) __FLT_MIN_EXP__=(-125) __FLT_MIN__=1.17549435082228750797e-38F __FLT_RADIX__=2 __GCC_HAVE_SYNC_COMPARE_AND_SWAP_1=1 __GCC_HAVE_SYNC_COMPARE_AND_SWAP_2=1 __GCC_HAVE_SYNC_COMPARE_AND_SWAP_4=1 __GCC_HAVE_SYNC_COMPARE_AND_SWAP_8=1 __GLIBC_MINOR__=12 __GLIBC__=2 __GNUC_GNU_INLINE__=1 __GNUC_MINOR__=5 __GNUC_PATCHLEVEL__=1 __GNUC__=4 __GNU_LIBRARY__=6 __GXX_ABI_VERSION=1002 __INT16_C(c)=c __INT16_MAX__=32767 __INT16_TYPE__=short\ int __INT32_C(c)=c __INT32_MAX__=2147483647 __INT32_TYPE__=int __INT64_C(c)=cLL __INT64_MAX__=9223372036854775807LL __INT64_TYPE__=long\ long\ int __INT8_C(c)=c __INT8_MAX__=127 __INT8_TYPE__=signed\ char __INTMAX_C(c)=cLL __INTMAX_MAX__=9223372036854775807LL __INTMAX_TYPE__=long\ long\ int __INTPTR_MAX__=2147483647 __INTPTR_TYPE__=int __INT_FAST16_MAX__=2147483647 __INT_FAST16_TYPE__=int __INT_FAST32_MAX__=2147483647 __INT_FAST32_TYPE__=int __INT_FAST64_MAX__=9223372036854775807LL __INT_FAST64_TYPE__=long\ long\ int __INT_FAST8_MAX__=127 __INT_FAST8_TYPE__=signed\ char __INT_LEAST16_MAX__=32767 __INT_LEAST16_TYPE__=short\ int __INT_LEAST32_MAX__=2147483647 __INT_LEAST32_TYPE__=int __INT_LEAST64_MAX__=9223372036854775807LL __INT_LEAST64_TYPE__=long\ long\ int __INT_LEAST8_MAX__=127 __INT_LEAST8_TYPE__=signed\ char __INT_MAX__=2147483647 __LDBL_DENORM_MIN__=3.64519953188247460253e-4951L __LDBL_DIG__=18 __LDBL_EPSILON__=1.08420217248550443401e-19L __LDBL_HAS_DENORM__=1 __LDBL_HAS_INFINITY__=1 __LDBL_HAS_QUIET_NAN__=1 __LDBL_MANT_DIG__=64 __LDBL_MAX_10_EXP__=4932 __LDBL_MAX_EXP__=16384 __LDBL_MAX__=1.18973149535723176502e+4932L __LDBL_MIN_10_EXP__=(-4931) __LDBL_MIN_EXP__=(-16381) __LDBL_MIN__=3.36210314311209350626e-4932L __LONG_LONG_MAX__=9223372036854775807LL __LONG_MAX__=2147483647L __PRAGMA_REDEFINE_EXTNAME=1 __PTRDIFF_MAX__=2147483647 __PTRDIFF_TYPE__=int __REGISTER_PREFIX__= __SCHAR_MAX__=127 __SHRT_MAX__=32767 __SIG_ATOMIC_MAX__=2147483647 __SIG_ATOMIC_MIN__=(-2147483647\ -\ 1) __SIG_ATOMIC_TYPE__=int __SIZEOF_DOUBLE__=8 __SIZEOF_FLOAT__=4 __SIZEOF_INT__=4 __SIZEOF_LONG_DOUBLE__=12 __SIZEOF_LONG_LONG__=8 __SIZEOF_LONG__=4 __SIZEOF_POINTER__=4 __SIZEOF_PTRDIFF_T__=4 __SIZEOF_SHORT__=2 __SIZEOF_SIZE_T__=4 __SIZEOF_WCHAR_T__=4 __SIZEOF_WINT_T__=4 __SIZE_MAX__=4294967295U __SIZE_TYPE__=unsigned\ int __STDC_HOSTED__=1 __STDC__=1 __UINT16_C(c)=c __UINT16_MAX__=65535 __UINT16_TYPE__=short\ unsigned\ int __UINT32_C(c)=cU __UINT32_MAX__=4294967295U __UINT32_TYPE__=unsigned\ int __UINT64_C(c)=cULL __UINT64_MAX__=18446744073709551615ULL __UINT64_TYPE__=long\ long\ unsigned\ int __UINT8_C(c)=c __UINT8_MAX__=255 __UINT8_TYPE__=unsigned\ char __UINTMAX_C(c)=cULL __UINTMAX_MAX__=18446744073709551615ULL __UINTMAX_TYPE__=long\ long\ unsigned\ int __UINTPTR_MAX__=4294967295U __UINTPTR_TYPE__=unsigned\ int __UINT_FAST16_MAX__=4294967295U __UINT_FAST16_TYPE__=unsigned\ int __UINT_FAST32_MAX__=4294967295U __UINT_FAST32_TYPE__=unsigned\ int __UINT_FAST64_MAX__=18446744073709551615ULL __UINT_FAST64_TYPE__=long\ long\ unsigned\ int __UINT_FAST8_MAX__=255 __UINT_FAST8_TYPE__=unsigned\ char __UINT_LEAST16_MAX__=65535 __UINT_LEAST16_TYPE__=short\ unsigned\ int __UINT_LEAST32_MAX__=4294967295U __UINT_LEAST32_TYPE__=unsigned\ int __UINT_LEAST64_MAX__=18446744073709551615ULL __UINT_LEAST64_TYPE__=long\ long\ unsigned\ int __UINT_LEAST8_MAX__=255 __UINT_LEAST8_TYPE__=unsigned\ char __USER_LABEL_PREFIX__= __USE_BSD=1 __USE_FILE_OFFSET64=1 __USE_GNU=1 __USE_LARGEFILE64=1 __USE_LARGEFILE=1 __USE_MISC=1 __USE_POSIX199309=1 __USE_POSIX199506=1 __USE_POSIX2=1 __USE_POSIX=1 __USE_REENTRANT=1 __USE_SVID=1 __USE_UNIX98=1 __USE_XOPEN=1 __USE_XOPEN_EXTENDED=1 __VERSION__="4.5.1" __WCHAR_MAX__=2147483647L __WCHAR_MIN__=(-2147483647L\ -\ 1) __WCHAR_TYPE__=long\ int __WINT_MAX__=4294967295U __WINT_MIN__=0U __WINT_TYPE__=unsigned\ int __gnu_linux__=1 __i386=1 __i386__=1 __i586=1 __i586__=1 __linux=1 __linux__=1 __pentium=1 __pentium__=1 __tune_i586__=1 __tune_pentium__=1 __unix=1 __unix__=1 i386=1 linux=1 unix=1' -d_nv_preserves_uv='define' -d_printf_format_null='define' -d_u32align='undef' -gidformat='"lu"' -i32type='long' -i64type='long long' -ivsize='4' -longdblsize='12' -longsize='4' -myuname='linux qemux86 2.6.37-rc5-yocto-standard+ #1 preempt mon dec 20 14:21:27 pst 2010 i686 gnulinux ' -need_va_copy='undef' -netdb_host_type='const void *' -nv_preserves_uv_bits='32' -ptrsize='4' -quadkind='3' -quadtype='long long' -sGMTIME_max='2147483647' -sGMTIME_min='-2147483648' -sLOCALTIME_max='2147483647' -sLOCALTIME_min='-2147483648' -sPRIXU64='"LX"' -sPRId64='"Ld"' -sPRIi64='"Li"' -sPRIo64='"Lo"' -sPRIu64='"Lu"' -sPRIx64='"Lx"' -selectminbits='32' -sizesize='4' -u32type='unsigned long' -u64type='unsigned long long' -uidformat='"lu"' -uquadtype='unsigned long long' -use64bitall='undef' -use64bitint='undef' -uvsize='4' diff --git a/meta/recipes-devtools/perl/perl-5.12.2/config.sh-32-be b/meta/recipes-devtools/perl/perl-5.12.2/config.sh-32-be deleted file mode 100644 index a59a9abb5..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/config.sh-32-be +++ /dev/null @@ -1 +0,0 @@ -byteorder='4321' diff --git a/meta/recipes-devtools/perl/perl-5.12.2/config.sh-32-le b/meta/recipes-devtools/perl/perl-5.12.2/config.sh-32-le deleted file mode 100644 index 10e422656..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/config.sh-32-le +++ /dev/null @@ -1 +0,0 @@ -byteorder='1234' diff --git a/meta/recipes-devtools/perl/perl-5.12.2/config.sh-64 b/meta/recipes-devtools/perl/perl-5.12.2/config.sh-64 deleted file mode 100644 index 6929d3a09..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/config.sh-64 +++ /dev/null @@ -1,38 +0,0 @@ -alignbytes='8' -cf_time='Thu Dec 23 02:06:42 UTC 2010' -cppsymbols='_FILE_OFFSET_BITS=64 _GNU_SOURCE=1 _LARGEFILE64_SOURCE=1 _LARGEFILE_SOURCE=1 _LP64=1 _POSIX_C_SOURCE=200809L _POSIX_SOURCE=1 _REENTRANT=1 _XOPEN_SOURCE=700 _XOPEN_SOURCE_EXTENDED=1 __BIGGEST_ALIGNMENT__=16 __CHAR16_TYPE__=short\ unsigned\ int __CHAR32_TYPE__=unsigned\ int __CHAR_BIT__=8 __DBL_DENORM_MIN__=((double)4.94065645841246544177e-324L) __DBL_DIG__=15 __DBL_EPSILON__=((double)2.22044604925031308085e-16L) __DBL_HAS_DENORM__=1 __DBL_HAS_INFINITY__=1 __DBL_HAS_QUIET_NAN__=1 __DBL_MANT_DIG__=53 __DBL_MAX_10_EXP__=308 __DBL_MAX_EXP__=1024 __DBL_MAX__=((double)1.79769313486231570815e+308L) __DBL_MIN_10_EXP__=(-307) __DBL_MIN_EXP__=(-1021) __DBL_MIN__=((double)2.22507385850720138309e-308L) __DEC128_EPSILON__=1E-33DL __DEC128_MANT_DIG__=34 __DEC128_MAX_EXP__=6145 __DEC128_MAX__=9.999999999999999999999999999999999E6144DL __DEC128_MIN_EXP__=(-6142) __DEC128_MIN__=1E-6143DL __DEC128_SUBNORMAL_MIN__=0.000000000000000000000000000000001E-6143DL __DEC32_EPSILON__=1E-6DF __DEC32_MANT_DIG__=7 __DEC32_MAX_EXP__=97 __DEC32_MAX__=9.999999E96DF __DEC32_MIN_EXP__=(-94) __DEC32_MIN__=1E-95DF __DEC32_SUBNORMAL_MIN__=0.000001E-95DF __DEC64_EPSILON__=1E-15DD __DEC64_MANT_DIG__=16 __DEC64_MAX_EXP__=385 __DEC64_MAX__=9.999999999999999E384DD __DEC64_MIN_EXP__=(-382) __DEC64_MIN__=1E-383DD __DEC64_SUBNORMAL_MIN__=0.000000000000001E-383DD __DECIMAL_BID_FORMAT__=1 __DECIMAL_DIG__=21 __DEC_EVAL_METHOD__=2 __ELF__=1 __FINITE_MATH_ONLY__=0 __FLT_DENORM_MIN__=1.40129846432481707092e-45F __FLT_DIG__=6 __FLT_EPSILON__=1.19209289550781250000e-7F __FLT_EVAL_METHOD__=0 __FLT_HAS_DENORM__=1 __FLT_HAS_INFINITY__=1 __FLT_HAS_QUIET_NAN__=1 __FLT_MANT_DIG__=24 __FLT_MAX_10_EXP__=38 __FLT_MAX_EXP__=128 __FLT_MAX__=3.40282346638528859812e+38F __FLT_MIN_10_EXP__=(-37) __FLT_MIN_EXP__=(-125) __FLT_MIN__=1.17549435082228750797e-38F __FLT_RADIX__=2 __GCC_HAVE_DWARF2_CFI_ASM=1 __GCC_HAVE_SYNC_COMPARE_AND_SWAP_1=1 __GCC_HAVE_SYNC_COMPARE_AND_SWAP_2=1 __GCC_HAVE_SYNC_COMPARE_AND_SWAP_4=1 __GCC_HAVE_SYNC_COMPARE_AND_SWAP_8=1 __GLIBC_MINOR__=12 __GLIBC__=2 __GNUC_GNU_INLINE__=1 __GNUC_MINOR__=5 __GNUC_PATCHLEVEL__=1 __GNUC__=4 __GNU_LIBRARY__=6 __GXX_ABI_VERSION=1002 __INT16_C(c)=c __INT16_MAX__=32767 __INT16_TYPE__=short\ int __INT32_C(c)=c __INT32_MAX__=2147483647 __INT32_TYPE__=int __INT64_C(c)=cL __INT64_MAX__=9223372036854775807L __INT64_TYPE__=long\ int __INT8_C(c)=c __INT8_MAX__=127 __INT8_TYPE__=signed\ char __INTMAX_C(c)=cL __INTMAX_MAX__=9223372036854775807L __INTMAX_TYPE__=long\ int __INTPTR_MAX__=9223372036854775807L __INTPTR_TYPE__=long\ int __INT_FAST16_MAX__=9223372036854775807L __INT_FAST16_TYPE__=long\ int __INT_FAST32_MAX__=9223372036854775807L __INT_FAST32_TYPE__=long\ int __INT_FAST64_MAX__=9223372036854775807L __INT_FAST64_TYPE__=long\ int __INT_FAST8_MAX__=127 __INT_FAST8_TYPE__=signed\ char __INT_LEAST16_MAX__=32767 __INT_LEAST16_TYPE__=short\ int __INT_LEAST32_MAX__=2147483647 __INT_LEAST32_TYPE__=int __INT_LEAST64_MAX__=9223372036854775807L __INT_LEAST64_TYPE__=long\ int __INT_LEAST8_MAX__=127 __INT_LEAST8_TYPE__=signed\ char __INT_MAX__=2147483647 __LDBL_DENORM_MIN__=3.64519953188247460253e-4951L __LDBL_DIG__=18 __LDBL_EPSILON__=1.08420217248550443401e-19L __LDBL_HAS_DENORM__=1 __LDBL_HAS_INFINITY__=1 __LDBL_HAS_QUIET_NAN__=1 __LDBL_MANT_DIG__=64 __LDBL_MAX_10_EXP__=4932 __LDBL_MAX_EXP__=16384 __LDBL_MAX__=1.18973149535723176502e+4932L __LDBL_MIN_10_EXP__=(-4931) __LDBL_MIN_EXP__=(-16381) __LDBL_MIN__=3.36210314311209350626e-4932L __LONG_LONG_MAX__=9223372036854775807LL __LONG_MAX__=9223372036854775807L __LP64__=1 __MMX__=1 __PRAGMA_REDEFINE_EXTNAME=1 __PTRDIFF_MAX__=9223372036854775807L __PTRDIFF_TYPE__=long\ int __REGISTER_PREFIX__= __SCHAR_MAX__=127 __SHRT_MAX__=32767 __SIG_ATOMIC_MAX__=2147483647 __SIG_ATOMIC_MIN__=(-2147483647\ -\ 1) __SIG_ATOMIC_TYPE__=int __SIZEOF_DOUBLE__=8 __SIZEOF_FLOAT__=4 __SIZEOF_INT__=4 __SIZEOF_LONG_DOUBLE__=16 __SIZEOF_LONG_LONG__=8 __SIZEOF_LONG__=8 __SIZEOF_POINTER__=8 __SIZEOF_PTRDIFF_T__=8 __SIZEOF_SHORT__=2 __SIZEOF_SIZE_T__=8 __SIZEOF_WCHAR_T__=4 __SIZEOF_WINT_T__=4 __SIZE_MAX__=18446744073709551615UL __SIZE_TYPE__=long\ unsigned\ int __SSE2_MATH__=1 __SSE2__=1 __SSE_MATH__=1 __SSE__=1 __STDC_HOSTED__=1 __STDC__=1 __UINT16_C(c)=c __UINT16_MAX__=65535 __UINT16_TYPE__=short\ unsigned\ int __UINT32_C(c)=cU __UINT32_MAX__=4294967295U __UINT32_TYPE__=unsigned\ int __UINT64_C(c)=cUL __UINT64_MAX__=18446744073709551615UL __UINT64_TYPE__=long\ unsigned\ int __UINT8_C(c)=c __UINT8_MAX__=255 __UINT8_TYPE__=unsigned\ char __UINTMAX_C(c)=cUL __UINTMAX_MAX__=18446744073709551615UL __UINTMAX_TYPE__=long\ unsigned\ int __UINTPTR_MAX__=18446744073709551615UL __UINTPTR_TYPE__=long\ unsigned\ int __UINT_FAST16_MAX__=18446744073709551615UL __UINT_FAST16_TYPE__=long\ unsigned\ int __UINT_FAST32_MAX__=18446744073709551615UL __UINT_FAST32_TYPE__=long\ unsigned\ int __UINT_FAST64_MAX__=18446744073709551615UL __UINT_FAST64_TYPE__=long\ unsigned\ int __UINT_FAST8_MAX__=255 __UINT_FAST8_TYPE__=unsigned\ char __UINT_LEAST16_MAX__=65535 __UINT_LEAST16_TYPE__=short\ unsigned\ int __UINT_LEAST32_MAX__=4294967295U __UINT_LEAST32_TYPE__=unsigned\ int __UINT_LEAST64_MAX__=18446744073709551615UL __UINT_LEAST64_TYPE__=long\ unsigned\ int __UINT_LEAST8_MAX__=255 __UINT_LEAST8_TYPE__=unsigned\ char __USER_LABEL_PREFIX__= __USE_BSD=1 __USE_FILE_OFFSET64=1 __USE_GNU=1 __USE_LARGEFILE64=1 __USE_LARGEFILE=1 __USE_MISC=1 __USE_POSIX199309=1 __USE_POSIX199506=1 __USE_POSIX2=1 __USE_POSIX=1 __USE_REENTRANT=1 __USE_SVID=1 __USE_UNIX98=1 __USE_XOPEN=1 __USE_XOPEN_EXTENDED=1 __VERSION__="4.5.1" __WCHAR_MAX__=2147483647 __WCHAR_MIN__=(-2147483647\ -\ 1) __WCHAR_TYPE__=int __WINT_MAX__=4294967295U __WINT_MIN__=0U __WINT_TYPE__=unsigned\ int __amd64=1 __amd64__=1 __gnu_linux__=1 __k8=1 __k8__=1 __linux=1 __linux__=1 __unix=1 __unix__=1 __x86_64=1 __x86_64__=1 linux=1 unix=1' -d_nv_preserves_uv='undef' -d_printf_format_null='undef' -d_u32align='define' -gidformat='"u"' -i32type='int' -i64type='long' -ivsize='8' -longdblsize='16' -longsize='8' -myuname='linux qemux86-64 2.6.37-rc5-yocto-standard+ #1 smp preempt mon dec 20 17:19:50 pst 2010 x86_64 gnulinux ' -need_va_copy='define' -netdb_host_type='char *' -nv_preserves_uv_bits='53' -ptrsize='8' -quadkind='2' -quadtype='long' -sGMTIME_max='67768036191676799' -sGMTIME_min='-62167219200' -sLOCALTIME_max='67768036191676799' -sLOCALTIME_min='-62167219200' -sPRIXU64='"lX"' -sPRId64='"ld"' -sPRIi64='"li"' -sPRIo64='"lo"' -sPRIu64='"lu"' -sPRIx64='"lx"' -selectminbits='64' -sizesize='8' -u32type='unsigned int' -u64type='unsigned long' -uidformat='"u"' -uquadtype='unsigned long' -use64bitall='define' -use64bitint='define' -uvsize='8' diff --git a/meta/recipes-devtools/perl/perl-5.12.2/config.sh-64-be b/meta/recipes-devtools/perl/perl-5.12.2/config.sh-64-be deleted file mode 100644 index c08ce3c43..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/config.sh-64-be +++ /dev/null @@ -1 +0,0 @@ -byteorder='87654321' diff --git a/meta/recipes-devtools/perl/perl-5.12.2/config.sh-64-le b/meta/recipes-devtools/perl/perl-5.12.2/config.sh-64-le deleted file mode 100644 index 277d2a9be..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/config.sh-64-le +++ /dev/null @@ -1 +0,0 @@ -byteorder='12345678' diff --git a/meta/recipes-devtools/perl/perl-5.12.2/cross-generate_uudmap.patch b/meta/recipes-devtools/perl/perl-5.12.2/cross-generate_uudmap.patch deleted file mode 100644 index d59ad8dae..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/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.2/debian/arm_optim.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/arm_optim.diff deleted file mode 100644 index c86ddc90c..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/arm_optim.diff +++ /dev/null @@ -1,34 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -From: Niko Tyni -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: (c823880..) debian/arm_optim (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/arm_thread_stress_timeout.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/arm_thread_stress_timeout.diff deleted file mode 100644 index c4b4c1339..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/arm_thread_stress_timeout.diff +++ /dev/null @@ -1,25 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -Subject: Raise the timeout of ext/threads/shared/t/stress.t to accommodate slower build hosts -Bug-Debian: http://bugs.debian.org/501970 - - ---- - 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 ---- a/dist/threads-shared/t/stress.t -+++ b/dist/threads-shared/t/stress.t -@@ -34,7 +34,7 @@ use threads::shared; - { - my $cnt = 50; - -- my $TIMEOUT = 60; -+ my $TIMEOUT = 150; - - my $mutex = 1; - share($mutex); --- -tg: (c823880..) debian/arm_thread_stress_timeout (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/cpan_config_path.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/cpan_config_path.diff deleted file mode 100644 index 4a349b4c7..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/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: (c823880..) debian/cpan_config_path (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/cpan_definstalldirs.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/cpan_definstalldirs.diff deleted file mode 100644 index 3e3e53f2a..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/cpan_definstalldirs.diff +++ /dev/null @@ -1,37 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -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. - - ---- - 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 ---- a/cpan/CPAN/lib/CPAN/FirstTime.pm -+++ b/cpan/CPAN/lib/CPAN/FirstTime.pm -@@ -947,7 +947,7 @@ sub init { - my_prompt_loop(prefer_installer => 'MB', $matcher, 'MB|EUMM|RAND'); - - if (!$matcher or 'makepl_arg make_arg' =~ /$matcher/) { -- my_dflt_prompt(makepl_arg => "", $matcher); -+ my_dflt_prompt(makepl_arg => "INSTALLDIRS=site", $matcher); - my_dflt_prompt(make_arg => "", $matcher); - if ( $CPAN::Config->{makepl_arg} =~ /LIBS=|INC=/ ) { - $CPAN::Frontend->mywarn( -@@ -969,7 +969,7 @@ sub init { - my_dflt_prompt(make_install_arg => $CPAN::Config->{make_arg} || "", - $matcher); - -- my_dflt_prompt(mbuildpl_arg => "", $matcher); -+ my_dflt_prompt(mbuildpl_arg => "--installdirs site", $matcher); - my_dflt_prompt(mbuild_arg => "", $matcher); - - if (exists $CPAN::HandleConfig::keys{mbuild_install_build_command} --- -tg: (c823880..) debian/cpan_definstalldirs (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/cpanplus_config_path.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/cpanplus_config_path.diff deleted file mode 100644 index 65101194a..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/cpanplus_config_path.diff +++ /dev/null @@ -1,45 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -From: Niko Tyni -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. - ---- - 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 ---- 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. - If this package is not C, it will - be saved in your C<.cpanplus> directory, otherwise it will - be attempted to be saved in the system wide directory. -+(On Debian systems, this system wide directory is /etc/perl.) - - 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 ---- 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 { - ) . '.pm'; - }; - use constant CONFIG_SYSTEM_FILE => sub { -+ # Debian-specific shortcut -+ return '/etc/perl/CPANPLUS/Config/System.pm'; -+ - require CPANPLUS::Internals; - require File::Basename; - my $dir = File::Basename::dirname( --- -tg: (c823880..) debian/cpanplus_config_path (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/cpanplus_definstalldirs.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/cpanplus_definstalldirs.diff deleted file mode 100644 index 2ec063cbd..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/cpanplus_definstalldirs.diff +++ /dev/null @@ -1,54 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -From: Niko Tyni -Subject: Configure CPANPLUS to use the site directories by default. -Closes: 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 . - ---- - cpan/CPANPLUS/lib/CPANPLUS/Config/System.pm | 30 +++++++++++++++++++++++++++ - 1 files changed, 30 insertions(+), 0 deletions(-) - -diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Config/System.pm b/cpan/CPANPLUS/lib/CPANPLUS/Config/System.pm -new file mode 100644 -index 0000000..5e6e11e ---- /dev/null -+++ b/cpan/CPANPLUS/lib/CPANPLUS/Config/System.pm -@@ -0,0 +1,30 @@ -+### minimal pod, so you can find it with perldoc -l, etc -+=pod -+ -+=head1 NAME -+ -+CPANPLUS::Config::System -+ -+=head1 DESCRIPTION -+ -+This is a CPANPLUS configuration file that sets appropriate default -+settings on Debian systems. -+ -+The only preconfigured settings are C (set to -+C) and C (set to C<--installdirs site>). -+ -+These settings will not have any effect if -+C is present. -+ -+=cut -+ -+ -+package CPANPLUS::Config::System; -+ -+sub setup { -+ my $conf = shift; -+ $conf->set_conf( makemakerflags => 'INSTALLDIRS=site' ); -+ $conf->set_conf( buildflags => '--installdirs site' ); -+} -+ -+1; --- -tg: (c823880..) debian/cpanplus_definstalldirs (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/db_file_ver.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/db_file_ver.diff deleted file mode 100644 index a974d08ea..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/db_file_ver.diff +++ /dev/null @@ -1,34 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -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. - - ---- - 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 ---- a/cpan/DB_File/version.c -+++ b/cpan/DB_File/version.c -@@ -48,6 +48,7 @@ __getBerkeleyDBInfo() - - (void)db_version(&Major, &Minor, &Patch) ; - -+#ifndef DEBIAN - /* Check that the versions of db.h and libdb.a are the same */ - if (Major != DB_VERSION_MAJOR || Minor != DB_VERSION_MINOR ) - /* || Patch != DB_VERSION_PATCH) */ -@@ -55,6 +56,7 @@ __getBerkeleyDBInfo() - croak("\nDB_File was build with libdb version %d.%d.%d,\nbut you are attempting to run it with libdb version %d.%d.%d\n", - DB_VERSION_MAJOR, DB_VERSION_MINOR, DB_VERSION_PATCH, - Major, Minor, Patch) ; -+#endif /* DEBIAN */ - - /* check that libdb is recent enough -- we need 2.3.4 or greater */ - if (Major == 2 && (Minor < 3 || (Minor == 3 && Patch < 4))) --- -tg: (c823880..) debian/db_file_ver (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/deprecate-with-apt.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/deprecate-with-apt.diff deleted file mode 100644 index e580466cc..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/deprecate-with-apt.diff +++ /dev/null @@ -1,61 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -From: Niko Tyni -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: (c823880..) debian/deprecate-with-apt (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/devel-ppport-ia64-optim.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/devel-ppport-ia64-optim.diff deleted file mode 100644 index c65601000..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/devel-ppport-ia64-optim.diff +++ /dev/null @@ -1,34 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -From: Niko Tyni -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: (c823880..) debian/devel-ppport-ia64-optim (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/disable-zlib-bundling.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/disable-zlib-bundling.diff deleted file mode 100644 index e036dc53e..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/disable-zlib-bundling.diff +++ /dev/null @@ -1,31 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -From: Niko Tyni -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. - ---- - cpan/Compress-Raw-Zlib/config.in | 6 +++--- - 1 files changed, 3 insertions(+), 3 deletions(-) - -diff --git a/cpan/Compress-Raw-Zlib/config.in b/cpan/Compress-Raw-Zlib/config.in -index c56cc03..2c6659b 100644 ---- a/cpan/Compress-Raw-Zlib/config.in -+++ b/cpan/Compress-Raw-Zlib/config.in -@@ -16,9 +16,9 @@ - # Setting the Gzip OS Code - # - --BUILD_ZLIB = True --INCLUDE = ./zlib-src --LIB = ./zlib-src -+BUILD_ZLIB = False -+INCLUDE = /usr/include -+LIB = /usr/lib - - OLD_ZLIB = False - GZIP_OS_CODE = AUTO_DETECT --- -tg: (c823880..) debian/disable-zlib-bundling (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/doc_info.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/doc_info.diff deleted file mode 100644 index 2f5d9a4fb..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/doc_info.diff +++ /dev/null @@ -1,36 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -Subject: Replace generic man(1) instructions with Debian-specific information. - -Indicate that the user needs to install the perl-doc package. - - ---- - pod/perl.pod | 12 ++++++++++-- - 1 files changed, 10 insertions(+), 2 deletions(-) - -diff --git a/pod/perl.pod b/pod/perl.pod -index e48e526..3b0bbf6 100644 ---- a/pod/perl.pod -+++ b/pod/perl.pod -@@ -241,8 +241,16 @@ For ease of access, the Perl manual has been split up into several sections. - perlwin32 Perl notes for Windows - - --On a Unix-like system, these documentation files will usually also be --available as manpages for use with the F program. -+On Debian systems, you need to install the B package which -+contains the majority of the standard Perl documentation and the -+F program. -+ -+Extensive additional documentation for Perl modules is available, both -+those distributed with Perl and third-party modules which are packaged -+or locally installed. -+ -+You should be able to view Perl's documentation with your man(1) -+program or perldoc(1). - - 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: (c823880..) debian/doc_info (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/enc2xs_inc.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/enc2xs_inc.diff deleted file mode 100644 index e96d53d8f..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/enc2xs_inc.diff +++ /dev/null @@ -1,51 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -Subject: Tweak enc2xs to follow symlinks and ignore missing @INC directories. -Bug-Debian: http://bugs.debian.org/290336 - -- ignore missing directories, -- follow symlinks (/usr/share/perl/5.8 -> 5.8.4). - - ---- - cpan/Encode/bin/enc2xs | 8 ++++---- - 1 files changed, 4 insertions(+), 4 deletions(-) - -diff --git a/cpan/Encode/bin/enc2xs b/cpan/Encode/bin/enc2xs -index 773c0a0..049ecf9 100644 ---- a/cpan/Encode/bin/enc2xs -+++ b/cpan/Encode/bin/enc2xs -@@ -924,11 +924,11 @@ use vars qw( - sub find_e2x{ - eval { require File::Find; }; - my (@inc, %e2x_dir); -- for my $inc (@INC){ -+ for my $inc (grep -d, @INC){ - push @inc, $inc unless $inc eq '.'; #skip current dir - } - File::Find::find( -- sub { -+ { wanted => sub { - my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, - $atime,$mtime,$ctime,$blksize,$blocks) - = lstat($_) or return; -@@ -938,7 +938,7 @@ sub find_e2x{ - $e2x_dir{$File::Find::dir} ||= $mtime; - } - return; -- }, @inc); -+ }, follow => 1}, @inc); - warn join("\n", keys %e2x_dir), "\n"; - for my $d (sort {$e2x_dir{$a} <=> $e2x_dir{$b}} keys %e2x_dir){ - $_E2X = $d; -@@ -1005,7 +1005,7 @@ sub make_configlocal_pm { - $LocalMod{$enc} ||= $mod; - } - }; -- File::Find::find({wanted => $wanted}, @INC); -+ File::Find::find({wanted => $wanted, follow => 1}, grep -d, @INC); - $_ModLines = ""; - for my $enc ( sort keys %LocalMod ) { - $_ModLines .= --- -tg: (c823880..) debian/enc2xs_inc (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/errno_ver.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/errno_ver.diff deleted file mode 100644 index b28b4bca8..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/errno_ver.diff +++ /dev/null @@ -1,34 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -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. - - ---- - 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 ---- a/ext/Errno/Errno_pm.PL -+++ b/ext/Errno/Errno_pm.PL -@@ -341,13 +341,8 @@ EOF - package Errno; - our (\@EXPORT_OK,\%EXPORT_TAGS,\@ISA,\$VERSION,\%errno,\$AUTOLOAD); - use Exporter (); --use Config; - use strict; - --"\$Config{'archname'}-\$Config{'osvers'}" eq --"$Config{'archname'}-$Config{'osvers'}" or -- die "Errno architecture ($Config{'archname'}-$Config{'osvers'}) does not match executable architecture (\$Config{'archname'}-\$Config{'osvers'})"; -- - \$VERSION = "$VERSION"; - \$VERSION = eval \$VERSION; - \@ISA = qw(Exporter); --- -tg: (c823880..) debian/errno_ver (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/extutils_hacks.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/extutils_hacks.diff deleted file mode 100644 index 1fb635da2..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/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(<{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("",@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 will invoke ExtUtils::Embed - functions while building your application. - -+Note that on Debian systems the B package is required for -+compiling applications which embed an interpreter. -+ - =head1 @EXPORT - - ExtUtils::Embed exports the following functions: --- -tg: (c823880..) debian/extutils_hacks (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/fakeroot.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/fakeroot.diff deleted file mode 100644 index 380955b52..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/fakeroot.diff +++ /dev/null @@ -1,45 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -Subject: Postpone LD_LIBRARY_PATH evaluation to the binary targets. - -Modify the setting of LD_LIBRARY_PATH to append pre-existing values at the -time the rule is evaluated rather than when the Makefile is created. - -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. - - ---- - Makefile.SH | 9 ++------- - 1 files changed, 2 insertions(+), 7 deletions(-) - -diff --git a/Makefile.SH b/Makefile.SH -index c039938..15184d8 100755 ---- a/Makefile.SH -+++ b/Makefile.SH -@@ -50,12 +50,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 -+ ldlibpth=LD_LIBRARY_PATH=`pwd`'$${LD_LIBRARY_PATH:+:}$$LD_LIBRARY_PATH' - - pldlflags="$cccdlflags" - static_ldflags='' -@@ -126,7 +121,7 @@ true) - ;; - esac - case "$ldlibpthname" in -- '') ;; -+ ''|LD_LIBRARY_PATH) ;; - *) - case "$osname" in - os2) --- -tg: (c823880..) debian/fakeroot (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/autodie-flock.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/autodie-flock.diff deleted file mode 100644 index 1e2c1ad47..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/autodie-flock.diff +++ /dev/null @@ -1,100 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -From: Niko Tyni -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: (c823880..) fixes/autodie-flock (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/concat-stack-corruption.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/concat-stack-corruption.diff deleted file mode 100644 index ef21261dc..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/concat-stack-corruption.diff +++ /dev/null @@ -1,39 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -From: Niko Tyni -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 3371e88..e9cccf3 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: (c823880..) fixes/concat-stack-corruption (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/cpanplus-without-home.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/cpanplus-without-home.diff deleted file mode 100644 index 798b7c201..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/cpanplus-without-home.diff +++ /dev/null @@ -1,32 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -From: Niko Tyni -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: (c823880..) fixes/cpanplus-without-home (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/h2ph-gcc-4.5.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/h2ph-gcc-4.5.diff deleted file mode 100644 index 49d797c31..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/h2ph-gcc-4.5.diff +++ /dev/null @@ -1,108 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -Author: Robin Barker -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 < -Subject: Make hints/gnu.sh append to $ccflags rather than overriding them -Bug-Debian: http://bugs.debian.org/587901 - -Don't override possible extra $ccflags values given to Configure -on GNU/Hurd. - ---- - hints/gnu.sh | 2 +- - 1 files changed, 1 insertions(+), 1 deletions(-) - -diff --git a/hints/gnu.sh b/hints/gnu.sh -index 2cfce54..c1ba2db 100644 ---- a/hints/gnu.sh -+++ b/hints/gnu.sh -@@ -19,7 +19,7 @@ lddlflags='-shared' - ccdlflags='-Wl,-E' - - # Debian bug #258618 --ccflags='-D_GNU_SOURCE' -+ccflags="-D_GNU_SOURCE $ccflags" - - # The following routines are only available as stubs in GNU libc. - # XXX remove this once metaconf detects the GNU libc stubs. --- -tg: (c823880..) fixes/hurd-ccflags (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/lc-numeric-docs.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/lc-numeric-docs.diff deleted file mode 100644 index ece4989f4..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/lc-numeric-docs.diff +++ /dev/null @@ -1,97 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -From: Niko Tyni -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 an embedded "."), the character used for the decimal --point is B 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 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 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 pragma is in effect. Formatted output --cannot be controlled by C because the pragma is tied to the --block structure of the program, and, for historical reasons, formats --exist outside that block structure. See L for further --discussion of locale handling. -+If a program's environment specifies an LC_NUMERIC locale and C 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 at the time when write() -+is called. See L 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 - - =item * - --B (printf(), sprintf() and write()) use --C -+B (format()) use C - - =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 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 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 at the time when write() -+is called. - - =head2 Freely available locale definitions - --- -tg: (c823880..) fixes/lc-numeric-docs (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/lc-numeric-sprintf.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/lc-numeric-sprintf.diff deleted file mode 100644 index b150e72e5..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/lc-numeric-sprintf.diff +++ /dev/null @@ -1,31 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -From: Niko Tyni -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: (c823880..) fixes/lc-numeric-sprintf (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/net_smtp_docs.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/net_smtp_docs.diff deleted file mode 100644 index f7b5e428b..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/net_smtp_docs.diff +++ /dev/null @@ -1,25 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -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 - - ---- - cpan/libnet/Net/SMTP.pm | 1 + - 1 files changed, 1 insertions(+), 0 deletions(-) - -diff --git a/cpan/libnet/Net/SMTP.pm b/cpan/libnet/Net/SMTP.pm -index a28496d..07b2498 100644 ---- a/cpan/libnet/Net/SMTP.pm -+++ b/cpan/libnet/Net/SMTP.pm -@@ -625,6 +625,7 @@ Net::SMTP will attempt to extract the address from the value passed. - - B - Enable debugging information - -+B - Select a port on the remote host to connect to (default is 25) - - Example: - --- -tg: (c823880..) fixes/net_smtp_docs (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/processPL.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/fixes/processPL.diff deleted file mode 100644 index 3b645d136..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/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 .= < and B modules are managed by C. -+ - =head1 SEE ALSO - - ExtUtils::Installed --- -tg: (c823880..) debian/instmodsh_doc (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/ld_run_path.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/ld_run_path.diff deleted file mode 100644 index ced1e8f94..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/ld_run_path.diff +++ /dev/null @@ -1,25 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -Subject: Remove standard libs from LD_RUN_PATH as per Debian policy. - - ---- - .../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 ---- 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 { - 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); -+ - foreach my $thislib (split ' ', $potential_libs) { - - # Handle possible linker path arguments. --- -tg: (c823880..) debian/ld_run_path (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/libnet_config_path.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/libnet_config_path.diff deleted file mode 100644 index ef0f3698f..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/libnet_config_path.diff +++ /dev/null @@ -1,37 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -Subject: Set location of libnet.cfg to /etc/perl/Net as /usr may not be writable. - - ---- - cpan/libnet/Net/Config.pm | 7 +++---- - 1 files changed, 3 insertions(+), 4 deletions(-) - -diff --git a/cpan/libnet/Net/Config.pm b/cpan/libnet/Net/Config.pm -index db51c1f..8404593 100644 ---- a/cpan/libnet/Net/Config.pm -+++ b/cpan/libnet/Net/Config.pm -@@ -57,9 +57,8 @@ my %nc = ( - } - TRY_INTERNET_CONFIG - --my $file = __FILE__; -+my $file = '/etc/perl/Net/libnet.cfg'; - my $ref; --$file =~ s/Config.pm/libnet.cfg/; - if (-f $file) { - $ref = eval { local $SIG{__DIE__}; do $file }; - if (ref($ref) eq 'HASH') { -@@ -132,8 +131,8 @@ Net::Config - Local configuration data for libnet - C holds configuration data for the modules in the libnet - distribution. During installation you will be asked for these values. - --The configuration data is held globally in a file in the perl installation --tree, but a user may override any of these values by providing their own. This -+The configuration data is held globally in C, -+but a user may override any of these values by providing their own. This - 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: (c823880..) debian/libnet_config_path (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/m68k_thread_stress.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/m68k_thread_stress.diff deleted file mode 100644 index d27a67763..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/m68k_thread_stress.diff +++ /dev/null @@ -1,45 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -Subject: Disable some threads tests on m68k for now due to missing TLS. -Closes: #495826, #517938 - - ---- - 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 ---- a/dist/threads-shared/t/stress.t -+++ b/dist/threads-shared/t/stress.t -@@ -11,6 +11,10 @@ BEGIN { - print("1..0 # SKIP Broken under HP-UX 10.20\n"); - exit(0); - } -+ if ($^O eq 'linux' && $Config{archname} =~ /^m68k/) { -+ print("1..0 # Skip: no TLS on m68k yet \n"); -+ exit(0); -+ } - } - - use ExtUtils::testlib; -diff --git a/dist/threads-shared/t/waithires.t b/dist/threads-shared/t/waithires.t -index e3a1086..633374e 100755 ---- a/dist/threads-shared/t/waithires.t -+++ b/dist/threads-shared/t/waithires.t -@@ -16,6 +16,12 @@ BEGIN { - if (! eval 'use Time::HiRes "time"; 1') { - Test::skip_all('Time::HiRes not available'); - } -+ -+ if ($^O eq 'linux' && $Config{archname} =~ /^m68k/) { -+ print("1..0 # Skip: no TLS on m68k yet \n"); -+ exit(0); -+ } -+ - } - - use ExtUtils::testlib; --- -tg: (c823880..) debian/m68k_thread_stress (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/mod_paths.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/mod_paths.diff deleted file mode 100644 index 96fe4dfef..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/mod_paths.diff +++ /dev/null @@ -1,100 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -Subject: Tweak @INC ordering for Debian - -Our order is: - - etc (for config files) - site (5.8.1) - vendor (all) - core (5.8.1) - site (version-indep) - site (pre-5.8.1) - -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. - - ---- - perl.c | 58 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ - 1 files changed, 58 insertions(+), 0 deletions(-) - -diff --git a/perl.c b/perl.c -index 05cea40..023d6a0 100644 ---- a/perl.c -+++ b/perl.c -@@ -4125,6 +4125,11 @@ S_init_perllib(pTHX) - INCPUSH_ADD_SUB_DIRS|INCPUSH_CAN_RELOCATE); - #endif - -+#ifdef DEBIAN -+ /* for configuration where /usr is mounted ro (CPAN::Config, Net::Config) */ -+ S_incpush_use_sep(aTHX_ STR_WITH_LEN("/etc/perl"), 0x0); -+#endif -+ - #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) - INCPUSH_ADD_OLD_VERS|INCPUSH_CAN_RELOCATE); - #endif - -+#ifdef DEBIAN -+ /* Non-versioned site directory for local modules and for -+ compatability with the previous packages' site dirs */ -+ S_incpush_use_sep(aTHX_ STR_WITH_LEN("/usr/local/lib/site_perl"), -+ INCPUSH_ADD_SUB_DIRS); -+ -+#ifdef PERL_INC_VERSION_LIST -+ { -+ struct stat s; -+ -+ /* add small buffer in case old versions are longer than the -+ current version */ -+ char sitearch[sizeof(SITEARCH_EXP)+16] = SITEARCH_EXP; -+ char sitelib[sizeof(SITELIB_EXP)+16] = SITELIB_EXP; -+ char const *vers[] = { PERL_INC_VERSION_LIST }; -+ char const **p; -+ -+ char *arch_vers = strrchr(sitearch, '/'); -+ char *lib_vers = strrchr(sitelib, '/'); -+ -+ if (arch_vers && isdigit(*++arch_vers)) -+ *arch_vers = 0; -+ else -+ arch_vers = 0; -+ -+ if (lib_vers && isdigit(*++lib_vers)) -+ *lib_vers = 0; -+ else -+ lib_vers = 0; -+ -+ /* there is some duplication here as incpush does something -+ similar internally, but required as sitearch is not a -+ subdirectory of sitelib */ -+ for (p = vers; *p; p++) -+ { -+ if (arch_vers) -+ { -+ strcpy(arch_vers, *p); -+ if (PerlLIO_stat(sitearch, &s) >= 0 && S_ISDIR(s.st_mode)) -+ S_incpush_use_sep(aTHX_ sitearch, strlen(sitearch), 0x0); -+ } -+ -+ if (lib_vers) -+ { -+ strcpy(lib_vers, *p); -+ if (PerlLIO_stat(sitelib, &s) >= 0 && S_ISDIR(s.st_mode)) -+ S_incpush_use_sep(aTHX_ sitelib, strlen(sitelib), 0x0); -+ } -+ } -+ } -+#endif -+#endif -+ - #ifdef PERL_OTHERLIBDIRS - S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_OTHERLIBDIRS), - INCPUSH_ADD_OLD_VERS|INCPUSH_ADD_ARCHONLY_SUB_DIRS --- -tg: (c823880..) debian/mod_paths (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/module_build_man_extensions.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/module_build_man_extensions.diff deleted file mode 100644 index bc7fd9e60..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/module_build_man_extensions.diff +++ /dev/null @@ -1,33 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -Subject: Adjust Module::Build manual page extensions for the Debian Perl policy -Bug-Debian: http://bugs.debian.org/479460 - ---- - 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 ---- 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 { - 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). -- my $parser = Pod::Man->new( section => 1 ); # binaries go in section 1 -+ my $parser = Pod::Man->new( section => '1p' ); # binaries go in section 1p - my $manpage = $self->man1page_name( $file ) . '.' . - $self->config( 'man1ext' ); - my $outfile = File::Spec->catfile($mandir, $manpage); -@@ -3096,7 +3096,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). -- my $parser = Pod::Man->new( section => 3 ); # libraries go in section 3 -+ my $parser = Pod::Man->new( section => '3pm' ); # libraries go in section 3pm - my $manpage = $self->man3page_name( $relfile ) . '.' . - $self->config( 'man3ext' ); - my $outfile = File::Spec->catfile( $mandir, $manpage); --- -tg: (c823880..) debian/module_build_man_extensions (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/perlivp.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/perlivp.diff deleted file mode 100644 index ebe942cbf..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/perlivp.diff +++ /dev/null @@ -1,40 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -From: Niko Tyni -Subject: Make perlivp skip include directories in /usr/local -Closes: 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 wrote: - -> > We could create the directories in a postinst script, but I'm not sure -> > I see the point. They will be created automatically when installing -> > CPAN modules. -> -> The directories are intentionally not created, as this way they are -> excluded from the search path at start-up, saving a bunch of wasted -> stats at use/require time in the common case that the user has not -> installed any local packages. As Niko points out, they will be -> created as required. - - -Signed-off-by: Niko Tyni - ---- - 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 ---- a/utils/perlivp.PL -+++ b/utils/perlivp.PL -@@ -142,6 +142,7 @@ my $INC_total = 0; - my $INC_there = 0; - 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: (c823880..) debian/perlivp (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/prune_libs.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/prune_libs.diff deleted file mode 100644 index 0f498951c..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/prune_libs.diff +++ /dev/null @@ -1,38 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -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). - - ---- - Configure | 5 ++--- - 1 files changed, 2 insertions(+), 3 deletions(-) - -diff --git a/Configure b/Configure -index 3a8732b..6013c86 100755 ---- a/Configure -+++ b/Configure -@@ -1363,8 +1363,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. --libswanted="sfio socket bind inet nsl nm ndbm gdbm dbm db malloc dl dld ld sun" --libswanted="$libswanted m crypt sec util c cposix posix ucb bsd BSD" -+libswanted='gdbm gdbm_compat db dl m c crypt' - : 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*) - ;; - *) case "$usedl" in - $define|true|[yY]*) -- set X `echo " $libs " | sed -e 's@ -lndbm @ @' -e 's@ -lgdbm @ @' -e 's@ -lgdbm_compat @ @' -e 's@ -ldbm @ @' -e 's@ -ldb @ @'` -+ set X `echo " $libs " | sed -e 's@ -lgdbm @ @' -e 's@ -lgdbm_compat @ @' -e 's@ -ldb @ @'` - shift - perllibs="$*" - ;; --- -tg: (c823880..) debian/prune_libs (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/squelch-locale-warnings.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/squelch-locale-warnings.diff deleted file mode 100644 index 68c1a35b6..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/squelch-locale-warnings.diff +++ /dev/null @@ -1,55 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -From: Niko Tyni -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 -during package upgrades, causing a huge amount of useless Perl locale -warnings. Squelch them when running package maintainer scripts, detected -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. - ---- - 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 ---- a/locale.c -+++ b/locale.c -@@ -359,6 +359,10 @@ Perl_init_i18nl10n(pTHX_ int printwarn) - char *p; - const bool locwarn = (printwarn > 1 || - (printwarn && -+ -+ /* Debian specific change - see http://bugs.debian.org/508764 */ -+ (!PerlEnv_getenv("DPKG_RUNNING_VERSION")) && -+ - (!(p = PerlEnv_getenv("PERL_BADLANG")) || atoi(p)))); - - if (locwarn) { -diff --git a/pod/perllocale.pod b/pod/perllocale.pod -index 0dbabe7..60b7bab 100644 ---- a/pod/perllocale.pod -+++ b/pod/perllocale.pod -@@ -844,6 +844,14 @@ B: 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. - -+=item DPKG_RUNNING_VERSION -+ -+On Debian systems, if the DPKG_RUNNING_VERSION environment variable is -+set (to any value), the locale failure warnings will be suppressed just -+like with a zero PERL_BADLANG setting. This is done to avoid floods -+of spurious warnings during system upgrades. -+See L. -+ - =back - - The following environment variables are not specific to Perl: They are --- -tg: (c823880..) debian/squelch-locale-warnings (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/generate-sh.patch b/meta/recipes-devtools/perl/perl-5.12.2/generate-sh.patch deleted file mode 100644 index 47f91c56d..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/generate-sh.patch +++ /dev/null @@ -1,48 +0,0 @@ -Upstream-Status:Inappropriate [embedded specific] - -Use the ld flags from the supplied configuration file. For sh we need the -flags that specify to build PIC code so that the shared libraries work. - -Index: perl-5.8.8/Cross/generate_config_sh -=================================================================== ---- perl-5.8.8.orig/Cross/generate_config_sh 2003-09-05 18:31:08.000000000 +1000 -+++ perl-5.8.8/Cross/generate_config_sh 2007-05-30 09:12:50.000000000 +1000 -@@ -19,10 +19,10 @@ - $callbacks->{'ar'} = [\&simple_process, ["AR", "arm-linux-ar"]]; - $callbacks->{'archname'} = [\&simple_process, ["SYS", "armv4l-linux"]]; - $callbacks->{'cc'} = [\&simple_process, ["CC", "arm-linux-gcc"]]; --$callbacks->{'cccdlflags'} = [\&simple_process, ["CFLAGS", ""]]; --$callbacks->{'ccdlflags'} = [\&simple_process, ["CFLAGS", ""]]; --$callbacks->{'ccflags'} = [\&simple_process, ["CFLAGS", "-fno-strict-aliasing -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64"]]; --$callbacks->{'ccflags_uselargefiles'} = [\&simple_process, ["CFLAGS", "-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64"]]; -+#$callbacks->{'cccdlflags'} = [\&simple_process, ["CFLAGS", ""]]; -+#$callbacks->{'ccdlflags'} = [\&simple_process, ["CFLAGS", ""]]; -+$callbacks->{'ccflags'} = [\&simple_process_insert, ["CFLAGS", "-fno-strict-aliasing -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64"]]; -+$callbacks->{'ccflags_uselargefiles'} = [\&simple_process_insert, ["CFLAGS", "-D_GNU_SOURCE -DTHREADS_HAVE_PIDS -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64"]]; - $callbacks->{'ccname'} = [\&simple_process, ["CC", "arm-linux-gcc"]]; - $callbacks->{'cpp'} = [\&simple_process, ["CCP", "arm-linux-cpp"]]; - $callbacks->{'cppflags'} = [\&simple_process, ["CCPFLAGS", "-fno-strict-aliasing"]]; -@@ -105,6 +105,23 @@ - - } - -+# Insert env var into the variables value -+sub simple_process_insert { -+ my $key = shift; -+ my $value = shift; -+ my $envvar = $callbacks->{$key}->[1][0]; -+ -+ if ($ENV{$envvar}) { -+ # Strip quotes from value -+ $value =~ s/^\'//; -+ $value =~ s/\'$//; -+ # Remove -I/usr/local/... from the value -+ $value =~ s#\W-I/usr/local/\w+\W# #g; -+ # Prepend env var (OE setting) to value -+ print("$key=\'$ENV{$envvar} $value\'\n"); -+ } -+} -+ - sub library_munge { - my $key = shift; - my $value = shift; diff --git a/meta/recipes-devtools/perl/perl-5.12.2/installperl.patch b/meta/recipes-devtools/perl/perl-5.12.2/installperl.patch deleted file mode 100644 index 276eb3d41..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/installperl.patch +++ /dev/null @@ -1,17 +0,0 @@ -Upstream-Status:Inappropriate [embedded specific] - -Index: perl-5.12.2/installperl -=================================================================== ---- perl-5.12.2.orig/installperl -+++ perl-5.12.2/installperl -@@ -3,8 +3,8 @@ - BEGIN { - require 5.004; - chdir '..' if !-d 'lib' and -d '../lib'; -- @INC = 'lib'; -- $ENV{PERL5LIB} = 'lib'; -+# @INC = 'lib'; -+# $ENV{PERL5LIB} = 'lib'; - - # This needs to be at BEGIN time, before any use of Config - require './install_lib.pl'; diff --git a/meta/recipes-devtools/perl/perl-5.12.2/letgcc-find-errno.patch b/meta/recipes-devtools/perl/perl-5.12.2/letgcc-find-errno.patch deleted file mode 100644 index 268cb531b..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/letgcc-find-errno.patch +++ /dev/null @@ -1,46 +0,0 @@ -Upstream-Status:Inappropriate [embedded specific] - -This removes all the logic that perl uses to locate an appropriate -errno.h for the target. Instead we simple create a file that does - - #include "errno.h" - -and use that as the file to parse. This is needed when using an -external toolchain since perl will search in ${STAGING_INCDIR} for -errno.h (when using gcc) and that isn't where it's located - its -wherever the external toolchain keeps it's headers. - -Index: perl-5.12.2/ext/Errno/Errno_pm.PL -=================================================================== ---- perl-5.12.2.orig/ext/Errno/Errno_pm.PL -+++ perl-5.12.2/ext/Errno/Errno_pm.PL -@@ -17,8 +17,18 @@ unlink "Errno.tmp" if -f "Errno.tmp"; - open OUT, ">Errno.tmp" or die "Cannot open Errno.tmp: $!"; - select OUT; - my $file; --my @files = get_files(); --if ($Config{gccversion} ne '' && $^O eq 'MSWin32') { -+#my @files = get_files(); -+my @files = ("errno.h"); -+ -+if (1) { -+ open INCS, '>includes.c' or -+ die "Cannot open includes.c"; -+ print INCS qq[#include "errno.h"\n]; -+ close INCS; -+ process_file('includes.c'); -+ unlink 'includes.c'; -+} -+elsif ($Config{gccversion} ne '' && $^O eq 'MSWin32') { - # MinGW complains "warning: #pragma system_header ignored outside include - # file" if the header files are processed individually, so include them - # all in .c file and process that instead. -@@ -53,7 +63,7 @@ sub process_file { - chomp($file = `cygpath -w "$file"`); - } - -- return unless defined $file and -f $file; -+# return unless defined $file and -f $file; - # warn "Processing $file\n"; - - local *FH; diff --git a/meta/recipes-devtools/perl/perl-5.12.2/native-nopacklist.patch b/meta/recipes-devtools/perl/perl-5.12.2/native-nopacklist.patch deleted file mode 100644 index 8d5b81958..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/native-nopacklist.patch +++ /dev/null @@ -1,82 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -Part of 52_debian_extutils_hacks.patch just to exclude the installation of .packlist files - -Index: perl-5.12.2/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm -=================================================================== ---- perl-5.12.2.orig/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm -+++ perl-5.12.2/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm -@@ -2047,8 +2047,6 @@ doc__install : doc_site_install - - pure_perl_install :: all - $(NOECHO) $(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) \ -@@ -2074,8 +2072,6 @@ pure_site_install :: all - - pure_vendor_install :: all - $(NOECHO) $(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) \ -@@ -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) $(ECHO) Appending installation info to $(DESTINSTALLSITEARCH)/perllocal.pod -+ -$(NOECHO) $(MKPATH) $(DESTINSTALLSITEARCH) - -$(NOECHO) $(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_$(INSTALLDIR - $(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("",@m); diff --git a/meta/recipes-devtools/perl/perl-5.12.2/native-perlinc.patch b/meta/recipes-devtools/perl/perl-5.12.2/native-perlinc.patch deleted file mode 100644 index ffaf32629..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/native-perlinc.patch +++ /dev/null @@ -1,26 +0,0 @@ -Upstream-Status:Inappropriate [embedded specific] - -Index: perl-5.8.8/lib/ExtUtils/MM_Unix.pm -=================================================================== ---- perl-5.12.2.orig/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm 2008-10-31 22:01:35.000000000 +0000 -+++ perl-5.12.2/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm 2008-10-31 22:01:35.000000000 +0000 -@@ -1597,6 +1597,19 @@ - $self->{PERL_LIB} ||= $Config{privlibexp}; - $self->{PERL_ARCHLIB} ||= $Config{archlibexp}; - $self->{PERL_INC} = $self->catdir("$self->{PERL_ARCHLIB}","CORE"); # wild guess for now -+ # Check for environment override so we'll find the headers in the correct place -+ if (defined $ENV{PERL_LIB}) -+ { -+ $self->{PERL_LIB} = $ENV{PERL_LIB}; -+ } -+ if (defined $ENV{PERL_ARCHLIB}) -+ { -+ $self->{PERL_ARCHLIB} = $ENV{PERL_ARCHLIB}; -+ } -+ if (defined $ENV{PERL_INC}) -+ { -+ $self->{PERL_INC} = $ENV{PERL_INC}; -+ } - my $perl_h; - - if (not -f ($perl_h = $self->catfile($self->{PERL_INC},"perl.h")) diff --git a/meta/recipes-devtools/perl/perl-5.12.2/native-ssp.patch b/meta/recipes-devtools/perl/perl-5.12.2/native-ssp.patch deleted file mode 100644 index e1e6f0873..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/native-ssp.patch +++ /dev/null @@ -1,16 +0,0 @@ -Upstream-Status:Inappropriate [embedded specific] - -Fix for compiling with ssp enabled gcc: -See http://bugs.openembedded.net/show_bug.cgi?id=1980 - -diff -Naur perl-5.8.7.orig/cflags.SH perl-5.8.7/cflags.SH ---- perl-5.8.7.orig/cflags.SH 2002-09-30 10:59:07.000000000 +0000 -+++ perl-5.8.7/cflags.SH 2005-10-02 04:08:39.000000000 +0000 -@@ -165,6 +165,8 @@ - esac - - : Can we perhaps use $ansi2knr here -+ [[ $file == regcomp ]] && export ccflags="${ccflags} -fno-stack-protector" -+ [[ $file == regexec ]] && export ccflags="${ccflags} -fno-stack-protector" - echo "$cc -c -DPERL_CORE $ccflags $optimize $warn" - eval "$also "'"$cc -DPERL_CORE -c $ccflags $optimize $warn"' diff --git a/meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_1.patch b/meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_1.patch deleted file mode 100644 index d5a629538..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_1.patch +++ /dev/null @@ -1,27 +0,0 @@ -Upstream-Status:Inappropriate [Backport] - -Imported from perl git tree by Nitin A Kamble -2011-02-23 - -commit 6695a346c41138df5b2c0e26b9a49b1f96137da0 -Author: Tony Cook -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.2/parallel_build_fix_2.patch b/meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_2.patch deleted file mode 100644 index a3432ab43..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_2.patch +++ /dev/null @@ -1,24 +0,0 @@ -Upstream-Status:Inappropriate [Backport] - -Imported from perl git tree by Nitin A Kamble -2011-02-23 - -commit 24e93d7838b346d2ed632075f3d824a325170616 -Author: Tony Cook -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.2/parallel_build_fix_3.patch b/meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_3.patch deleted file mode 100644 index 26af1f1d9..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_3.patch +++ /dev/null @@ -1,6585 +0,0 @@ -Upstream-Status:Inappropriate [Backport] - -Imported from perl git tree by Nitin A Kamble -2011-02-23 - -commit 4feb80ac47a22e7de7d7c1c1d5dfb3d744a2a3a7 -Author: Jerry D. Hedden -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,@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); --@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 ; --} -- --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,@_); --} -- --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; --} -- --@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 with the exception of any POSIX --functions with the same name as a built-in Perl function, such as --C, C, C, C, 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 and then use the fully qualified names (ie. C). -- --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 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 flushed. -- --Note that when using threads and in Linux this is B 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. It terminates the --process with a C signal unless caught by a signal handler or --if the handler does not return normally (it e.g. does a C). -- --=item abs -- --This is identical to Perl's builtin C 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 on failure. Note: do not use C for --security purposes. Between the C call and the operation --you are preparing for the permissions might change: a classic --I. -- --=item acos -- --This is identical to the C function C, returning --the arcus cosine of its numerical argument. See also L. -- --=item alarm -- --This is identical to Perl's builtin C function, --either for arming or disarming the C timer. -- --=item asctime -- --This is identical to the C function C. 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, returning --the arcus sine of its numerical argument. See also L. -- --=item assert -- --Unimplemented, but you can use L and the L module --to achieve similar things. -- --=item atan -- --This is identical to the C function C, returning the --arcus tangent of its numerical argument. See also L. -- --=item atan2 -- --This is identical to Perl's builtin C function, returning --the arcus tangent defined by its two numerical arguments, the I --coordinate and the I coordinate. See also L. -- --=item atexit -- --atexit() is C-specific: use C instead, see L. -- --=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. -- --=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. -- --=item bsearch -- --bsearch() not supplied. For doing binary search on wordlists, --see L. -- --=item calloc -- --calloc() is C-specific. Perl does memory management transparently. -- --=item ceil -- --This is identical to the C function C, returning the smallest --integer value greater than or equal to the given numerical argument. -- --=item chdir -- --This is identical to Perl's builtin C function, allowing --one to change the working (default) directory, see L. -- --=item chmod -- --This is identical to Perl's builtin C function, allowing --one to change file and directory permissions, see L. -- --=item chown -- --This is identical to Perl's builtin C function, allowing one --to change file and directory owners and groups, see L. -- --=item clearerr -- --Use the method C 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, 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. -- -- $fd = POSIX::open( "foo", &POSIX::O_RDONLY ); -- POSIX::close( $fd ); -- --Returns C on failure. -- --See also L. -- --=item closedir -- --This is identical to Perl's builtin C function for closing --a directory handle, see L. -- --=item cos -- --This is identical to Perl's builtin C function, for returning --the cosine of its numerical argument, see L. --See also L. -- --=item cosh -- --This is identical to the C function C, for returning --the hyperbolic cosine of its numeric argument. See also L. -- --=item creat -- --Create a new file. This returns a file descriptor like the ones returned by --C. Use C to close the file. -- -- $fd = POSIX::creat( "foo", 0611 ); -- POSIX::close( $fd ); -- --See also L and its C flag. -- --=item ctermid -- --Generates the path name for the controlling terminal. -- -- $path = POSIX::ctermid(); -- --=item ctime -- --This is identical to the C function C and equivalent --to C, see L and L. -- --=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, for returning --the time difference (in seconds) between two times (as returned --by C), see L. -- --=item div -- --div() is C-specific, use L on the usual C division and --the modulus C<%>. -- --=item dup -- --This is similar to the C function C, for duplicating a file --descriptor. -- --This uses file descriptors such as those obtained by calling --C. -- --Returns C on failure. -- --=item dup2 -- --This is similar to the C function C, for duplicating a file --descriptor to an another known file descriptor. -- --This uses file descriptors such as those obtained by calling --C. -- --Returns C on failure. -- --=item errno -- --Returns the value of errno. -- -- $errno = POSIX::errno(); -- --This identical to the numerical values of the C<$!>, see L. -- --=item execl -- --execl() is C-specific, see L. -- --=item execle -- --execle() is C-specific, see L. -- --=item execlp -- --execlp() is C-specific, see L. -- --=item execv -- --execv() is C-specific, see L. -- --=item execve -- --execve() is C-specific, see L. -- --=item execvp -- --execvp() is C-specific, see L. -- --=item exit -- --This is identical to Perl's builtin C function for exiting the --program, see L. -- --=item exp -- --This is identical to Perl's builtin C function for --returning the exponent (I-based) of the numerical argument, --see L. -- --=item fabs -- --This is identical to Perl's builtin C function for returning --the absolute value of the numerical argument, see L. -- --=item fclose -- --Use method C instead, or see L. -- --=item fcntl -- --This is identical to Perl's builtin C function, --see L. -- --=item fdopen -- --Use method C instead, or see L. -- --=item feof -- --Use method C instead, or see L. -- --=item ferror -- --Use method C instead. -- --=item fflush -- --Use method C instead. --See also L. -- --=item fgetc -- --Use method C instead, or see L. -- --=item fgetpos -- --Use method C instead, or see L. -- --=item fgets -- --Use method C instead. Similar to EE, also known --as L. -- --=item fileno -- --Use method C instead, or see L. -- --=item floor -- --This is identical to the C function C, returning the largest --integer value less than or equal to the numerical argument. -- --=item fmod -- --This is identical to the C function C. -- -- $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 instead, or see L. -- --=item fork -- --This is identical to Perl's builtin C function --for duplicating the current process, see L --and L 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. -- --The following will determine the maximum length of the longest allowable --pathname on the filesystem which holds C. -- -- $fd = POSIX::open( "/var/foo", &POSIX::O_RDONLY ); -- $path_max = POSIX::fpathconf( $fd, &POSIX::_PC_PATH_MAX ); -- --Returns C on failure. -- --=item fprintf -- --fprintf() is C-specific, see L instead. -- --=item fputc -- --fputc() is C-specific, see L instead. -- --=item fputs -- --fputs() is C-specific, see L instead. -- --=item fread -- --fread() is C-specific, see L instead. -- --=item free -- --free() is C-specific. Perl does memory management transparently. -- --=item freopen -- --freopen() is C-specific, see L 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 EE and regular expressions instead. -- --=item fseek -- --Use method C instead, or see L. -- --=item fsetpos -- --Use method C instead, or seek L. -- --=item fstat -- --Get file status. This uses file descriptors such as those obtained by --calling C. The data returned is identical to the data from --Perl's builtin C function. -- -- $fd = POSIX::open( "foo", &POSIX::O_RDONLY ); -- @stats = POSIX::fstat( $fd ); -- --=item fsync -- --Use method C instead. -- --=item ftell -- --Use method C instead, or see L. -- --=item fwrite -- --fwrite() is C-specific, see L instead. -- --=item getc -- --This is identical to Perl's builtin C function, --see L. -- --=item getchar -- --Returns one character from STDIN. Identical to Perl's C, --see L. -- --=item getcwd -- --Returns the name of the current working directory. --See also L. -- --=item getegid -- --Returns the effective group identifier. Similar to Perl' s builtin --variable C<$(>, see L. -- --=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> --variable, see L. -- --=item getgid -- --Returns the user's real group identifier. Similar to Perl's builtin --variable C<$)>, see L. -- --=item getgrgid -- --This is identical to Perl's builtin C function for --returning group entries by group identifiers, see --L. -- --=item getgrnam -- --This is identical to Perl's builtin C function for --returning group entries by group names, see L. -- --=item getgroups -- --Returns the ids of the user's supplementary groups. Similar to Perl's --builtin variable C<$)>, see L. -- --=item getlogin -- --This is identical to Perl's builtin C function for --returning the user name associated with the current session, see --L. -- --=item getpgrp -- --This is identical to Perl's builtin C function for --returning the process group identifier of the current process, see --L. -- --=item getpid -- --Returns the process identifier. Identical to Perl's builtin --variable C<$$>, see L. -- --=item getppid -- --This is identical to Perl's builtin C function for --returning the process identifier of the parent process of the current --process , see L. -- --=item getpwnam -- --This is identical to Perl's builtin C function for --returning user entries by user names, see L. -- --=item getpwuid -- --This is identical to Perl's builtin C function for --returning user entries by user identifiers, see L. -- --=item gets -- --Returns one line from C, similar to EE, also known --as the C function, see L. -- --B: if you have C programs that still use C, be very --afraid. The C function is a source of endless grief because --it has no buffer overrun checks. It should B be used. The --C function should be preferred instead. -- --=item getuid -- --Returns the user's identifier. Identical to Perl's builtin C<$E> variable, --see L. -- --=item gmtime -- --This is identical to Perl's builtin C function for --converting seconds since the epoch to a date in Greenwich Mean Time, --see L. -- --=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. Does not work on --Unicode characters code point 256 or higher. Consider using regular --expressions and the C construct instead, or possibly --the C 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. Does not work --on Unicode characters code point 256 or higher. Consider using regular --expressions and the C 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. -- --=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. Does not work --on Unicode characters code point 256 or higher. Consider using regular --expressions and the C 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 (unlikely, but --still possible). Does not work on Unicode characters code point 256 --or higher. Consider using regular expressions and the C --construct instead, or the C 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. Does not work --on Unicode characters code point 256 or higher. Consider using regular --expressions and the C 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. Does not work --on Unicode characters code point 256 or higher. Consider using regular --expressions and the C construct instead. Do B use --C. -- --=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. Does not work --on Unicode characters code point 256 or higher. Consider using regular --expressions and the C 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. Does not work --on Unicode characters code point 256 or higher. Consider using regular --expressions and the C 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. Does not work --on Unicode characters code point 256 or higher. Consider using regular --expressions and the C construct instead, or the C --construct. (Note that C and C are slightly --different in that C can normally match a vertical tab, --while C 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. Does not work --on Unicode characters code point 256 or higher. Consider using regular --expressions and the C construct instead. Do B use --C. -- --=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 (unlikely, but still possible). --Does not work on Unicode characters code point 256 or higher. --Consider using regular expressions and the C --construct instead, or simply C. -- --=item kill -- --This is identical to Perl's builtin C function for sending --signals to processes (often to terminate them), see L. -- --=item labs -- --(For returning absolute values of long integers.) --labs() is C-specific, see L instead. -- --=item lchown -- --This is identical to the C function, except the order of arguments is --consistent with Perl's builtin C with the added restriction --of only one path, not an list of paths. Does the same thing as the --C 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 --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 instead. -- --=item link -- --This is identical to Perl's builtin C function --for creating hard links into files, see L. -- --=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 (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 function for --converting seconds since the epoch to a date see L. -- --=item log -- --This is identical to Perl's builtin C function, --returning the natural (I-based) logarithm of the numerical argument, --see L. -- --=item log10 -- --This is identical to the C function C, --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 instead. -- --=item lseek -- --Move the file's read/write position. This uses file descriptors such as --those obtained by calling C. -- -- $fd = POSIX::open( "foo", &POSIX::O_RDONLY ); -- $off_t = POSIX::lseek( $fd, 0, &POSIX::SEEK_SET ); -- --Returns C on failure. -- --=item malloc -- --malloc() is C-specific. Perl does memory management transparently. -- --=item mblen -- --This is identical to the C function C. --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. --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. --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 instead. -- --=item memcmp -- --memcmp() is C-specific, use C instead, see L. -- --=item memcpy -- --memcpy() is C-specific, use C<=>, see L, or see L. -- --=item memmove -- --memmove() is C-specific, use C<=>, see L, or see L. -- --=item memset -- --memset() is C-specific, use C instead, see L. -- --=item mkdir -- --This is identical to Perl's builtin C function --for creating directories, see L. -- --=item mkfifo -- --This is similar to the C function C for creating --FIFO special files. -- -- if (mkfifo($path, $mode)) { .... -- --Returns C on failure. The C<$mode> is similar to the --mode of C, see L, though for C --you B 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), weekday (C), and yearday (C) begin at zero. --I.e. January is 0, not 1; Sunday is 0, not 1; January 1st is 0, not 1. The --year (C) is given in years since 1900. I.e. The year 1995 is 95; the --year 2001 is 101. Consult your system's C 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 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, 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 on failure. -- --=item offsetof -- --offsetof() is C-specific, you probably want to see L instead. -- --=item open -- --Open a file for reading for writing. This returns file descriptors, not --Perl filehandles. Use C 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 on failure. -- --See also L. -- --=item opendir -- --Open a directory for reading. -- -- $dir = POSIX::opendir( "/var" ); -- @files = POSIX::readdir( $dir ); -- POSIX::closedir( $dir ); -- --Returns C 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. -- -- $path_max = POSIX::pathconf( "/var", &POSIX::_PC_PATH_MAX ); -- --Returns C on failure. -- --=item pause -- --This is similar to the C function C, which suspends --the execution of the current process until a signal is received. -- --Returns C on failure. -- --=item perror -- --This is identical to the C function C, which outputs to the --standard error stream the specified message followed by ": " and the --current error string. Use the C function and the C<$!> --variable instead, see L and L. -- --=item pipe -- --Create an interprocess channel. This returns file descriptors like those --returned by C. -- -- my ($read, $write) = POSIX::pipe(); -- POSIX::write( $write, "hello", 5 ); -- POSIX::read( $read, $buf, 5 ); -- --See also L. -- --=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. -- --=item printf -- --Formats and prints the specified arguments to STDOUT. --See also L. -- --=item putc -- --putc() is C-specific, see L instead. -- --=item putchar -- --putchar() is C-specific, see L instead. -- --=item puts -- --puts() is C-specific, see L instead. -- --=item qsort -- --qsort() is C-specific, see L instead. -- --=item raise -- --Sends the specified signal to the current process. --See also L and the C<$$> in L. -- --=item rand -- --C is non-portable, see L instead. -- --=item read -- --Read from a file. This uses file descriptors such as those obtained by --calling C. 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 on failure. -- --See also L. -- --=item readdir -- --This is identical to Perl's builtin C function --for reading directory entries, see L. -- --=item realloc -- --realloc() is C-specific. Perl does memory management transparently. -- --=item remove -- --This is identical to Perl's builtin C function --for removing files, see L. -- --=item rename -- --This is identical to Perl's builtin C function --for renaming files, see L. -- --=item rewind -- --Seeks to the beginning of the file. -- --=item rewinddir -- --This is identical to Perl's builtin C function for --rewinding directory entry streams, see L. -- --=item rmdir -- --This is identical to Perl's builtin C function --for removing (empty) directories, see L. -- --=item scanf -- --scanf() is C-specific, use EE and regular expressions instead, --see L. -- --=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, 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 is C-specific: use C instead, --see L. -- --=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 documentation for the locale --environment variables' meaning or consult L. -- -- $loc = setlocale( LC_CTYPE, "" ); -- --The following will set the LC_COLLATE behaviour to Argentinian --Spanish. B: The naming and availability of locales depends on --your operating system. Please consult L 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 for --setting the process group identifier of the current process. -- --Returns C on failure. -- --=item setsid -- --This is identical to the C function C 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> variable, see L, except that the latter --will change only the real user identifier. -- --=item sigaction -- --Detailed signal management. This uses C objects for --the C and C arguments (the oldaction can also be --just a hash reference). Consult your system's C manpage --for details, see also C. -- --Synopsis: -- -- sigaction(signal, action, oldaction = 0) -- --Returns C on failure. The C 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 and possibly also C documentation. -- --=item siglongjmp -- --siglongjmp() is C-specific: use L instead. -- --=item sigpending -- --Examine signals that are blocked and pending. This uses C --objects for the C argument. Consult your system's C --manpage for details. -- --Synopsis: -- -- sigpending(sigset) -- --Returns C on failure. -- --=item sigprocmask -- --Change and/or examine calling process's signal mask. This uses --C objects for the C and C arguments. --Consult your system's C manpage for details. -- --Synopsis: -- -- sigprocmask(how, sigset, oldsigset = 0) -- --Returns C on failure. -- --=item sigsetjmp -- --C is C-specific: use C instead, --see L. -- --=item sigsuspend -- --Install a signal mask and suspend process until signal arrives. This uses --C objects for the C argument. Consult your --system's C manpage for details. -- --Synopsis: -- -- sigsuspend(signal_mask) -- --Returns C on failure. -- --=item sin -- --This is identical to Perl's builtin C function --for returning the sine of the numerical argument, --see L. See also L. -- --=item sinh -- --This is identical to the C function C --for returning the hyperbolic sine of the numerical argument. --See also L. -- --=item sleep -- --This is functionally identical to Perl's builtin C function --for suspending the execution of the current for process for certain --number of seconds, see L. There is one significant --difference, however: C returns the number of --B seconds, while the C returns the --number of slept seconds. -- --=item sprintf -- --This is similar to Perl's builtin C function --for returning a string that has the arguments formatted as requested, --see L. -- --=item sqrt -- --This is identical to Perl's builtin C function. --for returning the square root of the numerical argument, --see L. -- --=item srand -- --Give a seed the pseudorandom number generator, see L. -- --=item sscanf -- --sscanf() is C-specific, use regular expressions instead, --see L. -- --=item stat -- --This is identical to Perl's builtin C function --for returning information about files and directories. -- --=item strcat -- --strcat() is C-specific, use C<.=> instead, see L. -- --=item strchr -- --strchr() is C-specific, see L instead. -- --=item strcmp -- --strcmp() is C-specific, use C or C instead, see L. -- --=item strcoll -- --This is identical to the C function C --for collating (comparing) strings transformed using --the C function. Not really needed since --Perl can do this transparently, see L. -- --=item strcpy -- --strcpy() is C-specific, use C<=> instead, see L. -- --=item strcspn -- --strcspn() is C-specific, use regular expressions instead, --see L. -- --=item strerror -- --Returns the error string for the specified errno. --Identical to the string form of the C<$!>, see L. -- --=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), weekday (C), and yearday (C) begin at zero. --I.e. January is 0, not 1; Sunday is 0, not 1; January 1st is 0, not 1. The --year (C) is given in years since 1900. I.e., the year 1995 is 95; the --year 2001 is 101. Consult your system's C manpage for details --about these and the other arguments. -- --If you want your code to be portable, your format (C) argument --should use only the conversion specifiers defined by the ANSI C --standard (C89, to play safe). These are C. --But even then, the B of some of the conversion specifiers are --non-portable. For example, the specifiers C 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 changes according to the timezone settings of the --user and the timezone computation rules of the operating system. --The C 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 before calling your system's C function, --except that the C 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 instead, see L. -- --=item strncat -- --strncat() is C-specific, use C<.=> instead, see L. -- --=item strncmp -- --strncmp() is C-specific, use C instead, see L. -- --=item strncpy -- --strncpy() is C-specific, use C<=> instead, see L. -- --=item strpbrk -- --strpbrk() is C-specific, use regular expressions instead, --see L. -- --=item strrchr -- --strrchr() is C-specific, see L instead. -- --=item strspn -- --strspn() is C-specific, use regular expressions instead, --see L. -- --=item strstr -- --This is identical to Perl's builtin C function, --see L. -- --=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 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, or L. -- --=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 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 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 function, see L. -- --Not really needed since Perl can do this transparently, see --L. -- --=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 on failure. -- --=item system -- --This is identical to Perl's builtin C function, see --L. -- --=item tan -- --This is identical to the C function C, returning the --tangent of the numerical argument. See also L. -- --=item tanh -- --This is identical to the C function C, returning the --hyperbolic tangent of the numerical argument. See also L. -- --=item tcdrain -- --This is similar to the C function C for draining --the output queue of its argument stream. -- --Returns C on failure. -- --=item tcflow -- --This is similar to the C function C for controlling --the flow of its argument stream. -- --Returns C on failure. -- --=item tcflush -- --This is similar to the C function C for flushing --the I/O buffers of its argument stream. -- --Returns C on failure. -- --=item tcgetpgrp -- --This is identical to the C function C 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 for sending --a break on its argument stream. -- --Returns C on failure. -- --=item tcsetpgrp -- --This is similar to the C function C for setting the --process group identifier of the foreground process group of the controlling --terminal. -- --Returns C on failure. -- --=item time -- --This is identical to Perl's builtin C function --for returning the number of seconds since the epoch --(whatever it is for the system), see L. -- --=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 function returns four values, measured in --seconds. -- --=item tmpfile -- --Use method C instead, or see L. -- --=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. -- --=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 function, --see L, 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 function, --see L, or the equivalent C<\U> operator inside doublequotish --strings. -- --=item ttyname -- --This is identical to the C function C for returning the --name of the current terminal. -- --=item tzname -- --Retrieves the time conversion information from the C variable. -- -- POSIX::tzset(); -- ($std, $dst) = POSIX::tzname(); -- --=item tzset -- --This is identical to the C function C for setting --the current timezone based on the environment variable C, --to be used by C, C, C, and C --functions. -- --=item umask -- --This is identical to Perl's builtin C function --for setting (and querying) the file creation permission mask, --see L. -- --=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 instead. -- --=item unlink -- --This is identical to Perl's builtin C function --for removing files, see L. -- --=item utime -- --This is identical to Perl's builtin C function --for changing the time stamps of files and directories, --see L. -- --=item vfprintf -- --vfprintf() is C-specific, see L instead. -- --=item vprintf -- --vprintf() is C-specific, see L instead. -- --=item vsprintf -- --vsprintf() is C-specific, see L instead. -- --=item wait -- --This is identical to Perl's builtin C function, --see L. -- --=item waitpid -- --Wait for a child process to change state. This is identical to Perl's --builtin C function, see L. -- -- $pid = POSIX::waitpid( -1, POSIX::WNOHANG ); -- print "status = ", ($? / 256), "\n"; -- --=item wcstombs -- --This is identical to the C function C. --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. --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. -- -- $fd = POSIX::open( "foo", &POSIX::O_WRONLY ); -- $buf = "hello"; -- $bytes = POSIX::write( $fd, $buf, 5 ); -- --Returns C on failure. -- --See also L. -- --=back -- --=head1 CLASSES -- --=head2 POSIX::SigAction -- --=over 8 -- --=item new -- --Creates a new C object which corresponds to the C --C. 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 object, it --defaults to the empty set. The third parameter contains the --C, it defaults to 0. -- -- $sigset = POSIX::SigSet->new(SIGINT, SIGQUIT); -- $sigaction = POSIX::SigAction->new( \&handler, $sigset, &POSIX::SA_NOCLDSTOP ); -- --This C object is intended for use with the C --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 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 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: -- -- 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 and C on the elements, and use --C 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 on $POSIX::SigRt::SIGACTION_FLAGS, or you can --derive from POSIX::SigRt and define your own C (the tied hash --STORE method of the %SIGRT calls C, --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 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 --if no POSIX realtime signals are available. -- --=item SIGRTMAX -- --Return the maximum POSIX realtime signal number available, or C --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 on failure. -- --=item delset -- --Remove a signal from the SigSet object. -- -- $sigset->delset( &POSIX::SIGUSR2 ); -- --Returns C on failure. -- --=item emptyset -- --Initialize the SigSet object to be empty. -- -- $sigset->emptyset(); -- --Returns C on failure. -- --=item fillset -- --Initialize the SigSet object to include all signals. -- -- $sigset->fillset(); -- --Returns C 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 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 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 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 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 or by falling off the end of C) -- --=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,@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); -+@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 ; -+} -+ -+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,@_); -+} -+ -+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; -+} -+ -+@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 with the exception of any POSIX -+functions with the same name as a built-in Perl function, such as -+C, C, C, C, 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 and then use the fully qualified names (ie. C). -+ -+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 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 flushed. -+ -+Note that when using threads and in Linux this is B 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. It terminates the -+process with a C signal unless caught by a signal handler or -+if the handler does not return normally (it e.g. does a C). -+ -+=item abs -+ -+This is identical to Perl's builtin C 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 on failure. Note: do not use C for -+security purposes. Between the C call and the operation -+you are preparing for the permissions might change: a classic -+I. -+ -+=item acos -+ -+This is identical to the C function C, returning -+the arcus cosine of its numerical argument. See also L. -+ -+=item alarm -+ -+This is identical to Perl's builtin C function, -+either for arming or disarming the C timer. -+ -+=item asctime -+ -+This is identical to the C function C. 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, returning -+the arcus sine of its numerical argument. See also L. -+ -+=item assert -+ -+Unimplemented, but you can use L and the L module -+to achieve similar things. -+ -+=item atan -+ -+This is identical to the C function C, returning the -+arcus tangent of its numerical argument. See also L. -+ -+=item atan2 -+ -+This is identical to Perl's builtin C function, returning -+the arcus tangent defined by its two numerical arguments, the I -+coordinate and the I coordinate. See also L. -+ -+=item atexit -+ -+atexit() is C-specific: use C instead, see L. -+ -+=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. -+ -+=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. -+ -+=item bsearch -+ -+bsearch() not supplied. For doing binary search on wordlists, -+see L. -+ -+=item calloc -+ -+calloc() is C-specific. Perl does memory management transparently. -+ -+=item ceil -+ -+This is identical to the C function C, returning the smallest -+integer value greater than or equal to the given numerical argument. -+ -+=item chdir -+ -+This is identical to Perl's builtin C function, allowing -+one to change the working (default) directory, see L. -+ -+=item chmod -+ -+This is identical to Perl's builtin C function, allowing -+one to change file and directory permissions, see L. -+ -+=item chown -+ -+This is identical to Perl's builtin C function, allowing one -+to change file and directory owners and groups, see L. -+ -+=item clearerr -+ -+Use the method C 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, 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. -+ -+ $fd = POSIX::open( "foo", &POSIX::O_RDONLY ); -+ POSIX::close( $fd ); -+ -+Returns C on failure. -+ -+See also L. -+ -+=item closedir -+ -+This is identical to Perl's builtin C function for closing -+a directory handle, see L. -+ -+=item cos -+ -+This is identical to Perl's builtin C function, for returning -+the cosine of its numerical argument, see L. -+See also L. -+ -+=item cosh -+ -+This is identical to the C function C, for returning -+the hyperbolic cosine of its numeric argument. See also L. -+ -+=item creat -+ -+Create a new file. This returns a file descriptor like the ones returned by -+C. Use C to close the file. -+ -+ $fd = POSIX::creat( "foo", 0611 ); -+ POSIX::close( $fd ); -+ -+See also L and its C flag. -+ -+=item ctermid -+ -+Generates the path name for the controlling terminal. -+ -+ $path = POSIX::ctermid(); -+ -+=item ctime -+ -+This is identical to the C function C and equivalent -+to C, see L and L. -+ -+=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, for returning -+the time difference (in seconds) between two times (as returned -+by C), see L. -+ -+=item div -+ -+div() is C-specific, use L on the usual C division and -+the modulus C<%>. -+ -+=item dup -+ -+This is similar to the C function C, for duplicating a file -+descriptor. -+ -+This uses file descriptors such as those obtained by calling -+C. -+ -+Returns C on failure. -+ -+=item dup2 -+ -+This is similar to the C function C, for duplicating a file -+descriptor to an another known file descriptor. -+ -+This uses file descriptors such as those obtained by calling -+C. -+ -+Returns C on failure. -+ -+=item errno -+ -+Returns the value of errno. -+ -+ $errno = POSIX::errno(); -+ -+This identical to the numerical values of the C<$!>, see L. -+ -+=item execl -+ -+execl() is C-specific, see L. -+ -+=item execle -+ -+execle() is C-specific, see L. -+ -+=item execlp -+ -+execlp() is C-specific, see L. -+ -+=item execv -+ -+execv() is C-specific, see L. -+ -+=item execve -+ -+execve() is C-specific, see L. -+ -+=item execvp -+ -+execvp() is C-specific, see L. -+ -+=item exit -+ -+This is identical to Perl's builtin C function for exiting the -+program, see L. -+ -+=item exp -+ -+This is identical to Perl's builtin C function for -+returning the exponent (I-based) of the numerical argument, -+see L. -+ -+=item fabs -+ -+This is identical to Perl's builtin C function for returning -+the absolute value of the numerical argument, see L. -+ -+=item fclose -+ -+Use method C instead, or see L. -+ -+=item fcntl -+ -+This is identical to Perl's builtin C function, -+see L. -+ -+=item fdopen -+ -+Use method C instead, or see L. -+ -+=item feof -+ -+Use method C instead, or see L. -+ -+=item ferror -+ -+Use method C instead. -+ -+=item fflush -+ -+Use method C instead. -+See also L. -+ -+=item fgetc -+ -+Use method C instead, or see L. -+ -+=item fgetpos -+ -+Use method C instead, or see L. -+ -+=item fgets -+ -+Use method C instead. Similar to EE, also known -+as L. -+ -+=item fileno -+ -+Use method C instead, or see L. -+ -+=item floor -+ -+This is identical to the C function C, returning the largest -+integer value less than or equal to the numerical argument. -+ -+=item fmod -+ -+This is identical to the C function C. -+ -+ $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 instead, or see L. -+ -+=item fork -+ -+This is identical to Perl's builtin C function -+for duplicating the current process, see L -+and L 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. -+ -+The following will determine the maximum length of the longest allowable -+pathname on the filesystem which holds C. -+ -+ $fd = POSIX::open( "/var/foo", &POSIX::O_RDONLY ); -+ $path_max = POSIX::fpathconf( $fd, &POSIX::_PC_PATH_MAX ); -+ -+Returns C on failure. -+ -+=item fprintf -+ -+fprintf() is C-specific, see L instead. -+ -+=item fputc -+ -+fputc() is C-specific, see L instead. -+ -+=item fputs -+ -+fputs() is C-specific, see L instead. -+ -+=item fread -+ -+fread() is C-specific, see L instead. -+ -+=item free -+ -+free() is C-specific. Perl does memory management transparently. -+ -+=item freopen -+ -+freopen() is C-specific, see L 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 EE and regular expressions instead. -+ -+=item fseek -+ -+Use method C instead, or see L. -+ -+=item fsetpos -+ -+Use method C instead, or seek L. -+ -+=item fstat -+ -+Get file status. This uses file descriptors such as those obtained by -+calling C. The data returned is identical to the data from -+Perl's builtin C function. -+ -+ $fd = POSIX::open( "foo", &POSIX::O_RDONLY ); -+ @stats = POSIX::fstat( $fd ); -+ -+=item fsync -+ -+Use method C instead. -+ -+=item ftell -+ -+Use method C instead, or see L. -+ -+=item fwrite -+ -+fwrite() is C-specific, see L instead. -+ -+=item getc -+ -+This is identical to Perl's builtin C function, -+see L. -+ -+=item getchar -+ -+Returns one character from STDIN. Identical to Perl's C, -+see L. -+ -+=item getcwd -+ -+Returns the name of the current working directory. -+See also L. -+ -+=item getegid -+ -+Returns the effective group identifier. Similar to Perl' s builtin -+variable C<$(>, see L. -+ -+=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> -+variable, see L. -+ -+=item getgid -+ -+Returns the user's real group identifier. Similar to Perl's builtin -+variable C<$)>, see L. -+ -+=item getgrgid -+ -+This is identical to Perl's builtin C function for -+returning group entries by group identifiers, see -+L. -+ -+=item getgrnam -+ -+This is identical to Perl's builtin C function for -+returning group entries by group names, see L. -+ -+=item getgroups -+ -+Returns the ids of the user's supplementary groups. Similar to Perl's -+builtin variable C<$)>, see L. -+ -+=item getlogin -+ -+This is identical to Perl's builtin C function for -+returning the user name associated with the current session, see -+L. -+ -+=item getpgrp -+ -+This is identical to Perl's builtin C function for -+returning the process group identifier of the current process, see -+L. -+ -+=item getpid -+ -+Returns the process identifier. Identical to Perl's builtin -+variable C<$$>, see L. -+ -+=item getppid -+ -+This is identical to Perl's builtin C function for -+returning the process identifier of the parent process of the current -+process , see L. -+ -+=item getpwnam -+ -+This is identical to Perl's builtin C function for -+returning user entries by user names, see L. -+ -+=item getpwuid -+ -+This is identical to Perl's builtin C function for -+returning user entries by user identifiers, see L. -+ -+=item gets -+ -+Returns one line from C, similar to EE, also known -+as the C function, see L. -+ -+B: if you have C programs that still use C, be very -+afraid. The C function is a source of endless grief because -+it has no buffer overrun checks. It should B be used. The -+C function should be preferred instead. -+ -+=item getuid -+ -+Returns the user's identifier. Identical to Perl's builtin C<$E> variable, -+see L. -+ -+=item gmtime -+ -+This is identical to Perl's builtin C function for -+converting seconds since the epoch to a date in Greenwich Mean Time, -+see L. -+ -+=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. Does not work on -+Unicode characters code point 256 or higher. Consider using regular -+expressions and the C construct instead, or possibly -+the C 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. Does not work -+on Unicode characters code point 256 or higher. Consider using regular -+expressions and the C 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. -+ -+=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. Does not work -+on Unicode characters code point 256 or higher. Consider using regular -+expressions and the C 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 (unlikely, but -+still possible). Does not work on Unicode characters code point 256 -+or higher. Consider using regular expressions and the C -+construct instead, or the C 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. Does not work -+on Unicode characters code point 256 or higher. Consider using regular -+expressions and the C 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. Does not work -+on Unicode characters code point 256 or higher. Consider using regular -+expressions and the C construct instead. Do B use -+C. -+ -+=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. Does not work -+on Unicode characters code point 256 or higher. Consider using regular -+expressions and the C 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. Does not work -+on Unicode characters code point 256 or higher. Consider using regular -+expressions and the C 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. Does not work -+on Unicode characters code point 256 or higher. Consider using regular -+expressions and the C construct instead, or the C -+construct. (Note that C and C are slightly -+different in that C can normally match a vertical tab, -+while C 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. Does not work -+on Unicode characters code point 256 or higher. Consider using regular -+expressions and the C construct instead. Do B use -+C. -+ -+=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 (unlikely, but still possible). -+Does not work on Unicode characters code point 256 or higher. -+Consider using regular expressions and the C -+construct instead, or simply C. -+ -+=item kill -+ -+This is identical to Perl's builtin C function for sending -+signals to processes (often to terminate them), see L. -+ -+=item labs -+ -+(For returning absolute values of long integers.) -+labs() is C-specific, see L instead. -+ -+=item lchown -+ -+This is identical to the C function, except the order of arguments is -+consistent with Perl's builtin C with the added restriction -+of only one path, not an list of paths. Does the same thing as the -+C 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 -+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 instead. -+ -+=item link -+ -+This is identical to Perl's builtin C function -+for creating hard links into files, see L. -+ -+=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 (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 function for -+converting seconds since the epoch to a date see L. -+ -+=item log -+ -+This is identical to Perl's builtin C function, -+returning the natural (I-based) logarithm of the numerical argument, -+see L. -+ -+=item log10 -+ -+This is identical to the C function C, -+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 instead. -+ -+=item lseek -+ -+Move the file's read/write position. This uses file descriptors such as -+those obtained by calling C. -+ -+ $fd = POSIX::open( "foo", &POSIX::O_RDONLY ); -+ $off_t = POSIX::lseek( $fd, 0, &POSIX::SEEK_SET ); -+ -+Returns C on failure. -+ -+=item malloc -+ -+malloc() is C-specific. Perl does memory management transparently. -+ -+=item mblen -+ -+This is identical to the C function C. -+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. -+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. -+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 instead. -+ -+=item memcmp -+ -+memcmp() is C-specific, use C instead, see L. -+ -+=item memcpy -+ -+memcpy() is C-specific, use C<=>, see L, or see L. -+ -+=item memmove -+ -+memmove() is C-specific, use C<=>, see L, or see L. -+ -+=item memset -+ -+memset() is C-specific, use C instead, see L. -+ -+=item mkdir -+ -+This is identical to Perl's builtin C function -+for creating directories, see L. -+ -+=item mkfifo -+ -+This is similar to the C function C for creating -+FIFO special files. -+ -+ if (mkfifo($path, $mode)) { .... -+ -+Returns C on failure. The C<$mode> is similar to the -+mode of C, see L, though for C -+you B 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), weekday (C), and yearday (C) begin at zero. -+I.e. January is 0, not 1; Sunday is 0, not 1; January 1st is 0, not 1. The -+year (C) is given in years since 1900. I.e. The year 1995 is 95; the -+year 2001 is 101. Consult your system's C 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 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, 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 on failure. -+ -+=item offsetof -+ -+offsetof() is C-specific, you probably want to see L instead. -+ -+=item open -+ -+Open a file for reading for writing. This returns file descriptors, not -+Perl filehandles. Use C 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 on failure. -+ -+See also L. -+ -+=item opendir -+ -+Open a directory for reading. -+ -+ $dir = POSIX::opendir( "/var" ); -+ @files = POSIX::readdir( $dir ); -+ POSIX::closedir( $dir ); -+ -+Returns C 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. -+ -+ $path_max = POSIX::pathconf( "/var", &POSIX::_PC_PATH_MAX ); -+ -+Returns C on failure. -+ -+=item pause -+ -+This is similar to the C function C, which suspends -+the execution of the current process until a signal is received. -+ -+Returns C on failure. -+ -+=item perror -+ -+This is identical to the C function C, which outputs to the -+standard error stream the specified message followed by ": " and the -+current error string. Use the C function and the C<$!> -+variable instead, see L and L. -+ -+=item pipe -+ -+Create an interprocess channel. This returns file descriptors like those -+returned by C. -+ -+ my ($read, $write) = POSIX::pipe(); -+ POSIX::write( $write, "hello", 5 ); -+ POSIX::read( $read, $buf, 5 ); -+ -+See also L. -+ -+=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. -+ -+=item printf -+ -+Formats and prints the specified arguments to STDOUT. -+See also L. -+ -+=item putc -+ -+putc() is C-specific, see L instead. -+ -+=item putchar -+ -+putchar() is C-specific, see L instead. -+ -+=item puts -+ -+puts() is C-specific, see L instead. -+ -+=item qsort -+ -+qsort() is C-specific, see L instead. -+ -+=item raise -+ -+Sends the specified signal to the current process. -+See also L and the C<$$> in L. -+ -+=item rand -+ -+C is non-portable, see L instead. -+ -+=item read -+ -+Read from a file. This uses file descriptors such as those obtained by -+calling C. 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 on failure. -+ -+See also L. -+ -+=item readdir -+ -+This is identical to Perl's builtin C function -+for reading directory entries, see L. -+ -+=item realloc -+ -+realloc() is C-specific. Perl does memory management transparently. -+ -+=item remove -+ -+This is identical to Perl's builtin C function -+for removing files, see L. -+ -+=item rename -+ -+This is identical to Perl's builtin C function -+for renaming files, see L. -+ -+=item rewind -+ -+Seeks to the beginning of the file. -+ -+=item rewinddir -+ -+This is identical to Perl's builtin C function for -+rewinding directory entry streams, see L. -+ -+=item rmdir -+ -+This is identical to Perl's builtin C function -+for removing (empty) directories, see L. -+ -+=item scanf -+ -+scanf() is C-specific, use EE and regular expressions instead, -+see L. -+ -+=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, 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 is C-specific: use C instead, -+see L. -+ -+=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 documentation for the locale -+environment variables' meaning or consult L. -+ -+ $loc = setlocale( LC_CTYPE, "" ); -+ -+The following will set the LC_COLLATE behaviour to Argentinian -+Spanish. B: The naming and availability of locales depends on -+your operating system. Please consult L 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 for -+setting the process group identifier of the current process. -+ -+Returns C on failure. -+ -+=item setsid -+ -+This is identical to the C function C 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> variable, see L, except that the latter -+will change only the real user identifier. -+ -+=item sigaction -+ -+Detailed signal management. This uses C objects for -+the C and C arguments (the oldaction can also be -+just a hash reference). Consult your system's C manpage -+for details, see also C. -+ -+Synopsis: -+ -+ sigaction(signal, action, oldaction = 0) -+ -+Returns C on failure. The C 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 and possibly also C documentation. -+ -+=item siglongjmp -+ -+siglongjmp() is C-specific: use L instead. -+ -+=item sigpending -+ -+Examine signals that are blocked and pending. This uses C -+objects for the C argument. Consult your system's C -+manpage for details. -+ -+Synopsis: -+ -+ sigpending(sigset) -+ -+Returns C on failure. -+ -+=item sigprocmask -+ -+Change and/or examine calling process's signal mask. This uses -+C objects for the C and C arguments. -+Consult your system's C manpage for details. -+ -+Synopsis: -+ -+ sigprocmask(how, sigset, oldsigset = 0) -+ -+Returns C on failure. -+ -+=item sigsetjmp -+ -+C is C-specific: use C instead, -+see L. -+ -+=item sigsuspend -+ -+Install a signal mask and suspend process until signal arrives. This uses -+C objects for the C argument. Consult your -+system's C manpage for details. -+ -+Synopsis: -+ -+ sigsuspend(signal_mask) -+ -+Returns C on failure. -+ -+=item sin -+ -+This is identical to Perl's builtin C function -+for returning the sine of the numerical argument, -+see L. See also L. -+ -+=item sinh -+ -+This is identical to the C function C -+for returning the hyperbolic sine of the numerical argument. -+See also L. -+ -+=item sleep -+ -+This is functionally identical to Perl's builtin C function -+for suspending the execution of the current for process for certain -+number of seconds, see L. There is one significant -+difference, however: C returns the number of -+B seconds, while the C returns the -+number of slept seconds. -+ -+=item sprintf -+ -+This is similar to Perl's builtin C function -+for returning a string that has the arguments formatted as requested, -+see L. -+ -+=item sqrt -+ -+This is identical to Perl's builtin C function. -+for returning the square root of the numerical argument, -+see L. -+ -+=item srand -+ -+Give a seed the pseudorandom number generator, see L. -+ -+=item sscanf -+ -+sscanf() is C-specific, use regular expressions instead, -+see L. -+ -+=item stat -+ -+This is identical to Perl's builtin C function -+for returning information about files and directories. -+ -+=item strcat -+ -+strcat() is C-specific, use C<.=> instead, see L. -+ -+=item strchr -+ -+strchr() is C-specific, see L instead. -+ -+=item strcmp -+ -+strcmp() is C-specific, use C or C instead, see L. -+ -+=item strcoll -+ -+This is identical to the C function C -+for collating (comparing) strings transformed using -+the C function. Not really needed since -+Perl can do this transparently, see L. -+ -+=item strcpy -+ -+strcpy() is C-specific, use C<=> instead, see L. -+ -+=item strcspn -+ -+strcspn() is C-specific, use regular expressions instead, -+see L. -+ -+=item strerror -+ -+Returns the error string for the specified errno. -+Identical to the string form of the C<$!>, see L. -+ -+=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), weekday (C), and yearday (C) begin at zero. -+I.e. January is 0, not 1; Sunday is 0, not 1; January 1st is 0, not 1. The -+year (C) is given in years since 1900. I.e., the year 1995 is 95; the -+year 2001 is 101. Consult your system's C manpage for details -+about these and the other arguments. -+ -+If you want your code to be portable, your format (C) argument -+should use only the conversion specifiers defined by the ANSI C -+standard (C89, to play safe). These are C. -+But even then, the B of some of the conversion specifiers are -+non-portable. For example, the specifiers C 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 changes according to the timezone settings of the -+user and the timezone computation rules of the operating system. -+The C 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 before calling your system's C function, -+except that the C 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 instead, see L. -+ -+=item strncat -+ -+strncat() is C-specific, use C<.=> instead, see L. -+ -+=item strncmp -+ -+strncmp() is C-specific, use C instead, see L. -+ -+=item strncpy -+ -+strncpy() is C-specific, use C<=> instead, see L. -+ -+=item strpbrk -+ -+strpbrk() is C-specific, use regular expressions instead, -+see L. -+ -+=item strrchr -+ -+strrchr() is C-specific, see L instead. -+ -+=item strspn -+ -+strspn() is C-specific, use regular expressions instead, -+see L. -+ -+=item strstr -+ -+This is identical to Perl's builtin C function, -+see L. -+ -+=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 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, or L. -+ -+=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 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 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 function, see L. -+ -+Not really needed since Perl can do this transparently, see -+L. -+ -+=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 on failure. -+ -+=item system -+ -+This is identical to Perl's builtin C function, see -+L. -+ -+=item tan -+ -+This is identical to the C function C, returning the -+tangent of the numerical argument. See also L. -+ -+=item tanh -+ -+This is identical to the C function C, returning the -+hyperbolic tangent of the numerical argument. See also L. -+ -+=item tcdrain -+ -+This is similar to the C function C for draining -+the output queue of its argument stream. -+ -+Returns C on failure. -+ -+=item tcflow -+ -+This is similar to the C function C for controlling -+the flow of its argument stream. -+ -+Returns C on failure. -+ -+=item tcflush -+ -+This is similar to the C function C for flushing -+the I/O buffers of its argument stream. -+ -+Returns C on failure. -+ -+=item tcgetpgrp -+ -+This is identical to the C function C 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 for sending -+a break on its argument stream. -+ -+Returns C on failure. -+ -+=item tcsetpgrp -+ -+This is similar to the C function C for setting the -+process group identifier of the foreground process group of the controlling -+terminal. -+ -+Returns C on failure. -+ -+=item time -+ -+This is identical to Perl's builtin C function -+for returning the number of seconds since the epoch -+(whatever it is for the system), see L. -+ -+=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 function returns four values, measured in -+seconds. -+ -+=item tmpfile -+ -+Use method C instead, or see L. -+ -+=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. -+ -+=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 function, -+see L, 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 function, -+see L, or the equivalent C<\U> operator inside doublequotish -+strings. -+ -+=item ttyname -+ -+This is identical to the C function C for returning the -+name of the current terminal. -+ -+=item tzname -+ -+Retrieves the time conversion information from the C variable. -+ -+ POSIX::tzset(); -+ ($std, $dst) = POSIX::tzname(); -+ -+=item tzset -+ -+This is identical to the C function C for setting -+the current timezone based on the environment variable C, -+to be used by C, C, C, and C -+functions. -+ -+=item umask -+ -+This is identical to Perl's builtin C function -+for setting (and querying) the file creation permission mask, -+see L. -+ -+=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 instead. -+ -+=item unlink -+ -+This is identical to Perl's builtin C function -+for removing files, see L. -+ -+=item utime -+ -+This is identical to Perl's builtin C function -+for changing the time stamps of files and directories, -+see L. -+ -+=item vfprintf -+ -+vfprintf() is C-specific, see L instead. -+ -+=item vprintf -+ -+vprintf() is C-specific, see L instead. -+ -+=item vsprintf -+ -+vsprintf() is C-specific, see L instead. -+ -+=item wait -+ -+This is identical to Perl's builtin C function, -+see L. -+ -+=item waitpid -+ -+Wait for a child process to change state. This is identical to Perl's -+builtin C function, see L. -+ -+ $pid = POSIX::waitpid( -1, POSIX::WNOHANG ); -+ print "status = ", ($? / 256), "\n"; -+ -+=item wcstombs -+ -+This is identical to the C function C. -+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. -+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. -+ -+ $fd = POSIX::open( "foo", &POSIX::O_WRONLY ); -+ $buf = "hello"; -+ $bytes = POSIX::write( $fd, $buf, 5 ); -+ -+Returns C on failure. -+ -+See also L. -+ -+=back -+ -+=head1 CLASSES -+ -+=head2 POSIX::SigAction -+ -+=over 8 -+ -+=item new -+ -+Creates a new C object which corresponds to the C -+C. 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 object, it -+defaults to the empty set. The third parameter contains the -+C, it defaults to 0. -+ -+ $sigset = POSIX::SigSet->new(SIGINT, SIGQUIT); -+ $sigaction = POSIX::SigAction->new( \&handler, $sigset, &POSIX::SA_NOCLDSTOP ); -+ -+This C object is intended for use with the C -+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 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 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: -+ -+ 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 and C on the elements, and use -+C 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 on $POSIX::SigRt::SIGACTION_FLAGS, or you can -+derive from POSIX::SigRt and define your own C (the tied hash -+STORE method of the %SIGRT calls C, -+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 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 -+if no POSIX realtime signals are available. -+ -+=item SIGRTMAX -+ -+Return the maximum POSIX realtime signal number available, or C -+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 on failure. -+ -+=item delset -+ -+Remove a signal from the SigSet object. -+ -+ $sigset->delset( &POSIX::SIGUSR2 ); -+ -+Returns C on failure. -+ -+=item emptyset -+ -+Initialize the SigSet object to be empty. -+ -+ $sigset->emptyset(); -+ -+Returns C on failure. -+ -+=item fillset -+ -+Initialize the SigSet object to include all signals. -+ -+ $sigset->fillset(); -+ -+Returns C 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 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 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 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 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 or by falling off the end of C) -+ -+=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.2/parallel_build_fix_4.patch b/meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_4.patch deleted file mode 100644 index 98bf0743f..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_4.patch +++ /dev/null @@ -1,57 +0,0 @@ -Upstream-Status:Inappropriate [Backport] - -commit 43c0c913165d6abe1bc0cb45a784eb1c32c3700b -Author: Nicholas Clark -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.2/parallel_build_fix_5.patch b/meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_5.patch deleted file mode 100644 index 70f710478..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_5.patch +++ /dev/null @@ -1,430 +0,0 @@ -Upstream-Status:Inappropriate [Backport] - -Rebased by Nitin A Kamble on 3/11/2011 - -commit 5e4c4c91bd52a48de59520d5e9b4e3478e49c613 -Author: Nicholas Clark -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.2/Cross/Makefile-cross-SH -=================================================================== ---- perl-5.12.2.orig/Cross/Makefile-cross-SH -+++ perl-5.12.2/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.2/MANIFEST -=================================================================== ---- perl-5.12.2.orig/MANIFEST -+++ perl-5.12.2/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.2/Makefile.SH -=================================================================== ---- perl-5.12.2.orig/Makefile.SH -+++ perl-5.12.2/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.2/installperl -=================================================================== ---- perl-5.12.2.orig/installperl -+++ perl-5.12.2/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.2/make_ext.pl -=================================================================== ---- perl-5.12.2.orig/make_ext.pl -+++ perl-5.12.2/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.2/vms/descrip_mms.template -=================================================================== ---- perl-5.12.2.orig/vms/descrip_mms.template -+++ perl-5.12.2/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.2/win32/Makefile -=================================================================== ---- perl-5.12.2.orig/win32/Makefile -+++ perl-5.12.2/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.2/win32/makefile.mk -=================================================================== ---- perl-5.12.2.orig/win32/makefile.mk -+++ perl-5.12.2/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.2/write_buildcustomize.pl -=================================================================== ---- /dev/null -+++ perl-5.12.2/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.2/parallel_build_fix_6.patch b/meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_6.patch deleted file mode 100644 index cacf9fac2..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/parallel_build_fix_6.patch +++ /dev/null @@ -1,158 +0,0 @@ -Upstream-Status:Inappropriate [Backport] - -Rebased by Nitin A Kamble on 3/11/2011 - -commit 7353f64c5bca6e7102582a1e0017c850930249c3 -Author: Nicholas Clark -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.2/Cross/Makefile-cross-SH -=================================================================== ---- perl-5.12.2.orig/Cross/Makefile-cross-SH -+++ perl-5.12.2/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 >$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 [.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.2/win32/Makefile -=================================================================== ---- perl-5.12.2.orig/win32/Makefile -+++ perl-5.12.2/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.2/win32/makefile.mk -=================================================================== ---- perl-5.12.2.orig/win32/makefile.mk -+++ perl-5.12.2/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.2/write_buildcustomize.pl -=================================================================== ---- perl-5.12.2.orig/write_buildcustomize.pl -+++ perl-5.12.2/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.2/perl-configpm-switch.patch b/meta/recipes-devtools/perl/perl-5.12.2/perl-configpm-switch.patch deleted file mode 100644 index 9e9f34286..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/perl-configpm-switch.patch +++ /dev/null @@ -1,45 +0,0 @@ -Upstream-Status:Inappropriate [native] - -This patch is used for perl-native only. It enables the switching of -configuration files between Config_heavy.pl and -Config_heavy-target.pl by setting the environment variables -PERLCONFIGTARGET - the later containing settings for the target while -the former contains those for the host. This will allow cpan.bbclass -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 @@ - 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); - } -@@ -530,7 +530,21 @@ - sub DESTROY { } - - sub AUTOLOAD { -- require 'Config_heavy.pl'; -+ my $cfgfile = 'Config_heavy.pl'; -+ if (defined $ENV{PERLCONFIGTARGET} and $ENV{PERLCONFIGTARGET} eq "yes") -+ { -+ $cfgfile = 'Config_heavy-target.pl'; -+ } -+ if (defined $ENV{PERL_ARCHLIB}) -+ { -+ push @INC, $ENV{PERL_ARCHLIB}; -+ require $cfgfile; -+ pop @INC; -+ } -+ else -+ { -+ require $cfgfile; -+ } - goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/; - die "&Config::AUTOLOAD failed on $Config::AUTOLOAD"; - } diff --git a/meta/recipes-devtools/perl/perl-5.12.2/perl-configure.sh b/meta/recipes-devtools/perl/perl-5.12.2/perl-configure.sh deleted file mode 100755 index c29e966c0..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/perl-configure.sh +++ /dev/null @@ -1,43 +0,0 @@ -#! /bin/sh - -# -# Generate the common perl configuration -# Needs to be run on a host that matches the bitsize of the target platform -# - -echo sh Configure -des \ - -Doptimize=-O2 \ - -Dmyhostname=localhost \ - -Dperladmin=root@localhost \ - -Dcc=gcc \ - -Dcf_by='Open Embedded' \ - -Dinstallprefix=@DESTDIR@ \ - -Dprefix=/usr \ - -Dvendorprefix=/usr \ - -Dsiteprefix=/usr \ - -Dotherlibdirs=/usr/lib/perl5/5.12.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' - -cp -f config.sh config.sh.COMMON - -TARGETOS=$(grep myarchname config.sh.COMMON | sed "s#.*'\(.*\)'.*#\1#") - -sed -r -i config.sh.COMMON \ - -e "s#(install.*=')(/usr)/local(.*')#\1@DESTDIR@\2\3#g" \ - -e 's#'$TARGETOS'#@ARCH@#g' diff --git a/meta/recipes-devtools/perl/perl-5.12.2/perl-dynloader.patch b/meta/recipes-devtools/perl/perl-5.12.2/perl-dynloader.patch deleted file mode 100644 index 21d8bb96e..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/perl-dynloader.patch +++ /dev/null @@ -1,31 +0,0 @@ -Upstream-Status:Inappropriate [embedded specific] - -Allow the location that .so files are searched for for dynamic -loading to be changed via an environment variable. This is to allow -us to load .so's from the host system while building for the target -system. - -Update by Nitin A Kamble 2011/04/21 - ---- perl-5.12.2/dist/XSLoader/XSLoader_pm.PL 2007/04/20 09:03:08 1.1 -+++ perl-5.12.2/dist/XSLoader/XSLoader_pm.PL 2007/04/20 09:03:08 -@@ -65,6 +65,19 @@ - print OUT <<'EOT'; - my $modpname = join('/',@modparts); - my $modlibname = (caller())[1]; -+ # 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}) -+ { -+ my $hostlib = $ENV{PERLHOSTLIB}; -+ print STDERR "*** Module name IN: $modlibname\n"; -+ ($p1, $p2, $p3, $p4, $p5) = $modlibname =~ m/(^(.*lib\/)?)((perl\/[0-9\.]*\/)?)(.*)$/; -+ print STDERR "*** p1: $p1 p3: $p3 p5: $p5\n"; -+ if ( $p1 ne "" ) { -+ $modlibname = $hostlib.$p5; -+ } -+ 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"; diff --git a/meta/recipes-devtools/perl/perl-5.12.2/perl-enable-gdbm.patch b/meta/recipes-devtools/perl/perl-5.12.2/perl-enable-gdbm.patch deleted file mode 100644 index aa83fca5a..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/perl-enable-gdbm.patch +++ /dev/null @@ -1,19 +0,0 @@ -Upstream-Status:Inappropriate [embedded specific] - -Index: perl-5.8.8/config_h.SH -=================================================================== ---- perl-5.8.8.orig/config_h.SH 2005-11-01 02:13:05.000000000 +0800 -+++ perl-5.8.8/config_h.SH 2010-11-01 17:06:07.215219738 +0800 -@@ -709,6 +709,12 @@ - */ - #$i_float I_FLOAT /**/ - -+/* I_GDBM: -+ * This symbol, if defined, indicates that exists and should -+ * be included. -+ */ -+#$i_gdbm I_GDBM /**/ -+ - /* I_LIMITS: - * This symbol, if defined, indicates to the C program that it should - * include to get definition of symbols like WORD_BIT or diff --git a/meta/recipes-devtools/perl/perl-5.12.2/perl-moreconfig.patch b/meta/recipes-devtools/perl/perl-5.12.2/perl-moreconfig.patch deleted file mode 100644 index 59ce85a7a..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/perl-moreconfig.patch +++ /dev/null @@ -1,18 +0,0 @@ -Upstream-Status:Inappropriate [embedded specific] - -We need ld in the fake config library, but it's not included by default. So -expand the number of items included. While this works it indicates that the -rest of the config items are not being picked up and/or are being picked up -from the host. More investigation needed. - ---- perl-5.8.8/configpm 2007/04/20 09:48:05 1.1 -+++ perl-5.8.8/configpm 2007/04/20 09:57:12 -@@ -2,7 +2,7 @@ - use strict; - use vars qw(%Config $Config_SH_expanded); - --my $how_many_common = 22; -+my $how_many_common = 50; - - # commonly used names to precache (and hence lookup fastest) - my %Common; diff --git a/meta/recipes-devtools/perl/perl-5.12.3/09_fix_installperl.patch b/meta/recipes-devtools/perl/perl-5.12.3/09_fix_installperl.patch new file mode 100644 index 000000000..a80d17c8b --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/09_fix_installperl.patch @@ -0,0 +1,21 @@ +Upstream-Status:Inappropriate [embedded specific] + +Correctly identify arch-specific modules in ext/ where the .pm files +are under lib. + +Ensure that POSIX/SigAction is kept with the rest of the POSIX module +under archlib. + +Index: perl-5.12.3/installperl +=================================================================== +--- perl-5.12.3.orig/installperl ++++ perl-5.12.3/installperl +@@ -750,7 +750,7 @@ sub installlib { + } + + if (-f $_) { +- if (/\.(?:al|ix)$/ && !($dir =~ m[^auto/(.*)$])) { ++ if (/\.(?:al|ix)$/ && !($dir =~ m[^auto/(.*)$] && $archpms{$1})) { + $installlib = $installprivlib; + #We're installing *.al and *.ix files into $installprivlib, + #but we have to delete old *.al and *.ix files from the 5.000 diff --git a/meta/recipes-devtools/perl/perl-5.12.3/Configure-multilib.patch b/meta/recipes-devtools/perl/perl-5.12.3/Configure-multilib.patch new file mode 100644 index 000000000..ef2be3d22 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/Configure-multilib.patch @@ -0,0 +1,17 @@ +Upstream-Status:Pending + +Index: perl-5.12.3/Configure +=================================================================== +--- perl-5.12.3.orig/Configure ++++ perl-5.12.3/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/`uname -m`-linux-gnu/libc.so && glibpth="/usr/lib/`uname -m`-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/Makefile.SH.patch b/meta/recipes-devtools/perl/perl-5.12.3/Makefile.SH.patch new file mode 100644 index 000000000..6371a3d5a --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/Makefile.SH.patch @@ -0,0 +1,290 @@ +Upstream-Status:Inappropriate [embedded specific] + +Index: perl-5.12.3/Makefile.SH +=================================================================== +--- perl-5.12.3.orig/Makefile.SH ++++ perl-5.12.3/Makefile.SH +@@ -50,12 +50,12 @@ 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 + + pldlflags="$cccdlflags" + static_ldflags='' +@@ -133,7 +133,8 @@ true) + ldlibpth='' + ;; + *) +- eval "ldlibpth=\"$ldlibpthname=`pwd`:\$$ldlibpthname\"" ++# We compile in the library path in OE from cross-compile, so lets not do this ++# eval "ldlibpth=\"$ldlibpthname=`pwd`:\$$ldlibpthname\"" + ;; + esac + # Strip off any trailing :'s +@@ -154,18 +155,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. +- if test -f $archlib/CORE/$libperl; then +- rm -f preload +- cat <<'EOT' > preload +-#! /bin/sh +-lib=$1 +-shift +-test -r $lib && export LD_PRELOAD="$lib $LD_PRELOAD" +-exec "$@" +-EOT +- chmod 755 preload +- ldlibpth="$ldlibpth `pwd`/preload `pwd`/$libperl" +- fi ++ echo linux libraries overwritten by cross-compile patches + ;; + os390) test -f /bin/env && ldlibpth="/bin/env $ldlibpth" + ;; +@@ -557,9 +547,19 @@ splintfiles = $(c1) + .c.s: + $(CCCMDSRC) -S $*.c + +-all: $(FIRSTMAKEFILE) $(MINIPERL_EXE) $(generated_pods) $(private) $(unidatafiles) $(public) $(dynamic_ext) $(nonxs_ext) extras.make +- @echo " "; +- @echo " Everything is up to date. Type '$(MAKE) test' to run test suite." ++#all: $(FIRSTMAKEFILE) $(MINIPERL_EXE) $(generated_pods) $(private) $(unidatafiles) $(public) $(dynamic_ext) $(nonxs_ext) extras.make ++# @echo " "; ++# @echo " Everything is up to date. Type '$(MAKE) test' to run test suite." ++ ++all: $(FIRSTMAKEFILE) $(MINIPERL_EXE) miniperl $(unidatafiles) ++ ++more: $(generated_pods) $(private) $(public) ++ ++more2: $(dynamic_ext) ++ ++more3: $(nonxs_ext) ++ ++more4: extras.make + + .PHONY: all translators utilities + +@@ -567,16 +567,16 @@ all: $(FIRSTMAKEFILE) $(MINIPERL_EXE) $( + # by make_patchnum.pl. + git_version.h: lib/Config_git.pl + +-lib/Config_git.pl: $(MINIPERL_EXE) make_patchnum.pl ++lib/Config_git.pl: make_patchnum.pl + $(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 + +-utilities: $(MINIPERL_EXE) $(CONFIGPM) $(plextract) FORCE ++utilities: $(CONFIGPM) $(plextract) FORCE + @echo " "; echo " Making utilities"; cd utils; $(LDLIBPTH) $(MAKE) all + + +@@ -754,7 +754,7 @@ $(LIBPERL): $& $(obj) $(DYNALOADER) $(LI + true) + $spitshell >>$Makefile <<'!NO!SUBS!' + rm -f $@ +- $(LD) -o $@ $(SHRPLDFLAGS) $(obj) $(DYNALOADER) $(libs) ++ $(LD) -o $@ $(SHRPLDFLAGS) $(obj) $(DYNALOADER) $(libs) -Wl,-soname,libperl.so.5 + !NO!SUBS! + case "$osname" in + aix) +@@ -795,7 +795,9 @@ $(MINIPERL_EXE): $& miniperlmain$(OBJ_EX + $(CC) -o $(MINIPERL_EXE) $(CLDFLAGS) \ + $(mini_obj) \ + miniperlmain$(OBJ_EXT) opmini$(OBJ_EXT) perlmini$(OBJ_EXT) $(libs) +- $(LDLIBPTH) $(RUN) ./miniperl$(HOST_EXE_EXT) -w -Ilib -MExporter -e '' || $(MAKE) minitest ++ mv -f miniperl miniperl-target ++ ln -s hostperl miniperl ++# $(LDLIBPTH) $(RUN) ./miniperl$(HOST_EXE_EXT) -w -Ilib -MExporter -e '' || $(MAKE) minitest + !NO!SUBS! + ;; + next4*) +@@ -803,7 +805,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) +- $(LDLIBPTH) $(RUN) ./miniperl$(HOST_EXE_EXT) -w -Ilib -MExporter -e '' || $(MAKE) minitest ++ mv -f miniperl miniperl-target ++ ln -s hostperl miniperl ++# $(LDLIBPTH) $(RUN) ./miniperl$(HOST_EXE_EXT) -w -Ilib -MExporter -e '' || $(MAKE) minitest + !NO!SUBS! + ;; + darwin*) +@@ -825,7 +829,9 @@ $(MINIPERL_EXE): $& miniperlmain$(OBJ_EX + $(CC) $(CLDFLAGS) $(NAMESPACEFLAGS) -o $(MINIPERL_EXE) \ + $(mini_obj) \ + miniperlmain$(OBJ_EXT) opmini$(OBJ_EXT) perlmini$(OBJ_EXT) $(libs) +- $(LDLIBPTH) $(RUN) ./miniperl$(HOST_EXE_EXT) -w -Ilib -MExporter -e '' || $(MAKE) minitest ++ mv -f miniperl miniperl-target ++ ln -s hostperl miniperl ++# $(LDLIBPTH) $(RUN) ./miniperl$(HOST_EXE_EXT) -w -Ilib -MExporter -e '' || $(MAKE) minitest + !NO!SUBS! + ;; + *) +@@ -835,7 +841,10 @@ $(MINIPERL_EXE): $& miniperlmain$(OBJ_EX + $(LDLIBPTH) $(CC) $(CLDFLAGS) -o $(MINIPERL_EXE) \ + $(mini_obj) \ + miniperlmain$(OBJ_EXT) opmini$(OBJ_EXT) perlmini$(OBJ_EXT) $(libs) +- $(LDLIBPTH) $(RUN) ./miniperl$(HOST_EXE_EXT) -w -Ilib -MExporter -e '' || $(MAKE) minitest ++ ++ mv -f miniperl miniperl-target ++ ln -s hostperl miniperl ++# $(LDLIBPTH) $(RUN) ./miniperl$(HOST_EXE_EXT) -w -Ilib -MExporter -e '' || $(MAKE) minitest + !NO!SUBS! + ;; + esac +@@ -957,7 +966,7 @@ case "${osname}" in + catamount) + $spitshell >>$Makefile <>$Makefile <<'!NO!SUBS!' + .PHONY: makeppport +-makeppport: $(MINIPERL_EXE) $(CONFIGPM) $(nonxs_ext) ++makeppport: $(CONFIGPM) $(nonxs_ext) + $(MINIPERL) $(Icwd) mkppport + + !NO!SUBS! +@@ -977,29 +986,29 @@ esac + $spitshell >>$Makefile <<'!NO!SUBS!' + + .PHONY: preplibrary +-preplibrary: $(MINIPERL_EXE) $(CONFIGPM) $(PREPLIBRARY_LIBPERL) ++preplibrary: $(CONFIGPM) $(PREPLIBRARY_LIBPERL) + + $(CONFIGPM_FROM_CONFIG_SH): $(CONFIGPOD) + +-$(CONFIGPOD): config.sh $(MINIPERL_EXE) configpm Porting/Glossary lib/Config_git.pl ++$(CONFIGPOD): config.sh configpm Porting/Glossary lib/Config_git.pl + $(MINIPERL) configpm + +-lib/ExtUtils/Miniperl.pm: miniperlmain.c $(MINIPERL_EXE) minimod.pl $(CONFIGPM) ++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 + + unidatafiles $(unidatafiles) pod/perluniprops.pod: uni.data + +-uni.data: $(MINIPERL_EXE) $(CONFIGPM) lib/unicore/mktables $(nonxs_ext) ++uni.data: $(CONFIGPM) lib/unicore/mktables $(nonxs_ext) + $(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 + # $(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 ++ $(MINIPERL) -f -Ilib pod/buildtoc --build-toc -q + + pod/perlapi.pod: pod/perlintern.pod + +-pod/perlintern.pod: $(MINIPERL_EXE) autodoc.pl embed.fnc ++pod/perlintern.pod: autodoc.pl embed.fnc + $(MINIPERL) autodoc.pl + +-pod/perlmodlib.pod: $(MINIPERL_EXE) pod/perlmodlib.PL MANIFEST ++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 + +-extra.pods: $(MINIPERL_EXE) ++extra.pods: + -@test ! -f extra.pods || rm -f `cat extra.pods` + -@rm -f extra.pods + -@for x in `grep -l '^=[a-z]' README.* | grep -v README.vms` ; do \ +@@ -1065,11 +1074,7 @@ no-install: + INSTALL_DEPENDENCE = all + + install.perl: $(INSTALL_DEPENDENCE) installperl +- $(RUN_PERL) installperl --destdir=$(DESTDIR) $(INSTALLFLAGS) $(STRIPFLAGS) +- -@test ! -s extras.lst || $(MAKE) extras.install +- +-install.man: all installman +- $(RUN_PERL) installman --destdir=$(DESTDIR) $(INSTALLFLAGS) ++ ./hostperl -Ifake_config_library -Ilib -MConfig installperl --destdir=$(DESTDIR) $(INSTALLFLAGS) $(STRIPFLAGS) + + # XXX Experimental. Hardwired values, but useful for testing. + # Eventually Configure could ask for some of these values. +@@ -1166,16 +1171,16 @@ manicheck: FORCE + # + # DynaLoader may be needed for extensions that use Makefile.PL. + +-$(DYNALOADER): $(MINIPERL_EXE) lib/buildcustomize.pl preplibrary FORCE $(nonxs_ext) ++$(DYNALOADER): 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) lib/buildcustomize.pl preplibrary makeppport $(DYNALOADER) FORCE $(PERLEXPORT) ++d_dummy $(dynamic_ext): 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) lib/buildcustomize.pl preplibrary makeppport $(DYNALOADER) FORCE ++s_dummy $(static_ext): 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) lib/buildcustomize.pl preplibrary FORCE ++n_dummy $(nonxs_ext): lib/buildcustomize.pl preplibrary FORCE + $(MINIPERL) make_ext.pl $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL) + !NO!SUBS! + +@@ -1373,10 +1378,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 + cd t && (rm -f $(PERL_EXE); $(LNS) ../$(PERL_EXE) $(PERL_EXE)) + +-test_prep_reonly: $(MINIPERL_EXE) $(PERL_EXE) $(dynamic_ext_re) $(TEST_PERL_DLL) ++test_prep_reonly: $(PERL_EXE) $(dynamic_ext_re) $(TEST_PERL_DLL) + $(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: + + # 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 Makefile.SH.patch +- diff -Bbur ../installperl installperl > installperl.patch +- +-patch: +- cd .. ; if [ ! -e ./CROSS_PATCHED ] ; then \ +- patch -p1 < Cross/Makefile.SH.patch; \ +- patch -p1 < Cross/installperl.patch ; mv installperl installperl-patched; \ +- sed -e 's/XXSTRIPXX/$(SYS)/' installperl-patched > installperl; \ +- touch CROSS_PATCHED ; fi +- + perl: + @echo Perl cross-build directory is $(TOPDIR) + @echo Target arch is $(SYS) +@@ -54,11 +44,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 +- cd $(TOPDIR)/.. ; $(MAKE) more2 "PERLRUN=/usr/bin/perl -I$(TOPDIR)/../fake_config_library -MConfig" +- cd $(TOPDIR)/.. ; $(MAKE) more3 "PERLRUN=/usr/bin/perl -I$(TOPDIR)/../fake_config_library -MConfig" +- cd $(TOPDIR)/.. ; $(MAKE) more4 "PERLRUN=/usr/bin/perl -I$(TOPDIR)/../fake_config_library -MConfig" ++ cd $(TOPDIR)/.. ; $(MAKE) more2 "PERLRUN=hostperl -I$(TOPDIR)/../fake_config_library -MConfig" ++ cd $(TOPDIR)/.. ; $(MAKE) more3 "PERLRUN=hostperl -I$(TOPDIR)/../fake_config_library -MConfig" ++ cd $(TOPDIR)/.. ; $(MAKE) more4 "PERLRUN=hostperl -I$(TOPDIR)/../fake_config_library -MConfig" + cd $(TOPDIR)/.. ; rm -rf install_me_here +- cd $(TOPDIR)/.. ; make install-strip ++# cd $(TOPDIR)/.. ; make install-strip + cd $(TOPDIR)/.. ; sh -x Cross/warp + + diff --git a/meta/recipes-devtools/perl/perl-5.12.3/asm-pageh-fix.patch b/meta/recipes-devtools/perl/perl-5.12.3/asm-pageh-fix.patch new file mode 100644 index 000000000..c65b1a1fe --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/asm-pageh-fix.patch @@ -0,0 +1,21 @@ +Upstream-Status:Pending + +Perl inclues asm/page.h in order to get the definition for getpagesize which +has been definied in unistd.h since glibc 2.1. Some recent version of linux +libc headers removed the asm/page.h resulting in failures here for some +people. + +Index: perl-5.12.3/cpan/IPC-SysV/SysV.xs +=================================================================== +--- perl-5.12.3.orig/cpan/IPC-SysV/SysV.xs 2001-07-01 04:46:07.000000000 +1000 ++++ perl-5.12.3/cpan/IPC-SysV/SysV.xs 2001-07-01 04:46:07.000000000 +1000 +@@ -3,9 +3,6 @@ + #include "XSUB.h" + + #include +-#ifdef __linux__ +-# include +-#endif + #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM) + #ifndef HAS_SEM + # include diff --git a/meta/recipes-devtools/perl/perl-5.12.3/config.sh b/meta/recipes-devtools/perl/perl-5.12.3/config.sh new file mode 100644 index 000000000..f1c5001bf --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/config.sh @@ -0,0 +1,1086 @@ +#!/bin/sh +# +# This file was produced by running the Configure script. It holds all the +# definitions figured out by Configure. Should you modify one of these values, +# do not forget to propagate your changes by running "Configure -der". You may +# instead choose to run each of the .SH files by yourself, or "Configure -S". +# + +# Package name : perl5 +# Source directory : . +# Configuration time: Thu Dec 23 03:57:51 UTC 2010 +# Configured by : Open Embedded +# Target system : linux qemux86 2.6.37-rc5-yocto-standard+ #1 preempt mon dec 20 14:21:27 pst 2010 i686 gnulinux + +: Configure command line arguments. +config_arg0='Configure' +config_args='-des -Doptimize=-O2 -Dmyhostname=localhost -Dperladmin=root@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_argc=28 +config_arg1='-des' +config_arg2='-Doptimize=-O2' +config_arg3='-Dmyhostname=localhost' +config_arg4='-Dperladmin=root@localhost' +config_arg5='-Dcc=gcc' +config_arg6='-Dcf_by=Open Embedded' +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_arg12='-Duseshrplib' +config_arg13='-Dusethreads' +config_arg14='-Duseithreads' +config_arg15='-Duselargefiles' +config_arg16='-Ud_dosuid' +config_arg17='-Dd_semctl_semun' +config_arg18='-Ui_db' +config_arg19='-Ui_ndbm' +config_arg20='-Ui_gdbm' +config_arg21='-Di_shadow' +config_arg22='-Di_syslog' +config_arg23='-Dman3ext=3pm' +config_arg24='-Duseperlio' +config_arg25='-Dinstallusrbinperl' +config_arg26='-Ubincompat5005' +config_arg27='-Uversiononly' +config_arg28='-Dpager=/usr/bin/less -isr' + +Author='' +Date='$Date' +Header='' +Id='$Id' +Locker='' +Log='$Log' +RCSfile='$RCSfile' +Revision='$Revision' +Source='' +State='' +_a='.a' +_exe='' +_o='.o' +afs='false' +afsroot='/afs' +ansi2knr='' +aphostname='' +api_revision='5' +api_subversion='0' +api_version='12' +api_versionstring='5.12.0' +ar='ar' +archlib='/usr/lib/perl5/5.12.3/@ARCH@-thread-multi' +archlibexp='/usr/lib/perl5/5.12.3/@ARCH@-thread-multi' +archname64='' +archname='@ARCH@-thread-multi' +archobjs='' +asctime_r_proto='REENTRANT_PROTO_B_SB' +awk='awk' +baserev='5.0' +bash='' +bin='/usr/bin' +bin_ELF='define' +binexp='/usr/bin' +bison='bison' +byacc='byacc' +c='' +castflags='0' +cat='cat' +cc='gcc' +cccdlflags='-fPIC' +ccdlflags='-Wl,-E -Wl,-rpath,/usr/lib/perl5/5.12.3/@ARCH@-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' +ccsymbols='' +ccversion='' +cf_by='Open Embedded' +cf_email='Open Embedded@localhost.localdomain' +charbits='8' +charsize='1' +chgrp='' +chmod='chmod' +chown='' +clocktype='clock_t' +comm='comm' +compress='' +contains='grep' +cp='cp' +cpio='' +cpp='cpp' +cpp_stuff='42' +cppccsymbols='' +cppflags='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe -fstack-protector' +cpplast='-' +cppminus='-' +cpprun='gcc -E' +cppstdin='gcc -E' +crypt_r_proto='REENTRANT_PROTO_B_CCS' +cryptlib='' +csh='csh' +ctermid_r_proto='0' +ctime_r_proto='REENTRANT_PROTO_B_SB' +d_Gconvert='gcvt((x),(n),(b))' +d_PRIEUldbl='define' +d_PRIFUldbl='define' +d_PRIGUldbl='define' +d_PRIXU64='define' +d_PRId64='define' +d_PRIeldbl='define' +d_PRIfldbl='define' +d_PRIgldbl='define' +d_PRIi64='define' +d_PRIo64='define' +d_PRIu64='define' +d_PRIx64='define' +d_SCNfldbl='define' +d__fwalk='undef' +d_access='define' +d_accessx='undef' +d_aintl='undef' +d_alarm='define' +d_archlib='define' +d_asctime64='undef' +d_asctime_r='define' +d_atolf='undef' +d_atoll='define' +d_attribute_deprecated='define' +d_attribute_format='define' +d_attribute_malloc='define' +d_attribute_nonnull='define' +d_attribute_noreturn='define' +d_attribute_pure='define' +d_attribute_unused='define' +d_attribute_warn_unused_result='define' +d_bcmp='define' +d_bcopy='define' +d_bsd='undef' +d_bsdgetpgrp='undef' +d_bsdsetpgrp='undef' +d_builtin_choose_expr='define' +d_builtin_expect='define' +d_bzero='define' +d_c99_variadic_macros='define' +d_casti32='undef' +d_castneg='define' +d_charvspr='undef' +d_chown='define' +d_chroot='define' +d_chsize='undef' +d_class='undef' +d_clearenv='define' +d_closedir='define' +d_cmsghdr_s='define' +d_const='define' +d_copysignl='define' +d_cplusplus='undef' +d_crypt='define' +d_crypt_r='define' +d_csh='undef' +d_ctermid='define' +d_ctermid_r='undef' +d_ctime64='undef' +d_ctime_r='define' +d_cuserid='define' +d_dbl_dig='define' +d_dbminitproto='undef' +d_difftime64='undef' +d_difftime='define' +d_dir_dd_fd='undef' +d_dirfd='define' +d_dirnamlen='undef' +d_dlerror='define' +d_dlopen='define' +d_dlsymun='undef' +d_dosuid='undef' +d_drand48_r='define' +d_drand48proto='define' +d_dup2='define' +d_eaccess='define' +d_endgrent='define' +d_endgrent_r='undef' +d_endhent='define' +d_endhostent_r='undef' +d_endnent='define' +d_endnetent_r='undef' +d_endpent='define' +d_endprotoent_r='undef' +d_endpwent='define' +d_endpwent_r='undef' +d_endsent='define' +d_endservent_r='undef' +d_eofnblk='define' +d_eunice='undef' +d_faststdio='define' +d_fchdir='define' +d_fchmod='define' +d_fchown='define' +d_fcntl='define' +d_fcntl_can_lock='define' +d_fd_macros='define' +d_fd_set='define' +d_fds_bits='define' +d_fgetpos='define' +d_finite='define' +d_finitel='define' +d_flexfnam='define' +d_flock='define' +d_flockproto='define' +d_fork='define' +d_fp_class='undef' +d_fpathconf='define' +d_fpclass='undef' +d_fpclassify='undef' +d_fpclassl='undef' +d_fpos64_t='undef' +d_frexpl='define' +d_fs_data_s='undef' +d_fseeko='define' +d_fsetpos='define' +d_fstatfs='define' +d_fstatvfs='define' +d_fsync='define' +d_ftello='define' +d_ftime='undef' +d_futimes='define' +d_gdbm_ndbm_h_uses_prototypes='undef' +d_gdbmndbm_h_uses_prototypes='undef' +d_getaddrinfo='define' +d_getcwd='define' +d_getespwnam='undef' +d_getfsstat='undef' +d_getgrent='define' +d_getgrent_r='define' +d_getgrgid_r='define' +d_getgrnam_r='define' +d_getgrps='define' +d_gethbyaddr='define' +d_gethbyname='define' +d_gethent='define' +d_gethname='define' +d_gethostbyaddr_r='define' +d_gethostbyname_r='define' +d_gethostent_r='define' +d_gethostprotos='define' +d_getitimer='define' +d_getlogin='define' +d_getlogin_r='define' +d_getmnt='undef' +d_getmntent='define' +d_getnameinfo='define' +d_getnbyaddr='define' +d_getnbyname='define' +d_getnent='define' +d_getnetbyaddr_r='define' +d_getnetbyname_r='define' +d_getnetent_r='define' +d_getnetprotos='define' +d_getpagsz='define' +d_getpbyname='define' +d_getpbynumber='define' +d_getpent='define' +d_getpgid='define' +d_getpgrp2='undef' +d_getpgrp='define' +d_getppid='define' +d_getprior='define' +d_getprotobyname_r='define' +d_getprotobynumber_r='define' +d_getprotoent_r='define' +d_getprotoprotos='define' +d_getprpwnam='undef' +d_getpwent='define' +d_getpwent_r='define' +d_getpwnam_r='define' +d_getpwuid_r='define' +d_getsbyname='define' +d_getsbyport='define' +d_getsent='define' +d_getservbyname_r='define' +d_getservbyport_r='define' +d_getservent_r='define' +d_getservprotos='define' +d_getspnam='define' +d_getspnam_r='define' +d_gettimeod='define' +d_gmtime64='undef' +d_gmtime_r='define' +d_gnulibc='define' +d_grpasswd='define' +d_hasmntopt='define' +d_htonl='define' +d_ilogbl='define' +d_inc_version_list='undef' +d_index='undef' +d_inetaton='define' +d_inetntop='define' +d_inetpton='define' +d_int64_t='define' +d_isascii='define' +d_isfinite='undef' +d_isinf='define' +d_isnan='define' +d_isnanl='define' +d_killpg='define' +d_lchown='define' +d_ldbl_dig='define' +d_libm_lib_version='define' +d_link='define' +d_localtime64='undef' +d_localtime_r='define' +d_localtime_r_needs_tzset='define' +d_locconv='define' +d_lockf='define' +d_longdbl='define' +d_longlong='define' +d_lseekproto='define' +d_lstat='define' +d_madvise='define' +d_malloc_good_size='undef' +d_malloc_size='undef' +d_mblen='define' +d_mbstowcs='define' +d_mbtowc='define' +d_memchr='define' +d_memcmp='define' +d_memcpy='define' +d_memmove='define' +d_memset='define' +d_mkdir='define' +d_mkdtemp='define' +d_mkfifo='define' +d_mkstemp='define' +d_mkstemps='define' +d_mktime64='undef' +d_mktime='define' +d_mmap='define' +d_modfl='define' +d_modfl_pow32_bug='undef' +d_modflproto='define' +d_mprotect='define' +d_msg='define' +d_msg_ctrunc='define' +d_msg_dontroute='define' +d_msg_oob='define' +d_msg_peek='define' +d_msg_proxy='define' +d_msgctl='define' +d_msgget='define' +d_msghdr_s='define' +d_msgrcv='define' +d_msgsnd='define' +d_msync='define' +d_munmap='define' +d_mymalloc='undef' +d_ndbm='undef' +d_ndbm_h_uses_prototypes='undef' +d_nice='define' +d_nl_langinfo='define' +d_nv_zero_is_allbits_zero='define' +d_off64_t='define' +d_old_pthread_create_joinable='undef' +d_oldpthreads='undef' +d_oldsock='undef' +d_open3='define' +d_pathconf='define' +d_pause='define' +d_perl_otherlibdirs='define' +d_phostname='undef' +d_pipe='define' +d_poll='define' +d_portable='define' +d_procselfexe='define' +d_pseudofork='undef' +d_pthread_atfork='define' +d_pthread_attr_setscope='define' +d_pthread_yield='define' +d_pwage='undef' +d_pwchange='undef' +d_pwclass='undef' +d_pwcomment='undef' +d_pwexpire='undef' +d_pwgecos='define' +d_pwpasswd='define' +d_pwquota='undef' +d_qgcvt='define' +d_quad='define' +d_random_r='define' +d_readdir64_r='define' +d_readdir='define' +d_readdir_r='define' +d_readlink='define' +d_readv='define' +d_recvmsg='define' +d_rename='define' +d_rewinddir='define' +d_rmdir='define' +d_safebcpy='undef' +d_safemcpy='undef' +d_sanemcmp='define' +d_sbrkproto='define' +d_scalbnl='define' +d_sched_yield='define' +d_scm_rights='define' +d_seekdir='define' +d_select='define' +d_sem='define' +d_semctl='define' +d_semctl_semid_ds='define' +d_semctl_semun='define' +d_semget='define' +d_semop='define' +d_sendmsg='define' +d_setegid='define' +d_seteuid='define' +d_setgrent='define' +d_setgrent_r='undef' +d_setgrps='define' +d_sethent='define' +d_sethostent_r='undef' +d_setitimer='define' +d_setlinebuf='define' +d_setlocale='define' +d_setlocale_r='undef' +d_setnent='define' +d_setnetent_r='undef' +d_setpent='define' +d_setpgid='define' +d_setpgrp2='undef' +d_setpgrp='define' +d_setprior='define' +d_setproctitle='undef' +d_setprotoent_r='undef' +d_setpwent='define' +d_setpwent_r='undef' +d_setregid='define' +d_setresgid='define' +d_setresuid='define' +d_setreuid='define' +d_setrgid='undef' +d_setruid='undef' +d_setsent='define' +d_setservent_r='undef' +d_setsid='define' +d_setvbuf='define' +d_sfio='undef' +d_shm='define' +d_shmat='define' +d_shmatprototype='define' +d_shmctl='define' +d_shmdt='define' +d_shmget='define' +d_sigaction='define' +d_signbit='define' +d_sigprocmask='define' +d_sigsetjmp='define' +d_sitearch='define' +d_snprintf='define' +d_sockatmark='define' +d_sockatmarkproto='define' +d_socket='define' +d_socklen_t='define' +d_sockpair='define' +d_socks5_init='undef' +d_sprintf_returns_strlen='define' +d_sqrtl='define' +d_srand48_r='define' +d_srandom_r='define' +d_sresgproto='define' +d_sresuproto='define' +d_statblks='define' +d_statfs_f_flags='undef' +d_statfs_s='define' +d_statvfs='define' +d_stdio_cnt_lval='undef' +d_stdio_ptr_lval='define' +d_stdio_ptr_lval_nochange_cnt='undef' +d_stdio_ptr_lval_sets_cnt='define' +d_stdio_stream_array='undef' +d_stdiobase='define' +d_stdstdio='define' +d_strchr='define' +d_strcoll='define' +d_strctcpy='define' +d_strerrm='strerror(e)' +d_strerror='define' +d_strerror_r='define' +d_strftime='define' +d_strlcat='undef' +d_strlcpy='undef' +d_strtod='define' +d_strtol='define' +d_strtold='define' +d_strtoll='define' +d_strtoq='define' +d_strtoul='define' +d_strtoull='define' +d_strtouq='define' +d_strxfrm='define' +d_suidsafe='undef' +d_symlink='define' +d_syscall='define' +d_syscallproto='define' +d_sysconf='define' +d_sysernlst='' +d_syserrlst='define' +d_system='define' +d_tcgetpgrp='define' +d_tcsetpgrp='define' +d_telldir='define' +d_telldirproto='define' +d_time='define' +d_timegm='define' +d_times='define' +d_tm_tm_gmtoff='define' +d_tm_tm_zone='define' +d_tmpnam_r='define' +d_truncate='define' +d_ttyname_r='define' +d_tzname='define' +d_ualarm='define' +d_umask='define' +d_uname='define' +d_union_semun='undef' +d_unordered='undef' +d_unsetenv='define' +d_usleep='define' +d_usleepproto='define' +d_ustat='define' +d_vendorarch='define' +d_vendorbin='define' +d_vendorlib='define' +d_vendorscript='define' +d_vfork='undef' +d_void_closedir='undef' +d_voidsig='define' +d_voidtty='' +d_volatile='define' +d_vprintf='define' +d_vsnprintf='define' +d_wait4='define' +d_waitpid='define' +d_wcstombs='define' +d_wctomb='define' +d_writev='define' +d_xenix='undef' +date='date' +db_hashtype='u_int32_t' +db_prefixtype='size_t' +db_version_major='' +db_version_minor='' +db_version_patch='' +defvoidused='15' +direntrytype='struct dirent' +dlext='so' +dlsrc='dl_dlopen.xs' +doublesize='8' +drand01='drand48()' +drand48_r_proto='REENTRANT_PROTO_I_ST' +dtrace='' +dynamic_ext='B Compress/Raw/Bzip2 Compress/Raw/Zlib Cwd Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Digest/SHA Encode Fcntl File/Glob Filter/Util/Call Hash/Util Hash/Util/FieldHash I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 Math/BigInt/FastCalc Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via GDBM_File SDBM_File Socket Storable Sys/Hostname Sys/Syslog Text/Soundex Time/HiRes Time/Piece Unicode/Normalize XS/APItest XS/APItest/KeywordRPN XS/Typemap attributes mro re threads threads/shared' +eagain='EAGAIN' +ebcdic='undef' +echo='echo' +egrep='egrep' +emacs='' +endgrent_r_proto='0' +endhostent_r_proto='0' +endnetent_r_proto='0' +endprotoent_r_proto='0' +endpwent_r_proto='0' +endservent_r_proto='0' +eunicefix=':' +exe_ext='' +expr='expr' +extensions='B Compress/Raw/Bzip2 Compress/Raw/Zlib Cwd Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Digest/SHA Encode Fcntl File/Glob Filter/Util/Call Hash/Util Hash/Util/FieldHash I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 Math/BigInt/FastCalc Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via GDBM_File SDBM_File Socket Storable Sys/Hostname Sys/Syslog Text/Soundex Time/HiRes Time/Piece Unicode/Normalize XS/APItest XS/APItest/KeywordRPN XS/Typemap attributes mro re threads threads/shared Archive/Extract Archive/Tar Attribute/Handlers AutoLoader B/Debug B/Deparse B/Lint CGI CPAN CPANPLUS CPANPLUS/Dist/Build Class/ISA Devel/SelfStubber Digest Errno ExtUtils/CBuilder ExtUtils/Command ExtUtils/Constant ExtUtils/Install ExtUtils/MakeMaker ExtUtils/Manifest ExtUtils/ParseXS File/Fetch File/Path File/Temp FileCache Filter/Simple Getopt/Long I18N/LangTags IO/Compress IO/Zlib IPC/Cmd IPC/Open2 IPC/Open3 Locale/Codes Locale/Maketext Locale/Maketext/Simple Log/Message Log/Message/Simple Math/BigInt Math/BigRat Math/Complex Memoize Module/Build Module/CoreList Module/Load Module/Load/Conditional Module/Loaded Module/Pluggable NEXT Net/Ping Object/Accessor Package/Constants Params/Check Parse/CPAN/Meta PerlIO/via/QuotedPrint Pod/Escapes Pod/LaTeX Pod/Parser Pod/Perldoc Pod/Plainer Pod/Simple Safe SelfLoader Shell Switch Term/ANSIColor Term/Cap Term/UI Test Test/Harness Test/Simple Text/Balanced Text/ParseWords Text/Tabs Thread/Queue Thread/Semaphore Tie/File Tie/Memoize Tie/RefHash Time/Local Unicode/Collate XSLoader autodie autouse base bignum constant encoding/warnings if lib libnet parent podlators' +extern_C='extern' +extras='' +fflushNULL='define' +fflushall='undef' +find='' +firstmakefile='makefile' +flex='' +fpossize='16' +fpostype='fpos_t' +freetype='void' +from=':' +full_ar='/usr/bin/ar' +full_csh='csh' +full_sed='/bin/sed' +gccansipedantic='' +gccosandvers='' +gccversion='4.5.1' +getgrent_r_proto='REENTRANT_PROTO_I_SBWR' +getgrgid_r_proto='REENTRANT_PROTO_I_TSBWR' +getgrnam_r_proto='REENTRANT_PROTO_I_CSBWR' +gethostbyaddr_r_proto='REENTRANT_PROTO_I_TsISBWRE' +gethostbyname_r_proto='REENTRANT_PROTO_I_CSBWRE' +gethostent_r_proto='REENTRANT_PROTO_I_SBWRE' +getlogin_r_proto='REENTRANT_PROTO_I_BW' +getnetbyaddr_r_proto='REENTRANT_PROTO_I_uISBWRE' +getnetbyname_r_proto='REENTRANT_PROTO_I_CSBWRE' +getnetent_r_proto='REENTRANT_PROTO_I_SBWRE' +getprotobyname_r_proto='REENTRANT_PROTO_I_CSBWR' +getprotobynumber_r_proto='REENTRANT_PROTO_I_ISBWR' +getprotoent_r_proto='REENTRANT_PROTO_I_SBWR' +getpwent_r_proto='REENTRANT_PROTO_I_SBWR' +getpwnam_r_proto='REENTRANT_PROTO_I_CSBWR' +getpwuid_r_proto='REENTRANT_PROTO_I_TSBWR' +getservbyname_r_proto='REENTRANT_PROTO_I_CCSBWR' +getservbyport_r_proto='REENTRANT_PROTO_I_ICSBWR' +getservent_r_proto='REENTRANT_PROTO_I_SBWR' +getspnam_r_proto='REENTRANT_PROTO_I_CSBWR' +gidsign='1' +gidsize='4' +gidtype='gid_t' +glibpth='/usr/shlib /lib /usr/lib /usr/lib/386 /lib/386 /usr/ccs/lib /usr/ucblib /usr/local/lib ' +gmake='gmake' +gmtime_r_proto='REENTRANT_PROTO_S_TS' +gnulibc_version='2.12.1' +grep='grep' +groupcat='cat /etc/group' +groupstype='gid_t' +gzip='gzip' +h_fcntl='false' +h_sysfile='true' +hint='recommended' +hostcat='cat /etc/hosts' +html1dir=' ' +html1direxp='' +html3dir=' ' +html3direxp='' +i16size='2' +i16type='short' +i32size='4' +i64size='8' +i8size='1' +i8type='signed char' +i_arpainet='define' +i_assert='define' +i_bsdioctl='' +i_crypt='define' +i_db='undef' +i_dbm='undef' +i_dirent='define' +i_dld='undef' +i_dlfcn='define' +i_fcntl='undef' +i_float='define' +i_fp='undef' +i_fp_class='undef' +i_gdbm='undef' +i_gdbm_ndbm='undef' +i_gdbmndbm='undef' +i_grp='define' +i_ieeefp='undef' +i_inttypes='define' +i_langinfo='define' +i_libutil='undef' +i_limits='define' +i_locale='define' +i_machcthr='undef' +i_malloc='define' +i_mallocmalloc='undef' +i_math='define' +i_memory='undef' +i_mntent='define' +i_ndbm='undef' +i_netdb='define' +i_neterrno='undef' +i_netinettcp='define' +i_niin='define' +i_poll='define' +i_prot='undef' +i_pthread='define' +i_pwd='define' +i_rpcsvcdbm='undef' +i_sfio='undef' +i_sgtty='undef' +i_shadow='define' +i_socks='undef' +i_stdarg='define' +i_stddef='define' +i_stdlib='define' +i_string='define' +i_sunmath='undef' +i_sysaccess='undef' +i_sysdir='define' +i_sysfile='define' +i_sysfilio='undef' +i_sysin='undef' +i_sysioctl='define' +i_syslog='define' +i_sysmman='define' +i_sysmode='undef' +i_sysmount='define' +i_sysndir='undef' +i_sysparam='define' +i_syspoll='define' +i_sysresrc='define' +i_syssecrt='undef' +i_sysselct='define' +i_syssockio='undef' +i_sysstat='define' +i_sysstatfs='define' +i_sysstatvfs='define' +i_systime='define' +i_systimek='undef' +i_systimes='define' +i_systypes='define' +i_sysuio='define' +i_sysun='define' +i_sysutsname='define' +i_sysvfs='define' +i_syswait='define' +i_termio='undef' +i_termios='define' +i_time='define' +i_unistd='define' +i_ustat='define' +i_utime='define' +i_values='define' +i_varargs='undef' +i_varhdr='stdarg.h' +i_vfork='undef' +ignore_versioned_solibs='y' +inc_version_list=' ' +inc_version_list_init='0' +incpath='' +inews='' +initialinstalllocation='/usr/bin' +installarchlib='@DESTDIR@/lib/perl5/5.12.3/@ARCH@-thread-multi' +installbin='@DESTDIR@/bin' +installhtml1dir='' +installhtml3dir='' +installman1dir='' +installman3dir='' +installprefix='@DESTDIR@' +installprefixexp='@DESTDIR@' +installprivlib='@DESTDIR@/lib/perl5/5.12.3' +installscript='@DESTDIR@/bin' +installsitearch='@DESTDIR@/lib/perl5/site_perl/5.12.3/@ARCH@-thread-multi' +installsitebin='@DESTDIR@/bin' +installsitehtml1dir='' +installsitehtml3dir='' +installsitelib='@DESTDIR@/lib/perl5/site_perl/5.12.3' +installsiteman1dir='' +installsiteman3dir='' +installsitescript='@DESTDIR@/bin' +installstyle='lib/perl5' +installusrbinperl='define' +installvendorarch='@DESTDIR@/lib/perl5/vendor_perl/5.12.3/@ARCH@-thread-multi' +installvendorbin='@DESTDIR@/bin' +installvendorhtml1dir='' +installvendorhtml3dir='' +installvendorlib='@DESTDIR@/lib/perl5/vendor_perl/5.12.3' +installvendorman1dir='' +installvendorman3dir='' +installvendorscript='@DESTDIR@/bin' +intsize='4' +issymlink='test -h' +ivdformat='"ld"' +ivtype='long' +known_extensions='B Compress/Raw/Bzip2 Compress/Raw/Zlib Cwd DB_File Data/Dumper Devel/DProf Devel/PPPort Devel/Peek Digest/MD5 Digest/SHA Encode Fcntl File/Glob Filter/Util/Call GDBM_File Hash/Util Hash/Util/FieldHash I18N/Langinfo IO IPC/SysV List/Util MIME/Base64 Math/BigInt/FastCalc NDBM_File ODBM_File Opcode POSIX PerlIO/encoding PerlIO/scalar PerlIO/via SDBM_File Socket Storable Sys/Hostname Sys/Syslog Text/Soundex Time/HiRes Time/Piece Unicode/Normalize VMS/DCLsym VMS/Stdio Win32 Win32API/File Win32CORE XS/APItest XS/APItest/KeywordRPN XS/Typemap attributes mro re threads threads/shared ' +ksh='' +ld='gcc' +lddlflags='-shared -O2 -fstack-protector' +ldflags=' -fstack-protector' +ldflags_uselargefiles='' +ldlibpthname='LD_LIBRARY_PATH' +less='less' +lib_ext='.a' +libc='/lib/libc-2.12.1.so' +libperl='libperl.so' +libpth='/lib /usr/lib' +libs='-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lpthread -lc' +libsdirs=' /usr/lib' +libsfiles=' libnsl.so libgdbm.so libdb.so libdl.so libm.so libcrypt.so libutil.so libpthread.so libc.so' +libsfound=' /usr/lib/libnsl.so /usr/lib/libgdbm.so /usr/lib/libdb.so /usr/lib/libdl.so /usr/lib/libm.so /usr/lib/libcrypt.so /usr/lib/libutil.so /usr/lib/libpthread.so /usr/lib/libc.so' +libspath=' /lib /usr/lib' +libswanted='sfio socket inet nsl nm ndbm gdbm dbm db malloc dl dld ld sun m crypt sec util pthread c cposix posix ucb BSD gdbm_compat' +libswanted_uselargefiles='' +line='' +lint='' +lkflags='' +ln='ln' +lns='/bin/ln -s' +localtime_r_proto='REENTRANT_PROTO_S_TS' +locincpth='/usr/local/include /opt/local/include /usr/gnu/include /opt/gnu/include /usr/GNU/include /opt/GNU/include' +loclibpth='/usr/local/lib /opt/local/lib /usr/gnu/lib /opt/gnu/lib /usr/GNU/lib /opt/GNU/lib' +longlongsize='8' +lp='' +lpr='' +ls='ls' +lseeksize='8' +lseektype='off_t' +mad='undef' +madlyh='' +madlyobj='' +madlysrc='' +mail='' +mailx='' +make='make' +make_set_make='#' +mallocobj='' +mallocsrc='' +malloctype='void *' +man1dir=' ' +man1direxp='' +man1ext='0' +man3dir=' ' +man3direxp='' +man3ext='0' +mips_type='' +mistrustnm='' +mkdir='mkdir' +mmaptype='void *' +modetype='mode_t' +more='more' +multiarch='undef' +mv='' +myarchname='@ARCH@' +mydomain='.localdomain' +myhostname='localhost' +n='-n' +netdb_hlen_type='size_t' +netdb_name_type='const char *' +netdb_net_type='in_addr_t' +nm='nm' +nm_opt='' +nm_so_opt='--dynamic' +nonxs_ext='Archive/Extract Archive/Tar Attribute/Handlers AutoLoader B/Debug B/Deparse B/Lint CGI CPAN CPANPLUS CPANPLUS/Dist/Build Class/ISA Devel/SelfStubber Digest Errno ExtUtils/CBuilder ExtUtils/Command ExtUtils/Constant ExtUtils/Install ExtUtils/MakeMaker ExtUtils/Manifest ExtUtils/ParseXS File/Fetch File/Path File/Temp FileCache Filter/Simple Getopt/Long I18N/LangTags IO/Compress IO/Zlib IPC/Cmd IPC/Open2 IPC/Open3 Locale/Codes Locale/Maketext Locale/Maketext/Simple Log/Message Log/Message/Simple Math/BigInt Math/BigRat Math/Complex Memoize Module/Build Module/CoreList Module/Load Module/Load/Conditional Module/Loaded Module/Pluggable NEXT Net/Ping Object/Accessor Package/Constants Params/Check Parse/CPAN/Meta PerlIO/via/QuotedPrint Pod/Escapes Pod/LaTeX Pod/Parser Pod/Perldoc Pod/Plainer Pod/Simple Safe SelfLoader Shell Switch Term/ANSIColor Term/Cap Term/UI Test Test/Harness Test/Simple Text/Balanced Text/ParseWords Text/Tabs Thread/Queue Thread/Semaphore Tie/File Tie/Memoize Tie/RefHash Time/Local Unicode/Collate XSLoader autodie autouse base bignum constant encoding/warnings if lib libnet parent podlators' +nroff='nroff' +nvEUformat='"E"' +nvFUformat='"F"' +nvGUformat='"G"' +nv_overflows_integers_at='256.0*256.0*256.0*256.0*256.0*256.0*2.0*2.0*2.0*2.0*2.0' +nveformat='"e"' +nvfformat='"f"' +nvgformat='"g"' +nvsize='8' +nvtype='double' +o_nonblock='O_NONBLOCK' +obj_ext='.o' +old_pthread_create_joinable='' +optimize='-O2' +orderlib='false' +osname='linux' +osvers='2.6.37-rc5-yocto-standard+' +otherlibdirs='/usr/lib/perl5/5.12.3' +package='perl5' +pager='/usr/bin/less -isr' +passcat='cat /etc/passwd' +patchlevel='12' +path_sep=':' +perl5='/usr/bin/perl' +perl='' +perl_patchlevel='' +perladmin='root@localhost' +perllibs='-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc' +perlpath='/usr/bin/perl' +pg='pg' +phostname='' +pidtype='pid_t' +plibpth='' +pmake='' +pr='' +prefix='/usr' +prefixexp='/usr' +privlib='/usr/lib/perl5/5.12.3' +privlibexp='/usr/lib/perl5/5.12.3' +procselfexe='"/proc/self/exe"' +prototype='define' +randbits='48' +randfunc='drand48' +random_r_proto='REENTRANT_PROTO_I_St' +randseedtype='long' +ranlib=':' +rd_nodata='-1' +readdir64_r_proto='REENTRANT_PROTO_I_TSR' +readdir_r_proto='REENTRANT_PROTO_I_TSR' +revision='5' +rm='rm' +rm_try='/bin/rm -f try try a.out .out try.[cho] try..o core core.try* try.core*' +rmail='' +run='' +runnm='false' +sPRIEUldbl='"LE"' +sPRIFUldbl='"LF"' +sPRIGUldbl='"LG"' +sPRIeldbl='"Le"' +sPRIfldbl='"Lf"' +sPRIgldbl='"Lg"' +sSCNfldbl='"Lf"' +sched_yield='sched_yield()' +scriptdir='/usr/bin' +scriptdirexp='/usr/bin' +sed='sed' +seedfunc='srand48' +selecttype='fd_set *' +sendmail='' +setgrent_r_proto='0' +sethostent_r_proto='0' +setlocale_r_proto='0' +setnetent_r_proto='0' +setprotoent_r_proto='0' +setpwent_r_proto='0' +setservent_r_proto='0' +sh='/bin/sh' +shar='' +sharpbang='#!' +shmattype='void *' +shortsize='2' +shrpenv='' +shsharp='true' +sig_count='65' +sig_name='ZERO HUP INT QUIT ILL TRAP ABRT BUS FPE KILL USR1 SEGV USR2 PIPE ALRM TERM STKFLT CHLD CONT STOP TSTP TTIN TTOU URG XCPU XFSZ VTALRM PROF WINCH IO PWR SYS NUM32 NUM33 RTMIN NUM35 NUM36 NUM37 NUM38 NUM39 NUM40 NUM41 NUM42 NUM43 NUM44 NUM45 NUM46 NUM47 NUM48 NUM49 NUM50 NUM51 NUM52 NUM53 NUM54 NUM55 NUM56 NUM57 NUM58 NUM59 NUM60 NUM61 NUM62 NUM63 RTMAX IOT CLD POLL UNUSED ' +sig_name_init='"ZERO", "HUP", "INT", "QUIT", "ILL", "TRAP", "ABRT", "BUS", "FPE", "KILL", "USR1", "SEGV", "USR2", "PIPE", "ALRM", "TERM", "STKFLT", "CHLD", "CONT", "STOP", "TSTP", "TTIN", "TTOU", "URG", "XCPU", "XFSZ", "VTALRM", "PROF", "WINCH", "IO", "PWR", "SYS", "NUM32", "NUM33", "RTMIN", "NUM35", "NUM36", "NUM37", "NUM38", "NUM39", "NUM40", "NUM41", "NUM42", "NUM43", "NUM44", "NUM45", "NUM46", "NUM47", "NUM48", "NUM49", "NUM50", "NUM51", "NUM52", "NUM53", "NUM54", "NUM55", "NUM56", "NUM57", "NUM58", "NUM59", "NUM60", "NUM61", "NUM62", "NUM63", "RTMAX", "IOT", "CLD", "POLL", "UNUSED", 0' +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 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 ' +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@-thread-multi' +sitearchexp='/usr/lib/perl5/site_perl/5.12.3/@ARCH@-thread-multi' +sitebin='/usr/bin' +sitebinexp='/usr/bin' +sitehtml1dir='' +sitehtml1direxp='' +sitehtml3dir='' +sitehtml3direxp='' +sitelib='/usr/lib/perl5/site_perl/5.12.3' +sitelib_stem='/usr/lib/perl5/site_perl' +sitelibexp='/usr/lib/perl5/site_perl/5.12.3' +siteman1dir='' +siteman1direxp='' +siteman3dir='' +siteman3direxp='' +siteprefix='/usr' +siteprefixexp='/usr' +sitescript='/usr/bin' +sitescriptexp='/usr/bin' +sizetype='size_t' +sleep='' +smail='' +so='so' +sockethdr='' +socketlib='' +socksizetype='socklen_t' +sort='sort' +spackage='Perl5' +spitshell='cat' +srand48_r_proto='REENTRANT_PROTO_I_LS' +srandom_r_proto='REENTRANT_PROTO_I_TS' +src='.' +ssizetype='ssize_t' +startperl='#!/usr/bin/perl' +startsh='#!/bin/sh' +static_ext=' ' +stdchar='char' +stdio_base='((fp)->_IO_read_base)' +stdio_bufsiz='((fp)->_IO_read_end - (fp)->_IO_read_base)' +stdio_cnt='((fp)->_IO_read_end - (fp)->_IO_read_ptr)' +stdio_filbuf='' +stdio_ptr='((fp)->_IO_read_ptr)' +stdio_stream_array='' +strerror_r_proto='REENTRANT_PROTO_B_IBW' +strings='/usr/include/string.h' +submit='' +subversion='2' +sysman='/usr/share/man/man1' +tail='' +tar='' +targetarch='' +tbl='' +tee='' +test='test' +timeincl='/usr/include/sys/time.h /usr/include/time.h ' +timetype='time_t' +tmpnam_r_proto='REENTRANT_PROTO_B_B' +to=':' +touch='touch' +tr='tr' +trnl='\n' +troff='' +ttyname_r_proto='REENTRANT_PROTO_I_IBW' +u16size='2' +u16type='unsigned short' +u32size='4' +u64size='8' +u8size='1' +u8type='unsigned char' +uidsign='1' +uidsize='4' +uidtype='uid_t' +uname='uname' +uniq='uniq' +use5005threads='undef' +usecrosscompile='undef' +usedevel='undef' +usedl='define' +usedtrace='undef' +usefaststdio='undef' +useithreads='define' +uselargefiles='define' +uselongdouble='undef' +usemallocwrap='define' +usemorebits='undef' +usemultiplicity='define' +usemymalloc='n' +usenm='false' +useopcode='true' +useperlio='define' +useposix='true' +usereentrant='undef' +userelocatableinc='undef' +usesfio='false' +useshrplib='true' +usesitecustomize='undef' +usesocks='undef' +usethreads='define' +usevendorprefix='define' +usevfork='false' +usrinc='/usr/include' +uuname='' +uvXUformat='"lX"' +uvoformat='"lo"' +uvtype='unsigned long' +uvuformat='"lu"' +uvxformat='"lx"' +vaproto='define' +vendorarch='/usr/lib/perl5/vendor_perl/5.12.3/@ARCH@-thread-multi' +vendorarchexp='/usr/lib/perl5/vendor_perl/5.12.3/@ARCH@-thread-multi' +vendorbin='/usr/bin' +vendorbinexp='/usr/bin' +vendorhtml1dir=' ' +vendorhtml1direxp='' +vendorhtml3dir=' ' +vendorhtml3direxp='' +vendorlib='/usr/lib/perl5/vendor_perl/5.12.3' +vendorlib_stem='/usr/lib/perl5/vendor_perl' +vendorlibexp='/usr/lib/perl5/vendor_perl/5.12.3' +vendorman1dir=' ' +vendorman1direxp='' +vendorman3dir=' ' +vendorman3direxp='' +vendorprefix='/usr' +vendorprefixexp='/usr' +vendorscript='/usr/bin' +vendorscriptexp='/usr/bin' +version='5.12.3' +version_patchlevel_string='version 12 subversion 2' +versiononly='undef' +vi='' +voidflags='15' +xlibpth='/usr/lib/386 /lib/386' +yacc='yacc' +yaccflags='' +zcat='' +zip='zip' +PERL_REVISION=5 +PERL_VERSION=12 +PERL_SUBVERSION=2 +PERL_API_REVISION=5 +PERL_API_VERSION=12 +PERL_API_SUBVERSION=0 +PERL_PATCHLEVEL='' +PERL_CONFIG_SH=true +: Variables propagated from previous config.sh file. +libdb_needs_pthread='N' diff --git a/meta/recipes-devtools/perl/perl-5.12.3/config.sh-32 b/meta/recipes-devtools/perl/perl-5.12.3/config.sh-32 new file mode 100644 index 000000000..7259a0c6a --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/config.sh-32 @@ -0,0 +1,38 @@ +alignbytes='4' +cf_time='Thu Dec 23 03:57:51 UTC 2010' +cppsymbols='_FILE_OFFSET_BITS=64 _GNU_SOURCE=1 _LARGEFILE64_SOURCE=1 _LARGEFILE_SOURCE=1 _POSIX_C_SOURCE=200809L _POSIX_SOURCE=1 _REENTRANT=1 _XOPEN_SOURCE=700 _XOPEN_SOURCE_EXTENDED=1 __BIGGEST_ALIGNMENT__=16 __CHAR16_TYPE__=short\ unsigned\ int __CHAR32_TYPE__=unsigned\ int __CHAR_BIT__=8 __DBL_DENORM_MIN__=((double)4.94065645841246544177e-324L) __DBL_DIG__=15 __DBL_EPSILON__=((double)2.22044604925031308085e-16L) __DBL_HAS_DENORM__=1 __DBL_HAS_INFINITY__=1 __DBL_HAS_QUIET_NAN__=1 __DBL_MANT_DIG__=53 __DBL_MAX_10_EXP__=308 __DBL_MAX_EXP__=1024 __DBL_MAX__=((double)1.79769313486231570815e+308L) __DBL_MIN_10_EXP__=(-307) __DBL_MIN_EXP__=(-1021) __DBL_MIN__=((double)2.22507385850720138309e-308L) __DEC128_EPSILON__=1E-33DL __DEC128_MANT_DIG__=34 __DEC128_MAX_EXP__=6145 __DEC128_MAX__=9.999999999999999999999999999999999E6144DL __DEC128_MIN_EXP__=(-6142) __DEC128_MIN__=1E-6143DL __DEC128_SUBNORMAL_MIN__=0.000000000000000000000000000000001E-6143DL __DEC32_EPSILON__=1E-6DF __DEC32_MANT_DIG__=7 __DEC32_MAX_EXP__=97 __DEC32_MAX__=9.999999E96DF __DEC32_MIN_EXP__=(-94) __DEC32_MIN__=1E-95DF __DEC32_SUBNORMAL_MIN__=0.000001E-95DF __DEC64_EPSILON__=1E-15DD __DEC64_MANT_DIG__=16 __DEC64_MAX_EXP__=385 __DEC64_MAX__=9.999999999999999E384DD __DEC64_MIN_EXP__=(-382) __DEC64_MIN__=1E-383DD __DEC64_SUBNORMAL_MIN__=0.000000000000001E-383DD __DECIMAL_BID_FORMAT__=1 __DECIMAL_DIG__=21 __DEC_EVAL_METHOD__=2 __ELF__=1 __FINITE_MATH_ONLY__=0 __FLT_DENORM_MIN__=1.40129846432481707092e-45F __FLT_DIG__=6 __FLT_EPSILON__=1.19209289550781250000e-7F __FLT_EVAL_METHOD__=2 __FLT_HAS_DENORM__=1 __FLT_HAS_INFINITY__=1 __FLT_HAS_QUIET_NAN__=1 __FLT_MANT_DIG__=24 __FLT_MAX_10_EXP__=38 __FLT_MAX_EXP__=128 __FLT_MAX__=3.40282346638528859812e+38F __FLT_MIN_10_EXP__=(-37) __FLT_MIN_EXP__=(-125) __FLT_MIN__=1.17549435082228750797e-38F __FLT_RADIX__=2 __GCC_HAVE_SYNC_COMPARE_AND_SWAP_1=1 __GCC_HAVE_SYNC_COMPARE_AND_SWAP_2=1 __GCC_HAVE_SYNC_COMPARE_AND_SWAP_4=1 __GCC_HAVE_SYNC_COMPARE_AND_SWAP_8=1 __GLIBC_MINOR__=12 __GLIBC__=2 __GNUC_GNU_INLINE__=1 __GNUC_MINOR__=5 __GNUC_PATCHLEVEL__=1 __GNUC__=4 __GNU_LIBRARY__=6 __GXX_ABI_VERSION=1002 __INT16_C(c)=c __INT16_MAX__=32767 __INT16_TYPE__=short\ int __INT32_C(c)=c __INT32_MAX__=2147483647 __INT32_TYPE__=int __INT64_C(c)=cLL __INT64_MAX__=9223372036854775807LL __INT64_TYPE__=long\ long\ int __INT8_C(c)=c __INT8_MAX__=127 __INT8_TYPE__=signed\ char __INTMAX_C(c)=cLL __INTMAX_MAX__=9223372036854775807LL __INTMAX_TYPE__=long\ long\ int __INTPTR_MAX__=2147483647 __INTPTR_TYPE__=int __INT_FAST16_MAX__=2147483647 __INT_FAST16_TYPE__=int __INT_FAST32_MAX__=2147483647 __INT_FAST32_TYPE__=int __INT_FAST64_MAX__=9223372036854775807LL __INT_FAST64_TYPE__=long\ long\ int __INT_FAST8_MAX__=127 __INT_FAST8_TYPE__=signed\ char __INT_LEAST16_MAX__=32767 __INT_LEAST16_TYPE__=short\ int __INT_LEAST32_MAX__=2147483647 __INT_LEAST32_TYPE__=int __INT_LEAST64_MAX__=9223372036854775807LL __INT_LEAST64_TYPE__=long\ long\ int __INT_LEAST8_MAX__=127 __INT_LEAST8_TYPE__=signed\ char __INT_MAX__=2147483647 __LDBL_DENORM_MIN__=3.64519953188247460253e-4951L __LDBL_DIG__=18 __LDBL_EPSILON__=1.08420217248550443401e-19L __LDBL_HAS_DENORM__=1 __LDBL_HAS_INFINITY__=1 __LDBL_HAS_QUIET_NAN__=1 __LDBL_MANT_DIG__=64 __LDBL_MAX_10_EXP__=4932 __LDBL_MAX_EXP__=16384 __LDBL_MAX__=1.18973149535723176502e+4932L __LDBL_MIN_10_EXP__=(-4931) __LDBL_MIN_EXP__=(-16381) __LDBL_MIN__=3.36210314311209350626e-4932L __LONG_LONG_MAX__=9223372036854775807LL __LONG_MAX__=2147483647L __PRAGMA_REDEFINE_EXTNAME=1 __PTRDIFF_MAX__=2147483647 __PTRDIFF_TYPE__=int __REGISTER_PREFIX__= __SCHAR_MAX__=127 __SHRT_MAX__=32767 __SIG_ATOMIC_MAX__=2147483647 __SIG_ATOMIC_MIN__=(-2147483647\ -\ 1) __SIG_ATOMIC_TYPE__=int __SIZEOF_DOUBLE__=8 __SIZEOF_FLOAT__=4 __SIZEOF_INT__=4 __SIZEOF_LONG_DOUBLE__=12 __SIZEOF_LONG_LONG__=8 __SIZEOF_LONG__=4 __SIZEOF_POINTER__=4 __SIZEOF_PTRDIFF_T__=4 __SIZEOF_SHORT__=2 __SIZEOF_SIZE_T__=4 __SIZEOF_WCHAR_T__=4 __SIZEOF_WINT_T__=4 __SIZE_MAX__=4294967295U __SIZE_TYPE__=unsigned\ int __STDC_HOSTED__=1 __STDC__=1 __UINT16_C(c)=c __UINT16_MAX__=65535 __UINT16_TYPE__=short\ unsigned\ int __UINT32_C(c)=cU __UINT32_MAX__=4294967295U __UINT32_TYPE__=unsigned\ int __UINT64_C(c)=cULL __UINT64_MAX__=18446744073709551615ULL __UINT64_TYPE__=long\ long\ unsigned\ int __UINT8_C(c)=c __UINT8_MAX__=255 __UINT8_TYPE__=unsigned\ char __UINTMAX_C(c)=cULL __UINTMAX_MAX__=18446744073709551615ULL __UINTMAX_TYPE__=long\ long\ unsigned\ int __UINTPTR_MAX__=4294967295U __UINTPTR_TYPE__=unsigned\ int __UINT_FAST16_MAX__=4294967295U __UINT_FAST16_TYPE__=unsigned\ int __UINT_FAST32_MAX__=4294967295U __UINT_FAST32_TYPE__=unsigned\ int __UINT_FAST64_MAX__=18446744073709551615ULL __UINT_FAST64_TYPE__=long\ long\ unsigned\ int __UINT_FAST8_MAX__=255 __UINT_FAST8_TYPE__=unsigned\ char __UINT_LEAST16_MAX__=65535 __UINT_LEAST16_TYPE__=short\ unsigned\ int __UINT_LEAST32_MAX__=4294967295U __UINT_LEAST32_TYPE__=unsigned\ int __UINT_LEAST64_MAX__=18446744073709551615ULL __UINT_LEAST64_TYPE__=long\ long\ unsigned\ int __UINT_LEAST8_MAX__=255 __UINT_LEAST8_TYPE__=unsigned\ char __USER_LABEL_PREFIX__= __USE_BSD=1 __USE_FILE_OFFSET64=1 __USE_GNU=1 __USE_LARGEFILE64=1 __USE_LARGEFILE=1 __USE_MISC=1 __USE_POSIX199309=1 __USE_POSIX199506=1 __USE_POSIX2=1 __USE_POSIX=1 __USE_REENTRANT=1 __USE_SVID=1 __USE_UNIX98=1 __USE_XOPEN=1 __USE_XOPEN_EXTENDED=1 __VERSION__="4.5.1" __WCHAR_MAX__=2147483647L __WCHAR_MIN__=(-2147483647L\ -\ 1) __WCHAR_TYPE__=long\ int __WINT_MAX__=4294967295U __WINT_MIN__=0U __WINT_TYPE__=unsigned\ int __gnu_linux__=1 __i386=1 __i386__=1 __i586=1 __i586__=1 __linux=1 __linux__=1 __pentium=1 __pentium__=1 __tune_i586__=1 __tune_pentium__=1 __unix=1 __unix__=1 i386=1 linux=1 unix=1' +d_nv_preserves_uv='define' +d_printf_format_null='define' +d_u32align='undef' +gidformat='"lu"' +i32type='long' +i64type='long long' +ivsize='4' +longdblsize='12' +longsize='4' +myuname='linux qemux86 2.6.37-rc5-yocto-standard+ #1 preempt mon dec 20 14:21:27 pst 2010 i686 gnulinux ' +need_va_copy='undef' +netdb_host_type='const void *' +nv_preserves_uv_bits='32' +ptrsize='4' +quadkind='3' +quadtype='long long' +sGMTIME_max='2147483647' +sGMTIME_min='-2147483648' +sLOCALTIME_max='2147483647' +sLOCALTIME_min='-2147483648' +sPRIXU64='"LX"' +sPRId64='"Ld"' +sPRIi64='"Li"' +sPRIo64='"Lo"' +sPRIu64='"Lu"' +sPRIx64='"Lx"' +selectminbits='32' +sizesize='4' +u32type='unsigned long' +u64type='unsigned long long' +uidformat='"lu"' +uquadtype='unsigned long long' +use64bitall='undef' +use64bitint='undef' +uvsize='4' diff --git a/meta/recipes-devtools/perl/perl-5.12.3/config.sh-32-be b/meta/recipes-devtools/perl/perl-5.12.3/config.sh-32-be new file mode 100644 index 000000000..a59a9abb5 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/config.sh-32-be @@ -0,0 +1 @@ +byteorder='4321' diff --git a/meta/recipes-devtools/perl/perl-5.12.3/config.sh-32-le b/meta/recipes-devtools/perl/perl-5.12.3/config.sh-32-le new file mode 100644 index 000000000..10e422656 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/config.sh-32-le @@ -0,0 +1 @@ +byteorder='1234' diff --git a/meta/recipes-devtools/perl/perl-5.12.3/config.sh-64 b/meta/recipes-devtools/perl/perl-5.12.3/config.sh-64 new file mode 100644 index 000000000..6929d3a09 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/config.sh-64 @@ -0,0 +1,38 @@ +alignbytes='8' +cf_time='Thu Dec 23 02:06:42 UTC 2010' +cppsymbols='_FILE_OFFSET_BITS=64 _GNU_SOURCE=1 _LARGEFILE64_SOURCE=1 _LARGEFILE_SOURCE=1 _LP64=1 _POSIX_C_SOURCE=200809L _POSIX_SOURCE=1 _REENTRANT=1 _XOPEN_SOURCE=700 _XOPEN_SOURCE_EXTENDED=1 __BIGGEST_ALIGNMENT__=16 __CHAR16_TYPE__=short\ unsigned\ int __CHAR32_TYPE__=unsigned\ int __CHAR_BIT__=8 __DBL_DENORM_MIN__=((double)4.94065645841246544177e-324L) __DBL_DIG__=15 __DBL_EPSILON__=((double)2.22044604925031308085e-16L) __DBL_HAS_DENORM__=1 __DBL_HAS_INFINITY__=1 __DBL_HAS_QUIET_NAN__=1 __DBL_MANT_DIG__=53 __DBL_MAX_10_EXP__=308 __DBL_MAX_EXP__=1024 __DBL_MAX__=((double)1.79769313486231570815e+308L) __DBL_MIN_10_EXP__=(-307) __DBL_MIN_EXP__=(-1021) __DBL_MIN__=((double)2.22507385850720138309e-308L) __DEC128_EPSILON__=1E-33DL __DEC128_MANT_DIG__=34 __DEC128_MAX_EXP__=6145 __DEC128_MAX__=9.999999999999999999999999999999999E6144DL __DEC128_MIN_EXP__=(-6142) __DEC128_MIN__=1E-6143DL __DEC128_SUBNORMAL_MIN__=0.000000000000000000000000000000001E-6143DL __DEC32_EPSILON__=1E-6DF __DEC32_MANT_DIG__=7 __DEC32_MAX_EXP__=97 __DEC32_MAX__=9.999999E96DF __DEC32_MIN_EXP__=(-94) __DEC32_MIN__=1E-95DF __DEC32_SUBNORMAL_MIN__=0.000001E-95DF __DEC64_EPSILON__=1E-15DD __DEC64_MANT_DIG__=16 __DEC64_MAX_EXP__=385 __DEC64_MAX__=9.999999999999999E384DD __DEC64_MIN_EXP__=(-382) __DEC64_MIN__=1E-383DD __DEC64_SUBNORMAL_MIN__=0.000000000000001E-383DD __DECIMAL_BID_FORMAT__=1 __DECIMAL_DIG__=21 __DEC_EVAL_METHOD__=2 __ELF__=1 __FINITE_MATH_ONLY__=0 __FLT_DENORM_MIN__=1.40129846432481707092e-45F __FLT_DIG__=6 __FLT_EPSILON__=1.19209289550781250000e-7F __FLT_EVAL_METHOD__=0 __FLT_HAS_DENORM__=1 __FLT_HAS_INFINITY__=1 __FLT_HAS_QUIET_NAN__=1 __FLT_MANT_DIG__=24 __FLT_MAX_10_EXP__=38 __FLT_MAX_EXP__=128 __FLT_MAX__=3.40282346638528859812e+38F __FLT_MIN_10_EXP__=(-37) __FLT_MIN_EXP__=(-125) __FLT_MIN__=1.17549435082228750797e-38F __FLT_RADIX__=2 __GCC_HAVE_DWARF2_CFI_ASM=1 __GCC_HAVE_SYNC_COMPARE_AND_SWAP_1=1 __GCC_HAVE_SYNC_COMPARE_AND_SWAP_2=1 __GCC_HAVE_SYNC_COMPARE_AND_SWAP_4=1 __GCC_HAVE_SYNC_COMPARE_AND_SWAP_8=1 __GLIBC_MINOR__=12 __GLIBC__=2 __GNUC_GNU_INLINE__=1 __GNUC_MINOR__=5 __GNUC_PATCHLEVEL__=1 __GNUC__=4 __GNU_LIBRARY__=6 __GXX_ABI_VERSION=1002 __INT16_C(c)=c __INT16_MAX__=32767 __INT16_TYPE__=short\ int __INT32_C(c)=c __INT32_MAX__=2147483647 __INT32_TYPE__=int __INT64_C(c)=cL __INT64_MAX__=9223372036854775807L __INT64_TYPE__=long\ int __INT8_C(c)=c __INT8_MAX__=127 __INT8_TYPE__=signed\ char __INTMAX_C(c)=cL __INTMAX_MAX__=9223372036854775807L __INTMAX_TYPE__=long\ int __INTPTR_MAX__=9223372036854775807L __INTPTR_TYPE__=long\ int __INT_FAST16_MAX__=9223372036854775807L __INT_FAST16_TYPE__=long\ int __INT_FAST32_MAX__=9223372036854775807L __INT_FAST32_TYPE__=long\ int __INT_FAST64_MAX__=9223372036854775807L __INT_FAST64_TYPE__=long\ int __INT_FAST8_MAX__=127 __INT_FAST8_TYPE__=signed\ char __INT_LEAST16_MAX__=32767 __INT_LEAST16_TYPE__=short\ int __INT_LEAST32_MAX__=2147483647 __INT_LEAST32_TYPE__=int __INT_LEAST64_MAX__=9223372036854775807L __INT_LEAST64_TYPE__=long\ int __INT_LEAST8_MAX__=127 __INT_LEAST8_TYPE__=signed\ char __INT_MAX__=2147483647 __LDBL_DENORM_MIN__=3.64519953188247460253e-4951L __LDBL_DIG__=18 __LDBL_EPSILON__=1.08420217248550443401e-19L __LDBL_HAS_DENORM__=1 __LDBL_HAS_INFINITY__=1 __LDBL_HAS_QUIET_NAN__=1 __LDBL_MANT_DIG__=64 __LDBL_MAX_10_EXP__=4932 __LDBL_MAX_EXP__=16384 __LDBL_MAX__=1.18973149535723176502e+4932L __LDBL_MIN_10_EXP__=(-4931) __LDBL_MIN_EXP__=(-16381) __LDBL_MIN__=3.36210314311209350626e-4932L __LONG_LONG_MAX__=9223372036854775807LL __LONG_MAX__=9223372036854775807L __LP64__=1 __MMX__=1 __PRAGMA_REDEFINE_EXTNAME=1 __PTRDIFF_MAX__=9223372036854775807L __PTRDIFF_TYPE__=long\ int __REGISTER_PREFIX__= __SCHAR_MAX__=127 __SHRT_MAX__=32767 __SIG_ATOMIC_MAX__=2147483647 __SIG_ATOMIC_MIN__=(-2147483647\ -\ 1) __SIG_ATOMIC_TYPE__=int __SIZEOF_DOUBLE__=8 __SIZEOF_FLOAT__=4 __SIZEOF_INT__=4 __SIZEOF_LONG_DOUBLE__=16 __SIZEOF_LONG_LONG__=8 __SIZEOF_LONG__=8 __SIZEOF_POINTER__=8 __SIZEOF_PTRDIFF_T__=8 __SIZEOF_SHORT__=2 __SIZEOF_SIZE_T__=8 __SIZEOF_WCHAR_T__=4 __SIZEOF_WINT_T__=4 __SIZE_MAX__=18446744073709551615UL __SIZE_TYPE__=long\ unsigned\ int __SSE2_MATH__=1 __SSE2__=1 __SSE_MATH__=1 __SSE__=1 __STDC_HOSTED__=1 __STDC__=1 __UINT16_C(c)=c __UINT16_MAX__=65535 __UINT16_TYPE__=short\ unsigned\ int __UINT32_C(c)=cU __UINT32_MAX__=4294967295U __UINT32_TYPE__=unsigned\ int __UINT64_C(c)=cUL __UINT64_MAX__=18446744073709551615UL __UINT64_TYPE__=long\ unsigned\ int __UINT8_C(c)=c __UINT8_MAX__=255 __UINT8_TYPE__=unsigned\ char __UINTMAX_C(c)=cUL __UINTMAX_MAX__=18446744073709551615UL __UINTMAX_TYPE__=long\ unsigned\ int __UINTPTR_MAX__=18446744073709551615UL __UINTPTR_TYPE__=long\ unsigned\ int __UINT_FAST16_MAX__=18446744073709551615UL __UINT_FAST16_TYPE__=long\ unsigned\ int __UINT_FAST32_MAX__=18446744073709551615UL __UINT_FAST32_TYPE__=long\ unsigned\ int __UINT_FAST64_MAX__=18446744073709551615UL __UINT_FAST64_TYPE__=long\ unsigned\ int __UINT_FAST8_MAX__=255 __UINT_FAST8_TYPE__=unsigned\ char __UINT_LEAST16_MAX__=65535 __UINT_LEAST16_TYPE__=short\ unsigned\ int __UINT_LEAST32_MAX__=4294967295U __UINT_LEAST32_TYPE__=unsigned\ int __UINT_LEAST64_MAX__=18446744073709551615UL __UINT_LEAST64_TYPE__=long\ unsigned\ int __UINT_LEAST8_MAX__=255 __UINT_LEAST8_TYPE__=unsigned\ char __USER_LABEL_PREFIX__= __USE_BSD=1 __USE_FILE_OFFSET64=1 __USE_GNU=1 __USE_LARGEFILE64=1 __USE_LARGEFILE=1 __USE_MISC=1 __USE_POSIX199309=1 __USE_POSIX199506=1 __USE_POSIX2=1 __USE_POSIX=1 __USE_REENTRANT=1 __USE_SVID=1 __USE_UNIX98=1 __USE_XOPEN=1 __USE_XOPEN_EXTENDED=1 __VERSION__="4.5.1" __WCHAR_MAX__=2147483647 __WCHAR_MIN__=(-2147483647\ -\ 1) __WCHAR_TYPE__=int __WINT_MAX__=4294967295U __WINT_MIN__=0U __WINT_TYPE__=unsigned\ int __amd64=1 __amd64__=1 __gnu_linux__=1 __k8=1 __k8__=1 __linux=1 __linux__=1 __unix=1 __unix__=1 __x86_64=1 __x86_64__=1 linux=1 unix=1' +d_nv_preserves_uv='undef' +d_printf_format_null='undef' +d_u32align='define' +gidformat='"u"' +i32type='int' +i64type='long' +ivsize='8' +longdblsize='16' +longsize='8' +myuname='linux qemux86-64 2.6.37-rc5-yocto-standard+ #1 smp preempt mon dec 20 17:19:50 pst 2010 x86_64 gnulinux ' +need_va_copy='define' +netdb_host_type='char *' +nv_preserves_uv_bits='53' +ptrsize='8' +quadkind='2' +quadtype='long' +sGMTIME_max='67768036191676799' +sGMTIME_min='-62167219200' +sLOCALTIME_max='67768036191676799' +sLOCALTIME_min='-62167219200' +sPRIXU64='"lX"' +sPRId64='"ld"' +sPRIi64='"li"' +sPRIo64='"lo"' +sPRIu64='"lu"' +sPRIx64='"lx"' +selectminbits='64' +sizesize='8' +u32type='unsigned int' +u64type='unsigned long' +uidformat='"u"' +uquadtype='unsigned long' +use64bitall='define' +use64bitint='define' +uvsize='8' diff --git a/meta/recipes-devtools/perl/perl-5.12.3/config.sh-64-be b/meta/recipes-devtools/perl/perl-5.12.3/config.sh-64-be new file mode 100644 index 000000000..c08ce3c43 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/config.sh-64-be @@ -0,0 +1 @@ +byteorder='87654321' diff --git a/meta/recipes-devtools/perl/perl-5.12.3/config.sh-64-le b/meta/recipes-devtools/perl/perl-5.12.3/config.sh-64-le new file mode 100644 index 000000000..277d2a9be --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/config.sh-64-le @@ -0,0 +1 @@ +byteorder='12345678' 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 new file mode 100644 index 000000000..d59ad8dae --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/cross-generate_uudmap.patch @@ -0,0 +1,15 @@ +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 new file mode 100644 index 000000000..b5b952e83 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/arm_optim.diff @@ -0,0 +1,34 @@ +Upstream-Status:Inappropriate [debian patch] + +From: Niko Tyni +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/arm_thread_stress_timeout.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/arm_thread_stress_timeout.diff new file mode 100644 index 000000000..700b344ed --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/arm_thread_stress_timeout.diff @@ -0,0 +1,25 @@ +Upstream-Status:Inappropriate [debian patch] + +Subject: Raise the timeout of ext/threads/shared/t/stress.t to accommodate slower build hosts +Bug-Debian: http://bugs.debian.org/501970 + + +--- + 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 +--- a/dist/threads-shared/t/stress.t ++++ b/dist/threads-shared/t/stress.t +@@ -34,7 +34,7 @@ use threads::shared; + { + my $cnt = 50; + +- my $TIMEOUT = 60; ++ my $TIMEOUT = 150; + + 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_config_path.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/cpan_config_path.diff new file mode 100644 index 000000000..27b4a4544 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/cpan_config_path.diff @@ -0,0 +1,24 @@ +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/cpan_definstalldirs.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/cpan_definstalldirs.diff new file mode 100644 index 000000000..3931c2d35 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/cpan_definstalldirs.diff @@ -0,0 +1,37 @@ +Upstream-Status:Inappropriate [debian patch] + +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. + + +--- + 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 +--- a/cpan/CPAN/lib/CPAN/FirstTime.pm ++++ b/cpan/CPAN/lib/CPAN/FirstTime.pm +@@ -947,7 +947,7 @@ sub init { + my_prompt_loop(prefer_installer => 'MB', $matcher, 'MB|EUMM|RAND'); + + if (!$matcher or 'makepl_arg make_arg' =~ /$matcher/) { +- my_dflt_prompt(makepl_arg => "", $matcher); ++ my_dflt_prompt(makepl_arg => "INSTALLDIRS=site", $matcher); + my_dflt_prompt(make_arg => "", $matcher); + if ( $CPAN::Config->{makepl_arg} =~ /LIBS=|INC=/ ) { + $CPAN::Frontend->mywarn( +@@ -969,7 +969,7 @@ sub init { + my_dflt_prompt(make_install_arg => $CPAN::Config->{make_arg} || "", + $matcher); + +- my_dflt_prompt(mbuildpl_arg => "", $matcher); ++ my_dflt_prompt(mbuildpl_arg => "--installdirs site", $matcher); + 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.12.3/debian/cpanplus_config_path.diff new file mode 100644 index 000000000..8f2f5d2bd --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/cpanplus_config_path.diff @@ -0,0 +1,45 @@ +Upstream-Status:Inappropriate [debian patch] + +From: Niko Tyni +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. + +--- + 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 +--- 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. + If this package is not C, it will + be saved in your C<.cpanplus> directory, otherwise it will + be attempted to be saved in the system wide directory. ++(On Debian systems, this system wide directory is /etc/perl.) + + 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 +--- 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 { + ) . '.pm'; + }; + use constant CONFIG_SYSTEM_FILE => sub { ++ # Debian-specific shortcut ++ return '/etc/perl/CPANPLUS/Config/System.pm'; ++ + 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.12.3/debian/cpanplus_definstalldirs.diff new file mode 100644 index 000000000..bd5fe8061 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/cpanplus_definstalldirs.diff @@ -0,0 +1,54 @@ +Upstream-Status:Inappropriate [debian patch] + +From: Niko Tyni +Subject: Configure CPANPLUS to use the site directories by default. +Closes: 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 . + +--- + cpan/CPANPLUS/lib/CPANPLUS/Config/System.pm | 30 +++++++++++++++++++++++++++ + 1 files changed, 30 insertions(+), 0 deletions(-) + +diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Config/System.pm b/cpan/CPANPLUS/lib/CPANPLUS/Config/System.pm +new file mode 100644 +index 0000000..5e6e11e +--- /dev/null ++++ b/cpan/CPANPLUS/lib/CPANPLUS/Config/System.pm +@@ -0,0 +1,30 @@ ++### minimal pod, so you can find it with perldoc -l, etc ++=pod ++ ++=head1 NAME ++ ++CPANPLUS::Config::System ++ ++=head1 DESCRIPTION ++ ++This is a CPANPLUS configuration file that sets appropriate default ++settings on Debian systems. ++ ++The only preconfigured settings are C (set to ++C) and C (set to C<--installdirs site>). ++ ++These settings will not have any effect if ++C is present. ++ ++=cut ++ ++ ++package CPANPLUS::Config::System; ++ ++sub setup { ++ my $conf = shift; ++ $conf->set_conf( makemakerflags => 'INSTALLDIRS=site' ); ++ $conf->set_conf( buildflags => '--installdirs site' ); ++} ++ ++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.12.3/debian/db_file_ver.diff new file mode 100644 index 000000000..e9aa60a9b --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/db_file_ver.diff @@ -0,0 +1,34 @@ +Upstream-Status:Inappropriate [debian patch] + +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. + + +--- + 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 +--- a/cpan/DB_File/version.c ++++ b/cpan/DB_File/version.c +@@ -48,6 +48,7 @@ __getBerkeleyDBInfo() + + (void)db_version(&Major, &Minor, &Patch) ; + ++#ifndef DEBIAN + /* Check that the versions of db.h and libdb.a are the same */ + if (Major != DB_VERSION_MAJOR || Minor != DB_VERSION_MINOR ) + /* || Patch != DB_VERSION_PATCH) */ +@@ -55,6 +56,7 @@ __getBerkeleyDBInfo() + croak("\nDB_File was build with libdb version %d.%d.%d,\nbut you are attempting to run it with libdb version %d.%d.%d\n", + DB_VERSION_MAJOR, DB_VERSION_MINOR, DB_VERSION_PATCH, + Major, Minor, Patch) ; ++#endif /* DEBIAN */ + + /* 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.12.3/debian/deprecate-with-apt.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/deprecate-with-apt.diff new file mode 100644 index 000000000..ad0b0cfb8 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/deprecate-with-apt.diff @@ -0,0 +1,61 @@ +Upstream-Status:Inappropriate [debian patch] + +From: Niko Tyni +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 new file mode 100644 index 000000000..e57a31577 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/devel-ppport-ia64-optim.diff @@ -0,0 +1,34 @@ +Upstream-Status:Inappropriate [debian patch] + +From: Niko Tyni +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/disable-zlib-bundling.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/disable-zlib-bundling.diff new file mode 100644 index 000000000..44349a534 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/disable-zlib-bundling.diff @@ -0,0 +1,31 @@ +Upstream-Status:Inappropriate [debian patch] + +From: Niko Tyni +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. + +--- + cpan/Compress-Raw-Zlib/config.in | 6 +++--- + 1 files changed, 3 insertions(+), 3 deletions(-) + +diff --git a/cpan/Compress-Raw-Zlib/config.in b/cpan/Compress-Raw-Zlib/config.in +index c56cc03..2c6659b 100644 +--- a/cpan/Compress-Raw-Zlib/config.in ++++ b/cpan/Compress-Raw-Zlib/config.in +@@ -16,9 +16,9 @@ + # Setting the Gzip OS Code + # + +-BUILD_ZLIB = True +-INCLUDE = ./zlib-src +-LIB = ./zlib-src ++BUILD_ZLIB = False ++INCLUDE = /usr/include ++LIB = /usr/lib + + 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.12.3/debian/doc_info.diff new file mode 100644 index 000000000..be75f3014 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/doc_info.diff @@ -0,0 +1,36 @@ +Upstream-Status:Inappropriate [debian patch] + +Subject: Replace generic man(1) instructions with Debian-specific information. + +Indicate that the user needs to install the perl-doc package. + + +--- + 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 +--- 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. + perlwin32 Perl notes for Windows + + +-On a Unix-like system, these documentation files will usually also be +-available as manpages for use with the F program. ++On Debian systems, you need to install the B package which ++contains the majority of the standard Perl documentation and the ++F program. ++ ++Extensive additional documentation for Perl modules is available, both ++those distributed with Perl and third-party modules which are packaged ++or locally installed. ++ ++You should be able to view Perl's documentation with your man(1) ++program or perldoc(1). + + 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.12.3/debian/enc2xs_inc.diff new file mode 100644 index 000000000..4cac4b75f --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/enc2xs_inc.diff @@ -0,0 +1,52 @@ +Upstream-Status:Inappropriate [debian patch] + +Subject: Tweak enc2xs to follow symlinks and ignore missing @INC directories. +Bug-Debian: http://bugs.debian.org/290336 + +- ignore missing directories, +- follow symlinks (/usr/share/perl/5.8 -> 5.8.4). +- filter "." out when running "enc2xs -C", it's unnecessary and causes + issues with follow => 1 (see #603686 and [rt.cpan.org #64585]) + +--- + cpan/Encode/bin/enc2xs | 8 ++++---- + 1 files changed, 4 insertions(+), 4 deletions(-) + +diff --git a/cpan/Encode/bin/enc2xs b/cpan/Encode/bin/enc2xs +index 773c0a0..bc1ae1b 100644 +--- a/cpan/Encode/bin/enc2xs ++++ b/cpan/Encode/bin/enc2xs +@@ -924,11 +924,11 @@ use vars qw( + sub find_e2x{ + eval { require File::Find; }; + my (@inc, %e2x_dir); +- for my $inc (@INC){ ++ for my $inc (grep -d, @INC){ + push @inc, $inc unless $inc eq '.'; #skip current dir + } + File::Find::find( +- sub { ++ { wanted => sub { + my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, + $atime,$mtime,$ctime,$blksize,$blocks) + = lstat($_) or return; +@@ -938,7 +938,7 @@ sub find_e2x{ + $e2x_dir{$File::Find::dir} ||= $mtime; + } + return; +- }, @inc); ++ }, follow => 1}, @inc); + warn join("\n", keys %e2x_dir), "\n"; + for my $d (sort {$e2x_dir{$a} <=> $e2x_dir{$b}} keys %e2x_dir){ + $_E2X = $d; +@@ -1005,7 +1005,7 @@ sub make_configlocal_pm { + $LocalMod{$enc} ||= $mod; + } + }; +- File::Find::find({wanted => $wanted}, @INC); ++ File::Find::find({wanted => $wanted, follow => 1}, grep -d && !/^\./, @INC); + $_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.12.3/debian/errno_ver.diff new file mode 100644 index 000000000..de73ed549 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/errno_ver.diff @@ -0,0 +1,34 @@ +Upstream-Status:Inappropriate [debian patch] + +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. + + +--- + 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 +--- a/ext/Errno/Errno_pm.PL ++++ b/ext/Errno/Errno_pm.PL +@@ -341,13 +341,8 @@ EOF + package Errno; + our (\@EXPORT_OK,\%EXPORT_TAGS,\@ISA,\$VERSION,\%errno,\$AUTOLOAD); + use Exporter (); +-use Config; + use strict; + +-"\$Config{'archname'}-\$Config{'osvers'}" eq +-"$Config{'archname'}-$Config{'osvers'}" or +- die "Errno architecture ($Config{'archname'}-$Config{'osvers'}) does not match executable architecture (\$Config{'archname'}-\$Config{'osvers'})"; +- + \$VERSION = "$VERSION"; + \$VERSION = eval \$VERSION; + \@ISA = qw(Exporter); +-- +tg: (a508b62..) debian/errno_ver (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 new file mode 100644 index 000000000..e1cbdb565 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/extutils_hacks.diff @@ -0,0 +1,315 @@ +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(<{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("",@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 will invoke ExtUtils::Embed + functions while building your application. + ++Note that on Debian systems the B 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/fakeroot.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/fakeroot.diff new file mode 100644 index 000000000..2c8def5a8 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/fakeroot.diff @@ -0,0 +1,45 @@ +Upstream-Status:Inappropriate [debian patch] + +Subject: Postpone LD_LIBRARY_PATH evaluation to the binary targets. + +Modify the setting of LD_LIBRARY_PATH to append pre-existing values at the +time the rule is evaluated rather than when the Makefile is created. + +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. + + +--- + Makefile.SH | 9 ++------- + 1 files changed, 2 insertions(+), 7 deletions(-) + +diff --git a/Makefile.SH b/Makefile.SH +index fc13b2b..d420229 100755 +--- a/Makefile.SH ++++ b/Makefile.SH +@@ -50,12 +50,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 ++ ldlibpth=LD_LIBRARY_PATH=`pwd`'$${LD_LIBRARY_PATH:+:}$$LD_LIBRARY_PATH' + + pldlflags="$cccdlflags" + static_ldflags='' +@@ -126,7 +121,7 @@ true) + ;; + esac + case "$ldlibpthname" in +- '') ;; ++ ''|LD_LIBRARY_PATH) ;; + *) + case "$osname" in + os2) +-- +tg: (a508b62..) debian/fakeroot (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 new file mode 100644 index 000000000..375ae418f --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/autodie-flock.diff @@ -0,0 +1,100 @@ +Upstream-Status:Inappropriate [debian patch] + +From: Niko Tyni +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 new file mode 100644 index 000000000..40437f38c --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/concat-stack-corruption.diff @@ -0,0 +1,39 @@ +Upstream-Status:Inappropriate [debian patch] + +From: Niko Tyni +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 new file mode 100644 index 000000000..e7ff57c54 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/cpanplus-without-home.diff @@ -0,0 +1,32 @@ +Upstream-Status:Inappropriate [debian patch] + +From: Niko Tyni +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 new file mode 100644 index 000000000..9faab81f3 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/h2ph-gcc-4.5.diff @@ -0,0 +1,108 @@ +Upstream-Status:Inappropriate [debian patch] + +Author: Robin Barker +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 < +Subject: Make hints/gnu.sh append to $ccflags rather than overriding them +Bug-Debian: http://bugs.debian.org/587901 + +Don't override possible extra $ccflags values given to Configure +on GNU/Hurd. + +--- + hints/gnu.sh | 2 +- + 1 files changed, 1 insertions(+), 1 deletions(-) + +diff --git a/hints/gnu.sh b/hints/gnu.sh +index 2cfce54..c1ba2db 100644 +--- a/hints/gnu.sh ++++ b/hints/gnu.sh +@@ -19,7 +19,7 @@ lddlflags='-shared' + ccdlflags='-Wl,-E' + + # Debian bug #258618 +-ccflags='-D_GNU_SOURCE' ++ccflags="-D_GNU_SOURCE $ccflags" + + # 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.12.3/debian/fixes/lc-numeric-docs.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/lc-numeric-docs.diff new file mode 100644 index 000000000..67a55da42 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/lc-numeric-docs.diff @@ -0,0 +1,97 @@ +Upstream-Status:Inappropriate [debian patch] + +From: Niko Tyni +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 an embedded "."), the character used for the decimal +-point is B 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 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 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 pragma is in effect. Formatted output +-cannot be controlled by C because the pragma is tied to the +-block structure of the program, and, for historical reasons, formats +-exist outside that block structure. See L for further +-discussion of locale handling. ++If a program's environment specifies an LC_NUMERIC locale and C 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 at the time when write() ++is called. See L 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 + + =item * + +-B (printf(), sprintf() and write()) use +-C ++B (format()) use C + + =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 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 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 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 new file mode 100644 index 000000000..9fe07eb29 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/lc-numeric-sprintf.diff @@ -0,0 +1,31 @@ +Upstream-Status:Inappropriate [debian patch] + +From: Niko Tyni +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/net_smtp_docs.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/net_smtp_docs.diff new file mode 100644 index 000000000..2307a09ea --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/net_smtp_docs.diff @@ -0,0 +1,25 @@ +Upstream-Status:Inappropriate [debian patch] + +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 + + +--- + cpan/libnet/Net/SMTP.pm | 1 + + 1 files changed, 1 insertions(+), 0 deletions(-) + +diff --git a/cpan/libnet/Net/SMTP.pm b/cpan/libnet/Net/SMTP.pm +index a28496d..07b2498 100644 +--- a/cpan/libnet/Net/SMTP.pm ++++ b/cpan/libnet/Net/SMTP.pm +@@ -625,6 +625,7 @@ Net::SMTP will attempt to extract the address from the value passed. + + B - Enable debugging information + ++B - Select a port on the remote host to connect to (default is 25) + + Example: + +-- +tg: (a508b62..) fixes/net_smtp_docs (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 new file mode 100644 index 000000000..fa2d7c365 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/processPL.diff @@ -0,0 +1,45 @@ +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 .= < and B modules are managed by C. ++ + =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.12.3/debian/ld_run_path.diff new file mode 100644 index 000000000..02610d34a --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/ld_run_path.diff @@ -0,0 +1,25 @@ +Upstream-Status:Inappropriate [debian patch] + +Subject: Remove standard libs from LD_RUN_PATH as per Debian policy. + + +--- + .../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 +--- 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 { + 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); ++ + 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.12.3/debian/libnet_config_path.diff new file mode 100644 index 000000000..a38e78ac3 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/libnet_config_path.diff @@ -0,0 +1,37 @@ +Upstream-Status:Inappropriate [debian patch] + +Subject: Set location of libnet.cfg to /etc/perl/Net as /usr may not be writable. + + +--- + cpan/libnet/Net/Config.pm | 7 +++---- + 1 files changed, 3 insertions(+), 4 deletions(-) + +diff --git a/cpan/libnet/Net/Config.pm b/cpan/libnet/Net/Config.pm +index db51c1f..8404593 100644 +--- a/cpan/libnet/Net/Config.pm ++++ b/cpan/libnet/Net/Config.pm +@@ -57,9 +57,8 @@ my %nc = ( + } + TRY_INTERNET_CONFIG + +-my $file = __FILE__; ++my $file = '/etc/perl/Net/libnet.cfg'; + my $ref; +-$file =~ s/Config.pm/libnet.cfg/; + if (-f $file) { + $ref = eval { local $SIG{__DIE__}; do $file }; + if (ref($ref) eq 'HASH') { +@@ -132,8 +131,8 @@ Net::Config - Local configuration data for libnet + C holds configuration data for the modules in the libnet + distribution. During installation you will be asked for these values. + +-The configuration data is held globally in a file in the perl installation +-tree, but a user may override any of these values by providing their own. This ++The configuration data is held globally in C, ++but a user may override any of these values by providing their own. This + 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.12.3/debian/m68k_thread_stress.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/m68k_thread_stress.diff new file mode 100644 index 000000000..675c9aa03 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/m68k_thread_stress.diff @@ -0,0 +1,45 @@ +Upstream-Status:Inappropriate [debian patch] + +Subject: Disable some threads tests on m68k for now due to missing TLS. +Closes: #495826, #517938 + + +--- + 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 +--- a/dist/threads-shared/t/stress.t ++++ b/dist/threads-shared/t/stress.t +@@ -11,6 +11,10 @@ BEGIN { + print("1..0 # SKIP Broken under HP-UX 10.20\n"); + exit(0); + } ++ if ($^O eq 'linux' && $Config{archname} =~ /^m68k/) { ++ print("1..0 # Skip: no TLS on m68k yet \n"); ++ exit(0); ++ } + } + + use ExtUtils::testlib; +diff --git a/dist/threads-shared/t/waithires.t b/dist/threads-shared/t/waithires.t +index e3a1086..633374e 100755 +--- a/dist/threads-shared/t/waithires.t ++++ b/dist/threads-shared/t/waithires.t +@@ -16,6 +16,12 @@ BEGIN { + if (! eval 'use Time::HiRes "time"; 1') { + Test::skip_all('Time::HiRes not available'); + } ++ ++ if ($^O eq 'linux' && $Config{archname} =~ /^m68k/) { ++ print("1..0 # Skip: no TLS on m68k yet \n"); ++ exit(0); ++ } ++ + } + + 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.12.3/debian/mod_paths.diff new file mode 100644 index 000000000..26d8ed03a --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/mod_paths.diff @@ -0,0 +1,100 @@ +Upstream-Status:Inappropriate [debian patch] + +Subject: Tweak @INC ordering for Debian + +Our order is: + + etc (for config files) + site (5.8.1) + vendor (all) + core (5.8.1) + site (version-indep) + site (pre-5.8.1) + +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. + + +--- + perl.c | 58 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ + 1 files changed, 58 insertions(+), 0 deletions(-) + +diff --git a/perl.c b/perl.c +index 05cea40..023d6a0 100644 +--- a/perl.c ++++ b/perl.c +@@ -4125,6 +4125,11 @@ S_init_perllib(pTHX) + INCPUSH_ADD_SUB_DIRS|INCPUSH_CAN_RELOCATE); + #endif + ++#ifdef DEBIAN ++ /* for configuration where /usr is mounted ro (CPAN::Config, Net::Config) */ ++ S_incpush_use_sep(aTHX_ STR_WITH_LEN("/etc/perl"), 0x0); ++#endif ++ + #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) + INCPUSH_ADD_OLD_VERS|INCPUSH_CAN_RELOCATE); + #endif + ++#ifdef DEBIAN ++ /* Non-versioned site directory for local modules and for ++ compatability with the previous packages' site dirs */ ++ S_incpush_use_sep(aTHX_ STR_WITH_LEN("/usr/local/lib/site_perl"), ++ INCPUSH_ADD_SUB_DIRS); ++ ++#ifdef PERL_INC_VERSION_LIST ++ { ++ struct stat s; ++ ++ /* add small buffer in case old versions are longer than the ++ current version */ ++ char sitearch[sizeof(SITEARCH_EXP)+16] = SITEARCH_EXP; ++ char sitelib[sizeof(SITELIB_EXP)+16] = SITELIB_EXP; ++ char const *vers[] = { PERL_INC_VERSION_LIST }; ++ char const **p; ++ ++ char *arch_vers = strrchr(sitearch, '/'); ++ char *lib_vers = strrchr(sitelib, '/'); ++ ++ if (arch_vers && isdigit(*++arch_vers)) ++ *arch_vers = 0; ++ else ++ arch_vers = 0; ++ ++ if (lib_vers && isdigit(*++lib_vers)) ++ *lib_vers = 0; ++ else ++ lib_vers = 0; ++ ++ /* there is some duplication here as incpush does something ++ similar internally, but required as sitearch is not a ++ subdirectory of sitelib */ ++ for (p = vers; *p; p++) ++ { ++ if (arch_vers) ++ { ++ strcpy(arch_vers, *p); ++ if (PerlLIO_stat(sitearch, &s) >= 0 && S_ISDIR(s.st_mode)) ++ S_incpush_use_sep(aTHX_ sitearch, strlen(sitearch), 0x0); ++ } ++ ++ if (lib_vers) ++ { ++ strcpy(lib_vers, *p); ++ if (PerlLIO_stat(sitelib, &s) >= 0 && S_ISDIR(s.st_mode)) ++ S_incpush_use_sep(aTHX_ sitelib, strlen(sitelib), 0x0); ++ } ++ } ++ } ++#endif ++#endif ++ + #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.12.3/debian/module_build_man_extensions.diff new file mode 100644 index 000000000..63c8441bd --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/module_build_man_extensions.diff @@ -0,0 +1,33 @@ +Upstream-Status:Inappropriate [debian patch] + +Subject: Adjust Module::Build manual page extensions for the Debian Perl policy +Bug-Debian: http://bugs.debian.org/479460 + +--- + 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 +--- 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 { + 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). +- my $parser = Pod::Man->new( section => 1 ); # binaries go in section 1 ++ my $parser = Pod::Man->new( section => '1p' ); # binaries go in section 1p + my $manpage = $self->man1page_name( $file ) . '.' . + $self->config( 'man1ext' ); + my $outfile = File::Spec->catfile($mandir, $manpage); +@@ -3096,7 +3096,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). +- my $parser = Pod::Man->new( section => 3 ); # libraries go in section 3 ++ my $parser = Pod::Man->new( section => '3pm' ); # libraries go in section 3pm + 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.12.3/debian/patchlevel b/meta/recipes-devtools/perl/perl-5.12.3/debian/patchlevel new file mode 100644 index 000000000..0839fbd03 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/patchlevel @@ -0,0 +1,45 @@ +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/perlivp.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/perlivp.diff new file mode 100644 index 000000000..304e4c1af --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/perlivp.diff @@ -0,0 +1,40 @@ +Upstream-Status:Inappropriate [debian patch] + +From: Niko Tyni +Subject: Make perlivp skip include directories in /usr/local +Closes: 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 wrote: + +> > We could create the directories in a postinst script, but I'm not sure +> > I see the point. They will be created automatically when installing +> > CPAN modules. +> +> The directories are intentionally not created, as this way they are +> excluded from the search path at start-up, saving a bunch of wasted +> stats at use/require time in the common case that the user has not +> installed any local packages. As Niko points out, they will be +> created as required. + + +Signed-off-by: Niko Tyni + +--- + 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 +--- a/utils/perlivp.PL ++++ b/utils/perlivp.PL +@@ -142,6 +142,7 @@ my $INC_total = 0; + my $INC_there = 0; + 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) diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/prune_libs.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/prune_libs.diff new file mode 100644 index 000000000..5bb072c02 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/prune_libs.diff @@ -0,0 +1,38 @@ +Upstream-Status:Inappropriate [debian patch] + +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). + + +--- + Configure | 5 ++--- + 1 files changed, 2 insertions(+), 3 deletions(-) + +diff --git a/Configure b/Configure +index 3a8732b..6013c86 100755 +--- a/Configure ++++ b/Configure +@@ -1363,8 +1363,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. +-libswanted="sfio socket bind inet nsl nm ndbm gdbm dbm db malloc dl dld ld sun" +-libswanted="$libswanted m crypt sec util c cposix posix ucb bsd BSD" ++libswanted='gdbm gdbm_compat db dl m c crypt' + : 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*) + ;; + *) case "$usedl" in + $define|true|[yY]*) +- set X `echo " $libs " | sed -e 's@ -lndbm @ @' -e 's@ -lgdbm @ @' -e 's@ -lgdbm_compat @ @' -e 's@ -ldbm @ @' -e 's@ -ldb @ @'` ++ set X `echo " $libs " | sed -e 's@ -lgdbm @ @' -e 's@ -lgdbm_compat @ @' -e 's@ -ldb @ @'` + shift + perllibs="$*" + ;; +-- +tg: (a508b62..) debian/prune_libs (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/series b/meta/recipes-devtools/perl/perl-5.12.3/debian/series new file mode 100644 index 000000000..5425bc632 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/series @@ -0,0 +1,34 @@ +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/debian/squelch-locale-warnings.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/squelch-locale-warnings.diff new file mode 100644 index 000000000..eac0fc30c --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/debian/squelch-locale-warnings.diff @@ -0,0 +1,55 @@ +Upstream-Status:Inappropriate [debian patch] + +From: Niko Tyni +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 +during package upgrades, causing a huge amount of useless Perl locale +warnings. Squelch them when running package maintainer scripts, detected +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. + +--- + 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 +--- a/locale.c ++++ b/locale.c +@@ -359,6 +359,10 @@ Perl_init_i18nl10n(pTHX_ int printwarn) + char *p; + const bool locwarn = (printwarn > 1 || + (printwarn && ++ ++ /* Debian specific change - see http://bugs.debian.org/508764 */ ++ (!PerlEnv_getenv("DPKG_RUNNING_VERSION")) && ++ + (!(p = PerlEnv_getenv("PERL_BADLANG")) || atoi(p)))); + + if (locwarn) { +diff --git a/pod/perllocale.pod b/pod/perllocale.pod +index 0dbabe7..60b7bab 100644 +--- a/pod/perllocale.pod ++++ b/pod/perllocale.pod +@@ -844,6 +844,14 @@ B: 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. + ++=item DPKG_RUNNING_VERSION ++ ++On Debian systems, if the DPKG_RUNNING_VERSION environment variable is ++set (to any value), the locale failure warnings will be suppressed just ++like with a zero PERL_BADLANG setting. This is done to avoid floods ++of spurious warnings during system upgrades. ++See L. ++ + =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.12.3/generate-sh.patch b/meta/recipes-devtools/perl/perl-5.12.3/generate-sh.patch new file mode 100644 index 000000000..47f91c56d --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/generate-sh.patch @@ -0,0 +1,48 @@ +Upstream-Status:Inappropriate [embedded specific] + +Use the ld flags from the supplied configuration file. For sh we need the +flags that specify to build PIC code so that the shared libraries work. + +Index: perl-5.8.8/Cross/generate_config_sh +=================================================================== +--- perl-5.8.8.orig/Cross/generate_config_sh 2003-09-05 18:31:08.000000000 +1000 ++++ perl-5.8.8/Cross/generate_config_sh 2007-05-30 09:12:50.000000000 +1000 +@@ -19,10 +19,10 @@ + $callbacks->{'ar'} = [\&simple_process, ["AR", "arm-linux-ar"]]; + $callbacks->{'archname'} = [\&simple_process, ["SYS", "armv4l-linux"]]; + $callbacks->{'cc'} = [\&simple_process, ["CC", "arm-linux-gcc"]]; +-$callbacks->{'cccdlflags'} = [\&simple_process, ["CFLAGS", ""]]; +-$callbacks->{'ccdlflags'} = [\&simple_process, ["CFLAGS", ""]]; +-$callbacks->{'ccflags'} = [\&simple_process, ["CFLAGS", "-fno-strict-aliasing -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64"]]; +-$callbacks->{'ccflags_uselargefiles'} = [\&simple_process, ["CFLAGS", "-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64"]]; ++#$callbacks->{'cccdlflags'} = [\&simple_process, ["CFLAGS", ""]]; ++#$callbacks->{'ccdlflags'} = [\&simple_process, ["CFLAGS", ""]]; ++$callbacks->{'ccflags'} = [\&simple_process_insert, ["CFLAGS", "-fno-strict-aliasing -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64"]]; ++$callbacks->{'ccflags_uselargefiles'} = [\&simple_process_insert, ["CFLAGS", "-D_GNU_SOURCE -DTHREADS_HAVE_PIDS -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64"]]; + $callbacks->{'ccname'} = [\&simple_process, ["CC", "arm-linux-gcc"]]; + $callbacks->{'cpp'} = [\&simple_process, ["CCP", "arm-linux-cpp"]]; + $callbacks->{'cppflags'} = [\&simple_process, ["CCPFLAGS", "-fno-strict-aliasing"]]; +@@ -105,6 +105,23 @@ + + } + ++# Insert env var into the variables value ++sub simple_process_insert { ++ my $key = shift; ++ my $value = shift; ++ my $envvar = $callbacks->{$key}->[1][0]; ++ ++ if ($ENV{$envvar}) { ++ # Strip quotes from value ++ $value =~ s/^\'//; ++ $value =~ s/\'$//; ++ # Remove -I/usr/local/... from the value ++ $value =~ s#\W-I/usr/local/\w+\W# #g; ++ # Prepend env var (OE setting) to value ++ print("$key=\'$ENV{$envvar} $value\'\n"); ++ } ++} ++ + sub library_munge { + my $key = shift; + my $value = shift; diff --git a/meta/recipes-devtools/perl/perl-5.12.3/installperl.patch b/meta/recipes-devtools/perl/perl-5.12.3/installperl.patch new file mode 100644 index 000000000..456012376 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/installperl.patch @@ -0,0 +1,17 @@ +Upstream-Status:Inappropriate [embedded specific] + +Index: perl-5.12.3/installperl +=================================================================== +--- perl-5.12.3.orig/installperl ++++ perl-5.12.3/installperl +@@ -3,8 +3,8 @@ + BEGIN { + require 5.004; + chdir '..' if !-d 'lib' and -d '../lib'; +- @INC = 'lib'; +- $ENV{PERL5LIB} = 'lib'; ++# @INC = 'lib'; ++# $ENV{PERL5LIB} = 'lib'; + + # This needs to be at BEGIN time, before any use of Config + require './install_lib.pl'; diff --git a/meta/recipes-devtools/perl/perl-5.12.3/letgcc-find-errno.patch b/meta/recipes-devtools/perl/perl-5.12.3/letgcc-find-errno.patch new file mode 100644 index 000000000..5161e4c8b --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/letgcc-find-errno.patch @@ -0,0 +1,46 @@ +Upstream-Status:Inappropriate [embedded specific] + +This removes all the logic that perl uses to locate an appropriate +errno.h for the target. Instead we simple create a file that does + + #include "errno.h" + +and use that as the file to parse. This is needed when using an +external toolchain since perl will search in ${STAGING_INCDIR} for +errno.h (when using gcc) and that isn't where it's located - its +wherever the external toolchain keeps it's headers. + +Index: perl-5.12.3/ext/Errno/Errno_pm.PL +=================================================================== +--- perl-5.12.3.orig/ext/Errno/Errno_pm.PL ++++ perl-5.12.3/ext/Errno/Errno_pm.PL +@@ -17,8 +17,18 @@ unlink "Errno.tmp" if -f "Errno.tmp"; + open OUT, ">Errno.tmp" or die "Cannot open Errno.tmp: $!"; + select OUT; + my $file; +-my @files = get_files(); +-if ($Config{gccversion} ne '' && $^O eq 'MSWin32') { ++#my @files = get_files(); ++my @files = ("errno.h"); ++ ++if (1) { ++ open INCS, '>includes.c' or ++ die "Cannot open includes.c"; ++ print INCS qq[#include "errno.h"\n]; ++ close INCS; ++ process_file('includes.c'); ++ unlink 'includes.c'; ++} ++elsif ($Config{gccversion} ne '' && $^O eq 'MSWin32') { + # MinGW complains "warning: #pragma system_header ignored outside include + # file" if the header files are processed individually, so include them + # all in .c file and process that instead. +@@ -53,7 +63,7 @@ sub process_file { + chomp($file = `cygpath -w "$file"`); + } + +- return unless defined $file and -f $file; ++# return unless defined $file and -f $file; + # warn "Processing $file\n"; + + local *FH; diff --git a/meta/recipes-devtools/perl/perl-5.12.3/native-nopacklist.patch b/meta/recipes-devtools/perl/perl-5.12.3/native-nopacklist.patch new file mode 100644 index 000000000..389c3342f --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/native-nopacklist.patch @@ -0,0 +1,82 @@ +Upstream-Status:Inappropriate [debian patch] + +Part of 52_debian_extutils_hacks.patch just to exclude the installation of .packlist files + +Index: perl-5.12.3/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm +=================================================================== +--- perl-5.12.3.orig/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm ++++ perl-5.12.3/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm +@@ -2047,8 +2047,6 @@ doc__install : doc_site_install + + pure_perl_install :: all + $(NOECHO) $(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) \ +@@ -2074,8 +2072,6 @@ pure_site_install :: all + + pure_vendor_install :: all + $(NOECHO) $(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) \ +@@ -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) $(ECHO) Appending installation info to $(DESTINSTALLSITEARCH)/perllocal.pod ++ -$(NOECHO) $(MKPATH) $(DESTINSTALLSITEARCH) + -$(NOECHO) $(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_$(INSTALLDIR + $(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("",@m); diff --git a/meta/recipes-devtools/perl/perl-5.12.3/native-perlinc.patch b/meta/recipes-devtools/perl/perl-5.12.3/native-perlinc.patch new file mode 100644 index 000000000..f0bb1f659 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/native-perlinc.patch @@ -0,0 +1,26 @@ +Upstream-Status:Inappropriate [embedded specific] + +Index: perl-5.8.8/lib/ExtUtils/MM_Unix.pm +=================================================================== +--- perl-5.12.3.orig/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm 2008-10-31 22:01:35.000000000 +0000 ++++ perl-5.12.3/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm 2008-10-31 22:01:35.000000000 +0000 +@@ -1597,6 +1597,19 @@ + $self->{PERL_LIB} ||= $Config{privlibexp}; + $self->{PERL_ARCHLIB} ||= $Config{archlibexp}; + $self->{PERL_INC} = $self->catdir("$self->{PERL_ARCHLIB}","CORE"); # wild guess for now ++ # Check for environment override so we'll find the headers in the correct place ++ if (defined $ENV{PERL_LIB}) ++ { ++ $self->{PERL_LIB} = $ENV{PERL_LIB}; ++ } ++ if (defined $ENV{PERL_ARCHLIB}) ++ { ++ $self->{PERL_ARCHLIB} = $ENV{PERL_ARCHLIB}; ++ } ++ if (defined $ENV{PERL_INC}) ++ { ++ $self->{PERL_INC} = $ENV{PERL_INC}; ++ } + my $perl_h; + + if (not -f ($perl_h = $self->catfile($self->{PERL_INC},"perl.h")) diff --git a/meta/recipes-devtools/perl/perl-5.12.3/native-ssp.patch b/meta/recipes-devtools/perl/perl-5.12.3/native-ssp.patch new file mode 100644 index 000000000..e1e6f0873 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/native-ssp.patch @@ -0,0 +1,16 @@ +Upstream-Status:Inappropriate [embedded specific] + +Fix for compiling with ssp enabled gcc: +See http://bugs.openembedded.net/show_bug.cgi?id=1980 + +diff -Naur perl-5.8.7.orig/cflags.SH perl-5.8.7/cflags.SH +--- perl-5.8.7.orig/cflags.SH 2002-09-30 10:59:07.000000000 +0000 ++++ perl-5.8.7/cflags.SH 2005-10-02 04:08:39.000000000 +0000 +@@ -165,6 +165,8 @@ + esac + + : Can we perhaps use $ansi2knr here ++ [[ $file == regcomp ]] && export ccflags="${ccflags} -fno-stack-protector" ++ [[ $file == regexec ]] && export ccflags="${ccflags} -fno-stack-protector" + echo "$cc -c -DPERL_CORE $ccflags $optimize $warn" + eval "$also "'"$cc -DPERL_CORE -c $ccflags $optimize $warn"' 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 new file mode 100644 index 000000000..d5a629538 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_1.patch @@ -0,0 +1,27 @@ +Upstream-Status:Inappropriate [Backport] + +Imported from perl git tree by Nitin A Kamble +2011-02-23 + +commit 6695a346c41138df5b2c0e26b9a49b1f96137da0 +Author: Tony Cook +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 new file mode 100644 index 000000000..a3432ab43 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_2.patch @@ -0,0 +1,24 @@ +Upstream-Status:Inappropriate [Backport] + +Imported from perl git tree by Nitin A Kamble +2011-02-23 + +commit 24e93d7838b346d2ed632075f3d824a325170616 +Author: Tony Cook +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 new file mode 100644 index 000000000..26af1f1d9 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_3.patch @@ -0,0 +1,6585 @@ +Upstream-Status:Inappropriate [Backport] + +Imported from perl git tree by Nitin A Kamble +2011-02-23 + +commit 4feb80ac47a22e7de7d7c1c1d5dfb3d744a2a3a7 +Author: Jerry D. Hedden +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,@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); +-@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 ; +-} +- +-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,@_); +-} +- +-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; +-} +- +-@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 with the exception of any POSIX +-functions with the same name as a built-in Perl function, such as +-C, C, C, C, 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 and then use the fully qualified names (ie. C). +- +-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 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 flushed. +- +-Note that when using threads and in Linux this is B 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. It terminates the +-process with a C signal unless caught by a signal handler or +-if the handler does not return normally (it e.g. does a C). +- +-=item abs +- +-This is identical to Perl's builtin C 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 on failure. Note: do not use C for +-security purposes. Between the C call and the operation +-you are preparing for the permissions might change: a classic +-I. +- +-=item acos +- +-This is identical to the C function C, returning +-the arcus cosine of its numerical argument. See also L. +- +-=item alarm +- +-This is identical to Perl's builtin C function, +-either for arming or disarming the C timer. +- +-=item asctime +- +-This is identical to the C function C. 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, returning +-the arcus sine of its numerical argument. See also L. +- +-=item assert +- +-Unimplemented, but you can use L and the L module +-to achieve similar things. +- +-=item atan +- +-This is identical to the C function C, returning the +-arcus tangent of its numerical argument. See also L. +- +-=item atan2 +- +-This is identical to Perl's builtin C function, returning +-the arcus tangent defined by its two numerical arguments, the I +-coordinate and the I coordinate. See also L. +- +-=item atexit +- +-atexit() is C-specific: use C instead, see L. +- +-=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. +- +-=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. +- +-=item bsearch +- +-bsearch() not supplied. For doing binary search on wordlists, +-see L. +- +-=item calloc +- +-calloc() is C-specific. Perl does memory management transparently. +- +-=item ceil +- +-This is identical to the C function C, returning the smallest +-integer value greater than or equal to the given numerical argument. +- +-=item chdir +- +-This is identical to Perl's builtin C function, allowing +-one to change the working (default) directory, see L. +- +-=item chmod +- +-This is identical to Perl's builtin C function, allowing +-one to change file and directory permissions, see L. +- +-=item chown +- +-This is identical to Perl's builtin C function, allowing one +-to change file and directory owners and groups, see L. +- +-=item clearerr +- +-Use the method C 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, 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. +- +- $fd = POSIX::open( "foo", &POSIX::O_RDONLY ); +- POSIX::close( $fd ); +- +-Returns C on failure. +- +-See also L. +- +-=item closedir +- +-This is identical to Perl's builtin C function for closing +-a directory handle, see L. +- +-=item cos +- +-This is identical to Perl's builtin C function, for returning +-the cosine of its numerical argument, see L. +-See also L. +- +-=item cosh +- +-This is identical to the C function C, for returning +-the hyperbolic cosine of its numeric argument. See also L. +- +-=item creat +- +-Create a new file. This returns a file descriptor like the ones returned by +-C. Use C to close the file. +- +- $fd = POSIX::creat( "foo", 0611 ); +- POSIX::close( $fd ); +- +-See also L and its C flag. +- +-=item ctermid +- +-Generates the path name for the controlling terminal. +- +- $path = POSIX::ctermid(); +- +-=item ctime +- +-This is identical to the C function C and equivalent +-to C, see L and L. +- +-=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, for returning +-the time difference (in seconds) between two times (as returned +-by C), see L. +- +-=item div +- +-div() is C-specific, use L on the usual C division and +-the modulus C<%>. +- +-=item dup +- +-This is similar to the C function C, for duplicating a file +-descriptor. +- +-This uses file descriptors such as those obtained by calling +-C. +- +-Returns C on failure. +- +-=item dup2 +- +-This is similar to the C function C, for duplicating a file +-descriptor to an another known file descriptor. +- +-This uses file descriptors such as those obtained by calling +-C. +- +-Returns C on failure. +- +-=item errno +- +-Returns the value of errno. +- +- $errno = POSIX::errno(); +- +-This identical to the numerical values of the C<$!>, see L. +- +-=item execl +- +-execl() is C-specific, see L. +- +-=item execle +- +-execle() is C-specific, see L. +- +-=item execlp +- +-execlp() is C-specific, see L. +- +-=item execv +- +-execv() is C-specific, see L. +- +-=item execve +- +-execve() is C-specific, see L. +- +-=item execvp +- +-execvp() is C-specific, see L. +- +-=item exit +- +-This is identical to Perl's builtin C function for exiting the +-program, see L. +- +-=item exp +- +-This is identical to Perl's builtin C function for +-returning the exponent (I-based) of the numerical argument, +-see L. +- +-=item fabs +- +-This is identical to Perl's builtin C function for returning +-the absolute value of the numerical argument, see L. +- +-=item fclose +- +-Use method C instead, or see L. +- +-=item fcntl +- +-This is identical to Perl's builtin C function, +-see L. +- +-=item fdopen +- +-Use method C instead, or see L. +- +-=item feof +- +-Use method C instead, or see L. +- +-=item ferror +- +-Use method C instead. +- +-=item fflush +- +-Use method C instead. +-See also L. +- +-=item fgetc +- +-Use method C instead, or see L. +- +-=item fgetpos +- +-Use method C instead, or see L. +- +-=item fgets +- +-Use method C instead. Similar to EE, also known +-as L. +- +-=item fileno +- +-Use method C instead, or see L. +- +-=item floor +- +-This is identical to the C function C, returning the largest +-integer value less than or equal to the numerical argument. +- +-=item fmod +- +-This is identical to the C function C. +- +- $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 instead, or see L. +- +-=item fork +- +-This is identical to Perl's builtin C function +-for duplicating the current process, see L +-and L 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. +- +-The following will determine the maximum length of the longest allowable +-pathname on the filesystem which holds C. +- +- $fd = POSIX::open( "/var/foo", &POSIX::O_RDONLY ); +- $path_max = POSIX::fpathconf( $fd, &POSIX::_PC_PATH_MAX ); +- +-Returns C on failure. +- +-=item fprintf +- +-fprintf() is C-specific, see L instead. +- +-=item fputc +- +-fputc() is C-specific, see L instead. +- +-=item fputs +- +-fputs() is C-specific, see L instead. +- +-=item fread +- +-fread() is C-specific, see L instead. +- +-=item free +- +-free() is C-specific. Perl does memory management transparently. +- +-=item freopen +- +-freopen() is C-specific, see L 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 EE and regular expressions instead. +- +-=item fseek +- +-Use method C instead, or see L. +- +-=item fsetpos +- +-Use method C instead, or seek L. +- +-=item fstat +- +-Get file status. This uses file descriptors such as those obtained by +-calling C. The data returned is identical to the data from +-Perl's builtin C function. +- +- $fd = POSIX::open( "foo", &POSIX::O_RDONLY ); +- @stats = POSIX::fstat( $fd ); +- +-=item fsync +- +-Use method C instead. +- +-=item ftell +- +-Use method C instead, or see L. +- +-=item fwrite +- +-fwrite() is C-specific, see L instead. +- +-=item getc +- +-This is identical to Perl's builtin C function, +-see L. +- +-=item getchar +- +-Returns one character from STDIN. Identical to Perl's C, +-see L. +- +-=item getcwd +- +-Returns the name of the current working directory. +-See also L. +- +-=item getegid +- +-Returns the effective group identifier. Similar to Perl' s builtin +-variable C<$(>, see L. +- +-=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> +-variable, see L. +- +-=item getgid +- +-Returns the user's real group identifier. Similar to Perl's builtin +-variable C<$)>, see L. +- +-=item getgrgid +- +-This is identical to Perl's builtin C function for +-returning group entries by group identifiers, see +-L. +- +-=item getgrnam +- +-This is identical to Perl's builtin C function for +-returning group entries by group names, see L. +- +-=item getgroups +- +-Returns the ids of the user's supplementary groups. Similar to Perl's +-builtin variable C<$)>, see L. +- +-=item getlogin +- +-This is identical to Perl's builtin C function for +-returning the user name associated with the current session, see +-L. +- +-=item getpgrp +- +-This is identical to Perl's builtin C function for +-returning the process group identifier of the current process, see +-L. +- +-=item getpid +- +-Returns the process identifier. Identical to Perl's builtin +-variable C<$$>, see L. +- +-=item getppid +- +-This is identical to Perl's builtin C function for +-returning the process identifier of the parent process of the current +-process , see L. +- +-=item getpwnam +- +-This is identical to Perl's builtin C function for +-returning user entries by user names, see L. +- +-=item getpwuid +- +-This is identical to Perl's builtin C function for +-returning user entries by user identifiers, see L. +- +-=item gets +- +-Returns one line from C, similar to EE, also known +-as the C function, see L. +- +-B: if you have C programs that still use C, be very +-afraid. The C function is a source of endless grief because +-it has no buffer overrun checks. It should B be used. The +-C function should be preferred instead. +- +-=item getuid +- +-Returns the user's identifier. Identical to Perl's builtin C<$E> variable, +-see L. +- +-=item gmtime +- +-This is identical to Perl's builtin C function for +-converting seconds since the epoch to a date in Greenwich Mean Time, +-see L. +- +-=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. Does not work on +-Unicode characters code point 256 or higher. Consider using regular +-expressions and the C construct instead, or possibly +-the C 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. Does not work +-on Unicode characters code point 256 or higher. Consider using regular +-expressions and the C 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. +- +-=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. Does not work +-on Unicode characters code point 256 or higher. Consider using regular +-expressions and the C 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 (unlikely, but +-still possible). Does not work on Unicode characters code point 256 +-or higher. Consider using regular expressions and the C +-construct instead, or the C 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. Does not work +-on Unicode characters code point 256 or higher. Consider using regular +-expressions and the C 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. Does not work +-on Unicode characters code point 256 or higher. Consider using regular +-expressions and the C construct instead. Do B use +-C. +- +-=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. Does not work +-on Unicode characters code point 256 or higher. Consider using regular +-expressions and the C 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. Does not work +-on Unicode characters code point 256 or higher. Consider using regular +-expressions and the C 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. Does not work +-on Unicode characters code point 256 or higher. Consider using regular +-expressions and the C construct instead, or the C +-construct. (Note that C and C are slightly +-different in that C can normally match a vertical tab, +-while C 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. Does not work +-on Unicode characters code point 256 or higher. Consider using regular +-expressions and the C construct instead. Do B use +-C. +- +-=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 (unlikely, but still possible). +-Does not work on Unicode characters code point 256 or higher. +-Consider using regular expressions and the C +-construct instead, or simply C. +- +-=item kill +- +-This is identical to Perl's builtin C function for sending +-signals to processes (often to terminate them), see L. +- +-=item labs +- +-(For returning absolute values of long integers.) +-labs() is C-specific, see L instead. +- +-=item lchown +- +-This is identical to the C function, except the order of arguments is +-consistent with Perl's builtin C with the added restriction +-of only one path, not an list of paths. Does the same thing as the +-C 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 +-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 instead. +- +-=item link +- +-This is identical to Perl's builtin C function +-for creating hard links into files, see L. +- +-=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 (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 function for +-converting seconds since the epoch to a date see L. +- +-=item log +- +-This is identical to Perl's builtin C function, +-returning the natural (I-based) logarithm of the numerical argument, +-see L. +- +-=item log10 +- +-This is identical to the C function C, +-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 instead. +- +-=item lseek +- +-Move the file's read/write position. This uses file descriptors such as +-those obtained by calling C. +- +- $fd = POSIX::open( "foo", &POSIX::O_RDONLY ); +- $off_t = POSIX::lseek( $fd, 0, &POSIX::SEEK_SET ); +- +-Returns C on failure. +- +-=item malloc +- +-malloc() is C-specific. Perl does memory management transparently. +- +-=item mblen +- +-This is identical to the C function C. +-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. +-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. +-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 instead. +- +-=item memcmp +- +-memcmp() is C-specific, use C instead, see L. +- +-=item memcpy +- +-memcpy() is C-specific, use C<=>, see L, or see L. +- +-=item memmove +- +-memmove() is C-specific, use C<=>, see L, or see L. +- +-=item memset +- +-memset() is C-specific, use C instead, see L. +- +-=item mkdir +- +-This is identical to Perl's builtin C function +-for creating directories, see L. +- +-=item mkfifo +- +-This is similar to the C function C for creating +-FIFO special files. +- +- if (mkfifo($path, $mode)) { .... +- +-Returns C on failure. The C<$mode> is similar to the +-mode of C, see L, though for C +-you B 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), weekday (C), and yearday (C) begin at zero. +-I.e. January is 0, not 1; Sunday is 0, not 1; January 1st is 0, not 1. The +-year (C) is given in years since 1900. I.e. The year 1995 is 95; the +-year 2001 is 101. Consult your system's C 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 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, 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 on failure. +- +-=item offsetof +- +-offsetof() is C-specific, you probably want to see L instead. +- +-=item open +- +-Open a file for reading for writing. This returns file descriptors, not +-Perl filehandles. Use C 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 on failure. +- +-See also L. +- +-=item opendir +- +-Open a directory for reading. +- +- $dir = POSIX::opendir( "/var" ); +- @files = POSIX::readdir( $dir ); +- POSIX::closedir( $dir ); +- +-Returns C 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. +- +- $path_max = POSIX::pathconf( "/var", &POSIX::_PC_PATH_MAX ); +- +-Returns C on failure. +- +-=item pause +- +-This is similar to the C function C, which suspends +-the execution of the current process until a signal is received. +- +-Returns C on failure. +- +-=item perror +- +-This is identical to the C function C, which outputs to the +-standard error stream the specified message followed by ": " and the +-current error string. Use the C function and the C<$!> +-variable instead, see L and L. +- +-=item pipe +- +-Create an interprocess channel. This returns file descriptors like those +-returned by C. +- +- my ($read, $write) = POSIX::pipe(); +- POSIX::write( $write, "hello", 5 ); +- POSIX::read( $read, $buf, 5 ); +- +-See also L. +- +-=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. +- +-=item printf +- +-Formats and prints the specified arguments to STDOUT. +-See also L. +- +-=item putc +- +-putc() is C-specific, see L instead. +- +-=item putchar +- +-putchar() is C-specific, see L instead. +- +-=item puts +- +-puts() is C-specific, see L instead. +- +-=item qsort +- +-qsort() is C-specific, see L instead. +- +-=item raise +- +-Sends the specified signal to the current process. +-See also L and the C<$$> in L. +- +-=item rand +- +-C is non-portable, see L instead. +- +-=item read +- +-Read from a file. This uses file descriptors such as those obtained by +-calling C. 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 on failure. +- +-See also L. +- +-=item readdir +- +-This is identical to Perl's builtin C function +-for reading directory entries, see L. +- +-=item realloc +- +-realloc() is C-specific. Perl does memory management transparently. +- +-=item remove +- +-This is identical to Perl's builtin C function +-for removing files, see L. +- +-=item rename +- +-This is identical to Perl's builtin C function +-for renaming files, see L. +- +-=item rewind +- +-Seeks to the beginning of the file. +- +-=item rewinddir +- +-This is identical to Perl's builtin C function for +-rewinding directory entry streams, see L. +- +-=item rmdir +- +-This is identical to Perl's builtin C function +-for removing (empty) directories, see L. +- +-=item scanf +- +-scanf() is C-specific, use EE and regular expressions instead, +-see L. +- +-=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, 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 is C-specific: use C instead, +-see L. +- +-=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 documentation for the locale +-environment variables' meaning or consult L. +- +- $loc = setlocale( LC_CTYPE, "" ); +- +-The following will set the LC_COLLATE behaviour to Argentinian +-Spanish. B: The naming and availability of locales depends on +-your operating system. Please consult L 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 for +-setting the process group identifier of the current process. +- +-Returns C on failure. +- +-=item setsid +- +-This is identical to the C function C 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> variable, see L, except that the latter +-will change only the real user identifier. +- +-=item sigaction +- +-Detailed signal management. This uses C objects for +-the C and C arguments (the oldaction can also be +-just a hash reference). Consult your system's C manpage +-for details, see also C. +- +-Synopsis: +- +- sigaction(signal, action, oldaction = 0) +- +-Returns C on failure. The C 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 and possibly also C documentation. +- +-=item siglongjmp +- +-siglongjmp() is C-specific: use L instead. +- +-=item sigpending +- +-Examine signals that are blocked and pending. This uses C +-objects for the C argument. Consult your system's C +-manpage for details. +- +-Synopsis: +- +- sigpending(sigset) +- +-Returns C on failure. +- +-=item sigprocmask +- +-Change and/or examine calling process's signal mask. This uses +-C objects for the C and C arguments. +-Consult your system's C manpage for details. +- +-Synopsis: +- +- sigprocmask(how, sigset, oldsigset = 0) +- +-Returns C on failure. +- +-=item sigsetjmp +- +-C is C-specific: use C instead, +-see L. +- +-=item sigsuspend +- +-Install a signal mask and suspend process until signal arrives. This uses +-C objects for the C argument. Consult your +-system's C manpage for details. +- +-Synopsis: +- +- sigsuspend(signal_mask) +- +-Returns C on failure. +- +-=item sin +- +-This is identical to Perl's builtin C function +-for returning the sine of the numerical argument, +-see L. See also L. +- +-=item sinh +- +-This is identical to the C function C +-for returning the hyperbolic sine of the numerical argument. +-See also L. +- +-=item sleep +- +-This is functionally identical to Perl's builtin C function +-for suspending the execution of the current for process for certain +-number of seconds, see L. There is one significant +-difference, however: C returns the number of +-B seconds, while the C returns the +-number of slept seconds. +- +-=item sprintf +- +-This is similar to Perl's builtin C function +-for returning a string that has the arguments formatted as requested, +-see L. +- +-=item sqrt +- +-This is identical to Perl's builtin C function. +-for returning the square root of the numerical argument, +-see L. +- +-=item srand +- +-Give a seed the pseudorandom number generator, see L. +- +-=item sscanf +- +-sscanf() is C-specific, use regular expressions instead, +-see L. +- +-=item stat +- +-This is identical to Perl's builtin C function +-for returning information about files and directories. +- +-=item strcat +- +-strcat() is C-specific, use C<.=> instead, see L. +- +-=item strchr +- +-strchr() is C-specific, see L instead. +- +-=item strcmp +- +-strcmp() is C-specific, use C or C instead, see L. +- +-=item strcoll +- +-This is identical to the C function C +-for collating (comparing) strings transformed using +-the C function. Not really needed since +-Perl can do this transparently, see L. +- +-=item strcpy +- +-strcpy() is C-specific, use C<=> instead, see L. +- +-=item strcspn +- +-strcspn() is C-specific, use regular expressions instead, +-see L. +- +-=item strerror +- +-Returns the error string for the specified errno. +-Identical to the string form of the C<$!>, see L. +- +-=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), weekday (C), and yearday (C) begin at zero. +-I.e. January is 0, not 1; Sunday is 0, not 1; January 1st is 0, not 1. The +-year (C) is given in years since 1900. I.e., the year 1995 is 95; the +-year 2001 is 101. Consult your system's C manpage for details +-about these and the other arguments. +- +-If you want your code to be portable, your format (C) argument +-should use only the conversion specifiers defined by the ANSI C +-standard (C89, to play safe). These are C. +-But even then, the B of some of the conversion specifiers are +-non-portable. For example, the specifiers C 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 changes according to the timezone settings of the +-user and the timezone computation rules of the operating system. +-The C 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 before calling your system's C function, +-except that the C 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 instead, see L. +- +-=item strncat +- +-strncat() is C-specific, use C<.=> instead, see L. +- +-=item strncmp +- +-strncmp() is C-specific, use C instead, see L. +- +-=item strncpy +- +-strncpy() is C-specific, use C<=> instead, see L. +- +-=item strpbrk +- +-strpbrk() is C-specific, use regular expressions instead, +-see L. +- +-=item strrchr +- +-strrchr() is C-specific, see L instead. +- +-=item strspn +- +-strspn() is C-specific, use regular expressions instead, +-see L. +- +-=item strstr +- +-This is identical to Perl's builtin C function, +-see L. +- +-=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 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, or L. +- +-=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 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 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 function, see L. +- +-Not really needed since Perl can do this transparently, see +-L. +- +-=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 on failure. +- +-=item system +- +-This is identical to Perl's builtin C function, see +-L. +- +-=item tan +- +-This is identical to the C function C, returning the +-tangent of the numerical argument. See also L. +- +-=item tanh +- +-This is identical to the C function C, returning the +-hyperbolic tangent of the numerical argument. See also L. +- +-=item tcdrain +- +-This is similar to the C function C for draining +-the output queue of its argument stream. +- +-Returns C on failure. +- +-=item tcflow +- +-This is similar to the C function C for controlling +-the flow of its argument stream. +- +-Returns C on failure. +- +-=item tcflush +- +-This is similar to the C function C for flushing +-the I/O buffers of its argument stream. +- +-Returns C on failure. +- +-=item tcgetpgrp +- +-This is identical to the C function C 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 for sending +-a break on its argument stream. +- +-Returns C on failure. +- +-=item tcsetpgrp +- +-This is similar to the C function C for setting the +-process group identifier of the foreground process group of the controlling +-terminal. +- +-Returns C on failure. +- +-=item time +- +-This is identical to Perl's builtin C function +-for returning the number of seconds since the epoch +-(whatever it is for the system), see L. +- +-=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 function returns four values, measured in +-seconds. +- +-=item tmpfile +- +-Use method C instead, or see L. +- +-=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. +- +-=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 function, +-see L, 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 function, +-see L, or the equivalent C<\U> operator inside doublequotish +-strings. +- +-=item ttyname +- +-This is identical to the C function C for returning the +-name of the current terminal. +- +-=item tzname +- +-Retrieves the time conversion information from the C variable. +- +- POSIX::tzset(); +- ($std, $dst) = POSIX::tzname(); +- +-=item tzset +- +-This is identical to the C function C for setting +-the current timezone based on the environment variable C, +-to be used by C, C, C, and C +-functions. +- +-=item umask +- +-This is identical to Perl's builtin C function +-for setting (and querying) the file creation permission mask, +-see L. +- +-=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 instead. +- +-=item unlink +- +-This is identical to Perl's builtin C function +-for removing files, see L. +- +-=item utime +- +-This is identical to Perl's builtin C function +-for changing the time stamps of files and directories, +-see L. +- +-=item vfprintf +- +-vfprintf() is C-specific, see L instead. +- +-=item vprintf +- +-vprintf() is C-specific, see L instead. +- +-=item vsprintf +- +-vsprintf() is C-specific, see L instead. +- +-=item wait +- +-This is identical to Perl's builtin C function, +-see L. +- +-=item waitpid +- +-Wait for a child process to change state. This is identical to Perl's +-builtin C function, see L. +- +- $pid = POSIX::waitpid( -1, POSIX::WNOHANG ); +- print "status = ", ($? / 256), "\n"; +- +-=item wcstombs +- +-This is identical to the C function C. +-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. +-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. +- +- $fd = POSIX::open( "foo", &POSIX::O_WRONLY ); +- $buf = "hello"; +- $bytes = POSIX::write( $fd, $buf, 5 ); +- +-Returns C on failure. +- +-See also L. +- +-=back +- +-=head1 CLASSES +- +-=head2 POSIX::SigAction +- +-=over 8 +- +-=item new +- +-Creates a new C object which corresponds to the C +-C. 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 object, it +-defaults to the empty set. The third parameter contains the +-C, it defaults to 0. +- +- $sigset = POSIX::SigSet->new(SIGINT, SIGQUIT); +- $sigaction = POSIX::SigAction->new( \&handler, $sigset, &POSIX::SA_NOCLDSTOP ); +- +-This C object is intended for use with the C +-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 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 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: +- +- 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 and C on the elements, and use +-C 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 on $POSIX::SigRt::SIGACTION_FLAGS, or you can +-derive from POSIX::SigRt and define your own C (the tied hash +-STORE method of the %SIGRT calls C, +-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 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 +-if no POSIX realtime signals are available. +- +-=item SIGRTMAX +- +-Return the maximum POSIX realtime signal number available, or C +-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 on failure. +- +-=item delset +- +-Remove a signal from the SigSet object. +- +- $sigset->delset( &POSIX::SIGUSR2 ); +- +-Returns C on failure. +- +-=item emptyset +- +-Initialize the SigSet object to be empty. +- +- $sigset->emptyset(); +- +-Returns C on failure. +- +-=item fillset +- +-Initialize the SigSet object to include all signals. +- +- $sigset->fillset(); +- +-Returns C 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 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 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 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 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 or by falling off the end of C) +- +-=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,@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); ++@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 ; ++} ++ ++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,@_); ++} ++ ++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; ++} ++ ++@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 with the exception of any POSIX ++functions with the same name as a built-in Perl function, such as ++C, C, C, C, 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 and then use the fully qualified names (ie. C). ++ ++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 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 flushed. ++ ++Note that when using threads and in Linux this is B 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. It terminates the ++process with a C signal unless caught by a signal handler or ++if the handler does not return normally (it e.g. does a C). ++ ++=item abs ++ ++This is identical to Perl's builtin C 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 on failure. Note: do not use C for ++security purposes. Between the C call and the operation ++you are preparing for the permissions might change: a classic ++I. ++ ++=item acos ++ ++This is identical to the C function C, returning ++the arcus cosine of its numerical argument. See also L. ++ ++=item alarm ++ ++This is identical to Perl's builtin C function, ++either for arming or disarming the C timer. ++ ++=item asctime ++ ++This is identical to the C function C. 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, returning ++the arcus sine of its numerical argument. See also L. ++ ++=item assert ++ ++Unimplemented, but you can use L and the L module ++to achieve similar things. ++ ++=item atan ++ ++This is identical to the C function C, returning the ++arcus tangent of its numerical argument. See also L. ++ ++=item atan2 ++ ++This is identical to Perl's builtin C function, returning ++the arcus tangent defined by its two numerical arguments, the I ++coordinate and the I coordinate. See also L. ++ ++=item atexit ++ ++atexit() is C-specific: use C instead, see L. ++ ++=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. ++ ++=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. ++ ++=item bsearch ++ ++bsearch() not supplied. For doing binary search on wordlists, ++see L. ++ ++=item calloc ++ ++calloc() is C-specific. Perl does memory management transparently. ++ ++=item ceil ++ ++This is identical to the C function C, returning the smallest ++integer value greater than or equal to the given numerical argument. ++ ++=item chdir ++ ++This is identical to Perl's builtin C function, allowing ++one to change the working (default) directory, see L. ++ ++=item chmod ++ ++This is identical to Perl's builtin C function, allowing ++one to change file and directory permissions, see L. ++ ++=item chown ++ ++This is identical to Perl's builtin C function, allowing one ++to change file and directory owners and groups, see L. ++ ++=item clearerr ++ ++Use the method C 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, 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. ++ ++ $fd = POSIX::open( "foo", &POSIX::O_RDONLY ); ++ POSIX::close( $fd ); ++ ++Returns C on failure. ++ ++See also L. ++ ++=item closedir ++ ++This is identical to Perl's builtin C function for closing ++a directory handle, see L. ++ ++=item cos ++ ++This is identical to Perl's builtin C function, for returning ++the cosine of its numerical argument, see L. ++See also L. ++ ++=item cosh ++ ++This is identical to the C function C, for returning ++the hyperbolic cosine of its numeric argument. See also L. ++ ++=item creat ++ ++Create a new file. This returns a file descriptor like the ones returned by ++C. Use C to close the file. ++ ++ $fd = POSIX::creat( "foo", 0611 ); ++ POSIX::close( $fd ); ++ ++See also L and its C flag. ++ ++=item ctermid ++ ++Generates the path name for the controlling terminal. ++ ++ $path = POSIX::ctermid(); ++ ++=item ctime ++ ++This is identical to the C function C and equivalent ++to C, see L and L. ++ ++=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, for returning ++the time difference (in seconds) between two times (as returned ++by C), see L. ++ ++=item div ++ ++div() is C-specific, use L on the usual C division and ++the modulus C<%>. ++ ++=item dup ++ ++This is similar to the C function C, for duplicating a file ++descriptor. ++ ++This uses file descriptors such as those obtained by calling ++C. ++ ++Returns C on failure. ++ ++=item dup2 ++ ++This is similar to the C function C, for duplicating a file ++descriptor to an another known file descriptor. ++ ++This uses file descriptors such as those obtained by calling ++C. ++ ++Returns C on failure. ++ ++=item errno ++ ++Returns the value of errno. ++ ++ $errno = POSIX::errno(); ++ ++This identical to the numerical values of the C<$!>, see L. ++ ++=item execl ++ ++execl() is C-specific, see L. ++ ++=item execle ++ ++execle() is C-specific, see L. ++ ++=item execlp ++ ++execlp() is C-specific, see L. ++ ++=item execv ++ ++execv() is C-specific, see L. ++ ++=item execve ++ ++execve() is C-specific, see L. ++ ++=item execvp ++ ++execvp() is C-specific, see L. ++ ++=item exit ++ ++This is identical to Perl's builtin C function for exiting the ++program, see L. ++ ++=item exp ++ ++This is identical to Perl's builtin C function for ++returning the exponent (I-based) of the numerical argument, ++see L. ++ ++=item fabs ++ ++This is identical to Perl's builtin C function for returning ++the absolute value of the numerical argument, see L. ++ ++=item fclose ++ ++Use method C instead, or see L. ++ ++=item fcntl ++ ++This is identical to Perl's builtin C function, ++see L. ++ ++=item fdopen ++ ++Use method C instead, or see L. ++ ++=item feof ++ ++Use method C instead, or see L. ++ ++=item ferror ++ ++Use method C instead. ++ ++=item fflush ++ ++Use method C instead. ++See also L. ++ ++=item fgetc ++ ++Use method C instead, or see L. ++ ++=item fgetpos ++ ++Use method C instead, or see L. ++ ++=item fgets ++ ++Use method C instead. Similar to EE, also known ++as L. ++ ++=item fileno ++ ++Use method C instead, or see L. ++ ++=item floor ++ ++This is identical to the C function C, returning the largest ++integer value less than or equal to the numerical argument. ++ ++=item fmod ++ ++This is identical to the C function C. ++ ++ $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 instead, or see L. ++ ++=item fork ++ ++This is identical to Perl's builtin C function ++for duplicating the current process, see L ++and L 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. ++ ++The following will determine the maximum length of the longest allowable ++pathname on the filesystem which holds C. ++ ++ $fd = POSIX::open( "/var/foo", &POSIX::O_RDONLY ); ++ $path_max = POSIX::fpathconf( $fd, &POSIX::_PC_PATH_MAX ); ++ ++Returns C on failure. ++ ++=item fprintf ++ ++fprintf() is C-specific, see L instead. ++ ++=item fputc ++ ++fputc() is C-specific, see L instead. ++ ++=item fputs ++ ++fputs() is C-specific, see L instead. ++ ++=item fread ++ ++fread() is C-specific, see L instead. ++ ++=item free ++ ++free() is C-specific. Perl does memory management transparently. ++ ++=item freopen ++ ++freopen() is C-specific, see L 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 EE and regular expressions instead. ++ ++=item fseek ++ ++Use method C instead, or see L. ++ ++=item fsetpos ++ ++Use method C instead, or seek L. ++ ++=item fstat ++ ++Get file status. This uses file descriptors such as those obtained by ++calling C. The data returned is identical to the data from ++Perl's builtin C function. ++ ++ $fd = POSIX::open( "foo", &POSIX::O_RDONLY ); ++ @stats = POSIX::fstat( $fd ); ++ ++=item fsync ++ ++Use method C instead. ++ ++=item ftell ++ ++Use method C instead, or see L. ++ ++=item fwrite ++ ++fwrite() is C-specific, see L instead. ++ ++=item getc ++ ++This is identical to Perl's builtin C function, ++see L. ++ ++=item getchar ++ ++Returns one character from STDIN. Identical to Perl's C, ++see L. ++ ++=item getcwd ++ ++Returns the name of the current working directory. ++See also L. ++ ++=item getegid ++ ++Returns the effective group identifier. Similar to Perl' s builtin ++variable C<$(>, see L. ++ ++=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> ++variable, see L. ++ ++=item getgid ++ ++Returns the user's real group identifier. Similar to Perl's builtin ++variable C<$)>, see L. ++ ++=item getgrgid ++ ++This is identical to Perl's builtin C function for ++returning group entries by group identifiers, see ++L. ++ ++=item getgrnam ++ ++This is identical to Perl's builtin C function for ++returning group entries by group names, see L. ++ ++=item getgroups ++ ++Returns the ids of the user's supplementary groups. Similar to Perl's ++builtin variable C<$)>, see L. ++ ++=item getlogin ++ ++This is identical to Perl's builtin C function for ++returning the user name associated with the current session, see ++L. ++ ++=item getpgrp ++ ++This is identical to Perl's builtin C function for ++returning the process group identifier of the current process, see ++L. ++ ++=item getpid ++ ++Returns the process identifier. Identical to Perl's builtin ++variable C<$$>, see L. ++ ++=item getppid ++ ++This is identical to Perl's builtin C function for ++returning the process identifier of the parent process of the current ++process , see L. ++ ++=item getpwnam ++ ++This is identical to Perl's builtin C function for ++returning user entries by user names, see L. ++ ++=item getpwuid ++ ++This is identical to Perl's builtin C function for ++returning user entries by user identifiers, see L. ++ ++=item gets ++ ++Returns one line from C, similar to EE, also known ++as the C function, see L. ++ ++B: if you have C programs that still use C, be very ++afraid. The C function is a source of endless grief because ++it has no buffer overrun checks. It should B be used. The ++C function should be preferred instead. ++ ++=item getuid ++ ++Returns the user's identifier. Identical to Perl's builtin C<$E> variable, ++see L. ++ ++=item gmtime ++ ++This is identical to Perl's builtin C function for ++converting seconds since the epoch to a date in Greenwich Mean Time, ++see L. ++ ++=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. Does not work on ++Unicode characters code point 256 or higher. Consider using regular ++expressions and the C construct instead, or possibly ++the C 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. Does not work ++on Unicode characters code point 256 or higher. Consider using regular ++expressions and the C 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. ++ ++=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. Does not work ++on Unicode characters code point 256 or higher. Consider using regular ++expressions and the C 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 (unlikely, but ++still possible). Does not work on Unicode characters code point 256 ++or higher. Consider using regular expressions and the C ++construct instead, or the C 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. Does not work ++on Unicode characters code point 256 or higher. Consider using regular ++expressions and the C 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. Does not work ++on Unicode characters code point 256 or higher. Consider using regular ++expressions and the C construct instead. Do B use ++C. ++ ++=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. Does not work ++on Unicode characters code point 256 or higher. Consider using regular ++expressions and the C 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. Does not work ++on Unicode characters code point 256 or higher. Consider using regular ++expressions and the C 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. Does not work ++on Unicode characters code point 256 or higher. Consider using regular ++expressions and the C construct instead, or the C ++construct. (Note that C and C are slightly ++different in that C can normally match a vertical tab, ++while C 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. Does not work ++on Unicode characters code point 256 or higher. Consider using regular ++expressions and the C construct instead. Do B use ++C. ++ ++=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 (unlikely, but still possible). ++Does not work on Unicode characters code point 256 or higher. ++Consider using regular expressions and the C ++construct instead, or simply C. ++ ++=item kill ++ ++This is identical to Perl's builtin C function for sending ++signals to processes (often to terminate them), see L. ++ ++=item labs ++ ++(For returning absolute values of long integers.) ++labs() is C-specific, see L instead. ++ ++=item lchown ++ ++This is identical to the C function, except the order of arguments is ++consistent with Perl's builtin C with the added restriction ++of only one path, not an list of paths. Does the same thing as the ++C 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 ++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 instead. ++ ++=item link ++ ++This is identical to Perl's builtin C function ++for creating hard links into files, see L. ++ ++=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 (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 function for ++converting seconds since the epoch to a date see L. ++ ++=item log ++ ++This is identical to Perl's builtin C function, ++returning the natural (I-based) logarithm of the numerical argument, ++see L. ++ ++=item log10 ++ ++This is identical to the C function C, ++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 instead. ++ ++=item lseek ++ ++Move the file's read/write position. This uses file descriptors such as ++those obtained by calling C. ++ ++ $fd = POSIX::open( "foo", &POSIX::O_RDONLY ); ++ $off_t = POSIX::lseek( $fd, 0, &POSIX::SEEK_SET ); ++ ++Returns C on failure. ++ ++=item malloc ++ ++malloc() is C-specific. Perl does memory management transparently. ++ ++=item mblen ++ ++This is identical to the C function C. ++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. ++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. ++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 instead. ++ ++=item memcmp ++ ++memcmp() is C-specific, use C instead, see L. ++ ++=item memcpy ++ ++memcpy() is C-specific, use C<=>, see L, or see L. ++ ++=item memmove ++ ++memmove() is C-specific, use C<=>, see L, or see L. ++ ++=item memset ++ ++memset() is C-specific, use C instead, see L. ++ ++=item mkdir ++ ++This is identical to Perl's builtin C function ++for creating directories, see L. ++ ++=item mkfifo ++ ++This is similar to the C function C for creating ++FIFO special files. ++ ++ if (mkfifo($path, $mode)) { .... ++ ++Returns C on failure. The C<$mode> is similar to the ++mode of C, see L, though for C ++you B 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), weekday (C), and yearday (C) begin at zero. ++I.e. January is 0, not 1; Sunday is 0, not 1; January 1st is 0, not 1. The ++year (C) is given in years since 1900. I.e. The year 1995 is 95; the ++year 2001 is 101. Consult your system's C 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 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, 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 on failure. ++ ++=item offsetof ++ ++offsetof() is C-specific, you probably want to see L instead. ++ ++=item open ++ ++Open a file for reading for writing. This returns file descriptors, not ++Perl filehandles. Use C 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 on failure. ++ ++See also L. ++ ++=item opendir ++ ++Open a directory for reading. ++ ++ $dir = POSIX::opendir( "/var" ); ++ @files = POSIX::readdir( $dir ); ++ POSIX::closedir( $dir ); ++ ++Returns C 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. ++ ++ $path_max = POSIX::pathconf( "/var", &POSIX::_PC_PATH_MAX ); ++ ++Returns C on failure. ++ ++=item pause ++ ++This is similar to the C function C, which suspends ++the execution of the current process until a signal is received. ++ ++Returns C on failure. ++ ++=item perror ++ ++This is identical to the C function C, which outputs to the ++standard error stream the specified message followed by ": " and the ++current error string. Use the C function and the C<$!> ++variable instead, see L and L. ++ ++=item pipe ++ ++Create an interprocess channel. This returns file descriptors like those ++returned by C. ++ ++ my ($read, $write) = POSIX::pipe(); ++ POSIX::write( $write, "hello", 5 ); ++ POSIX::read( $read, $buf, 5 ); ++ ++See also L. ++ ++=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. ++ ++=item printf ++ ++Formats and prints the specified arguments to STDOUT. ++See also L. ++ ++=item putc ++ ++putc() is C-specific, see L instead. ++ ++=item putchar ++ ++putchar() is C-specific, see L instead. ++ ++=item puts ++ ++puts() is C-specific, see L instead. ++ ++=item qsort ++ ++qsort() is C-specific, see L instead. ++ ++=item raise ++ ++Sends the specified signal to the current process. ++See also L and the C<$$> in L. ++ ++=item rand ++ ++C is non-portable, see L instead. ++ ++=item read ++ ++Read from a file. This uses file descriptors such as those obtained by ++calling C. 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 on failure. ++ ++See also L. ++ ++=item readdir ++ ++This is identical to Perl's builtin C function ++for reading directory entries, see L. ++ ++=item realloc ++ ++realloc() is C-specific. Perl does memory management transparently. ++ ++=item remove ++ ++This is identical to Perl's builtin C function ++for removing files, see L. ++ ++=item rename ++ ++This is identical to Perl's builtin C function ++for renaming files, see L. ++ ++=item rewind ++ ++Seeks to the beginning of the file. ++ ++=item rewinddir ++ ++This is identical to Perl's builtin C function for ++rewinding directory entry streams, see L. ++ ++=item rmdir ++ ++This is identical to Perl's builtin C function ++for removing (empty) directories, see L. ++ ++=item scanf ++ ++scanf() is C-specific, use EE and regular expressions instead, ++see L. ++ ++=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, 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 is C-specific: use C instead, ++see L. ++ ++=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 documentation for the locale ++environment variables' meaning or consult L. ++ ++ $loc = setlocale( LC_CTYPE, "" ); ++ ++The following will set the LC_COLLATE behaviour to Argentinian ++Spanish. B: The naming and availability of locales depends on ++your operating system. Please consult L 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 for ++setting the process group identifier of the current process. ++ ++Returns C on failure. ++ ++=item setsid ++ ++This is identical to the C function C 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> variable, see L, except that the latter ++will change only the real user identifier. ++ ++=item sigaction ++ ++Detailed signal management. This uses C objects for ++the C and C arguments (the oldaction can also be ++just a hash reference). Consult your system's C manpage ++for details, see also C. ++ ++Synopsis: ++ ++ sigaction(signal, action, oldaction = 0) ++ ++Returns C on failure. The C 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 and possibly also C documentation. ++ ++=item siglongjmp ++ ++siglongjmp() is C-specific: use L instead. ++ ++=item sigpending ++ ++Examine signals that are blocked and pending. This uses C ++objects for the C argument. Consult your system's C ++manpage for details. ++ ++Synopsis: ++ ++ sigpending(sigset) ++ ++Returns C on failure. ++ ++=item sigprocmask ++ ++Change and/or examine calling process's signal mask. This uses ++C objects for the C and C arguments. ++Consult your system's C manpage for details. ++ ++Synopsis: ++ ++ sigprocmask(how, sigset, oldsigset = 0) ++ ++Returns C on failure. ++ ++=item sigsetjmp ++ ++C is C-specific: use C instead, ++see L. ++ ++=item sigsuspend ++ ++Install a signal mask and suspend process until signal arrives. This uses ++C objects for the C argument. Consult your ++system's C manpage for details. ++ ++Synopsis: ++ ++ sigsuspend(signal_mask) ++ ++Returns C on failure. ++ ++=item sin ++ ++This is identical to Perl's builtin C function ++for returning the sine of the numerical argument, ++see L. See also L. ++ ++=item sinh ++ ++This is identical to the C function C ++for returning the hyperbolic sine of the numerical argument. ++See also L. ++ ++=item sleep ++ ++This is functionally identical to Perl's builtin C function ++for suspending the execution of the current for process for certain ++number of seconds, see L. There is one significant ++difference, however: C returns the number of ++B seconds, while the C returns the ++number of slept seconds. ++ ++=item sprintf ++ ++This is similar to Perl's builtin C function ++for returning a string that has the arguments formatted as requested, ++see L. ++ ++=item sqrt ++ ++This is identical to Perl's builtin C function. ++for returning the square root of the numerical argument, ++see L. ++ ++=item srand ++ ++Give a seed the pseudorandom number generator, see L. ++ ++=item sscanf ++ ++sscanf() is C-specific, use regular expressions instead, ++see L. ++ ++=item stat ++ ++This is identical to Perl's builtin C function ++for returning information about files and directories. ++ ++=item strcat ++ ++strcat() is C-specific, use C<.=> instead, see L. ++ ++=item strchr ++ ++strchr() is C-specific, see L instead. ++ ++=item strcmp ++ ++strcmp() is C-specific, use C or C instead, see L. ++ ++=item strcoll ++ ++This is identical to the C function C ++for collating (comparing) strings transformed using ++the C function. Not really needed since ++Perl can do this transparently, see L. ++ ++=item strcpy ++ ++strcpy() is C-specific, use C<=> instead, see L. ++ ++=item strcspn ++ ++strcspn() is C-specific, use regular expressions instead, ++see L. ++ ++=item strerror ++ ++Returns the error string for the specified errno. ++Identical to the string form of the C<$!>, see L. ++ ++=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), weekday (C), and yearday (C) begin at zero. ++I.e. January is 0, not 1; Sunday is 0, not 1; January 1st is 0, not 1. The ++year (C) is given in years since 1900. I.e., the year 1995 is 95; the ++year 2001 is 101. Consult your system's C manpage for details ++about these and the other arguments. ++ ++If you want your code to be portable, your format (C) argument ++should use only the conversion specifiers defined by the ANSI C ++standard (C89, to play safe). These are C. ++But even then, the B of some of the conversion specifiers are ++non-portable. For example, the specifiers C 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 changes according to the timezone settings of the ++user and the timezone computation rules of the operating system. ++The C 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 before calling your system's C function, ++except that the C 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 instead, see L. ++ ++=item strncat ++ ++strncat() is C-specific, use C<.=> instead, see L. ++ ++=item strncmp ++ ++strncmp() is C-specific, use C instead, see L. ++ ++=item strncpy ++ ++strncpy() is C-specific, use C<=> instead, see L. ++ ++=item strpbrk ++ ++strpbrk() is C-specific, use regular expressions instead, ++see L. ++ ++=item strrchr ++ ++strrchr() is C-specific, see L instead. ++ ++=item strspn ++ ++strspn() is C-specific, use regular expressions instead, ++see L. ++ ++=item strstr ++ ++This is identical to Perl's builtin C function, ++see L. ++ ++=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 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, or L. ++ ++=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 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 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 function, see L. ++ ++Not really needed since Perl can do this transparently, see ++L. ++ ++=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 on failure. ++ ++=item system ++ ++This is identical to Perl's builtin C function, see ++L. ++ ++=item tan ++ ++This is identical to the C function C, returning the ++tangent of the numerical argument. See also L. ++ ++=item tanh ++ ++This is identical to the C function C, returning the ++hyperbolic tangent of the numerical argument. See also L. ++ ++=item tcdrain ++ ++This is similar to the C function C for draining ++the output queue of its argument stream. ++ ++Returns C on failure. ++ ++=item tcflow ++ ++This is similar to the C function C for controlling ++the flow of its argument stream. ++ ++Returns C on failure. ++ ++=item tcflush ++ ++This is similar to the C function C for flushing ++the I/O buffers of its argument stream. ++ ++Returns C on failure. ++ ++=item tcgetpgrp ++ ++This is identical to the C function C 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 for sending ++a break on its argument stream. ++ ++Returns C on failure. ++ ++=item tcsetpgrp ++ ++This is similar to the C function C for setting the ++process group identifier of the foreground process group of the controlling ++terminal. ++ ++Returns C on failure. ++ ++=item time ++ ++This is identical to Perl's builtin C function ++for returning the number of seconds since the epoch ++(whatever it is for the system), see L. ++ ++=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 function returns four values, measured in ++seconds. ++ ++=item tmpfile ++ ++Use method C instead, or see L. ++ ++=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. ++ ++=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 function, ++see L, 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 function, ++see L, or the equivalent C<\U> operator inside doublequotish ++strings. ++ ++=item ttyname ++ ++This is identical to the C function C for returning the ++name of the current terminal. ++ ++=item tzname ++ ++Retrieves the time conversion information from the C variable. ++ ++ POSIX::tzset(); ++ ($std, $dst) = POSIX::tzname(); ++ ++=item tzset ++ ++This is identical to the C function C for setting ++the current timezone based on the environment variable C, ++to be used by C, C, C, and C ++functions. ++ ++=item umask ++ ++This is identical to Perl's builtin C function ++for setting (and querying) the file creation permission mask, ++see L. ++ ++=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 instead. ++ ++=item unlink ++ ++This is identical to Perl's builtin C function ++for removing files, see L. ++ ++=item utime ++ ++This is identical to Perl's builtin C function ++for changing the time stamps of files and directories, ++see L. ++ ++=item vfprintf ++ ++vfprintf() is C-specific, see L instead. ++ ++=item vprintf ++ ++vprintf() is C-specific, see L instead. ++ ++=item vsprintf ++ ++vsprintf() is C-specific, see L instead. ++ ++=item wait ++ ++This is identical to Perl's builtin C function, ++see L. ++ ++=item waitpid ++ ++Wait for a child process to change state. This is identical to Perl's ++builtin C function, see L. ++ ++ $pid = POSIX::waitpid( -1, POSIX::WNOHANG ); ++ print "status = ", ($? / 256), "\n"; ++ ++=item wcstombs ++ ++This is identical to the C function C. ++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. ++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. ++ ++ $fd = POSIX::open( "foo", &POSIX::O_WRONLY ); ++ $buf = "hello"; ++ $bytes = POSIX::write( $fd, $buf, 5 ); ++ ++Returns C on failure. ++ ++See also L. ++ ++=back ++ ++=head1 CLASSES ++ ++=head2 POSIX::SigAction ++ ++=over 8 ++ ++=item new ++ ++Creates a new C object which corresponds to the C ++C. 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 object, it ++defaults to the empty set. The third parameter contains the ++C, it defaults to 0. ++ ++ $sigset = POSIX::SigSet->new(SIGINT, SIGQUIT); ++ $sigaction = POSIX::SigAction->new( \&handler, $sigset, &POSIX::SA_NOCLDSTOP ); ++ ++This C object is intended for use with the C ++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 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 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: ++ ++ 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 and C on the elements, and use ++C 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 on $POSIX::SigRt::SIGACTION_FLAGS, or you can ++derive from POSIX::SigRt and define your own C (the tied hash ++STORE method of the %SIGRT calls C, ++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 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 ++if no POSIX realtime signals are available. ++ ++=item SIGRTMAX ++ ++Return the maximum POSIX realtime signal number available, or C ++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 on failure. ++ ++=item delset ++ ++Remove a signal from the SigSet object. ++ ++ $sigset->delset( &POSIX::SIGUSR2 ); ++ ++Returns C on failure. ++ ++=item emptyset ++ ++Initialize the SigSet object to be empty. ++ ++ $sigset->emptyset(); ++ ++Returns C on failure. ++ ++=item fillset ++ ++Initialize the SigSet object to include all signals. ++ ++ $sigset->fillset(); ++ ++Returns C 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 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 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 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 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 or by falling off the end of C) ++ ++=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 new file mode 100644 index 000000000..98bf0743f --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_4.patch @@ -0,0 +1,57 @@ +Upstream-Status:Inappropriate [Backport] + +commit 43c0c913165d6abe1bc0cb45a784eb1c32c3700b +Author: Nicholas Clark +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 new file mode 100644 index 000000000..5891ee6a9 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_5.patch @@ -0,0 +1,430 @@ +Upstream-Status:Inappropriate [Backport] + +Rebased by Nitin A Kamble on 3/11/2011 + +commit 5e4c4c91bd52a48de59520d5e9b4e3478e49c613 +Author: Nicholas Clark +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 new file mode 100644 index 000000000..42677391d --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_6.patch @@ -0,0 +1,158 @@ +Upstream-Status:Inappropriate [Backport] + +Rebased by Nitin A Kamble on 3/11/2011 + +commit 7353f64c5bca6e7102582a1e0017c850930249c3 +Author: Nicholas Clark +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 >$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 [.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/perl-configpm-switch.patch b/meta/recipes-devtools/perl/perl-5.12.3/perl-configpm-switch.patch new file mode 100644 index 000000000..9e9f34286 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/perl-configpm-switch.patch @@ -0,0 +1,45 @@ +Upstream-Status:Inappropriate [native] + +This patch is used for perl-native only. It enables the switching of +configuration files between Config_heavy.pl and +Config_heavy-target.pl by setting the environment variables +PERLCONFIGTARGET - the later containing settings for the target while +the former contains those for the host. This will allow cpan.bbclass +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 @@ + 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); + } +@@ -530,7 +530,21 @@ + sub DESTROY { } + + sub AUTOLOAD { +- require 'Config_heavy.pl'; ++ my $cfgfile = 'Config_heavy.pl'; ++ if (defined $ENV{PERLCONFIGTARGET} and $ENV{PERLCONFIGTARGET} eq "yes") ++ { ++ $cfgfile = 'Config_heavy-target.pl'; ++ } ++ if (defined $ENV{PERL_ARCHLIB}) ++ { ++ push @INC, $ENV{PERL_ARCHLIB}; ++ require $cfgfile; ++ pop @INC; ++ } ++ else ++ { ++ require $cfgfile; ++ } + goto \&launcher unless $Config::AUTOLOAD =~ /launcher$/; + die "&Config::AUTOLOAD failed on $Config::AUTOLOAD"; + } diff --git a/meta/recipes-devtools/perl/perl-5.12.3/perl-configure.sh b/meta/recipes-devtools/perl/perl-5.12.3/perl-configure.sh new file mode 100755 index 000000000..e72ce49f9 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/perl-configure.sh @@ -0,0 +1,43 @@ +#! /bin/sh + +# +# Generate the common perl configuration +# Needs to be run on a host that matches the bitsize of the target platform +# + +echo sh Configure -des \ + -Doptimize=-O2 \ + -Dmyhostname=localhost \ + -Dperladmin=root@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' + +cp -f config.sh config.sh.COMMON + +TARGETOS=$(grep myarchname config.sh.COMMON | sed "s#.*'\(.*\)'.*#\1#") + +sed -r -i config.sh.COMMON \ + -e "s#(install.*=')(/usr)/local(.*')#\1@DESTDIR@\2\3#g" \ + -e 's#'$TARGETOS'#@ARCH@#g' diff --git a/meta/recipes-devtools/perl/perl-5.12.3/perl-dynloader.patch b/meta/recipes-devtools/perl/perl-5.12.3/perl-dynloader.patch new file mode 100644 index 000000000..d5ea00f2d --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/perl-dynloader.patch @@ -0,0 +1,31 @@ +Upstream-Status:Inappropriate [embedded specific] + +Allow the location that .so files are searched for for dynamic +loading to be changed via an environment variable. This is to allow +us to load .so's from the host system while building for the target +system. + +Update by Nitin A Kamble 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('/',@modparts); + my $modlibname = (caller())[1]; ++ # 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}) ++ { ++ my $hostlib = $ENV{PERLHOSTLIB}; ++ print STDERR "*** Module name IN: $modlibname\n"; ++ ($p1, $p2, $p3, $p4, $p5) = $modlibname =~ m/(^(.*lib\/)?)((perl\/[0-9\.]*\/)?)(.*)$/; ++ print STDERR "*** p1: $p1 p3: $p3 p5: $p5\n"; ++ if ( $p1 ne "" ) { ++ $modlibname = $hostlib.$p5; ++ } ++ 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"; diff --git a/meta/recipes-devtools/perl/perl-5.12.3/perl-enable-gdbm.patch b/meta/recipes-devtools/perl/perl-5.12.3/perl-enable-gdbm.patch new file mode 100644 index 000000000..aa83fca5a --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/perl-enable-gdbm.patch @@ -0,0 +1,19 @@ +Upstream-Status:Inappropriate [embedded specific] + +Index: perl-5.8.8/config_h.SH +=================================================================== +--- perl-5.8.8.orig/config_h.SH 2005-11-01 02:13:05.000000000 +0800 ++++ perl-5.8.8/config_h.SH 2010-11-01 17:06:07.215219738 +0800 +@@ -709,6 +709,12 @@ + */ + #$i_float I_FLOAT /**/ + ++/* I_GDBM: ++ * This symbol, if defined, indicates that exists and should ++ * be included. ++ */ ++#$i_gdbm I_GDBM /**/ ++ + /* I_LIMITS: + * This symbol, if defined, indicates to the C program that it should + * include to get definition of symbols like WORD_BIT or diff --git a/meta/recipes-devtools/perl/perl-5.12.3/perl-moreconfig.patch b/meta/recipes-devtools/perl/perl-5.12.3/perl-moreconfig.patch new file mode 100644 index 000000000..59ce85a7a --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.12.3/perl-moreconfig.patch @@ -0,0 +1,18 @@ +Upstream-Status:Inappropriate [embedded specific] + +We need ld in the fake config library, but it's not included by default. So +expand the number of items included. While this works it indicates that the +rest of the config items are not being picked up and/or are being picked up +from the host. More investigation needed. + +--- perl-5.8.8/configpm 2007/04/20 09:48:05 1.1 ++++ perl-5.8.8/configpm 2007/04/20 09:57:12 +@@ -2,7 +2,7 @@ + use strict; + use vars qw(%Config $Config_SH_expanded); + +-my $how_many_common = 22; ++my $how_many_common = 50; + + # commonly used names to precache (and hence lookup fastest) + my %Common; diff --git a/meta/recipes-devtools/perl/perl-native_5.12.2.bb b/meta/recipes-devtools/perl/perl-native_5.12.2.bb deleted file mode 100644 index c9882a910..000000000 --- a/meta/recipes-devtools/perl/perl-native_5.12.2.bb +++ /dev/null @@ -1,106 +0,0 @@ -DESCRIPTION = "Perl is a popular scripting language." -HOMEPAGE = "http://www.perl.org/" -SECTION = "libs" -LICENSE = "Artistic|GPL" -LIC_FILES_CHKSUM = "file://Copying;md5=2b4c6ffbcfcbdee469f02565f253d81a \ - file://Artistic;md5=f921793d03cc6d63ec4b15e9be8fd3f8" -PR = "r8" - -LIC_FILES_CHKSUM = "file://Copying;md5=2b4c6ffbcfcbdee469f02565f253d81a \ - file://Artistic;md5=f921793d03cc6d63ec4b15e9be8fd3f8" - -SRC_URI = "http://ftp.funet.fi/pub/CPAN/src/perl-${PV}.tar.gz \ - file://Configure-multilib.patch;patch=1 \ - file://perl-configpm-switch.patch;patch=1 \ - 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;patch=1 \ - file://native-perlinc.patch;patch=1" - -SRC_URI[md5sum] = "af2df531d46b77fdf0d97eecb03eddb2" -SRC_URI[sha256sum] = "cf888340021d5a2d1238bbd9b8b55aaf420a848d46e4d317cb8567f86ceb1022" - -S = "${WORKDIR}/perl-${PV}" - -inherit native - -export LD="${CCLD}" - -do_configure () { - ./Configure \ - -Dcc="${CC}" \ - -Dcflags="${CFLAGS}" \ - -Dldflags="${LDFLAGS}" \ - -Dcf_by="Open Embedded" \ - -Dprefix=${prefix} \ - -Dvendorprefix=${prefix} \ - -Dvendorprefix=${prefix} \ - -Dsiteprefix=${prefix} \ - \ - -Dprivlib=${STAGING_LIBDIR}/perl/${PV} \ - -Darchlib=${STAGING_LIBDIR}/perl/${PV} \ - -Dvendorlib=${STAGING_LIBDIR}/perl/${PV} \ - -Dvendorarch=${STAGING_LIBDIR}/perl/${PV} \ - -Dsitelib=${STAGING_LIBDIR}/perl/${PV} \ - -Dsitearch=${STAGING_LIBDIR}/perl/${PV} \ - \ - -Duseshrplib \ - -Dusethreads \ - -Duseithreads \ - -Duselargefiles \ - -Dnoextensions=ODBM_File \ - -Ud_dosuid \ - -Ui_db \ - -Ui_ndbm \ - -Ui_gdbm \ - -Di_shadow \ - -Di_syslog \ - -Duseperlio \ - -Dman3ext=3pm \ - -Uafs \ - -Ud_csh \ - -Uusesfio \ - -Uusenm -des -} - -do_install () { - oe_runmake 'DESTDIR=${D}' install - - # We need a hostperl link for building perl - ln -sf perl${PV} ${D}${bindir}/hostperl - - ln -sf perl ${D}${libdir}/perl5 - - install -d ${D}${libdir}/perl/${PV}/CORE \ - ${D}${datadir}/perl/${PV}/ExtUtils - - # Save native config - install config.sh ${D}${libdir}/perl - install lib/Config.pm ${D}${libdir}/perl/${PV}/ - 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 - install $i ${D}${libdir}/perl/${PV}/CORE - done - - create_wrapper ${D}${bindir}/perl PERL5LIB='$PERL5LIB:${STAGING_LIBDIR}/perl/5.12.2:${STAGING_LIBDIR}/perl/' -} -do_install_append_nylon() { - # get rid of definitions not supported by the gcc version we use for nylon... - for i in ${D}${libdir}/perl/${PV}/Config_heavy.pl ${D}${libdir}/perl/config.sh; do - perl -pi -e 's/-Wdeclaration-after-statement //g' ${i} - done -} diff --git a/meta/recipes-devtools/perl/perl-native_5.12.3.bb b/meta/recipes-devtools/perl/perl-native_5.12.3.bb new file mode 100644 index 000000000..0b0c9491c --- /dev/null +++ b/meta/recipes-devtools/perl/perl-native_5.12.3.bb @@ -0,0 +1,106 @@ +DESCRIPTION = "Perl is a popular scripting language." +HOMEPAGE = "http://www.perl.org/" +SECTION = "libs" +LICENSE = "Artistic|GPL" +LIC_FILES_CHKSUM = "file://Copying;md5=2b4c6ffbcfcbdee469f02565f253d81a \ + file://Artistic;md5=f921793d03cc6d63ec4b15e9be8fd3f8" +PR = "r0" + +LIC_FILES_CHKSUM = "file://Copying;md5=2b4c6ffbcfcbdee469f02565f253d81a \ + file://Artistic;md5=f921793d03cc6d63ec4b15e9be8fd3f8" + +SRC_URI = "http://ftp.funet.fi/pub/CPAN/src/perl-${PV}.tar.gz \ + file://Configure-multilib.patch;patch=1 \ + file://perl-configpm-switch.patch;patch=1 \ + 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;patch=1 \ + file://native-perlinc.patch;patch=1" + +SRC_URI[md5sum] = "29975a69dce54e47fcd6331c085c6c99" +SRC_URI[sha256sum] = "5678bfd5c2cd59253a26171bf3e681235433b00c730eea8a8046e1b225c11d2f" + +S = "${WORKDIR}/perl-${PV}" + +inherit native + +export LD="${CCLD}" + +do_configure () { + ./Configure \ + -Dcc="${CC}" \ + -Dcflags="${CFLAGS}" \ + -Dldflags="${LDFLAGS}" \ + -Dcf_by="Open Embedded" \ + -Dprefix=${prefix} \ + -Dvendorprefix=${prefix} \ + -Dvendorprefix=${prefix} \ + -Dsiteprefix=${prefix} \ + \ + -Dprivlib=${STAGING_LIBDIR}/perl/${PV} \ + -Darchlib=${STAGING_LIBDIR}/perl/${PV} \ + -Dvendorlib=${STAGING_LIBDIR}/perl/${PV} \ + -Dvendorarch=${STAGING_LIBDIR}/perl/${PV} \ + -Dsitelib=${STAGING_LIBDIR}/perl/${PV} \ + -Dsitearch=${STAGING_LIBDIR}/perl/${PV} \ + \ + -Duseshrplib \ + -Dusethreads \ + -Duseithreads \ + -Duselargefiles \ + -Dnoextensions=ODBM_File \ + -Ud_dosuid \ + -Ui_db \ + -Ui_ndbm \ + -Ui_gdbm \ + -Di_shadow \ + -Di_syslog \ + -Duseperlio \ + -Dman3ext=3pm \ + -Uafs \ + -Ud_csh \ + -Uusesfio \ + -Uusenm -des +} + +do_install () { + oe_runmake 'DESTDIR=${D}' install + + # We need a hostperl link for building perl + ln -sf perl${PV} ${D}${bindir}/hostperl + + ln -sf perl ${D}${libdir}/perl5 + + install -d ${D}${libdir}/perl/${PV}/CORE \ + ${D}${datadir}/perl/${PV}/ExtUtils + + # Save native config + install config.sh ${D}${libdir}/perl + install lib/Config.pm ${D}${libdir}/perl/${PV}/ + 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 + install $i ${D}${libdir}/perl/${PV}/CORE + done + + create_wrapper ${D}${bindir}/perl PERL5LIB='$PERL5LIB:${STAGING_LIBDIR}/perl/${PV}:${STAGING_LIBDIR}/perl/' +} +do_install_append_nylon() { + # get rid of definitions not supported by the gcc version we use for nylon... + for i in ${D}${libdir}/perl/${PV}/Config_heavy.pl ${D}${libdir}/perl/config.sh; do + perl -pi -e 's/-Wdeclaration-after-statement //g' ${i} + done +} diff --git a/meta/recipes-devtools/perl/perl-rdepends_5.12.2.inc b/meta/recipes-devtools/perl/perl-rdepends_5.12.2.inc deleted file mode 100644 index 309bd1741..000000000 --- a/meta/recipes-devtools/perl/perl-rdepends_5.12.2.inc +++ /dev/null @@ -1,210 +0,0 @@ -# To create/update the perl-rdepends_${PV}.inc use this piece of ugly script (modified for your arch/paths etc): - -#[nitin@buildbox packages-split]$ pwd -#/home/nitin/build/build3/tmp/work/i586-poky-linux/perl-5.8.8-r21/packages-split -#/home/nitin/poky.git/build/tmp/work/x86_64-poky-linux/perl-5.12.2-r0/packages-split - -#egrep -r "use|require" perl-module-* | grep ";" | egrep "\.pm:require | \.pm:use" | sed "s-/.*\.pm: *- += -g" | sed "s/[\"\']//g" | sed "s/;.*/\"/g" | sed "s/require */\"perl-module-/g" | sed "s/CPANPLUS::.*/cpanplus/g" | sed "s/CPAN::.*/cpan/g" | tr [:upper:] [:lower:] | sed "s/::/-/g" | grep -v perl-module-5 | sed "s/ [^+\"].*//g" | grep -v "\\$" | sed "s/_/-/g" | sed "s/\.pl\"$/\"/" | grep -v "\-vms\-" | sort -u > /tmp/1 -#find . -type f | sed "s-\./--" | sed "s-/.*--" | sort -u > /tmp/2 -#cat /tmp/1 | cut -f3 -d" " | sed "s/[\"\']//g" | sort -u > /tmp/3 -## these dependancies do not exist -#diff -u /tmp/2 /tmp/3 | grep ^+perl-module - - -# Some additional dependencies that the above doesn't manage to figure out -RDEPENDS_perl-module-math-bigint += "perl-module-math-bigint-calc " -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-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-carp += "perl-module-exporter" -RDEPENDS_perl-module-cgi-util += "perl-module-exporter" -RDEPENDS_perl-module-class-struct += "perl-module-exporter" -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-cpanplus += "perl-module-base" -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-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-unicode += "perl-module-encode" -RDEPENDS_perl-module-english += "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-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" -RDEPENDS_perl-module-extutils-embed += "perl-module-filehandle" -RDEPENDS_perl-module-extutils-liblist += "perl-module-extutils-liblist-kid" -RDEPENDS_perl-module-extutils-makemaker += "perl-module-exporter" -RDEPENDS_perl-module-extutils-makemaker += "perl-module-extutils-mm" -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" -RDEPENDS_perl-module-extutils-mm-cygwin += "perl-module-extutils-mm-unix" -RDEPENDS_perl-module-extutils-mm-cygwin += "perl-module-extutils-mm-win32" -RDEPENDS_perl-module-extutils-mm-dos += "perl-module-extutils-mm-any" -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-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" -RDEPENDS_perl-module-extutils-mm-vms += "perl-module-exporter" -RDEPENDS_perl-module-extutils-mm-vms += "perl-module-extutils-mm-any" -RDEPENDS_perl-module-extutils-mm-vms += "perl-module-extutils-mm-unix" -RDEPENDS_perl-module-extutils-mm-vos += "perl-module-extutils-mm-unix" -RDEPENDS_perl-module-extutils-mm-win32 += "perl-module-extutils-mm-any" -RDEPENDS_perl-module-extutils-mm-win32 += "perl-module-extutils-mm-unix" -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-file-basename += "perl-module-exporter" -RDEPENDS_perl-module-file-compare += "perl-module-exporter" -RDEPENDS_perl-module-file-copy += "perl-module-exporter" -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-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" -RDEPENDS_perl-module-file-spec-mac += "perl-module-file-spec-unix" -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-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-i18n-langinfo += "perl-module-exporter" -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-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-zlib-constants += "perl-module-exporter" -RDEPENDS_perl-module-io-file += "perl-module-exporter" -RDEPENDS_perl-module-io-handle += "perl-module-exporter" -RDEPENDS_perl-module-io-seekable += "perl-module-exporter" -RDEPENDS_perl-module-io-select += "perl-module-exporter" -RDEPENDS_perl-module-io-socket += "perl-module-io-socket-inet" -RDEPENDS_perl-module-io-socket += "perl-module-io-socket-unix" -RDEPENDS_perl-module-io-uncompress-anyinflate += "perl-module-exporter " -RDEPENDS_perl-module-io-uncompress-anyuncompress += "perl-module-exporter " -RDEPENDS_perl-module-io-uncompress-bunzip2 += "perl-module-exporter " -RDEPENDS_perl-module-io-uncompress-gunzip += "perl-module-exporter " -RDEPENDS_perl-module-io-uncompress-inflate += "perl-module-exporter " -RDEPENDS_perl-module-io-uncompress-rawinflate += "perl-module-exporter " -RDEPENDS_perl-module-io-uncompress-unzip += "perl-module-exporter " -RDEPENDS_perl-module-ipc-cmd += "perl-module-carp" -RDEPENDS_perl-module-ipc-open2 += "perl-module-exporter" -RDEPENDS_perl-module-ipc-open2 += "perl-module-ipc-open3" -RDEPENDS_perl-module-ipc-open3 += "perl-module-exporter" -RDEPENDS_perl-module-ipc-sysv += "perl-module-exporter" -RDEPENDS_perl-module-list-util += "perl-module-exporter" -RDEPENDS_perl-module-list-util-pp += "perl-module-exporter" -RDEPENDS_perl-module-locale-constants += "perl-module-exporter" -RDEPENDS_perl-module-locale-country += "perl-module-exporter" -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-complex += "perl-module-exporter" -RDEPENDS_perl-module-math-trig += "perl-module-exporter" -RDEPENDS_perl-module-mime-base64 += "perl-module-exporter" -RDEPENDS_perl-module-mime-base64 += "perl-module-xsloader" -RDEPENDS_perl-module-mime-quotedprint += "perl-module-exporter" -RDEPENDS_perl-module-mro += "perl-module-xsloader" -RDEPENDS_perl-module-net-cmd += "perl-module-exporter" -RDEPENDS_perl-module-net-config += "perl-module-exporter" -RDEPENDS_perl-module-net-domain += "perl-module-exporter" -RDEPENDS_perl-module-net-ftp-a += "perl-module-net-ftp-dataconn" -RDEPENDS_perl-module-net-ftp-e += "perl-module-net-ftp-i" -RDEPENDS_perl-module-net-ftp-i += "perl-module-net-ftp-dataconn" -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-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-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-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-storable += "perl-module-exporter" -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-text-abbrev += "perl-module-exporter" -RDEPENDS_perl-module-text-tabs += "perl-module-exporter" -RDEPENDS_perl-module-text-wrap += "perl-module-exporter" -RDEPENDS_perl-module-thread += "perl-module-exporter" -RDEPENDS_perl-module-threads += "perl-module-config" -RDEPENDS_perl-module-threads += "perl-module-xsloader" -RDEPENDS_perl-module-time-hires += "perl-module-dynaloader" -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-normalize += "perl-module-dynaloader" -RDEPENDS_perl-module-unicode-normalize += "perl-module-exporter" -RDEPENDS_perl-module-unicode-ucd += "perl-module-exporter" -RDEPENDS_perl-module-universal += "perl-module-exporter" -RDEPENDS_perl-module-warnings-register += "perl-module-warnings" diff --git a/meta/recipes-devtools/perl/perl-rdepends_5.12.3.inc b/meta/recipes-devtools/perl/perl-rdepends_5.12.3.inc new file mode 100644 index 000000000..309bd1741 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-rdepends_5.12.3.inc @@ -0,0 +1,210 @@ +# To create/update the perl-rdepends_${PV}.inc use this piece of ugly script (modified for your arch/paths etc): + +#[nitin@buildbox packages-split]$ pwd +#/home/nitin/build/build3/tmp/work/i586-poky-linux/perl-5.8.8-r21/packages-split +#/home/nitin/poky.git/build/tmp/work/x86_64-poky-linux/perl-5.12.2-r0/packages-split + +#egrep -r "use|require" perl-module-* | grep ";" | egrep "\.pm:require | \.pm:use" | sed "s-/.*\.pm: *- += -g" | sed "s/[\"\']//g" | sed "s/;.*/\"/g" | sed "s/require */\"perl-module-/g" | sed "s/CPANPLUS::.*/cpanplus/g" | sed "s/CPAN::.*/cpan/g" | tr [:upper:] [:lower:] | sed "s/::/-/g" | grep -v perl-module-5 | sed "s/ [^+\"].*//g" | grep -v "\\$" | sed "s/_/-/g" | sed "s/\.pl\"$/\"/" | grep -v "\-vms\-" | sort -u > /tmp/1 +#find . -type f | sed "s-\./--" | sed "s-/.*--" | sort -u > /tmp/2 +#cat /tmp/1 | cut -f3 -d" " | sed "s/[\"\']//g" | sort -u > /tmp/3 +## these dependancies do not exist +#diff -u /tmp/2 /tmp/3 | grep ^+perl-module + + +# Some additional dependencies that the above doesn't manage to figure out +RDEPENDS_perl-module-math-bigint += "perl-module-math-bigint-calc " +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-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-carp += "perl-module-exporter" +RDEPENDS_perl-module-cgi-util += "perl-module-exporter" +RDEPENDS_perl-module-class-struct += "perl-module-exporter" +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-cpanplus += "perl-module-base" +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-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-unicode += "perl-module-encode" +RDEPENDS_perl-module-english += "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-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" +RDEPENDS_perl-module-extutils-embed += "perl-module-filehandle" +RDEPENDS_perl-module-extutils-liblist += "perl-module-extutils-liblist-kid" +RDEPENDS_perl-module-extutils-makemaker += "perl-module-exporter" +RDEPENDS_perl-module-extutils-makemaker += "perl-module-extutils-mm" +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" +RDEPENDS_perl-module-extutils-mm-cygwin += "perl-module-extutils-mm-unix" +RDEPENDS_perl-module-extutils-mm-cygwin += "perl-module-extutils-mm-win32" +RDEPENDS_perl-module-extutils-mm-dos += "perl-module-extutils-mm-any" +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-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" +RDEPENDS_perl-module-extutils-mm-vms += "perl-module-exporter" +RDEPENDS_perl-module-extutils-mm-vms += "perl-module-extutils-mm-any" +RDEPENDS_perl-module-extutils-mm-vms += "perl-module-extutils-mm-unix" +RDEPENDS_perl-module-extutils-mm-vos += "perl-module-extutils-mm-unix" +RDEPENDS_perl-module-extutils-mm-win32 += "perl-module-extutils-mm-any" +RDEPENDS_perl-module-extutils-mm-win32 += "perl-module-extutils-mm-unix" +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-file-basename += "perl-module-exporter" +RDEPENDS_perl-module-file-compare += "perl-module-exporter" +RDEPENDS_perl-module-file-copy += "perl-module-exporter" +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-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" +RDEPENDS_perl-module-file-spec-mac += "perl-module-file-spec-unix" +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-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-i18n-langinfo += "perl-module-exporter" +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-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-zlib-constants += "perl-module-exporter" +RDEPENDS_perl-module-io-file += "perl-module-exporter" +RDEPENDS_perl-module-io-handle += "perl-module-exporter" +RDEPENDS_perl-module-io-seekable += "perl-module-exporter" +RDEPENDS_perl-module-io-select += "perl-module-exporter" +RDEPENDS_perl-module-io-socket += "perl-module-io-socket-inet" +RDEPENDS_perl-module-io-socket += "perl-module-io-socket-unix" +RDEPENDS_perl-module-io-uncompress-anyinflate += "perl-module-exporter " +RDEPENDS_perl-module-io-uncompress-anyuncompress += "perl-module-exporter " +RDEPENDS_perl-module-io-uncompress-bunzip2 += "perl-module-exporter " +RDEPENDS_perl-module-io-uncompress-gunzip += "perl-module-exporter " +RDEPENDS_perl-module-io-uncompress-inflate += "perl-module-exporter " +RDEPENDS_perl-module-io-uncompress-rawinflate += "perl-module-exporter " +RDEPENDS_perl-module-io-uncompress-unzip += "perl-module-exporter " +RDEPENDS_perl-module-ipc-cmd += "perl-module-carp" +RDEPENDS_perl-module-ipc-open2 += "perl-module-exporter" +RDEPENDS_perl-module-ipc-open2 += "perl-module-ipc-open3" +RDEPENDS_perl-module-ipc-open3 += "perl-module-exporter" +RDEPENDS_perl-module-ipc-sysv += "perl-module-exporter" +RDEPENDS_perl-module-list-util += "perl-module-exporter" +RDEPENDS_perl-module-list-util-pp += "perl-module-exporter" +RDEPENDS_perl-module-locale-constants += "perl-module-exporter" +RDEPENDS_perl-module-locale-country += "perl-module-exporter" +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-complex += "perl-module-exporter" +RDEPENDS_perl-module-math-trig += "perl-module-exporter" +RDEPENDS_perl-module-mime-base64 += "perl-module-exporter" +RDEPENDS_perl-module-mime-base64 += "perl-module-xsloader" +RDEPENDS_perl-module-mime-quotedprint += "perl-module-exporter" +RDEPENDS_perl-module-mro += "perl-module-xsloader" +RDEPENDS_perl-module-net-cmd += "perl-module-exporter" +RDEPENDS_perl-module-net-config += "perl-module-exporter" +RDEPENDS_perl-module-net-domain += "perl-module-exporter" +RDEPENDS_perl-module-net-ftp-a += "perl-module-net-ftp-dataconn" +RDEPENDS_perl-module-net-ftp-e += "perl-module-net-ftp-i" +RDEPENDS_perl-module-net-ftp-i += "perl-module-net-ftp-dataconn" +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-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-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-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-storable += "perl-module-exporter" +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-text-abbrev += "perl-module-exporter" +RDEPENDS_perl-module-text-tabs += "perl-module-exporter" +RDEPENDS_perl-module-text-wrap += "perl-module-exporter" +RDEPENDS_perl-module-thread += "perl-module-exporter" +RDEPENDS_perl-module-threads += "perl-module-config" +RDEPENDS_perl-module-threads += "perl-module-xsloader" +RDEPENDS_perl-module-time-hires += "perl-module-dynaloader" +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-normalize += "perl-module-dynaloader" +RDEPENDS_perl-module-unicode-normalize += "perl-module-exporter" +RDEPENDS_perl-module-unicode-ucd += "perl-module-exporter" +RDEPENDS_perl-module-universal += "perl-module-exporter" +RDEPENDS_perl-module-warnings-register += "perl-module-warnings" diff --git a/meta/recipes-devtools/perl/perl-rprovides_5.12.2.inc b/meta/recipes-devtools/perl/perl-rprovides_5.12.2.inc deleted file mode 100644 index 9a648dbf2..000000000 --- a/meta/recipes-devtools/perl/perl-rprovides_5.12.2.inc +++ /dev/null @@ -1 +0,0 @@ -RPROVIDES_perl-module-module-build += "libmodule-build-perl" diff --git a/meta/recipes-devtools/perl/perl-rprovides_5.12.3.inc b/meta/recipes-devtools/perl/perl-rprovides_5.12.3.inc new file mode 100644 index 000000000..9a648dbf2 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-rprovides_5.12.3.inc @@ -0,0 +1 @@ +RPROVIDES_perl-module-module-build += "libmodule-build-perl" diff --git a/meta/recipes-devtools/perl/perl_5.12.2.bb b/meta/recipes-devtools/perl/perl_5.12.2.bb deleted file mode 100644 index 9ce81568d..000000000 --- a/meta/recipes-devtools/perl/perl_5.12.2.bb +++ /dev/null @@ -1,280 +0,0 @@ -DESCRIPTION = "Perl is a popular scripting language." -HOMEPAGE = "http://www.perl.org/" -SECTION = "devel" -LICENSE = "Artistic|GPL" -LIC_FILES_CHKSUM = "file://Copying;md5=2b4c6ffbcfcbdee469f02565f253d81a \ - file://Artistic;md5=f921793d03cc6d63ec4b15e9be8fd3f8" -PRIORITY = "optional" -# We need gnugrep (for -I) -DEPENDS = "virtual/db perl-native-${PV} grep-native" -DEPENDS += "gdbm zlib" -PR = "r4" - -# 5.10.1 has Module::Build built-in -PROVIDES += "libmodule-build-perl" - -# Major part of version -#PVM = "5.12" - -SRC_URI = "ftp://ftp.funet.fi/pub/CPAN/src/perl-${PV}.tar.gz \ - file://Makefile.patch;patch=1 \ - 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;patch=1 \ - file://installperl.patch;patch=1 \ - file://perl-dynloader.patch;patch=1 \ - file://perl-moreconfig.patch;patch=1 \ - file://letgcc-find-errno.patch;patch=1 \ - file://generate-sh.patch;patch=1 \ - file://09_fix_installperl.patch;patch=1 \ - file://native-perlinc.patch \ - file://perl-enable-gdbm.patch \ - file://cross-generate_uudmap.patch \ - 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/instmodsh_doc.diff \ - file://debian/ld_run_path.diff \ - file://debian/libnet_config_path.diff \ - file://debian/m68k_thread_stress.diff \ - file://debian/mod_paths.diff \ - 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://config.sh \ - file://config.sh-32 \ - file://config.sh-32-le \ - file://config.sh-32-be \ - file://config.sh-64 \ - file://config.sh-64-le \ - file://config.sh-64-be" -# file://debian/fakeroot.diff - -SRC_URI[md5sum] = "af2df531d46b77fdf0d97eecb03eddb2" -SRC_URI[sha256sum] = "cf888340021d5a2d1238bbd9b8b55aaf420a848d46e4d317cb8567f86ceb1022" - -inherit siteinfo - -# Where to find the native perl -HOSTPERL = "${STAGING_BINDIR_NATIVE}/perl${PV}" - -# Where to find .so files - use the -native versions not those from the target build -export PERLHOSTLIB = "${STAGING_LIBDIR_NATIVE}/perl/${PV}/" - -# LDFLAGS for shared libraries -export LDDLFLAGS = "${LDFLAGS} -shared" - -# We're almost Debian, aren't we? -CFLAGS += "-DDEBIAN" - -do_nolargefile() { - sed -i -e "s,\(uselargefiles=\)'define',\1'undef',g" \ - -e "s,\(d_readdir64_r=\)'define',\1'undef',g" \ - -e "s,\(readdir64_r_proto=\)'\w+',\1'0',g" \ - -e "/ccflags_uselargefiles/d" \ - -e "s/-Duselargefiles//" \ - -e "s/-D_FILE_OFFSET_BITS=64//" \ - -e "s/-D_LARGEFILE_SOURCE//" \ - ${S}/Cross/config.sh-${TARGET_ARCH}-${TARGET_OS} -} - -do_configure() { - # Make hostperl in build directory be the native perl - ln -sf ${HOSTPERL} hostperl - - # Do our work in the cross subdir - cd Cross - - # Generate configuration - rm -f config.sh-${TARGET_ARCH}-${TARGET_OS} - for i in ${WORKDIR}/config.sh \ - ${WORKDIR}/config.sh-${@siteinfo_get_bits(d)} \ - ${WORKDIR}/config.sh-${@siteinfo_get_bits(d)}-${@siteinfo_get_endianess(d)}; do - cat $i >> config.sh-${TARGET_ARCH}-${TARGET_OS} - done - - # Fixups for uclibc - if [ "${TARGET_OS}" = "linux-uclibc" -o "${TARGET_OS}" = "linux-uclibceabi" ]; then - sed -i -e "s,\(d_crypt_r=\)'define',\1'undef',g" \ - -e "s,\(d_futimes=\)'define',\1'undef',g" \ - -e "s,\(crypt_r_proto=\)'\w+',\1'0',g" \ - -e "s,\(d_getnetbyname_r=\)'define',\1'undef',g" \ - -e "s,\(getnetbyname_r_proto=\)'\w+',\1'0',g" \ - -e "s,\(d_getnetbyaddr_r=\)'define',\1'undef',g" \ - -e "s,\(getnetbyaddr_r_proto=\)'\w+',\1'0',g" \ - -e "s,\(d_getnetent_r=\)'define',\1'undef',g" \ - -e "s,\(getnetent_r_proto=\)'\w+',\1'0',g" \ - -e "s,\(d_sockatmark=\)'define',\1'undef',g" \ - -e "s,\(d_sockatmarkproto=\)'\w+',\1'0',g" \ - config.sh-${TARGET_ARCH}-${TARGET_OS} - fi - - ${@base_contains('DISTRO_FEATURES', 'largefile', '', 'do_nolargefile', d)} - - # Update some paths in the configuration - sed -i -e 's,@DESTDIR@,${prefix},g' \ - -e 's,@ARCH@-thread-multi,,g' \ - -e 's,@ARCH@,${TARGET_ARCH}-${TARGET_OS},g' \ - -e "s%/usr/include%${STAGING_INCDIR}%g" \ - -e 's,/usr/,${exec_prefix}/,g' \ - -e 's,/perl5,/perl,g' \ - config.sh-${TARGET_ARCH}-${TARGET_OS} - - # These are strewn all over the source tree - for foo in `grep -I -m1 \/usr\/include\/.*\\.h ${WORKDIR}/* -r | cut -f 1 -d ":"` ; do - echo Fixing: $foo - sed -e "s%/usr/include/%${STAGING_INCDIR}/%g" -i $foo - done - - rm -f config - echo "ARCH = ${TARGET_ARCH}" > config - echo "OS = ${TARGET_OS}" >> config -} - -do_compile() { - sed -i -e 's|/usr/include|${STAGING_INCDIR}|g' ext/Errno/Errno_pm.PL - sed -i -e 's|/usr/include|${STAGING_INCDIR}|g' cpan/Compress-Raw-Zlib/config.in - sed -i -e 's|/usr/lib|${STAGING_LIBDIR}|g' cpan/Compress-Raw-Zlib/config.in - - cd Cross - oe_runmake perl LD="${CCLD}" -} - -do_install() { - oe_runmake install DESTDIR=${D} - # Add perl pointing at current version - ln -sf perl${PV} ${D}${bindir}/perl - - ln -sf perl ${D}/${libdir}/perl5 - - # Remove unwanted file - rm -f ${D}/${libdir}/perl/${PV}/.packlist - - # Fix up shared library - mv ${D}/${libdir}/perl/${PV}/CORE/libperl.so ${D}/${libdir}/libperl.so.${PV} - ln -sf libperl.so.${PV} ${D}/${libdir}/libperl.so.5 - - # target config, used by cpan.bbclass to extract version information - install config.sh ${D}${libdir}/perl - - ln -s Config_heavy.pl ${D}${libdir}/perl/${PV}/Config_heavy-target.pl - -} - -PACKAGE_PREPROCESS_FUNCS += "perl_package_preprocess" - -perl_package_preprocess () { - # Fix up installed configuration - sed -i -e "s,${D},,g" \ - -e "s,-isystem${STAGING_INCDIR} ,,g" \ - -e "s,${STAGING_LIBDIR},${libdir},g" \ - -e "s,${STAGING_BINDIR},${bindir},g" \ - -e "s,${STAGING_INCDIR},${includedir},g" \ - -e "s,${STAGING_BINDIR_NATIVE}/,,g" \ - ${PKGD}${bindir}/h2xs \ - ${PKGD}${bindir}/h2ph \ - ${PKGD}${libdir}/perl/${PV}/pod/*.pod \ - ${PKGD}${libdir}/perl/${PV}/cacheout.pl \ - ${PKGD}${libdir}/perl/${PV}/FileCache.pm \ - ${PKGD}${libdir}/perl/config.sh \ - ${PKGD}${libdir}/perl/${PV}/Config.pm \ - ${PKGD}${libdir}/perl/${PV}/Config_heavy.pl \ - ${PKGD}${libdir}/perl/${PV}/CORE/perl.h \ - ${PKGD}${libdir}/perl/${PV}/CORE/pp.h -} - -PACKAGES = "perl-dbg perl perl-misc perl-dev perl-pod perl-doc perl-lib \ - perl-module-cpan perl-module-cpanplus perl-module-unicore" -FILES_${PN} = "${bindir}/perl ${bindir}/perl${PV}" -FILES_${PN}-dev = "${libdir}/perl/${PV}/CORE" -FILES_${PN}-lib = "${libdir}/libperl.so* \ - ${libdir}/perl5 \ - ${libdir}/perl/config.sh \ - ${libdir}/perl/${PV}/Config_heavy.pl \ - ${libdir}/perl/${PV}/Config_heavy-target.pl" -FILES_${PN}-pod = "${libdir}/perl/${PV}/pod \ - ${libdir}/perl/${PV}/*.pod \ - ${libdir}/perl/${PV}/*/*.pod \ - ${libdir}/perl/${PV}/*/*/*.pod " -FILES_perl-misc = "${bindir}/*" -FILES_${PN}-dbg += "${libdir}/perl/${PV}/auto/*/.debug \ - ${libdir}/perl/${PV}/auto/*/*/.debug \ - ${libdir}/perl/${PV}/auto/*/*/*/.debug \ - ${libdir}/perl/${PV}/CORE/.debug \ - ${libdir}/perl/${PV}/*/.debug \ - ${libdir}/perl/${PV}/*/*/.debug \ - ${libdir}/perl/${PV}/*/*/*/.debug " -FILES_${PN}-doc = "${libdir}/perl/${PV}/*/*.txt \ - ${libdir}/perl/${PV}/*/*/*.txt \ - ${libdir}/perl/${PV}/B/assemble \ - ${libdir}/perl/${PV}/B/cc_harness \ - ${libdir}/perl/${PV}/B/disassemble \ - ${libdir}/perl/${PV}/B/makeliblinks \ - ${libdir}/perl/${PV}/CGI/eg \ - ${libdir}/perl/${PV}/CPAN/PAUSE2003.pub \ - ${libdir}/perl/${PV}/CPAN/SIGNATURE \ - ${libdir}/perl/${PV}/CPANPLUS/Shell/Default/Plugins/HOWTO.pod \ - ${libdir}/perl/${PV}/Encode/encode.h \ - ${libdir}/perl/${PV}/ExtUtils/MANIFEST.SKIP \ - ${libdir}/perl/${PV}/ExtUtils/NOTES \ - ${libdir}/perl/${PV}/ExtUtils/PATCHING \ - ${libdir}/perl/${PV}/ExtUtils/typemap \ - ${libdir}/perl/${PV}/ExtUtils/xsubpp \ - ${libdir}/perl/${PV}/ExtUtils/Changes_EU-Install \ - ${libdir}/perl/${PV}/Net/*.eg \ - ${libdir}/perl/${PV}/unicore/mktables \ - ${libdir}/perl/${PV}/unicore/mktables.lst \ - ${libdir}/perl/${PV}/unicore/version " - -FILES_perl-module-cpan += "${libdir}/perl/${PV}/CPAN \ - ${libdir}/perl/${PV}/CPAN.pm" -FILES_perl-module-cpanplus += "${libdir}/perl/${PV}/CPANPLUS \ - ${libdir}/perl/${PV}/CPANPLUS.pm" -FILES_perl-module-unicore += "${libdir}/perl/${PV}/unicore" - -# Create a perl-modules package recommending all the other perl -# packages (actually the non modules packages and not created too) -ALLOW_EMPTY_perl-modules = "1" -PACKAGES_append = " perl-modules " -RRECOMMENDS_perl-modules = "${@bb.data.getVar('PACKAGES', d, 1).replace('perl-modules ', '').replace('perl-dbg ', '').replace('perl-misc ', '').replace('perl-dev ', '').replace('perl-pod ', '').replace('perl-doc ', '')}" - -python populate_packages_prepend () { - libdir = bb.data.expand('${libdir}/perl/${PV}', d) - do_split_packages(d, libdir, 'auto/(Encode/.[^/]*)/.*', 'perl-module-%s', 'perl module %s', recursive=True, allow_dirs=False, match_path=True, prepend=False) - do_split_packages(d, libdir, 'auto/([^/]*)/.*', 'perl-module-%s', 'perl module %s', recursive=True, allow_dirs=False, match_path=True, prepend=False) - do_split_packages(d, libdir, 'Module/([^\/]*).*', 'perl-module-%s', 'perl module %s', recursive=True, allow_dirs=False, match_path=True, prepend=False) - do_split_packages(d, libdir, '(^(?!(CPAN\/|CPANPLUS\/|Module\/|unicore\/|auto\/)[^\/]).*)\.(pm|pl|e2x)', 'perl-module-%s', 'perl module %s', recursive=True, allow_dirs=False, match_path=True, prepend=False) -} - -PACKAGES_DYNAMIC = "perl-module-*" - -RPROVIDES_perl-lib = "perl-lib" - -require perl-rdepends_${PV}.inc -require perl-rprovides.inc -require perl-rprovides_${PV}.inc diff --git a/meta/recipes-devtools/perl/perl_5.12.3.bb b/meta/recipes-devtools/perl/perl_5.12.3.bb new file mode 100644 index 000000000..584d64368 --- /dev/null +++ b/meta/recipes-devtools/perl/perl_5.12.3.bb @@ -0,0 +1,283 @@ +DESCRIPTION = "Perl is a popular scripting language." +HOMEPAGE = "http://www.perl.org/" +SECTION = "devel" +LICENSE = "Artistic|GPL" +LIC_FILES_CHKSUM = "file://Copying;md5=2b4c6ffbcfcbdee469f02565f253d81a \ + file://Artistic;md5=f921793d03cc6d63ec4b15e9be8fd3f8" +PRIORITY = "optional" +# We need gnugrep (for -I) +DEPENDS = "virtual/db perl-native-${PV} grep-native" +DEPENDS += "gdbm zlib" +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/instmodsh_doc.diff \ + file://debian/ld_run_path.diff \ + file://debian/libnet_config_path.diff \ + file://debian/m68k_thread_stress.diff \ + file://debian/mod_paths.diff \ + 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://Makefile.patch;patch=1 \ + 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;patch=1 \ + file://installperl.patch;patch=1 \ + file://perl-dynloader.patch;patch=1 \ + file://perl-moreconfig.patch;patch=1 \ + file://letgcc-find-errno.patch;patch=1 \ + file://generate-sh.patch;patch=1 \ + file://09_fix_installperl.patch;patch=1 \ + file://native-perlinc.patch \ + file://perl-enable-gdbm.patch \ + file://cross-generate_uudmap.patch \ + \ + file://config.sh \ + file://config.sh-32 \ + file://config.sh-32-le \ + file://config.sh-32-be \ + file://config.sh-64 \ + file://config.sh-64-le \ + file://config.sh-64-be" +# file://debian/fakeroot.diff + +SRC_URI[md5sum] = "29975a69dce54e47fcd6331c085c6c99" +SRC_URI[sha256sum] = "5678bfd5c2cd59253a26171bf3e681235433b00c730eea8a8046e1b225c11d2f" + +inherit siteinfo + +# Where to find the native perl +HOSTPERL = "${STAGING_BINDIR_NATIVE}/perl${PV}" + +# Where to find .so files - use the -native versions not those from the target build +export PERLHOSTLIB = "${STAGING_LIBDIR_NATIVE}/perl/${PV}/" + +# LDFLAGS for shared libraries +export LDDLFLAGS = "${LDFLAGS} -shared" + +# We're almost Debian, aren't we? +CFLAGS += "-DDEBIAN" + +do_nolargefile() { + sed -i -e "s,\(uselargefiles=\)'define',\1'undef',g" \ + -e "s,\(d_readdir64_r=\)'define',\1'undef',g" \ + -e "s,\(readdir64_r_proto=\)'\w+',\1'0',g" \ + -e "/ccflags_uselargefiles/d" \ + -e "s/-Duselargefiles//" \ + -e "s/-D_FILE_OFFSET_BITS=64//" \ + -e "s/-D_LARGEFILE_SOURCE//" \ + ${S}/Cross/config.sh-${TARGET_ARCH}-${TARGET_OS} +} + +do_configure() { + # Make hostperl in build directory be the native perl + ln -sf ${HOSTPERL} hostperl + + # Do our work in the cross subdir + cd Cross + + # Generate configuration + rm -f config.sh-${TARGET_ARCH}-${TARGET_OS} + for i in ${WORKDIR}/config.sh \ + ${WORKDIR}/config.sh-${@siteinfo_get_bits(d)} \ + ${WORKDIR}/config.sh-${@siteinfo_get_bits(d)}-${@siteinfo_get_endianess(d)}; do + cat $i >> config.sh-${TARGET_ARCH}-${TARGET_OS} + done + + # Fixups for uclibc + if [ "${TARGET_OS}" = "linux-uclibc" -o "${TARGET_OS}" = "linux-uclibceabi" ]; then + sed -i -e "s,\(d_crypt_r=\)'define',\1'undef',g" \ + -e "s,\(d_futimes=\)'define',\1'undef',g" \ + -e "s,\(crypt_r_proto=\)'\w+',\1'0',g" \ + -e "s,\(d_getnetbyname_r=\)'define',\1'undef',g" \ + -e "s,\(getnetbyname_r_proto=\)'\w+',\1'0',g" \ + -e "s,\(d_getnetbyaddr_r=\)'define',\1'undef',g" \ + -e "s,\(getnetbyaddr_r_proto=\)'\w+',\1'0',g" \ + -e "s,\(d_getnetent_r=\)'define',\1'undef',g" \ + -e "s,\(getnetent_r_proto=\)'\w+',\1'0',g" \ + -e "s,\(d_sockatmark=\)'define',\1'undef',g" \ + -e "s,\(d_sockatmarkproto=\)'\w+',\1'0',g" \ + config.sh-${TARGET_ARCH}-${TARGET_OS} + fi + + ${@base_contains('DISTRO_FEATURES', 'largefile', '', 'do_nolargefile', d)} + + # Update some paths in the configuration + sed -i -e 's,@DESTDIR@,${prefix},g' \ + -e 's,@ARCH@-thread-multi,,g' \ + -e 's,@ARCH@,${TARGET_ARCH}-${TARGET_OS},g' \ + -e "s%/usr/include%${STAGING_INCDIR}%g" \ + -e 's,/usr/,${exec_prefix}/,g' \ + -e 's,/perl5,/perl,g' \ + config.sh-${TARGET_ARCH}-${TARGET_OS} + + # These are strewn all over the source tree + for foo in `grep -I -m1 \/usr\/include\/.*\\.h ${WORKDIR}/* -r | cut -f 1 -d ":"` ; do + echo Fixing: $foo + sed -e "s%/usr/include/%${STAGING_INCDIR}/%g" -i $foo + done + + rm -f config + echo "ARCH = ${TARGET_ARCH}" > config + echo "OS = ${TARGET_OS}" >> config +} + +do_compile() { + sed -i -e 's|/usr/include|${STAGING_INCDIR}|g' ext/Errno/Errno_pm.PL + sed -i -e 's|/usr/include|${STAGING_INCDIR}|g' cpan/Compress-Raw-Zlib/config.in + sed -i -e 's|/usr/lib|${STAGING_LIBDIR}|g' cpan/Compress-Raw-Zlib/config.in + + cd Cross + oe_runmake perl LD="${CCLD}" +} + +do_install() { + oe_runmake install DESTDIR=${D} + # Add perl pointing at current version + ln -sf perl${PV} ${D}${bindir}/perl + + ln -sf perl ${D}/${libdir}/perl5 + + # Remove unwanted file + rm -f ${D}/${libdir}/perl/${PV}/.packlist + + # Fix up shared library + mv ${D}/${libdir}/perl/${PV}/CORE/libperl.so ${D}/${libdir}/libperl.so.${PV} + ln -sf libperl.so.${PV} ${D}/${libdir}/libperl.so.5 + + # target config, used by cpan.bbclass to extract version information + install config.sh ${D}${libdir}/perl + + ln -s Config_heavy.pl ${D}${libdir}/perl/${PV}/Config_heavy-target.pl + +} + +PACKAGE_PREPROCESS_FUNCS += "perl_package_preprocess" + +perl_package_preprocess () { + # Fix up installed configuration + sed -i -e "s,${D},,g" \ + -e "s,-isystem${STAGING_INCDIR} ,,g" \ + -e "s,${STAGING_LIBDIR},${libdir},g" \ + -e "s,${STAGING_BINDIR},${bindir},g" \ + -e "s,${STAGING_INCDIR},${includedir},g" \ + -e "s,${STAGING_BINDIR_NATIVE}/,,g" \ + ${PKGD}${bindir}/h2xs \ + ${PKGD}${bindir}/h2ph \ + ${PKGD}${libdir}/perl/${PV}/pod/*.pod \ + ${PKGD}${libdir}/perl/${PV}/cacheout.pl \ + ${PKGD}${libdir}/perl/${PV}/FileCache.pm \ + ${PKGD}${libdir}/perl/config.sh \ + ${PKGD}${libdir}/perl/${PV}/Config.pm \ + ${PKGD}${libdir}/perl/${PV}/Config_heavy.pl \ + ${PKGD}${libdir}/perl/${PV}/CORE/perl.h \ + ${PKGD}${libdir}/perl/${PV}/CORE/pp.h +} + +PACKAGES = "perl-dbg perl perl-misc perl-dev perl-pod perl-doc perl-lib \ + perl-module-cpan perl-module-cpanplus perl-module-unicore" +FILES_${PN} = "${bindir}/perl ${bindir}/perl${PV}" +FILES_${PN}-dev = "${libdir}/perl/${PV}/CORE" +FILES_${PN}-lib = "${libdir}/libperl.so* \ + ${libdir}/perl5 \ + ${libdir}/perl/config.sh \ + ${libdir}/perl/${PV}/Config_heavy.pl \ + ${libdir}/perl/${PV}/Config_heavy-target.pl" +FILES_${PN}-pod = "${libdir}/perl/${PV}/pod \ + ${libdir}/perl/${PV}/*.pod \ + ${libdir}/perl/${PV}/*/*.pod \ + ${libdir}/perl/${PV}/*/*/*.pod " +FILES_perl-misc = "${bindir}/*" +FILES_${PN}-dbg += "${libdir}/perl/${PV}/auto/*/.debug \ + ${libdir}/perl/${PV}/auto/*/*/.debug \ + ${libdir}/perl/${PV}/auto/*/*/*/.debug \ + ${libdir}/perl/${PV}/CORE/.debug \ + ${libdir}/perl/${PV}/*/.debug \ + ${libdir}/perl/${PV}/*/*/.debug \ + ${libdir}/perl/${PV}/*/*/*/.debug " +FILES_${PN}-doc = "${libdir}/perl/${PV}/*/*.txt \ + ${libdir}/perl/${PV}/*/*/*.txt \ + ${libdir}/perl/${PV}/B/assemble \ + ${libdir}/perl/${PV}/B/cc_harness \ + ${libdir}/perl/${PV}/B/disassemble \ + ${libdir}/perl/${PV}/B/makeliblinks \ + ${libdir}/perl/${PV}/CGI/eg \ + ${libdir}/perl/${PV}/CPAN/PAUSE2003.pub \ + ${libdir}/perl/${PV}/CPAN/SIGNATURE \ + ${libdir}/perl/${PV}/CPANPLUS/Shell/Default/Plugins/HOWTO.pod \ + ${libdir}/perl/${PV}/Encode/encode.h \ + ${libdir}/perl/${PV}/ExtUtils/MANIFEST.SKIP \ + ${libdir}/perl/${PV}/ExtUtils/NOTES \ + ${libdir}/perl/${PV}/ExtUtils/PATCHING \ + ${libdir}/perl/${PV}/ExtUtils/typemap \ + ${libdir}/perl/${PV}/ExtUtils/xsubpp \ + ${libdir}/perl/${PV}/ExtUtils/Changes_EU-Install \ + ${libdir}/perl/${PV}/Net/*.eg \ + ${libdir}/perl/${PV}/unicore/mktables \ + ${libdir}/perl/${PV}/unicore/mktables.lst \ + ${libdir}/perl/${PV}/unicore/version " + +FILES_perl-module-cpan += "${libdir}/perl/${PV}/CPAN \ + ${libdir}/perl/${PV}/CPAN.pm" +FILES_perl-module-cpanplus += "${libdir}/perl/${PV}/CPANPLUS \ + ${libdir}/perl/${PV}/CPANPLUS.pm" +FILES_perl-module-unicore += "${libdir}/perl/${PV}/unicore" + +# Create a perl-modules package recommending all the other perl +# packages (actually the non modules packages and not created too) +ALLOW_EMPTY_perl-modules = "1" +PACKAGES_append = " perl-modules " +RRECOMMENDS_perl-modules = "${@bb.data.getVar('PACKAGES', d, 1).replace('perl-modules ', '').replace('perl-dbg ', '').replace('perl-misc ', '').replace('perl-dev ', '').replace('perl-pod ', '').replace('perl-doc ', '')}" + +python populate_packages_prepend () { + libdir = bb.data.expand('${libdir}/perl/${PV}', d) + do_split_packages(d, libdir, 'auto/(Encode/.[^/]*)/.*', 'perl-module-%s', 'perl module %s', recursive=True, allow_dirs=False, match_path=True, prepend=False) + do_split_packages(d, libdir, 'auto/([^/]*)/.*', 'perl-module-%s', 'perl module %s', recursive=True, allow_dirs=False, match_path=True, prepend=False) + do_split_packages(d, libdir, 'Module/([^\/]*).*', 'perl-module-%s', 'perl module %s', recursive=True, allow_dirs=False, match_path=True, prepend=False) + do_split_packages(d, libdir, '(^(?!(CPAN\/|CPANPLUS\/|Module\/|unicore\/|auto\/)[^\/]).*)\.(pm|pl|e2x)', 'perl-module-%s', 'perl module %s', recursive=True, allow_dirs=False, match_path=True, prepend=False) +} + +PACKAGES_DYNAMIC = "perl-module-*" + +RPROVIDES_perl-lib = "perl-lib" + +require perl-rdepends_${PV}.inc +require perl-rprovides.inc +require perl-rprovides_${PV}.inc -- cgit v1.2.3