diff options
| author |   Nitin A Kamble <nitin.a.kamble@intel.com> | 2011-10-19 14:53:17 -0700 |
|---|---|---|
| committer |   Richard Purdie <richard.purdie@linuxfoundation.org> | 2011-10-24 14:27:35 +0100 |
| commit | 8dc5f118832a4aca906239ffed82f72497c37f8e (patch) | |
| tree | c53e75b07c0e3ad89907b0ce55efab5d371cea80 /meta/recipes-devtools/perl | |
| parent | c9883733fed9267b1a936c08500a4caf8dc52d3d (diff) | |
| download | openembedded-core-8dc5f118832a4aca906239ffed82f72497c37f8e.tar.gz | |
perl: upgrade from 5.12.3 to 5.14.2
parallel build fix patches are not needed as they are upstream now.
Got a new set of debian patch set for 5.14.2
perl-rpdepends: fix the autogenerated rdepends mistakes
take out some mdoules which are not going to be built.
[Saul Wold: Remove debug]
Signed-off-by: Nitin A Kamble <nitin.a.kamble@intel.com>
Diffstat (limited to 'meta/recipes-devtools/perl')
92 files changed, 1949 insertions, 8643 deletions
diff --git a/meta/recipes-devtools/perl/files/Configure-multilib.patch b/meta/recipes-devtools/perl/files/Configure-multilib.patch deleted file mode 100644 index 085a2ffe4e..0000000000 --- a/meta/recipes-devtools/perl/files/Configure-multilib.patch +++ /dev/null @@ -1,17 +0,0 @@ -Upstream-Status: Inappropriate [embedded specific] - -Index: perl-5.12.2/Configure -=================================================================== ---- perl-5.12.2.orig/Configure -+++ perl-5.12.2/Configure -@@ -1316,8 +1316,9 @@ loclibpth="/usr/local/lib /opt/local/lib - loclibpth="$loclibpth /opt/gnu/lib /usr/GNU/lib /opt/GNU/lib" - - : general looking path for locating libraries --glibpth="/lib /usr/lib $xlibpth" -+glibpth="/lib /usr/lib /lib64 /usr/lib64 $xlibpth" - glibpth="$glibpth /usr/ccs/lib /usr/ucblib /usr/local/lib" -+test -f /usr/lib/*-linux-gnu/libc.so && glibpth="/usr/lib/*-linux-gnu $glibpth" - test -f /usr/shlib/libc.so && glibpth="/usr/shlib $glibpth" - test -f /shlib/libc.so && glibpth="/shlib $glibpth" - test -d /usr/lib64 && glibpth="$glibpth /lib64 /usr/lib64 /usr/local/lib64" diff --git a/meta/recipes-devtools/perl/perl-5.12.3/cross-generate_uudmap.patch b/meta/recipes-devtools/perl/perl-5.12.3/cross-generate_uudmap.patch deleted file mode 100644 index d59ad8dae6..0000000000 --- a/meta/recipes-devtools/perl/perl-5.12.3/cross-generate_uudmap.patch +++ /dev/null @@ -1,15 +0,0 @@ -Upstream-Status:Inappropriate [embedded specific] - -Index: perl-5.10.1/Makefile.SH -=================================================================== ---- perl-5.10.1.orig/Makefile.SH 2010-02-12 19:06:17.000000000 +0300 -+++ perl-5.10.1/Makefile.SH 2010-02-12 19:10:13.000000000 +0300 -@@ -596,7 +596,7 @@ - \$(RUN) ./generate_uudmap\$(HOST_EXE_EXT) >uudmap.h - - generate_uudmap\$(HOST_EXE_EXT): generate_uudmap\$(OBJ_EXT) -- \$(CC) -o generate_uudmap\$(EXE_EXT) \$(LDFLAGS) generate_uudmap\$(OBJ_EXT) \$(libs) -+ \$(BUILD_CC) -o generate_uudmap\$(EXE_EXT) generate_uudmap.c - - !GROK!THIS! - $spitshell >>$Makefile <<'!NO!SUBS!' diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/arm_optim.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/arm_optim.diff deleted file mode 100644 index b5b952e838..0000000000 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/arm_optim.diff +++ /dev/null @@ -1,34 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -From: Niko Tyni <ntyni@debian.org> -Description: Downgrade the optimization of sv.c on arm due to a gcc-4.4 bug -Bug-Debian: http://bugs.debian.org/580334 - -Regression from gcc-4.3, not reported yet. - - perl -e '"-2" =~ /(.+)/; @foo=(); push @foo, $_ for $1..undef; print @foo ? "ok\n" : "not ok\n"' - - ---- - cflags.SH | 6 +++++- - 1 files changed, 5 insertions(+), 1 deletions(-) - -diff --git a/cflags.SH b/cflags.SH -index a5d71b9..6914ba6 100755 ---- a/cflags.SH -+++ b/cflags.SH -@@ -312,7 +312,11 @@ for file do - regexec) ;; - run) ;; - scope) ;; -- sv) ;; -+ sv) -+ case $archname in -+ arm-*|armeb-*) -+ optimize=-O0;; -+ esac;; - taint) ;; - toke) ;; - universal) ;; --- -tg: (a508b62..) debian/arm_optim (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/cpan_config_path.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/cpan_config_path.diff deleted file mode 100644 index 27b4a45440..0000000000 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/cpan_config_path.diff +++ /dev/null @@ -1,24 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -Subject: Set location of CPAN::Config to /etc/perl as /usr may not be writable. - - ---- - cpan/CPAN/lib/CPAN/HandleConfig.pm | 2 +- - 1 files changed, 1 insertions(+), 1 deletions(-) - -diff --git a/cpan/CPAN/lib/CPAN/HandleConfig.pm b/cpan/CPAN/lib/CPAN/HandleConfig.pm -index 76cd81e..65a3b27 100644 ---- a/cpan/CPAN/lib/CPAN/HandleConfig.pm -+++ b/cpan/CPAN/lib/CPAN/HandleConfig.pm -@@ -543,7 +543,7 @@ sub load { - $configpm = $INC{"CPAN/MyConfig.pm"}; - $redo++; - } else { -- my($path_to_cpan) = File::Basename::dirname($INC{"CPAN.pm"}); -+ my($path_to_cpan) = '/etc/perl'; - my($configpmdir) = File::Spec->catdir($path_to_cpan,"CPAN"); - my($configpmtest) = File::Spec->catfile($configpmdir,"Config.pm"); - my $inc_key; --- -tg: (a508b62..) debian/cpan_config_path (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/deprecate-with-apt.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/deprecate-with-apt.diff deleted file mode 100644 index ad0b0cfb86..0000000000 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/deprecate-with-apt.diff +++ /dev/null @@ -1,61 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -From: Niko Tyni <ntyni@debian.org> -Subject: Point users to Debian packages of deprecated core modules -Bug-Debian: http://bugs.debian.org/580034 - -Class::ISA, Switch, Pod::Plainer, and (partially) Shell were -deprecated from the Perl core in 5.12.0. - -To get a clean transition, perl-modules is going to recommend the separate -Debian packages of these for one release cycle so that they will be -pulled in by default on upgrades. - -However, on systems configured to ignore recommendations the deprecation -warnings will still be useful, so modify them slightly to point to the -separate packages instead. - ---- - lib/deprecate.pm | 18 +++++++++++++++++- - 1 files changed, 17 insertions(+), 1 deletions(-) - -diff --git a/lib/deprecate.pm b/lib/deprecate.pm -index 7b92e0b..9db7330 100644 ---- a/lib/deprecate.pm -+++ b/lib/deprecate.pm -@@ -7,6 +7,16 @@ our $VERSION = 0.01; - our %Config; - unless (%Config) { require Config; *Config = \%Config::Config; } - -+# Debian-specific change: recommend the separate Debian packages of -+# deprecated modules where available -+ -+my %DEBIAN_PACKAGES = ( -+ "Class::ISA" => "libclass-isa-perl", -+ "Pod::Plainer" => "libpod-plainer-perl", -+ "Switch" => "libswitch-perl", -+ "Shell" => "libshell-perl", -+); -+ - sub import { - my ($package, $file, $line) = caller; - my $expect_leaf = "$package.pm"; -@@ -44,9 +54,15 @@ EOM - if (defined $callers_bitmask - && (vec($callers_bitmask, $warnings::Offsets{deprecated}, 1) - || vec($callers_bitmask, $warnings::Offsets{all}, 1))) { -- warn <<"EOM"; -+ if (my $deb = $DEBIAN_PACKAGES{$package}) { -+ warn <<"EOM"; -+$package will be removed from the Perl core distribution in the next major release. Please install the separate $deb package. It is being used at $call_file, line $call_line. -+EOM -+ } else { -+ warn <<"EOM"; - $package will be removed from the Perl core distribution in the next major release. Please install it from CPAN. It is being used at $call_file, line $call_line. - EOM -+ } - } - return; - } --- -tg: (a508b62..) debian/deprecate-with-apt (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/devel-ppport-ia64-optim.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/devel-ppport-ia64-optim.diff deleted file mode 100644 index e57a31577b..0000000000 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/devel-ppport-ia64-optim.diff +++ /dev/null @@ -1,34 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -From: Niko Tyni <ntyni@debian.org> -Subject: Work around an ICE on ia64 -Closes: 548943 - -Temporarily work around an internal compiler error in Devel::PPPort -on ia64+gcc-4.3. - - ---- - cpan/Devel-PPPort/Makefile.PL | 7 +++++++ - 1 files changed, 7 insertions(+), 0 deletions(-) - -diff --git a/cpan/Devel-PPPort/Makefile.PL b/cpan/Devel-PPPort/Makefile.PL -index 67eebc1..f1ef7a2 100644 ---- a/cpan/Devel-PPPort/Makefile.PL -+++ b/cpan/Devel-PPPort/Makefile.PL -@@ -75,6 +75,13 @@ sub configure - push @moreopts, INSTALLDIRS => ($] >= 5.007003 ? 'perl' : 'site'); - } - -+ -+ # temporary Debian hack, see http://bugs.debian.org/548943 -+ require Config; -+ if ($Config::Config{archname} =~ /^ia64/) { -+ push @moreopts, OPTIMIZE => '-g -O0'; -+ } -+ - if ($opt{'apicheck'}) { - $PL_FILES{'apicheck_c.PL'} = 'apicheck.c'; - push @C_FILES, qw{ apicheck.c }; --- -tg: (a508b62..) debian/devel-ppport-ia64-optim (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/extutils_hacks.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/extutils_hacks.diff deleted file mode 100644 index e1cbdb5658..0000000000 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/extutils_hacks.diff +++ /dev/null @@ -1,315 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -Subject: Various debian-specific ExtUtils changes - - * Respect umask during installation, and set as appropriate for each of - perl, vendor and site (policy requires group writable site dirs). - - * Don't install .packlist or perllocal.pod for perl or vendor. - * Fiddle with *PREFIX and variables written to the makefile so that - install directories may be changed when make is run by passing - PREFIX= to the "make install" command (used when packaging - modules). - - * Set location of libperl.a to /usr/lib. - * Note that libperl-dev package is required for embedded linking. - * Change install target dependencies to facilitate parallel makes. - - ---- - cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm | 12 +++--- - cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm | 44 +++++----------------- - cpan/ExtUtils-MakeMaker/t/INST.t | 4 +-- - cpan/ExtUtils-MakeMaker/t/INST_PREFIX.t | 10 +++--- - dist/ExtUtils-Install/lib/ExtUtils/Install.pm | 18 +++++----- - lib/ExtUtils/Embed.pm | 3 ++ - 6 files changed, 34 insertions(+), 57 deletions(-) - -diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm -index 4905aeb..a80ac20 100644 ---- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm -+++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm -@@ -701,8 +701,6 @@ all POD files in MAN1PODS and MAN3PODS. - sub manifypods_target { - my($self) = shift; - -- my $man1pods = ''; -- my $man3pods = ''; - my $dependencies = ''; - - # populate manXpods & dependencies: -@@ -718,7 +716,7 @@ END - foreach my $section (qw(1 3)) { - my $pods = $self->{"MAN${section}PODS"}; - push @man_cmds, $self->split_command(<<CMD, %$pods); -- \$(NOECHO) \$(POD2MAN) --section=$section --perm_rw=\$(PERM_RW) -+ \$(NOECHO) \$(POD2MAN) --section=\$(MAN${section}EXT) --perm_rw=\$(PERM_RW) - CMD - } - -@@ -1428,9 +1426,11 @@ sub init_INSTALL_from_PREFIX { - $self->{SITEPREFIX} ||= $sprefix; - $self->{VENDORPREFIX} ||= $vprefix; - -- # Lots of MM extension authors like to use $(PREFIX) so we -- # put something sensible in there no matter what. -- $self->{PREFIX} = '$('.uc $self->{INSTALLDIRS}.'PREFIX)'; -+ my $p = $self->{PREFIX} = $self->{PERLPREFIX}; -+ for my $t (qw/PERL SITE VENDOR/) -+ { -+ $self->{"${t}PREFIX"} =~ s!^\Q$p\E(?=/|$)!\$(PREFIX)!; -+ } - } - - my $arch = $Config{archname}; -diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm -index 239d6df..940de38 100644 ---- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm -+++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm -@@ -2046,9 +2046,7 @@ doc__install : doc_site_install - $(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site - - pure_perl_install :: all -- $(NOECHO) $(MOD_INSTALL) \ -- read }.$self->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q{ \ -- write }.$self->catfile('$(DESTINSTALLARCHLIB)','auto','$(FULLEXT)','.packlist').q{ \ -+ $(NOECHO) umask 022; $(MOD_INSTALL) \ - $(INST_LIB) $(DESTINSTALLPRIVLIB) \ - $(INST_ARCHLIB) $(DESTINSTALLARCHLIB) \ - $(INST_BIN) $(DESTINSTALLBIN) \ -@@ -2060,7 +2058,7 @@ pure_perl_install :: all - - - pure_site_install :: all -- $(NOECHO) $(MOD_INSTALL) \ -+ $(NOECHO) umask 02; $(MOD_INSTALL) \ - read }.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{ \ - write }.$self->catfile('$(DESTINSTALLSITEARCH)','auto','$(FULLEXT)','.packlist').q{ \ - $(INST_LIB) $(DESTINSTALLSITELIB) \ -@@ -2073,9 +2071,7 @@ pure_site_install :: all - }.$self->catdir('$(PERL_ARCHLIB)','auto','$(FULLEXT)').q{ - - pure_vendor_install :: all -- $(NOECHO) $(MOD_INSTALL) \ -- read }.$self->catfile('$(VENDORARCHEXP)','auto','$(FULLEXT)','.packlist').q{ \ -- write }.$self->catfile('$(DESTINSTALLVENDORARCH)','auto','$(FULLEXT)','.packlist').q{ \ -+ $(NOECHO) umask 022; $(MOD_INSTALL) \ - $(INST_LIB) $(DESTINSTALLVENDORLIB) \ - $(INST_ARCHLIB) $(DESTINSTALLVENDORARCH) \ - $(INST_BIN) $(DESTINSTALLVENDORBIN) \ -@@ -2084,37 +2080,19 @@ pure_vendor_install :: all - $(INST_MAN3DIR) $(DESTINSTALLVENDORMAN3DIR) - - doc_perl_install :: all -- $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod -- -$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB) -- -$(NOECHO) $(DOC_INSTALL) \ -- "Module" "$(NAME)" \ -- "installed into" "$(INSTALLPRIVLIB)" \ -- LINKTYPE "$(LINKTYPE)" \ -- VERSION "$(VERSION)" \ -- EXE_FILES "$(EXE_FILES)" \ -- >> }.$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q{ - - doc_site_install :: all -- $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod -- -$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB) -- -$(NOECHO) $(DOC_INSTALL) \ -+ $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLSITEARCH)/perllocal.pod -+ -$(NOECHO) umask 02; $(MKPATH) $(DESTINSTALLSITEARCH) -+ -$(NOECHO) umask 02; $(DOC_INSTALL) \ - "Module" "$(NAME)" \ - "installed into" "$(INSTALLSITELIB)" \ - LINKTYPE "$(LINKTYPE)" \ - VERSION "$(VERSION)" \ - EXE_FILES "$(EXE_FILES)" \ -- >> }.$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q{ -+ >> }.$self->catfile('$(DESTINSTALLSITEARCH)','perllocal.pod').q{ - - doc_vendor_install :: all -- $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod -- -$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB) -- -$(NOECHO) $(DOC_INSTALL) \ -- "Module" "$(NAME)" \ -- "installed into" "$(INSTALLVENDORLIB)" \ -- LINKTYPE "$(LINKTYPE)" \ -- VERSION "$(VERSION)" \ -- EXE_FILES "$(EXE_FILES)" \ -- >> }.$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q{ - - }; - -@@ -2123,13 +2101,12 @@ uninstall :: uninstall_from_$(INSTALLDIRS)dirs - $(NOECHO) $(NOOP) - - uninstall_from_perldirs :: -- $(NOECHO) $(UNINSTALL) }.$self->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q{ - - uninstall_from_sitedirs :: - $(NOECHO) $(UNINSTALL) }.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{ - - uninstall_from_vendordirs :: -- $(NOECHO) $(UNINSTALL) }.$self->catfile('$(VENDORARCHEXP)','auto','$(FULLEXT)','.packlist').q{ -+ - }; - - join("",@m); -@@ -2402,7 +2379,7 @@ MAP_PRELIBS = $Config{perllibs} $Config{cryptlib} - ($lperl = $libperl) =~ s/\$\(A\)/$self->{LIB_EXT}/; - } - unless ($libperl && -f $lperl) { # Ilya's code... -- my $dir = $self->{PERL_SRC} || "$self->{PERL_ARCHLIB}/CORE"; -+ my $dir = $self->{PERL_SRC} || "/usr/lib"; - $dir = "$self->{PERL_ARCHLIB}/.." if $self->{UNINSTALLED_PERL}; - $libperl ||= "libperl$self->{LIB_EXT}"; - $libperl = "$dir/$libperl"; -@@ -2998,8 +2975,7 @@ sub prefixify { - print STDERR " prefixify $var => $path\n" if $Verbose >= 2; - print STDERR " from $sprefix to $rprefix\n" if $Verbose >= 2; - -- if( $self->{ARGS}{PREFIX} && -- $path !~ s{^\Q$sprefix\E\b}{$rprefix}s ) -+ if( $path !~ s{^\Q$sprefix\E\b}{$rprefix}s && $self->{ARGS}{PREFIX} ) - { - - print STDERR " cannot prefix, using default.\n" if $Verbose >= 2; -diff --git a/cpan/ExtUtils-MakeMaker/t/INST.t b/cpan/ExtUtils-MakeMaker/t/INST.t -index 8a140eb..cf1410e 100755 ---- a/cpan/ExtUtils-MakeMaker/t/INST.t -+++ b/cpan/ExtUtils-MakeMaker/t/INST.t -@@ -59,9 +59,7 @@ isa_ok( $mm, 'ExtUtils::MakeMaker' ); - is( $mm->{NAME}, 'Big::Dummy', 'NAME' ); - is( $mm->{VERSION}, 0.01, 'VERSION' ); - --my $config_prefix = $Config{installprefixexp} || $Config{installprefix} || -- $Config{prefixexp} || $Config{prefix}; --is( $mm->{PERLPREFIX}, $config_prefix, 'PERLPREFIX' ); -+is( $mm->{PERLPREFIX}, '$(PREFIX)', 'PERLPREFIX' ); - - is( !!$mm->{PERL_CORE}, !!$ENV{PERL_CORE}, 'PERL_CORE' ); - -diff --git a/cpan/ExtUtils-MakeMaker/t/INST_PREFIX.t b/cpan/ExtUtils-MakeMaker/t/INST_PREFIX.t -index 8bb9db8..316546d 100755 ---- a/cpan/ExtUtils-MakeMaker/t/INST_PREFIX.t -+++ b/cpan/ExtUtils-MakeMaker/t/INST_PREFIX.t -@@ -10,7 +10,7 @@ BEGIN { - } - - use strict; --use Test::More tests => 52; -+use Test::More tests => 47; - use MakeMaker::Test::Utils; - use MakeMaker::Test::Setup::BFD; - use ExtUtils::MakeMaker; -@@ -56,16 +56,16 @@ like( $stdout->read, qr{ - Writing\ $Makefile\ for\ Big::Dummy\n - }x ); - --is( $mm->{PREFIX}, '$(SITEPREFIX)', 'PREFIX set based on INSTALLDIRS' ); -+#is( $mm->{PREFIX}, '$(SITEPREFIX)', 'PREFIX set based on INSTALLDIRS' ); - - isa_ok( $mm, 'ExtUtils::MakeMaker' ); - - is( $mm->{NAME}, 'Big::Dummy', 'NAME' ); - is( $mm->{VERSION}, 0.01, 'VERSION' ); - --foreach my $prefix (qw(PREFIX PERLPREFIX SITEPREFIX VENDORPREFIX)) { -- unlike( $mm->{$prefix}, qr/\$\(PREFIX\)/ ); --} -+#foreach my $prefix (qw(PREFIX PERLPREFIX SITEPREFIX VENDORPREFIX)) { -+# unlike( $mm->{$prefix}, qr/\$\(PREFIX\)/ ); -+#} - - - my $PREFIX = File::Spec->catdir('foo', 'bar'); -diff --git a/dist/ExtUtils-Install/lib/ExtUtils/Install.pm b/dist/ExtUtils-Install/lib/ExtUtils/Install.pm -index da58365..d6d5c11 100644 ---- a/dist/ExtUtils-Install/lib/ExtUtils/Install.pm -+++ b/dist/ExtUtils-Install/lib/ExtUtils/Install.pm -@@ -468,7 +468,7 @@ sub _can_write_dir { - - =pod - --=item _mkpath($dir,$show,$mode,$verbose,$dry_run) -+=item _mkpath($dir,$show,$verbose,$dry_run) - - Wrapper around File::Path::mkpath() to handle errors. - -@@ -485,13 +485,13 @@ writable. - =cut - - sub _mkpath { -- my ($dir,$show,$mode,$verbose,$dry_run)=@_; -+ my ($dir,$show,$verbose,$dry_run)=@_; - if ( $verbose && $verbose > 1 && ! -d $dir) { - $show= 1; -- printf "mkpath(%s,%d,%#o)\n", $dir, $show, $mode; -+ printf "mkpath(%s,%d)\n", $dir, $show; - } - if (!$dry_run) { -- if ( ! eval { File::Path::mkpath($dir,$show,$mode); 1 } ) { -+ if ( ! eval { File::Path::mkpath($dir,$show); 1 } ) { - _choke("Can't create '$dir'","$@"); - } - -@@ -796,7 +796,7 @@ sub install { #XXX OS-SPECIFIC - _chdir($cwd); - } - foreach my $targetdir (sort keys %check_dirs) { -- _mkpath( $targetdir, 0, 0755, $verbose, $dry_run ); -+ _mkpath( $targetdir, 0, $verbose, $dry_run ); - } - foreach my $found (@found_files) { - my ($diff, $ffd, $origfile, $mode, $size, $atime, $mtime, -@@ -810,7 +810,7 @@ sub install { #XXX OS-SPECIFIC - $targetfile= _unlink_or_rename( $targetfile, 'tryhard', 'install' ) - unless $dry_run; - } elsif ( ! -d $targetdir ) { -- _mkpath( $targetdir, 0, 0755, $verbose, $dry_run ); -+ _mkpath( $targetdir, 0, $verbose, $dry_run ); - } - print "Installing $targetfile\n"; - -@@ -850,7 +850,7 @@ sub install { #XXX OS-SPECIFIC - - if ($pack{'write'}) { - $dir = install_rooted_dir(dirname($pack{'write'})); -- _mkpath( $dir, 0, 0755, $verbose, $dry_run ); -+ _mkpath( $dir, 0, $verbose, $dry_run ); - print "Writing $pack{'write'}\n" if $verbose; - $packlist->write(install_rooted_file($pack{'write'})) unless $dry_run; - } -@@ -1190,7 +1190,7 @@ be prepended as a directory to each installed file (and directory). - sub pm_to_blib { - my($fromto,$autodir,$pm_filter) = @_; - -- _mkpath($autodir,0,0755); -+ _mkpath($autodir,0); - while(my($from, $to) = each %$fromto) { - if( -f $to && -s $from == -s $to && -M $to < -M $from ) { - print "Skip $to (unchanged)\n"; -@@ -1213,7 +1213,7 @@ sub pm_to_blib { - # we wont try hard here. its too likely to mess things up. - forceunlink($to); - } else { -- _mkpath(dirname($to),0,0755); -+ _mkpath(dirname($to),0); - } - if ($need_filtering) { - run_filter($pm_filter, $from, $to); -diff --git a/lib/ExtUtils/Embed.pm b/lib/ExtUtils/Embed.pm -index 24ae909..12d421d 100644 ---- a/lib/ExtUtils/Embed.pm -+++ b/lib/ExtUtils/Embed.pm -@@ -305,6 +305,9 @@ and extensions in your C/C++ applications. - Typically, an application B<Makefile> will invoke ExtUtils::Embed - functions while building your application. - -+Note that on Debian systems the B<libperl-dev> package is required for -+compiling applications which embed an interpreter. -+ - =head1 @EXPORT - - ExtUtils::Embed exports the following functions: --- -tg: (a508b62..) debian/extutils_hacks (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/autodie-flock.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/autodie-flock.diff deleted file mode 100644 index 375ae418f4..0000000000 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/autodie-flock.diff +++ /dev/null @@ -1,100 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -From: Niko Tyni <ntyni@debian.org> -Subject: Allow for flock returning EAGAIN instead of EWOULDBLOCK on linux/parisc -Bug-Debian: http://bugs.debian.org/543731 -Origin: upstream, http://github.com/pfenwick/autodie/commit/037738e11a6097734b0e1dabdd77b92e5fe35219 - - ---- - cpan/autodie/lib/Fatal.pm | 14 +++++++++++++- - cpan/autodie/t/flock.t | 12 ++++++++++-- - 2 files changed, 23 insertions(+), 3 deletions(-) - -diff --git a/cpan/autodie/lib/Fatal.pm b/cpan/autodie/lib/Fatal.pm -old mode 100644 -new mode 100755 -index 18e71ed..c17a257 ---- a/cpan/autodie/lib/Fatal.pm -+++ b/cpan/autodie/lib/Fatal.pm -@@ -5,6 +5,7 @@ use Carp; - use strict; - use warnings; - use Tie::RefHash; # To cache subroutine refs -+use Config; - - use constant PERL510 => ( $] >= 5.010 ); - -@@ -52,6 +53,10 @@ our %_EWOULDBLOCK = ( - MSWin32 => 33, - ); - -+# the linux parisc port has separate EAGAIN and EWOULDBLOCK, -+# and the kernel returns EAGAIN -+my $try_EAGAIN = ($^O eq 'linux' and $Config{archname} =~ /hppa|parisc/) ? 1 : 0; -+ - # We have some tags that can be passed in for use with import. - # These are all assumed to be CORE:: - -@@ -720,6 +725,11 @@ sub _one_invocation { - my $EWOULDBLOCK = eval { POSIX::EWOULDBLOCK(); } - || $_EWOULDBLOCK{$^O} - || _autocroak("Internal error - can't overload flock - EWOULDBLOCK not defined on this system."); -+ my $EAGAIN = $EWOULDBLOCK; -+ if ($try_EAGAIN) { -+ $EAGAIN = eval { POSIX::EAGAIN(); } -+ || _autocroak("Internal error - can't overload flock - EAGAIN not defined on this system."); -+ } - - require Fcntl; # For Fcntl::LOCK_NB - -@@ -735,7 +745,9 @@ sub _one_invocation { - # If we failed, but we're using LOCK_NB and - # returned EWOULDBLOCK, it's not a real error. - -- if (\$_[1] & Fcntl::LOCK_NB() and \$! == $EWOULDBLOCK ) { -+ if (\$_[1] & Fcntl::LOCK_NB() and -+ (\$! == $EWOULDBLOCK or -+ ($try_EAGAIN and \$! == $EAGAIN ))) { - return \$retval; - } - -diff --git a/cpan/autodie/t/flock.t b/cpan/autodie/t/flock.t -index a7550ba..6421a56 100755 ---- a/cpan/autodie/t/flock.t -+++ b/cpan/autodie/t/flock.t -@@ -2,7 +2,8 @@ - use strict; - use Test::More; - use Fcntl qw(:flock); --use POSIX qw(EWOULDBLOCK); -+use POSIX qw(EWOULDBLOCK EAGAIN); -+use Config; - - require Fatal; - -@@ -10,6 +11,9 @@ my $EWOULDBLOCK = eval { EWOULDBLOCK() } - || $Fatal::_EWOULDBLOCK{$^O} - || plan skip_all => "EWOULDBLOCK not defined on this system"; - -+my $try_EAGAIN = ($^O eq 'linux' and $Config{archname} =~ /hppa|parisc/) ? 1 : 0; -+my $EAGAIN = eval { EAGAIN() }; -+ - my ($self_fh, $self_fh2); - - eval { -@@ -55,7 +59,11 @@ eval { - $return = flock($self_fh2, LOCK_EX | LOCK_NB); - }; - --is($!+0, $EWOULDBLOCK, "Double-flocking should be EWOULDBLOCK"); -+if (!$try_EAGAIN) { -+ is($!+0, $EWOULDBLOCK, "Double-flocking should be EWOULDBLOCK"); -+} else { -+ ok($!+0 == $EWOULDBLOCK || $!+0 == $EAGAIN, "Double-flocking should be EWOULDBLOCK or EAGAIN"); -+} - ok(!$return, "flocking a file twice should fail"); - is($@, "", "Non-blocking flock should not fail on EWOULDBLOCK"); - --- -tg: (a508b62..) fixes/autodie-flock (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/concat-stack-corruption.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/concat-stack-corruption.diff deleted file mode 100644 index 40437f38ca..0000000000 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/concat-stack-corruption.diff +++ /dev/null @@ -1,39 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -From: Niko Tyni <ntyni@debian.org> -Subject: Fix stack pointer corruption in pp_concat() with 'use encoding' -Bug-Debian: http://bugs.debian.org/596105 -Bug: http://rt.perl.org/rt3/Ticket/Display.html?id=78674 -Origin: upstream, http://perl5.git.perl.org/perl.git/commit/e3393f51d48d8b790e26324eb0336fac9689fa46 - -If the stack is reallocated during pp_concat() and 'use encoding' in -effect, the stack pointer gets corrupted, causing memory allocation bugs -and the like. - ---- - pp_hot.c | 3 +++ - 1 files changed, 3 insertions(+), 0 deletions(-) - -diff --git a/pp_hot.c b/pp_hot.c -index ee699ef..c5ed14e 100644 ---- a/pp_hot.c -+++ b/pp_hot.c -@@ -271,6 +271,8 @@ PP(pp_concat) - rbyte = !DO_UTF8(right); - } - if (lbyte != rbyte) { -+ /* sv_utf8_upgrade_nomg() may reallocate the stack */ -+ PUTBACK; - if (lbyte) - sv_utf8_upgrade_nomg(TARG); - else { -@@ -279,6 +281,7 @@ PP(pp_concat) - sv_utf8_upgrade_nomg(right); - rpv = SvPV_const(right, rlen); - } -+ SPAGAIN; - } - sv_catpvn_nomg(TARG, rpv, rlen); - --- -tg: (a508b62..) fixes/concat-stack-corruption (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/cpanplus-without-home.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/cpanplus-without-home.diff deleted file mode 100644 index e7ff57c54f..0000000000 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/cpanplus-without-home.diff +++ /dev/null @@ -1,32 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -From: Niko Tyni <ntyni@debian.org> -Subject: Fix CPANPLUS test failures when HOME doesn't exist -Bug: http://rt.cpan.org/Public/Bug/Display.html?id=52988 -Bug-Debian: http://bugs.debian.org/577011 -Origin: upstream - -The Debian autobuilders are configured with a non-existing $ENV{HOME}, -triggering a bug in CPANPLUS that causes test failures. - -Fix from CPANPLUS-0.9001. - ---- - cpan/CPANPLUS/lib/CPANPLUS/Internals/Utils.pm | 2 +- - 1 files changed, 1 insertions(+), 1 deletions(-) - -diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Utils.pm b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Utils.pm -index 27d2abc..8475c36 100644 ---- a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Utils.pm -+++ b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Utils.pm -@@ -5,7 +5,7 @@ use strict; - use CPANPLUS::Error; - use CPANPLUS::Internals::Constants; - --use Cwd qw[chdir]; -+use Cwd qw[chdir cwd]; - use File::Copy; - use Params::Check qw[check]; - use Module::Load::Conditional qw[can_load]; --- -tg: (a508b62..) fixes/cpanplus-without-home (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/h2ph-gcc-4.5.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/h2ph-gcc-4.5.diff deleted file mode 100644 index 9faab81f31..0000000000 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/h2ph-gcc-4.5.diff +++ /dev/null @@ -1,108 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -Author: Robin Barker <rmbarker@cpan.org> -Subject: h2ph fix for gcc 4.5 -Bug-Debian: http://bugs.debian.org/599933 -Origin: upstream, http://perl5.git.perl.org/perl.git/commit/8d66b3f930dc6d88b524d103e304308ae73a46e7 - -Fix h2ph and test. Needed to build with GCC 4.5. - - ---- - lib/h2ph.t | 12 ++++++++++-- - utils/h2ph.PL | 28 +++++++++++++++++++++++----- - 2 files changed, 33 insertions(+), 7 deletions(-) - -diff --git a/lib/h2ph.t b/lib/h2ph.t -index 27dd7b9..8d62d46 100755 ---- a/lib/h2ph.t -+++ b/lib/h2ph.t -@@ -18,7 +18,7 @@ if (!(-e $extracted_program)) { - exit 0; - } - --plan(4); -+plan(5); - - # quickly compare two text files - sub txt_compare { -@@ -41,8 +41,16 @@ $result = runperl( progfile => 'lib/h2ph.pht', - stderr => 1 ); - like( $result, qr/syntax OK$/, "output compiles"); - -+$result = runperl( progfile => '_h2ph_pre.ph', -+ switches => ['-c'], -+ stderr => 1 ); -+like( $result, qr/syntax OK$/, "preamble compiles"); -+ - $result = runperl( switches => ["-w"], -- prog => '$SIG{__WARN__} = sub { die $_[0] }; require q(lib/h2ph.pht);'); -+ stderr => 1, -+ prog => <<'PROG' ); -+$SIG{__WARN__} = sub { die $_[0] }; require q(lib/h2ph.pht); -+PROG - is( $result, '', "output free of warnings" ); - - # cleanup -diff --git a/utils/h2ph.PL b/utils/h2ph.PL -index 8f56db4..1255807 100644 ---- a/utils/h2ph.PL -+++ b/utils/h2ph.PL -@@ -401,7 +401,10 @@ if ($opt_e && (scalar(keys %bad_file) > 0)) { - exit $Exit; - - sub expr { -- $new = '"(assembly code)"' and return if /\b__asm__\b/; # freak out. -+ if (/\b__asm__\b/) { # freak out -+ $new = '"(assembly code)"'; -+ return -+ } - my $joined_args; - if(keys(%curargs)) { - $joined_args = join('|', keys(%curargs)); -@@ -770,7 +773,7 @@ sub inc_dirs - sub build_preamble_if_necessary - { - # Increment $VERSION every time this function is modified: -- my $VERSION = 2; -+ my $VERSION = 3; - my $preamble = "$Dest_dir/_h2ph_pre.ph"; - - # Can we skip building the preamble file? -@@ -798,7 +801,16 @@ sub build_preamble_if_necessary - # parenthesized value: d=(v) - $define{$_} = $1; - } -- if ($define{$_} =~ /^([+-]?(\d+)?\.\d+([eE][+-]?\d+)?)[FL]?$/) { -+ if (/^(\w+)\((\w)\)$/) { -+ my($macro, $arg) = ($1, $2); -+ my $def = $define{$_}; -+ $def =~ s/$arg/\$\{$arg\}/g; -+ print PREAMBLE <<DEFINE; -+unless (defined &$macro) { sub $macro(\$) { my (\$$arg) = \@_; \"$def\" } } -+ -+DEFINE -+ } elsif -+ ($define{$_} =~ /^([+-]?(\d+)?\.\d+([eE][+-]?\d+)?)[FL]?$/) { - # float: - print PREAMBLE - "unless (defined &$_) { sub $_() { $1 } }\n\n"; -@@ -807,8 +819,14 @@ sub build_preamble_if_necessary - print PREAMBLE - "unless (defined &$_) { sub $_() { $1 } }\n\n"; - } elsif ($define{$_} =~ /^\w+$/) { -- print PREAMBLE -- "unless (defined &$_) { sub $_() { &$define{$_} } }\n\n"; -+ my $def = $define{$_}; -+ if ($isatype{$def}) { -+ print PREAMBLE -+ "unless (defined &$_) { sub $_() { \"$def\" } }\n\n"; -+ } else { -+ print PREAMBLE -+ "unless (defined &$_) { sub $_() { &$def } }\n\n"; -+ } - } else { - print PREAMBLE - "unless (defined &$_) { sub $_() { \"", --- -tg: (a508b62..) fixes/h2ph-gcc-4.5 (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/lc-numeric-docs.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/lc-numeric-docs.diff deleted file mode 100644 index 67a55da427..0000000000 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/lc-numeric-docs.diff +++ /dev/null @@ -1,97 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -From: Niko Tyni <ntyni@debian.org> -Subject: LC_NUMERIC documentation fixes -Bug-Debian: http://bugs.debian.org/379329 -Bug: http://rt.perl.org/rt3/Ticket/Display.html?id=78452 -Origin: upstream, http://perl5.git.perl.org/perl.git/commit/903eb63f7d8d47a38971a8e9af7201b9927882cf - -LC_NUMERIC documentation updates fixing two errors: - - - the early parts of perllocale.pod still say printf() uses LC_NUMERIC - with just 'use locale' when actually a POSIX::setlocale() call is - also needed - - - format() hasn't used LC_NUMERIC unconditionally since 5.005_03 - (commit 097ee67dff1c60f201bc09435bc6eaeeafcd8123). - -Test cases from the upstream commit dropped for the sake of simplicity. - ---- - pod/perlform.pod | 20 ++++++++------------ - pod/perllocale.pod | 15 ++++++--------- - 2 files changed, 14 insertions(+), 21 deletions(-) - -diff --git a/pod/perlform.pod b/pod/perlform.pod -index 3cfa1b7..df0f0a1 100644 ---- a/pod/perlform.pod -+++ b/pod/perlform.pod -@@ -166,9 +166,9 @@ token on the first line. If an expression evaluates to a number with a - decimal part, and if the corresponding picture specifies that the decimal - part should appear in the output (that is, any picture except multiple "#" - characters B<without> an embedded "."), the character used for the decimal --point is B<always> determined by the current LC_NUMERIC locale. This --means that, if, for example, the run-time environment happens to specify a --German locale, "," will be used instead of the default ".". See -+point is determined by the current LC_NUMERIC locale if C<use locale> is in -+effect. This means that, if, for example, the run-time environment happens -+to specify a German locale, "," will be used instead of the default ".". See - L<perllocale> and L<"WARNINGS"> for more information. - - -@@ -442,15 +442,11 @@ Lexical variables (declared with "my") are not visible within a - format unless the format is declared within the scope of the lexical - variable. (They weren't visible at all before version 5.001.) - --Formats are the only part of Perl that unconditionally use information --from a program's locale; if a program's environment specifies an --LC_NUMERIC locale, it is always used to specify the decimal point --character in formatted output. Perl ignores all other aspects of locale --handling unless the C<use locale> pragma is in effect. Formatted output --cannot be controlled by C<use locale> because the pragma is tied to the --block structure of the program, and, for historical reasons, formats --exist outside that block structure. See L<perllocale> for further --discussion of locale handling. -+If a program's environment specifies an LC_NUMERIC locale and C<use -+locale> is in effect when the format is declared, the locale is used -+to specify the decimal point character in formatted output. Formatted -+output cannot be controlled by C<use locale> at the time when write() -+is called. See L<perllocale> for further discussion of locale handling. - - Within strings that are to be displayed in a fixed length text field, - each control character is substituted by a space. (But remember the -diff --git a/pod/perllocale.pod b/pod/perllocale.pod -index 0dbabe7..0bec423 100644 ---- a/pod/perllocale.pod -+++ b/pod/perllocale.pod -@@ -115,8 +115,7 @@ ucfirst(), and lcfirst()) use C<LC_CTYPE> - - =item * - --B<The formatting functions> (printf(), sprintf() and write()) use --C<LC_NUMERIC> -+B<Format declarations> (format()) use C<LC_NUMERIC> - - =item * - -@@ -967,13 +966,11 @@ system's implementation of the locale system than by Perl. - - =head2 write() and LC_NUMERIC - --Formats are the only part of Perl that unconditionally use information --from a program's locale; if a program's environment specifies an --LC_NUMERIC locale, it is always used to specify the decimal point --character in formatted output. Formatted output cannot be controlled by --C<use locale> because the pragma is tied to the block structure of the --program, and, for historical reasons, formats exist outside that block --structure. -+If a program's environment specifies an LC_NUMERIC locale and C<use -+locale> is in effect when the format is declared, the locale is used -+to specify the decimal point character in formatted output. Formatted -+output cannot be controlled by C<use locale> at the time when write() -+is called. - - =head2 Freely available locale definitions - --- -tg: (a508b62..) fixes/lc-numeric-docs (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/lc-numeric-sprintf.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/lc-numeric-sprintf.diff deleted file mode 100644 index 9fe07eb294..0000000000 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/lc-numeric-sprintf.diff +++ /dev/null @@ -1,31 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -From: Niko Tyni <ntyni@debian.org> -Subject: Fix sprintf not to ignore LC_NUMERIC with constants -Bug-Debian: http://bugs.debian.org/601549 -Bug: http://rt.perl.org/rt3/Ticket/Display.html?id=78632 -Origin: upstream, http://perl5.git.perl.org/perl.git/commit/b3fd61496ebc585b1115807e3195f17714662a09 - -Don't fold constants in sprintf() if locales are used - -An upstream regression in 5.10.1 made sprintf() ignore LC_NUMERIC for -numeric constants. - ---- - op.c | 1 + - 1 files changed, 1 insertions(+), 0 deletions(-) - -diff --git a/op.c b/op.c -index e94f158..3c6badb 100644 ---- a/op.c -+++ b/op.c -@@ -2503,6 +2503,7 @@ S_fold_constants(pTHX_ register OP *o) - case OP_SLE: - case OP_SGE: - case OP_SCMP: -+ case OP_SPRINTF: - /* XXX what about the numeric ops? */ - if (PL_hints & HINT_LOCALE) - goto nope; --- -tg: (a508b62..) fixes/lc-numeric-sprintf (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/processPL.diff b/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/processPL.diff deleted file mode 100644 index fa2d7c365a..0000000000 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/processPL.diff +++ /dev/null @@ -1,45 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -Subject: Always use PERLRUNINST when building perl modules. -Bug-Debian: http://bugs.debian.org/357264 -Bug: http://rt.cpan.org/Public/Bug/Display.html?id=17224 - -Revert part of upstream change 24524 to always use PERLRUNINST when -building perl modules: Some PDL demos expect blib to be implicitly -searched. - - ---- - cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm | 5 +---- - 1 files changed, 1 insertions(+), 4 deletions(-) - -diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm -index 239d6df..294d266 100644 ---- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm -+++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm -@@ -3043,14 +3043,11 @@ sub processPL { - # pm_to_blib depends on then it can't depend on pm_to_blib - # else we have a dependency loop. - my $pm_dep; -- my $perlrun; - if( defined $self->{PM}{$target} ) { - $pm_dep = ''; -- $perlrun = 'PERLRUN'; - } - else { - $pm_dep = 'pm_to_blib'; -- $perlrun = 'PERLRUNINST'; - } - - $m .= <<MAKE_FRAG; -@@ -3059,7 +3056,7 @@ all :: $target - \$(NOECHO) \$(NOOP) - - $target :: $plfile $pm_dep -- \$($perlrun) $plfile $target -+ \$(PERLRUNINST) $plfile $target - MAKE_FRAG - - } --- -tg: (a508b62..) fixes/processPL (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/patchlevel b/meta/recipes-devtools/perl/perl-5.12.3/debian/patchlevel deleted file mode 100644 index 0839fbd031..0000000000 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/patchlevel +++ /dev/null @@ -1,45 +0,0 @@ -Subject: List packaged patches for 5.12.3-2 in patchlevel.h -Origin: vendor -Bug-Debian: http://bugs.debian.org/567489 - -The list can be refreshed from information in debian/patches by running -'debian/rules refresh-patchlevel'. - - ---- perl/patchlevel.bak -+++ perl/patchlevel.h -@@ -133,0 +134,34 @@ -+ ,"DEBPKG:debian/arm_thread_stress_timeout - http://bugs.debian.org/501970 Raise the timeout of ext/threads/shared/t/stress.t to accommodate slower build hosts" -+ ,"DEBPKG:debian/cpan_config_path - Set location of CPAN::Config to /etc/perl as /usr may not be writable." -+ ,"DEBPKG:debian/cpan_definstalldirs - Provide a sensible INSTALLDIRS default for modules installed from CPAN." -+ ,"DEBPKG:debian/db_file_ver - http://bugs.debian.org/340047 Remove overly restrictive DB_File version check." -+ ,"DEBPKG:debian/doc_info - Replace generic man(1) instructions with Debian-specific information." -+ ,"DEBPKG:debian/enc2xs_inc - http://bugs.debian.org/290336 Tweak enc2xs to follow symlinks and ignore missing @INC directories." -+ ,"DEBPKG:debian/errno_ver - http://bugs.debian.org/343351 Remove Errno version check due to upgrade problems with long-running processes." -+ ,"DEBPKG:debian/extutils_hacks - Various debian-specific ExtUtils changes" -+ ,"DEBPKG:debian/fakeroot - Postpone LD_LIBRARY_PATH evaluation to the binary targets." -+ ,"DEBPKG:debian/instmodsh_doc - Debian policy doesn't install .packlist files for core or vendor." -+ ,"DEBPKG:debian/ld_run_path - Remove standard libs from LD_RUN_PATH as per Debian policy." -+ ,"DEBPKG:debian/libnet_config_path - Set location of libnet.cfg to /etc/perl/Net as /usr may not be writable." -+ ,"DEBPKG:debian/m68k_thread_stress - http://bugs.debian.org/495826 Disable some threads tests on m68k for now due to missing TLS." -+ ,"DEBPKG:debian/mod_paths - Tweak @INC ordering for Debian" -+ ,"DEBPKG:debian/module_build_man_extensions - http://bugs.debian.org/479460 Adjust Module::Build manual page extensions for the Debian Perl policy" -+ ,"DEBPKG:debian/prune_libs - http://bugs.debian.org/128355 Prune the list of libraries wanted to what we actually need." -+ ,"DEBPKG:fixes/net_smtp_docs - http://bugs.debian.org/100195 [rt.cpan.org #36038] Document the Net::SMTP 'Port' option" -+ ,"DEBPKG:fixes/processPL - http://bugs.debian.org/357264 [rt.cpan.org #17224] Always use PERLRUNINST when building perl modules." -+ ,"DEBPKG:debian/perlivp - http://bugs.debian.org/510895 Make perlivp skip include directories in /usr/local" -+ ,"DEBPKG:debian/disable-zlib-bundling - Disable zlib bundling in Compress::Raw::Zlib" -+ ,"DEBPKG:debian/cpanplus_definstalldirs - http://bugs.debian.org/533707 Configure CPANPLUS to use the site directories by default." -+ ,"DEBPKG:debian/cpanplus_config_path - Save local versions of CPANPLUS::Config::System into /etc/perl." -+ ,"DEBPKG:fixes/autodie-flock - http://bugs.debian.org/543731 Allow for flock returning EAGAIN instead of EWOULDBLOCK on linux/parisc" -+ ,"DEBPKG:debian/devel-ppport-ia64-optim - http://bugs.debian.org/548943 Work around an ICE on ia64" -+ ,"DEBPKG:fixes/cpanplus-without-home - http://bugs.debian.org/577011 [rt.cpan.org #52988] Fix CPANPLUS test failures when HOME doesn't exist" -+ ,"DEBPKG:debian/arm_optim - http://bugs.debian.org/580334 Downgrade the optimization of sv.c on arm due to a gcc-4.4 bug" -+ ,"DEBPKG:debian/deprecate-with-apt - http://bugs.debian.org/580034 Point users to Debian packages of deprecated core modules" -+ ,"DEBPKG:fixes/hurd-ccflags - http://bugs.debian.org/587901 Make hints/gnu.sh append to $ccflags rather than overriding them" -+ ,"DEBPKG:debian/squelch-locale-warnings - http://bugs.debian.org/508764 Squelch locale warnings in Debian package maintainer scripts" -+ ,"DEBPKG:fixes/lc-numeric-docs - http://bugs.debian.org/379329 [perl #78452] [903eb63] LC_NUMERIC documentation fixes" -+ ,"DEBPKG:fixes/lc-numeric-sprintf - http://bugs.debian.org/601549 [perl #78632] [b3fd614] Fix sprintf not to ignore LC_NUMERIC with constants" -+ ,"DEBPKG:fixes/concat-stack-corruption - http://bugs.debian.org/596105 [perl #78674] [e3393f5] Fix stack pointer corruption in pp_concat() with 'use encoding'" -+ ,"DEBPKG:fixes/h2ph-gcc-4.5 - http://bugs.debian.org/599933 [8d66b3f] h2ph fix for gcc 4.5" -+ ,"DEBPKG:patchlevel - http://bugs.debian.org/567489 List packaged patches for 5.12.3-2 in patchlevel.h" diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/series b/meta/recipes-devtools/perl/perl-5.12.3/debian/series deleted file mode 100644 index 5425bc6323..0000000000 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/series +++ /dev/null @@ -1,34 +0,0 @@ -debian/arm_thread_stress_timeout.diff -p1 -debian/cpan_config_path.diff -p1 -debian/cpan_definstalldirs.diff -p1 -debian/db_file_ver.diff -p1 -debian/doc_info.diff -p1 -debian/enc2xs_inc.diff -p1 -debian/errno_ver.diff -p1 -debian/extutils_hacks.diff -p1 -debian/fakeroot.diff -p1 -debian/instmodsh_doc.diff -p1 -debian/ld_run_path.diff -p1 -debian/libnet_config_path.diff -p1 -debian/m68k_thread_stress.diff -p1 -debian/mod_paths.diff -p1 -debian/module_build_man_extensions.diff -p1 -debian/prune_libs.diff -p1 -fixes/net_smtp_docs.diff -p1 -fixes/processPL.diff -p1 -debian/perlivp.diff -p1 -debian/disable-zlib-bundling.diff -p1 -debian/cpanplus_definstalldirs.diff -p1 -debian/cpanplus_config_path.diff -p1 -fixes/autodie-flock.diff -p1 -debian/devel-ppport-ia64-optim.diff -p1 -fixes/cpanplus-without-home.diff -p1 -debian/arm_optim.diff -p1 -debian/deprecate-with-apt.diff -p1 -fixes/hurd-ccflags.diff -p1 -debian/squelch-locale-warnings.diff -p1 -fixes/lc-numeric-docs.diff -p1 -fixes/lc-numeric-sprintf.diff -p1 -fixes/concat-stack-corruption.diff -p1 -fixes/h2ph-gcc-4.5.diff -p1 -patchlevel -p1 diff --git a/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_1.patch b/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_1.patch deleted file mode 100644 index d5a6295386..0000000000 --- a/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_1.patch +++ /dev/null @@ -1,27 +0,0 @@ -Upstream-Status:Inappropriate [Backport] - -Imported from perl git tree by Nitin A Kamble <nitin.a.kamble@intel.com> -2011-02-23 - -commit 6695a346c41138df5b2c0e26b9a49b1f96137da0 -Author: Tony Cook <tony@openbsd32.tony.develop-help.com> -Date: Thu Jul 22 09:54:13 2010 +1000 - - make_ext.pl populates @INC correctly, don't override it badly - - PERL5LIB is populated by make_ext.pl with paths to the modules we need - to run, don't override this with "../../lib" since that may not have - been populated yet in a parallel build. - -diff --git a/ext/POSIX/Makefile.PL b/ext/POSIX/Makefile.PL -index 392b6fb..9e6d091 100644 ---- a/ext/POSIX/Makefile.PL -+++ b/ext/POSIX/Makefile.PL -@@ -1,7 +1,3 @@ --# Explicitly avoid including '.' in @INC; autoloader gets confused since it --# can find POSIX.pm, but can't find autosplit.ix. --BEGIN { @INC = '../../lib';} --# - use ExtUtils::MakeMaker; - use ExtUtils::Constant 0.11 'WriteConstants'; - use Config; diff --git a/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_2.patch b/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_2.patch deleted file mode 100644 index a3432ab430..0000000000 --- a/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_2.patch +++ /dev/null @@ -1,24 +0,0 @@ -Upstream-Status:Inappropriate [Backport] - -Imported from perl git tree by Nitin A Kamble <nitin.a.kamble@intel.com> -2011-02-23 - -commit 24e93d7838b346d2ed632075f3d824a325170616 -Author: Tony Cook <tony@develop-help.com> -Date: Sat Aug 14 00:21:29 2010 +1000 - - POSIX/t/posix.t expects a certain start to Makefile.PL - - 6695a346 changed the start of Makefile.PL, but t/posix.t reads that to - test its read() implementation, restore enough of the original for the - test to pass. - -diff --git a/ext/POSIX/Makefile.PL b/ext/POSIX/Makefile.PL -index 9e6d091..292882c 100644 ---- a/ext/POSIX/Makefile.PL -+++ b/ext/POSIX/Makefile.PL -@@ -1,3 +1,4 @@ -+# Expect this line to be read by t/posix.t, don't change it - use ExtUtils::MakeMaker; - use ExtUtils::Constant 0.11 'WriteConstants'; - use Config; diff --git a/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_3.patch b/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_3.patch deleted file mode 100644 index 26af1f1d95..0000000000 --- a/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_3.patch +++ /dev/null @@ -1,6585 +0,0 @@ -Upstream-Status:Inappropriate [Backport] - -Imported from perl git tree by Nitin A Kamble <nitin.a.kamble@intel.com> -2011-02-23 - -commit 4feb80ac47a22e7de7d7c1c1d5dfb3d744a2a3a7 -Author: Jerry D. Hedden <jdhedden@cpan.org> -Date: Tue Aug 17 13:17:11 2010 -0400 - - Move POSIX.pm to lib/POSIX.pm to fix autosplitter problem - -diff --git a/MANIFEST b/MANIFEST -index 3036d73..faf8974 100644 ---- a/MANIFEST -+++ b/MANIFEST -@@ -3183,9 +3183,9 @@ ext/POSIX/hints/openbsd.pl Hint for POSIX for named architecture - ext/POSIX/hints/sunos_4.pl Hint for POSIX for named architecture - ext/POSIX/hints/svr4.pl Hint for POSIX for named architecture - ext/POSIX/hints/uts.pl Hint for POSIX for named architecture -+ext/POSIX/lib/POSIX.pm POSIX extension Perl module -+ext/POSIX/lib/POSIX.pod POSIX extension documentation - ext/POSIX/Makefile.PL POSIX extension makefile writer --ext/POSIX/POSIX.pm POSIX extension Perl module --ext/POSIX/POSIX.pod POSIX extension documentation - ext/POSIX/POSIX.xs POSIX extension external subroutines - ext/POSIX/t/is.t See if POSIX isxxx() work - ext/POSIX/t/math.t Basic math tests for POSIX -diff --git a/ext/POSIX/Makefile.PL b/ext/POSIX/Makefile.PL -index 292882c..07c3841 100644 ---- a/ext/POSIX/Makefile.PL -+++ b/ext/POSIX/Makefile.PL -@@ -18,7 +18,8 @@ WriteMakefile( - NAME => 'POSIX', - @libs, - XSPROTOARG => '-noprototypes', # XXX remove later? -- VERSION_FROM => 'POSIX.pm', -+ VERSION_FROM => 'lib/POSIX.pm', -+ ABSTRACT_FROM => 'lib/POSIX.pod', - realclean => {FILES=> 'const-c.inc const-xs.inc'}, - ); - -diff --git a/ext/POSIX/POSIX.pm b/ext/POSIX/POSIX.pm -deleted file mode 100644 -index ffbd9de..0000000 ---- a/ext/POSIX/POSIX.pm -+++ /dev/null -@@ -1,1042 +0,0 @@ --package POSIX; --use strict; --use warnings; -- --our(@ISA, %EXPORT_TAGS, @EXPORT_OK, @EXPORT, $AUTOLOAD, %SIGRT) = (); -- --our $VERSION = "1.19"; -- --use AutoLoader; -- --use XSLoader (); -- --use Fcntl qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK F_SETFD -- F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK O_ACCMODE O_APPEND -- O_CREAT O_EXCL O_NOCTTY O_NONBLOCK O_RDONLY O_RDWR O_TRUNC -- O_WRONLY SEEK_CUR SEEK_END SEEK_SET -- S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISREG -- S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU S_ISGID S_ISUID -- S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR); -- --# Grandfather old foo_h form to new :foo_h form --my $loaded; -- --sub import { -- load_imports() unless $loaded++; -- my $this = shift; -- my @list = map { m/^\w+_h$/ ? ":$_" : $_ } @_; -- local $Exporter::ExportLevel = 1; -- Exporter::import($this,@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 <STDIN>; --} -- --sub perror { -- print STDERR "@_: " if @_; -- print STDERR $!,"\n"; --} -- --sub printf { -- usage "printf(pattern, args...)" if @_ < 1; -- CORE::printf STDOUT @_; --} -- --sub putc { -- unimpl "putc() is C-specific--use print instead"; --} -- --sub putchar { -- unimpl "putchar() is C-specific--use print instead"; --} -- --sub puts { -- unimpl "puts() is C-specific--use print instead"; --} -- --sub remove { -- usage "remove(filename)" if @_ != 1; -- (-d $_[0]) ? CORE::rmdir($_[0]) : CORE::unlink($_[0]); --} -- --sub rename { -- usage "rename(oldfilename, newfilename)" if @_ != 2; -- CORE::rename($_[0], $_[1]); --} -- --sub rewind { -- usage "rewind(filehandle)" if @_ != 1; -- CORE::seek($_[0],0,0); --} -- --sub scanf { -- unimpl "scanf() is C-specific--use <> and regular expressions instead"; --} -- --sub sprintf { -- usage "sprintf(pattern,args)" if @_ == 0; -- CORE::sprintf(shift,@_); --} -- --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<Everything is exported by default> with the exception of any POSIX --functions with the same name as a built-in Perl function, such as --C<abs>, C<alarm>, C<rmdir>, C<write>, etc.., which will be exported --only if you ask for them explicitly. This is an unfortunate backwards --compatibility feature. You can stop the exporting by saying C<use --POSIX ()> and then use the fully qualified names (ie. C<POSIX::SEEK_END>). -- --This document gives a condensed list of the features available in the POSIX --module. Consult your operating system's manpages for general information on --most features. Consult L<perlfunc> for functions which are noted as being --identical to Perl's builtin functions. -- --The first section describes POSIX functions from the 1003.1 specification. --The second section describes some classes for signal objects, TTY objects, --and other miscellaneous objects. The remaining sections list various --constants and macros in an organization which roughly follows IEEE Std --1003.1b-1993. -- --=head1 NOTE -- --The POSIX module is probably the most complex Perl module supplied with --the standard distribution. It incorporates autoloading, namespace games, --and dynamic loading of code that's in Perl, C, or both. It's a great --source of wisdom. -- --=head1 CAVEATS -- --A few functions are not implemented because they are C specific. If you --attempt to call these, they will print a message telling you that they --aren't implemented, and suggest using the Perl equivalent should one --exist. For example, trying to access the setjmp() call will elicit the --message "setjmp() is C-specific: use eval {} instead". -- --Furthermore, some evil vendors will claim 1003.1 compliance, but in fact --are not so: they will not pass the PCTS (POSIX Compliance Test Suites). --For example, one vendor may not define EDEADLK, or the semantics of the --errno values set by open(2) might not be quite right. Perl does not --attempt to verify POSIX compliance. That means you can currently --successfully say "use POSIX", and then later in your program you find --that your vendor has been lax and there's no usable ICANON macro after --all. This could be construed to be a bug. -- --=head1 FUNCTIONS -- --=over 8 -- --=item _exit -- --This is identical to the C function C<_exit()>. It exits the program --immediately which means among other things buffered I/O is B<not> flushed. -- --Note that when using threads and in Linux this is B<not> a good way to --exit a thread because in Linux processes and threads are kind of the --same thing (Note: while this is the situation in early 2003 there are --projects under way to have threads with more POSIXly semantics in Linux). --If you want not to return from a thread, detach the thread. -- --=item abort -- --This is identical to the C function C<abort()>. It terminates the --process with a C<SIGABRT> signal unless caught by a signal handler or --if the handler does not return normally (it e.g. does a C<longjmp>). -- --=item abs -- --This is identical to Perl's builtin C<abs()> function, returning --the absolute value of its numerical argument. -- --=item access -- --Determines the accessibility of a file. -- -- if( POSIX::access( "/", &POSIX::R_OK ) ){ -- print "have read permission\n"; -- } -- --Returns C<undef> on failure. Note: do not use C<access()> for --security purposes. Between the C<access()> call and the operation --you are preparing for the permissions might change: a classic --I<race condition>. -- --=item acos -- --This is identical to the C function C<acos()>, returning --the arcus cosine of its numerical argument. See also L<Math::Trig>. -- --=item alarm -- --This is identical to Perl's builtin C<alarm()> function, --either for arming or disarming the C<SIGARLM> timer. -- --=item asctime -- --This is identical to the C function C<asctime()>. It returns --a string of the form -- -- "Fri Jun 2 18:22:13 2000\n\0" -- --and it is called thusly -- -- $asctime = asctime($sec, $min, $hour, $mday, $mon, $year, -- $wday, $yday, $isdst); -- --The C<$mon> is zero-based: January equals C<0>. The C<$year> is --1900-based: 2001 equals C<101>. C<$wday> and C<$yday> default to zero --(and are usually ignored anyway), and C<$isdst> defaults to -1. -- --=item asin -- --This is identical to the C function C<asin()>, returning --the arcus sine of its numerical argument. See also L<Math::Trig>. -- --=item assert -- --Unimplemented, but you can use L<perlfunc/die> and the L<Carp> module --to achieve similar things. -- --=item atan -- --This is identical to the C function C<atan()>, returning the --arcus tangent of its numerical argument. See also L<Math::Trig>. -- --=item atan2 -- --This is identical to Perl's builtin C<atan2()> function, returning --the arcus tangent defined by its two numerical arguments, the I<y> --coordinate and the I<x> coordinate. See also L<Math::Trig>. -- --=item atexit -- --atexit() is C-specific: use C<END {}> instead, see L<perlsub>. -- --=item atof -- --atof() is C-specific. Perl converts strings to numbers transparently. --If you need to force a scalar to a number, add a zero to it. -- --=item atoi -- --atoi() is C-specific. Perl converts strings to numbers transparently. --If you need to force a scalar to a number, add a zero to it. --If you need to have just the integer part, see L<perlfunc/int>. -- --=item atol -- --atol() is C-specific. Perl converts strings to numbers transparently. --If you need to force a scalar to a number, add a zero to it. --If you need to have just the integer part, see L<perlfunc/int>. -- --=item bsearch -- --bsearch() not supplied. For doing binary search on wordlists, --see L<Search::Dict>. -- --=item calloc -- --calloc() is C-specific. Perl does memory management transparently. -- --=item ceil -- --This is identical to the C function C<ceil()>, returning the smallest --integer value greater than or equal to the given numerical argument. -- --=item chdir -- --This is identical to Perl's builtin C<chdir()> function, allowing --one to change the working (default) directory, see L<perlfunc/chdir>. -- --=item chmod -- --This is identical to Perl's builtin C<chmod()> function, allowing --one to change file and directory permissions, see L<perlfunc/chmod>. -- --=item chown -- --This is identical to Perl's builtin C<chown()> function, allowing one --to change file and directory owners and groups, see L<perlfunc/chown>. -- --=item clearerr -- --Use the method C<IO::Handle::clearerr()> instead, to reset the error --state (if any) and EOF state (if any) of the given stream. -- --=item clock -- --This is identical to the C function C<clock()>, returning the --amount of spent processor time in microseconds. -- --=item close -- --Close the file. This uses file descriptors such as those obtained by calling --C<POSIX::open>. -- -- $fd = POSIX::open( "foo", &POSIX::O_RDONLY ); -- POSIX::close( $fd ); -- --Returns C<undef> on failure. -- --See also L<perlfunc/close>. -- --=item closedir -- --This is identical to Perl's builtin C<closedir()> function for closing --a directory handle, see L<perlfunc/closedir>. -- --=item cos -- --This is identical to Perl's builtin C<cos()> function, for returning --the cosine of its numerical argument, see L<perlfunc/cos>. --See also L<Math::Trig>. -- --=item cosh -- --This is identical to the C function C<cosh()>, for returning --the hyperbolic cosine of its numeric argument. See also L<Math::Trig>. -- --=item creat -- --Create a new file. This returns a file descriptor like the ones returned by --C<POSIX::open>. Use C<POSIX::close> to close the file. -- -- $fd = POSIX::creat( "foo", 0611 ); -- POSIX::close( $fd ); -- --See also L<perlfunc/sysopen> and its C<O_CREAT> flag. -- --=item ctermid -- --Generates the path name for the controlling terminal. -- -- $path = POSIX::ctermid(); -- --=item ctime -- --This is identical to the C function C<ctime()> and equivalent --to C<asctime(localtime(...))>, see L</asctime> and L</localtime>. -- --=item cuserid -- --Get the login name of the owner of the current process. -- -- $name = POSIX::cuserid(); -- --=item difftime -- --This is identical to the C function C<difftime()>, for returning --the time difference (in seconds) between two times (as returned --by C<time()>), see L</time>. -- --=item div -- --div() is C-specific, use L<perlfunc/int> on the usual C</> division and --the modulus C<%>. -- --=item dup -- --This is similar to the C function C<dup()>, for duplicating a file --descriptor. -- --This uses file descriptors such as those obtained by calling --C<POSIX::open>. -- --Returns C<undef> on failure. -- --=item dup2 -- --This is similar to the C function C<dup2()>, for duplicating a file --descriptor to an another known file descriptor. -- --This uses file descriptors such as those obtained by calling --C<POSIX::open>. -- --Returns C<undef> on failure. -- --=item errno -- --Returns the value of errno. -- -- $errno = POSIX::errno(); -- --This identical to the numerical values of the C<$!>, see L<perlvar/$ERRNO>. -- --=item execl -- --execl() is C-specific, see L<perlfunc/exec>. -- --=item execle -- --execle() is C-specific, see L<perlfunc/exec>. -- --=item execlp -- --execlp() is C-specific, see L<perlfunc/exec>. -- --=item execv -- --execv() is C-specific, see L<perlfunc/exec>. -- --=item execve -- --execve() is C-specific, see L<perlfunc/exec>. -- --=item execvp -- --execvp() is C-specific, see L<perlfunc/exec>. -- --=item exit -- --This is identical to Perl's builtin C<exit()> function for exiting the --program, see L<perlfunc/exit>. -- --=item exp -- --This is identical to Perl's builtin C<exp()> function for --returning the exponent (I<e>-based) of the numerical argument, --see L<perlfunc/exp>. -- --=item fabs -- --This is identical to Perl's builtin C<abs()> function for returning --the absolute value of the numerical argument, see L<perlfunc/abs>. -- --=item fclose -- --Use method C<IO::Handle::close()> instead, or see L<perlfunc/close>. -- --=item fcntl -- --This is identical to Perl's builtin C<fcntl()> function, --see L<perlfunc/fcntl>. -- --=item fdopen -- --Use method C<IO::Handle::new_from_fd()> instead, or see L<perlfunc/open>. -- --=item feof -- --Use method C<IO::Handle::eof()> instead, or see L<perlfunc/eof>. -- --=item ferror -- --Use method C<IO::Handle::error()> instead. -- --=item fflush -- --Use method C<IO::Handle::flush()> instead. --See also L<perlvar/$OUTPUT_AUTOFLUSH>. -- --=item fgetc -- --Use method C<IO::Handle::getc()> instead, or see L<perlfunc/read>. -- --=item fgetpos -- --Use method C<IO::Seekable::getpos()> instead, or see L<L/seek>. -- --=item fgets -- --Use method C<IO::Handle::gets()> instead. Similar to E<lt>E<gt>, also known --as L<perlfunc/readline>. -- --=item fileno -- --Use method C<IO::Handle::fileno()> instead, or see L<perlfunc/fileno>. -- --=item floor -- --This is identical to the C function C<floor()>, returning the largest --integer value less than or equal to the numerical argument. -- --=item fmod -- --This is identical to the C function C<fmod()>. -- -- $r = fmod($x, $y); -- --It returns the remainder C<$r = $x - $n*$y>, where C<$n = trunc($x/$y)>. --The C<$r> has the same sign as C<$x> and magnitude (absolute value) --less than the magnitude of C<$y>. -- --=item fopen -- --Use method C<IO::File::open()> instead, or see L<perlfunc/open>. -- --=item fork -- --This is identical to Perl's builtin C<fork()> function --for duplicating the current process, see L<perlfunc/fork> --and L<perlfork> if you are in Windows. -- --=item fpathconf -- --Retrieves the value of a configurable limit on a file or directory. This --uses file descriptors such as those obtained by calling C<POSIX::open>. -- --The following will determine the maximum length of the longest allowable --pathname on the filesystem which holds C</var/foo>. -- -- $fd = POSIX::open( "/var/foo", &POSIX::O_RDONLY ); -- $path_max = POSIX::fpathconf( $fd, &POSIX::_PC_PATH_MAX ); -- --Returns C<undef> on failure. -- --=item fprintf -- --fprintf() is C-specific, see L<perlfunc/printf> instead. -- --=item fputc -- --fputc() is C-specific, see L<perlfunc/print> instead. -- --=item fputs -- --fputs() is C-specific, see L<perlfunc/print> instead. -- --=item fread -- --fread() is C-specific, see L<perlfunc/read> instead. -- --=item free -- --free() is C-specific. Perl does memory management transparently. -- --=item freopen -- --freopen() is C-specific, see L<perlfunc/open> instead. -- --=item frexp -- --Return the mantissa and exponent of a floating-point number. -- -- ($mantissa, $exponent) = POSIX::frexp( 1.234e56 ); -- --=item fscanf -- --fscanf() is C-specific, use E<lt>E<gt> and regular expressions instead. -- --=item fseek -- --Use method C<IO::Seekable::seek()> instead, or see L<perlfunc/seek>. -- --=item fsetpos -- --Use method C<IO::Seekable::setpos()> instead, or seek L<perlfunc/seek>. -- --=item fstat -- --Get file status. This uses file descriptors such as those obtained by --calling C<POSIX::open>. The data returned is identical to the data from --Perl's builtin C<stat> function. -- -- $fd = POSIX::open( "foo", &POSIX::O_RDONLY ); -- @stats = POSIX::fstat( $fd ); -- --=item fsync -- --Use method C<IO::Handle::sync()> instead. -- --=item ftell -- --Use method C<IO::Seekable::tell()> instead, or see L<perlfunc/tell>. -- --=item fwrite -- --fwrite() is C-specific, see L<perlfunc/print> instead. -- --=item getc -- --This is identical to Perl's builtin C<getc()> function, --see L<perlfunc/getc>. -- --=item getchar -- --Returns one character from STDIN. Identical to Perl's C<getc()>, --see L<perlfunc/getc>. -- --=item getcwd -- --Returns the name of the current working directory. --See also L<Cwd>. -- --=item getegid -- --Returns the effective group identifier. Similar to Perl' s builtin --variable C<$(>, see L<perlvar/$EGID>. -- --=item getenv -- --Returns the value of the specified environment variable. --The same information is available through the C<%ENV> array. -- --=item geteuid -- --Returns the effective user identifier. Identical to Perl's builtin C<$E<gt>> --variable, see L<perlvar/$EUID>. -- --=item getgid -- --Returns the user's real group identifier. Similar to Perl's builtin --variable C<$)>, see L<perlvar/$GID>. -- --=item getgrgid -- --This is identical to Perl's builtin C<getgrgid()> function for --returning group entries by group identifiers, see --L<perlfunc/getgrgid>. -- --=item getgrnam -- --This is identical to Perl's builtin C<getgrnam()> function for --returning group entries by group names, see L<perlfunc/getgrnam>. -- --=item getgroups -- --Returns the ids of the user's supplementary groups. Similar to Perl's --builtin variable C<$)>, see L<perlvar/$GID>. -- --=item getlogin -- --This is identical to Perl's builtin C<getlogin()> function for --returning the user name associated with the current session, see --L<perlfunc/getlogin>. -- --=item getpgrp -- --This is identical to Perl's builtin C<getpgrp()> function for --returning the process group identifier of the current process, see --L<perlfunc/getpgrp>. -- --=item getpid -- --Returns the process identifier. Identical to Perl's builtin --variable C<$$>, see L<perlvar/$PID>. -- --=item getppid -- --This is identical to Perl's builtin C<getppid()> function for --returning the process identifier of the parent process of the current --process , see L<perlfunc/getppid>. -- --=item getpwnam -- --This is identical to Perl's builtin C<getpwnam()> function for --returning user entries by user names, see L<perlfunc/getpwnam>. -- --=item getpwuid -- --This is identical to Perl's builtin C<getpwuid()> function for --returning user entries by user identifiers, see L<perlfunc/getpwuid>. -- --=item gets -- --Returns one line from C<STDIN>, similar to E<lt>E<gt>, also known --as the C<readline()> function, see L<perlfunc/readline>. -- --B<NOTE>: if you have C programs that still use C<gets()>, be very --afraid. The C<gets()> function is a source of endless grief because --it has no buffer overrun checks. It should B<never> be used. The --C<fgets()> function should be preferred instead. -- --=item getuid -- --Returns the user's identifier. Identical to Perl's builtin C<$E<lt>> variable, --see L<perlvar/$UID>. -- --=item gmtime -- --This is identical to Perl's builtin C<gmtime()> function for --converting seconds since the epoch to a date in Greenwich Mean Time, --see L<perlfunc/gmtime>. -- --=item isalnum -- --This is identical to the C function, except that it can apply to a --single character or to a whole string. Note that locale settings may --affect what characters are considered C<isalnum>. Does not work on --Unicode characters code point 256 or higher. Consider using regular --expressions and the C</[[:alnum:]]/> construct instead, or possibly --the C</\w/> construct. -- --=item isalpha -- --This is identical to the C function, except that it can apply to --a single character or to a whole string. Note that locale settings --may affect what characters are considered C<isalpha>. Does not work --on Unicode characters code point 256 or higher. Consider using regular --expressions and the C</[[:alpha:]]/> construct instead. -- --=item isatty -- --Returns a boolean indicating whether the specified filehandle is connected --to a tty. Similar to the C<-t> operator, see L<perlfunc/-X>. -- --=item iscntrl -- --This is identical to the C function, except that it can apply to --a single character or to a whole string. Note that locale settings --may affect what characters are considered C<iscntrl>. Does not work --on Unicode characters code point 256 or higher. Consider using regular --expressions and the C</[[:cntrl:]]/> construct instead. -- --=item isdigit -- --This is identical to the C function, except that it can apply to --a single character or to a whole string. Note that locale settings --may affect what characters are considered C<isdigit> (unlikely, but --still possible). Does not work on Unicode characters code point 256 --or higher. Consider using regular expressions and the C</[[:digit:]]/> --construct instead, or the C</\d/> construct. -- --=item isgraph -- --This is identical to the C function, except that it can apply to --a single character or to a whole string. Note that locale settings --may affect what characters are considered C<isgraph>. Does not work --on Unicode characters code point 256 or higher. Consider using regular --expressions and the C</[[:graph:]]/> construct instead. -- --=item islower -- --This is identical to the C function, except that it can apply to --a single character or to a whole string. Note that locale settings --may affect what characters are considered C<islower>. Does not work --on Unicode characters code point 256 or higher. Consider using regular --expressions and the C</[[:lower:]]/> construct instead. Do B<not> use --C</[a-z]/>. -- --=item isprint -- --This is identical to the C function, except that it can apply to --a single character or to a whole string. Note that locale settings --may affect what characters are considered C<isprint>. Does not work --on Unicode characters code point 256 or higher. Consider using regular --expressions and the C</[[:print:]]/> construct instead. -- --=item ispunct -- --This is identical to the C function, except that it can apply to --a single character or to a whole string. Note that locale settings --may affect what characters are considered C<ispunct>. Does not work --on Unicode characters code point 256 or higher. Consider using regular --expressions and the C</[[:punct:]]/> construct instead. -- --=item isspace -- --This is identical to the C function, except that it can apply to --a single character or to a whole string. Note that locale settings --may affect what characters are considered C<isspace>. Does not work --on Unicode characters code point 256 or higher. Consider using regular --expressions and the C</[[:space:]]/> construct instead, or the C</\s/> --construct. (Note that C</\s/> and C</[[:space:]]/> are slightly --different in that C</[[:space:]]/> can normally match a vertical tab, --while C</\s/> does not.) -- --=item isupper -- --This is identical to the C function, except that it can apply to --a single character or to a whole string. Note that locale settings --may affect what characters are considered C<isupper>. Does not work --on Unicode characters code point 256 or higher. Consider using regular --expressions and the C</[[:upper:]]/> construct instead. Do B<not> use --C</[A-Z]/>. -- --=item isxdigit -- --This is identical to the C function, except that it can apply to a single --character or to a whole string. Note that locale settings may affect what --characters are considered C<isxdigit> (unlikely, but still possible). --Does not work on Unicode characters code point 256 or higher. --Consider using regular expressions and the C</[[:xdigit:]]/> --construct instead, or simply C</[0-9a-f]/i>. -- --=item kill -- --This is identical to Perl's builtin C<kill()> function for sending --signals to processes (often to terminate them), see L<perlfunc/kill>. -- --=item labs -- --(For returning absolute values of long integers.) --labs() is C-specific, see L<perlfunc/abs> instead. -- --=item lchown -- --This is identical to the C function, except the order of arguments is --consistent with Perl's builtin C<chown()> with the added restriction --of only one path, not an list of paths. Does the same thing as the --C<chown()> function but changes the owner of a symbolic link instead --of the file the symbolic link points to. -- --=item ldexp -- --This is identical to the C function C<ldexp()> --for multiplying floating point numbers with powers of two. -- -- $x_quadrupled = POSIX::ldexp($x, 2); -- --=item ldiv -- --(For computing dividends of long integers.) --ldiv() is C-specific, use C</> and C<int()> instead. -- --=item link -- --This is identical to Perl's builtin C<link()> function --for creating hard links into files, see L<perlfunc/link>. -- --=item localeconv -- --Get numeric formatting information. Returns a reference to a hash --containing the current locale formatting values. -- --Here is how to query the database for the B<de> (Deutsch or German) locale. -- -- $loc = POSIX::setlocale( &POSIX::LC_ALL, "de" ); -- print "Locale = $loc\n"; -- $lconv = POSIX::localeconv(); -- print "decimal_point = ", $lconv->{decimal_point}, "\n"; -- print "thousands_sep = ", $lconv->{thousands_sep}, "\n"; -- print "grouping = ", $lconv->{grouping}, "\n"; -- print "int_curr_symbol = ", $lconv->{int_curr_symbol}, "\n"; -- print "currency_symbol = ", $lconv->{currency_symbol}, "\n"; -- print "mon_decimal_point = ", $lconv->{mon_decimal_point}, "\n"; -- print "mon_thousands_sep = ", $lconv->{mon_thousands_sep}, "\n"; -- print "mon_grouping = ", $lconv->{mon_grouping}, "\n"; -- print "positive_sign = ", $lconv->{positive_sign}, "\n"; -- print "negative_sign = ", $lconv->{negative_sign}, "\n"; -- print "int_frac_digits = ", $lconv->{int_frac_digits}, "\n"; -- print "frac_digits = ", $lconv->{frac_digits}, "\n"; -- print "p_cs_precedes = ", $lconv->{p_cs_precedes}, "\n"; -- print "p_sep_by_space = ", $lconv->{p_sep_by_space}, "\n"; -- print "n_cs_precedes = ", $lconv->{n_cs_precedes}, "\n"; -- print "n_sep_by_space = ", $lconv->{n_sep_by_space}, "\n"; -- print "p_sign_posn = ", $lconv->{p_sign_posn}, "\n"; -- print "n_sign_posn = ", $lconv->{n_sign_posn}, "\n"; -- --=item localtime -- --This is identical to Perl's builtin C<localtime()> function for --converting seconds since the epoch to a date see L<perlfunc/localtime>. -- --=item log -- --This is identical to Perl's builtin C<log()> function, --returning the natural (I<e>-based) logarithm of the numerical argument, --see L<perlfunc/log>. -- --=item log10 -- --This is identical to the C function C<log10()>, --returning the 10-base logarithm of the numerical argument. --You can also use -- -- sub log10 { log($_[0]) / log(10) } -- --or -- -- sub log10 { log($_[0]) / 2.30258509299405 } -- --or -- -- sub log10 { log($_[0]) * 0.434294481903252 } -- --=item longjmp -- --longjmp() is C-specific: use L<perlfunc/die> instead. -- --=item lseek -- --Move the file's read/write position. This uses file descriptors such as --those obtained by calling C<POSIX::open>. -- -- $fd = POSIX::open( "foo", &POSIX::O_RDONLY ); -- $off_t = POSIX::lseek( $fd, 0, &POSIX::SEEK_SET ); -- --Returns C<undef> on failure. -- --=item malloc -- --malloc() is C-specific. Perl does memory management transparently. -- --=item mblen -- --This is identical to the C function C<mblen()>. --Perl does not have any support for the wide and multibyte --characters of the C standards, so this might be a rather --useless function. -- --=item mbstowcs -- --This is identical to the C function C<mbstowcs()>. --Perl does not have any support for the wide and multibyte --characters of the C standards, so this might be a rather --useless function. -- --=item mbtowc -- --This is identical to the C function C<mbtowc()>. --Perl does not have any support for the wide and multibyte --characters of the C standards, so this might be a rather --useless function. -- --=item memchr -- --memchr() is C-specific, see L<perlfunc/index> instead. -- --=item memcmp -- --memcmp() is C-specific, use C<eq> instead, see L<perlop>. -- --=item memcpy -- --memcpy() is C-specific, use C<=>, see L<perlop>, or see L<perlfunc/substr>. -- --=item memmove -- --memmove() is C-specific, use C<=>, see L<perlop>, or see L<perlfunc/substr>. -- --=item memset -- --memset() is C-specific, use C<x> instead, see L<perlop>. -- --=item mkdir -- --This is identical to Perl's builtin C<mkdir()> function --for creating directories, see L<perlfunc/mkdir>. -- --=item mkfifo -- --This is similar to the C function C<mkfifo()> for creating --FIFO special files. -- -- if (mkfifo($path, $mode)) { .... -- --Returns C<undef> on failure. The C<$mode> is similar to the --mode of C<mkdir()>, see L<perlfunc/mkdir>, though for C<mkfifo> --you B<must> specify the C<$mode>. -- --=item mktime -- --Convert date/time info to a calendar time. -- --Synopsis: -- -- mktime(sec, min, hour, mday, mon, year, wday = 0, yday = 0, isdst = -1) -- --The month (C<mon>), weekday (C<wday>), and yearday (C<yday>) begin at zero. --I.e. January is 0, not 1; Sunday is 0, not 1; January 1st is 0, not 1. The --year (C<year>) is given in years since 1900. I.e. The year 1995 is 95; the --year 2001 is 101. Consult your system's C<mktime()> manpage for details --about these and the other arguments. -- --Calendar time for December 12, 1995, at 10:30 am. -- -- $time_t = POSIX::mktime( 0, 30, 10, 12, 11, 95 ); -- print "Date = ", POSIX::ctime($time_t); -- --Returns C<undef> on failure. -- --=item modf -- --Return the integral and fractional parts of a floating-point number. -- -- ($fractional, $integral) = POSIX::modf( 3.14 ); -- --=item nice -- --This is similar to the C function C<nice()>, for changing --the scheduling preference of the current process. Positive --arguments mean more polite process, negative values more --needy process. Normal user processes can only be more polite. -- --Returns C<undef> on failure. -- --=item offsetof -- --offsetof() is C-specific, you probably want to see L<perlfunc/pack> instead. -- --=item open -- --Open a file for reading for writing. This returns file descriptors, not --Perl filehandles. Use C<POSIX::close> to close the file. -- --Open a file read-only with mode 0666. -- -- $fd = POSIX::open( "foo" ); -- --Open a file for read and write. -- -- $fd = POSIX::open( "foo", &POSIX::O_RDWR ); -- --Open a file for write, with truncation. -- -- $fd = POSIX::open( "foo", &POSIX::O_WRONLY | &POSIX::O_TRUNC ); -- --Create a new file with mode 0640. Set up the file for writing. -- -- $fd = POSIX::open( "foo", &POSIX::O_CREAT | &POSIX::O_WRONLY, 0640 ); -- --Returns C<undef> on failure. -- --See also L<perlfunc/sysopen>. -- --=item opendir -- --Open a directory for reading. -- -- $dir = POSIX::opendir( "/var" ); -- @files = POSIX::readdir( $dir ); -- POSIX::closedir( $dir ); -- --Returns C<undef> on failure. -- --=item pathconf -- --Retrieves the value of a configurable limit on a file or directory. -- --The following will determine the maximum length of the longest allowable --pathname on the filesystem which holds C</var>. -- -- $path_max = POSIX::pathconf( "/var", &POSIX::_PC_PATH_MAX ); -- --Returns C<undef> on failure. -- --=item pause -- --This is similar to the C function C<pause()>, which suspends --the execution of the current process until a signal is received. -- --Returns C<undef> on failure. -- --=item perror -- --This is identical to the C function C<perror()>, which outputs to the --standard error stream the specified message followed by ": " and the --current error string. Use the C<warn()> function and the C<$!> --variable instead, see L<perlfunc/warn> and L<perlvar/$ERRNO>. -- --=item pipe -- --Create an interprocess channel. This returns file descriptors like those --returned by C<POSIX::open>. -- -- my ($read, $write) = POSIX::pipe(); -- POSIX::write( $write, "hello", 5 ); -- POSIX::read( $read, $buf, 5 ); -- --See also L<perlfunc/pipe>. -- --=item pow -- --Computes C<$x> raised to the power C<$exponent>. -- -- $ret = POSIX::pow( $x, $exponent ); -- --You can also use the C<**> operator, see L<perlop>. -- --=item printf -- --Formats and prints the specified arguments to STDOUT. --See also L<perlfunc/printf>. -- --=item putc -- --putc() is C-specific, see L<perlfunc/print> instead. -- --=item putchar -- --putchar() is C-specific, see L<perlfunc/print> instead. -- --=item puts -- --puts() is C-specific, see L<perlfunc/print> instead. -- --=item qsort -- --qsort() is C-specific, see L<perlfunc/sort> instead. -- --=item raise -- --Sends the specified signal to the current process. --See also L<perlfunc/kill> and the C<$$> in L<perlvar/$PID>. -- --=item rand -- --C<rand()> is non-portable, see L<perlfunc/rand> instead. -- --=item read -- --Read from a file. This uses file descriptors such as those obtained by --calling C<POSIX::open>. If the buffer C<$buf> is not large enough for the --read then Perl will extend it to make room for the request. -- -- $fd = POSIX::open( "foo", &POSIX::O_RDONLY ); -- $bytes = POSIX::read( $fd, $buf, 3 ); -- --Returns C<undef> on failure. -- --See also L<perlfunc/sysread>. -- --=item readdir -- --This is identical to Perl's builtin C<readdir()> function --for reading directory entries, see L<perlfunc/readdir>. -- --=item realloc -- --realloc() is C-specific. Perl does memory management transparently. -- --=item remove -- --This is identical to Perl's builtin C<unlink()> function --for removing files, see L<perlfunc/unlink>. -- --=item rename -- --This is identical to Perl's builtin C<rename()> function --for renaming files, see L<perlfunc/rename>. -- --=item rewind -- --Seeks to the beginning of the file. -- --=item rewinddir -- --This is identical to Perl's builtin C<rewinddir()> function for --rewinding directory entry streams, see L<perlfunc/rewinddir>. -- --=item rmdir -- --This is identical to Perl's builtin C<rmdir()> function --for removing (empty) directories, see L<perlfunc/rmdir>. -- --=item scanf -- --scanf() is C-specific, use E<lt>E<gt> and regular expressions instead, --see L<perlre>. -- --=item setgid -- --Sets the real group identifier and the effective group identifier for --this process. Similar to assigning a value to the Perl's builtin --C<$)> variable, see L<perlvar/$EGID>, except that the latter --will change only the real user identifier, and that the setgid() --uses only a single numeric argument, as opposed to a space-separated --list of numbers. -- --=item setjmp -- --C<setjmp()> is C-specific: use C<eval {}> instead, --see L<perlfunc/eval>. -- --=item setlocale -- --Modifies and queries program's locale. The following examples assume -- -- use POSIX qw(setlocale LC_ALL LC_CTYPE); -- --has been issued. -- --The following will set the traditional UNIX system locale behavior --(the second argument C<"C">). -- -- $loc = setlocale( LC_ALL, "C" ); -- --The following will query the current LC_CTYPE category. (No second --argument means 'query'.) -- -- $loc = setlocale( LC_CTYPE ); -- --The following will set the LC_CTYPE behaviour according to the locale --environment variables (the second argument C<"">). --Please see your systems C<setlocale(3)> documentation for the locale --environment variables' meaning or consult L<perllocale>. -- -- $loc = setlocale( LC_CTYPE, "" ); -- --The following will set the LC_COLLATE behaviour to Argentinian --Spanish. B<NOTE>: The naming and availability of locales depends on --your operating system. Please consult L<perllocale> for how to find --out which locales are available in your system. -- -- $loc = setlocale( LC_COLLATE, "es_AR.ISO8859-1" ); -- --=item setpgid -- --This is similar to the C function C<setpgid()> for --setting the process group identifier of the current process. -- --Returns C<undef> on failure. -- --=item setsid -- --This is identical to the C function C<setsid()> for --setting the session identifier of the current process. -- --=item setuid -- --Sets the real user identifier and the effective user identifier for --this process. Similar to assigning a value to the Perl's builtin --C<$E<lt>> variable, see L<perlvar/$UID>, except that the latter --will change only the real user identifier. -- --=item sigaction -- --Detailed signal management. This uses C<POSIX::SigAction> objects for --the C<action> and C<oldaction> arguments (the oldaction can also be --just a hash reference). Consult your system's C<sigaction> manpage --for details, see also C<POSIX::SigRt>. -- --Synopsis: -- -- sigaction(signal, action, oldaction = 0) -- --Returns C<undef> on failure. The C<signal> must be a number (like --SIGHUP), not a string (like "SIGHUP"), though Perl does try hard --to understand you. -- --If you use the SA_SIGINFO flag, the signal handler will in addition to --the first argument, the signal name, also receive a second argument, a --hash reference, inside which are the following keys with the following --semantics, as defined by POSIX/SUSv3: -- -- signo the signal number -- errno the error number -- code if this is zero or less, the signal was sent by -- a user process and the uid and pid make sense, -- otherwise the signal was sent by the kernel -- --The following are also defined by POSIX/SUSv3, but unfortunately --not very widely implemented: -- -- pid the process id generating the signal -- uid the uid of the process id generating the signal -- status exit value or signal for SIGCHLD -- band band event for SIGPOLL -- --A third argument is also passed to the handler, which contains a copy --of the raw binary contents of the siginfo structure: if a system has --some non-POSIX fields, this third argument is where to unpack() them --from. -- --Note that not all siginfo values make sense simultaneously (some are --valid only for certain signals, for example), and not all values make --sense from Perl perspective, you should to consult your system's --C<sigaction> and possibly also C<siginfo> documentation. -- --=item siglongjmp -- --siglongjmp() is C-specific: use L<perlfunc/die> instead. -- --=item sigpending -- --Examine signals that are blocked and pending. This uses C<POSIX::SigSet> --objects for the C<sigset> argument. Consult your system's C<sigpending> --manpage for details. -- --Synopsis: -- -- sigpending(sigset) -- --Returns C<undef> on failure. -- --=item sigprocmask -- --Change and/or examine calling process's signal mask. This uses --C<POSIX::SigSet> objects for the C<sigset> and C<oldsigset> arguments. --Consult your system's C<sigprocmask> manpage for details. -- --Synopsis: -- -- sigprocmask(how, sigset, oldsigset = 0) -- --Returns C<undef> on failure. -- --=item sigsetjmp -- --C<sigsetjmp()> is C-specific: use C<eval {}> instead, --see L<perlfunc/eval>. -- --=item sigsuspend -- --Install a signal mask and suspend process until signal arrives. This uses --C<POSIX::SigSet> objects for the C<signal_mask> argument. Consult your --system's C<sigsuspend> manpage for details. -- --Synopsis: -- -- sigsuspend(signal_mask) -- --Returns C<undef> on failure. -- --=item sin -- --This is identical to Perl's builtin C<sin()> function --for returning the sine of the numerical argument, --see L<perlfunc/sin>. See also L<Math::Trig>. -- --=item sinh -- --This is identical to the C function C<sinh()> --for returning the hyperbolic sine of the numerical argument. --See also L<Math::Trig>. -- --=item sleep -- --This is functionally identical to Perl's builtin C<sleep()> function --for suspending the execution of the current for process for certain --number of seconds, see L<perlfunc/sleep>. There is one significant --difference, however: C<POSIX::sleep()> returns the number of --B<unslept> seconds, while the C<CORE::sleep()> returns the --number of slept seconds. -- --=item sprintf -- --This is similar to Perl's builtin C<sprintf()> function --for returning a string that has the arguments formatted as requested, --see L<perlfunc/sprintf>. -- --=item sqrt -- --This is identical to Perl's builtin C<sqrt()> function. --for returning the square root of the numerical argument, --see L<perlfunc/sqrt>. -- --=item srand -- --Give a seed the pseudorandom number generator, see L<perlfunc/srand>. -- --=item sscanf -- --sscanf() is C-specific, use regular expressions instead, --see L<perlre>. -- --=item stat -- --This is identical to Perl's builtin C<stat()> function --for returning information about files and directories. -- --=item strcat -- --strcat() is C-specific, use C<.=> instead, see L<perlop>. -- --=item strchr -- --strchr() is C-specific, see L<perlfunc/index> instead. -- --=item strcmp -- --strcmp() is C-specific, use C<eq> or C<cmp> instead, see L<perlop>. -- --=item strcoll -- --This is identical to the C function C<strcoll()> --for collating (comparing) strings transformed using --the C<strxfrm()> function. Not really needed since --Perl can do this transparently, see L<perllocale>. -- --=item strcpy -- --strcpy() is C-specific, use C<=> instead, see L<perlop>. -- --=item strcspn -- --strcspn() is C-specific, use regular expressions instead, --see L<perlre>. -- --=item strerror -- --Returns the error string for the specified errno. --Identical to the string form of the C<$!>, see L<perlvar/$ERRNO>. -- --=item strftime -- --Convert date and time information to string. Returns the string. -- --Synopsis: -- -- strftime(fmt, sec, min, hour, mday, mon, year, wday = -1, yday = -1, isdst = -1) -- --The month (C<mon>), weekday (C<wday>), and yearday (C<yday>) begin at zero. --I.e. January is 0, not 1; Sunday is 0, not 1; January 1st is 0, not 1. The --year (C<year>) is given in years since 1900. I.e., the year 1995 is 95; the --year 2001 is 101. Consult your system's C<strftime()> manpage for details --about these and the other arguments. -- --If you want your code to be portable, your format (C<fmt>) argument --should use only the conversion specifiers defined by the ANSI C --standard (C89, to play safe). These are C<aAbBcdHIjmMpSUwWxXyYZ%>. --But even then, the B<results> of some of the conversion specifiers are --non-portable. For example, the specifiers C<aAbBcpZ> change according --to the locale settings of the user, and both how to set locales (the --locale names) and what output to expect are non-standard. --The specifier C<c> changes according to the timezone settings of the --user and the timezone computation rules of the operating system. --The C<Z> specifier is notoriously unportable since the names of --timezones are non-standard. Sticking to the numeric specifiers is the --safest route. -- --The given arguments are made consistent as though by calling --C<mktime()> before calling your system's C<strftime()> function, --except that the C<isdst> value is not affected. -- --The string for Tuesday, December 12, 1995. -- -- $str = POSIX::strftime( "%A, %B %d, %Y", 0, 0, 0, 12, 11, 95, 2 ); -- print "$str\n"; -- --=item strlen -- --strlen() is C-specific, use C<length()> instead, see L<perlfunc/length>. -- --=item strncat -- --strncat() is C-specific, use C<.=> instead, see L<perlop>. -- --=item strncmp -- --strncmp() is C-specific, use C<eq> instead, see L<perlop>. -- --=item strncpy -- --strncpy() is C-specific, use C<=> instead, see L<perlop>. -- --=item strpbrk -- --strpbrk() is C-specific, use regular expressions instead, --see L<perlre>. -- --=item strrchr -- --strrchr() is C-specific, see L<perlfunc/rindex> instead. -- --=item strspn -- --strspn() is C-specific, use regular expressions instead, --see L<perlre>. -- --=item strstr -- --This is identical to Perl's builtin C<index()> function, --see L<perlfunc/index>. -- --=item strtod -- --String to double translation. Returns the parsed number and the number --of characters in the unparsed portion of the string. Truly --POSIX-compliant systems set $! ($ERRNO) to indicate a translation --error, so clear $! before calling strtod. However, non-POSIX systems --may not check for overflow, and therefore will never set $!. -- --strtod should respect any POSIX I<setlocale()> settings. -- --To parse a string $str as a floating point number use -- -- $! = 0; -- ($num, $n_unparsed) = POSIX::strtod($str); -- --The second returned item and $! can be used to check for valid input: -- -- if (($str eq '') || ($n_unparsed != 0) || $!) { -- die "Non-numeric input $str" . ($! ? ": $!\n" : "\n"); -- } -- --When called in a scalar context strtod returns the parsed number. -- --=item strtok -- --strtok() is C-specific, use regular expressions instead, see --L<perlre>, or L<perlfunc/split>. -- --=item strtol -- --String to (long) integer translation. Returns the parsed number and --the number of characters in the unparsed portion of the string. Truly --POSIX-compliant systems set $! ($ERRNO) to indicate a translation --error, so clear $! before calling strtol. However, non-POSIX systems --may not check for overflow, and therefore will never set $!. -- --strtol should respect any POSIX I<setlocale()> settings. -- --To parse a string $str as a number in some base $base use -- -- $! = 0; -- ($num, $n_unparsed) = POSIX::strtol($str, $base); -- --The base should be zero or between 2 and 36, inclusive. When the base --is zero or omitted strtol will use the string itself to determine the --base: a leading "0x" or "0X" means hexadecimal; a leading "0" means --octal; any other leading characters mean decimal. Thus, "1234" is --parsed as a decimal number, "01234" as an octal number, and "0x1234" --as a hexadecimal number. -- --The second returned item and $! can be used to check for valid input: -- -- if (($str eq '') || ($n_unparsed != 0) || !$!) { -- die "Non-numeric input $str" . $! ? ": $!\n" : "\n"; -- } -- --When called in a scalar context strtol returns the parsed number. -- --=item strtoul -- --String to unsigned (long) integer translation. strtoul() is identical --to strtol() except that strtoul() only parses unsigned integers. See --L</strtol> for details. -- --Note: Some vendors supply strtod() and strtol() but not strtoul(). --Other vendors that do supply strtoul() parse "-1" as a valid value. -- --=item strxfrm -- --String transformation. Returns the transformed string. -- -- $dst = POSIX::strxfrm( $src ); -- --Used in conjunction with the C<strcoll()> function, see L</strcoll>. -- --Not really needed since Perl can do this transparently, see --L<perllocale>. -- --=item sysconf -- --Retrieves values of system configurable variables. -- --The following will get the machine's clock speed. -- -- $clock_ticks = POSIX::sysconf( &POSIX::_SC_CLK_TCK ); -- --Returns C<undef> on failure. -- --=item system -- --This is identical to Perl's builtin C<system()> function, see --L<perlfunc/system>. -- --=item tan -- --This is identical to the C function C<tan()>, returning the --tangent of the numerical argument. See also L<Math::Trig>. -- --=item tanh -- --This is identical to the C function C<tanh()>, returning the --hyperbolic tangent of the numerical argument. See also L<Math::Trig>. -- --=item tcdrain -- --This is similar to the C function C<tcdrain()> for draining --the output queue of its argument stream. -- --Returns C<undef> on failure. -- --=item tcflow -- --This is similar to the C function C<tcflow()> for controlling --the flow of its argument stream. -- --Returns C<undef> on failure. -- --=item tcflush -- --This is similar to the C function C<tcflush()> for flushing --the I/O buffers of its argument stream. -- --Returns C<undef> on failure. -- --=item tcgetpgrp -- --This is identical to the C function C<tcgetpgrp()> for returning the --process group identifier of the foreground process group of the controlling --terminal. -- --=item tcsendbreak -- --This is similar to the C function C<tcsendbreak()> for sending --a break on its argument stream. -- --Returns C<undef> on failure. -- --=item tcsetpgrp -- --This is similar to the C function C<tcsetpgrp()> for setting the --process group identifier of the foreground process group of the controlling --terminal. -- --Returns C<undef> on failure. -- --=item time -- --This is identical to Perl's builtin C<time()> function --for returning the number of seconds since the epoch --(whatever it is for the system), see L<perlfunc/time>. -- --=item times -- --The times() function returns elapsed realtime since some point in the past --(such as system startup), user and system times for this process, and user --and system times used by child processes. All times are returned in clock --ticks. -- -- ($realtime, $user, $system, $cuser, $csystem) = POSIX::times(); -- --Note: Perl's builtin C<times()> function returns four values, measured in --seconds. -- --=item tmpfile -- --Use method C<IO::File::new_tmpfile()> instead, or see L<File::Temp>. -- --=item tmpnam -- --Returns a name for a temporary file. -- -- $tmpfile = POSIX::tmpnam(); -- --For security reasons, which are probably detailed in your system's --documentation for the C library tmpnam() function, this interface --should not be used; instead see L<File::Temp>. -- --=item tolower -- --This is identical to the C function, except that it can apply to a single --character or to a whole string. Consider using the C<lc()> function, --see L<perlfunc/lc>, or the equivalent C<\L> operator inside doublequotish --strings. -- --=item toupper -- --This is identical to the C function, except that it can apply to a single --character or to a whole string. Consider using the C<uc()> function, --see L<perlfunc/uc>, or the equivalent C<\U> operator inside doublequotish --strings. -- --=item ttyname -- --This is identical to the C function C<ttyname()> for returning the --name of the current terminal. -- --=item tzname -- --Retrieves the time conversion information from the C<tzname> variable. -- -- POSIX::tzset(); -- ($std, $dst) = POSIX::tzname(); -- --=item tzset -- --This is identical to the C function C<tzset()> for setting --the current timezone based on the environment variable C<TZ>, --to be used by C<ctime()>, C<localtime()>, C<mktime()>, and C<strftime()> --functions. -- --=item umask -- --This is identical to Perl's builtin C<umask()> function --for setting (and querying) the file creation permission mask, --see L<perlfunc/umask>. -- --=item uname -- --Get name of current operating system. -- -- ($sysname, $nodename, $release, $version, $machine) = POSIX::uname(); -- --Note that the actual meanings of the various fields are not --that well standardized, do not expect any great portability. --The C<$sysname> might be the name of the operating system, --the C<$nodename> might be the name of the host, the C<$release> --might be the (major) release number of the operating system, --the C<$version> might be the (minor) release number of the --operating system, and the C<$machine> might be a hardware identifier. --Maybe. -- --=item ungetc -- --Use method C<IO::Handle::ungetc()> instead. -- --=item unlink -- --This is identical to Perl's builtin C<unlink()> function --for removing files, see L<perlfunc/unlink>. -- --=item utime -- --This is identical to Perl's builtin C<utime()> function --for changing the time stamps of files and directories, --see L<perlfunc/utime>. -- --=item vfprintf -- --vfprintf() is C-specific, see L<perlfunc/printf> instead. -- --=item vprintf -- --vprintf() is C-specific, see L<perlfunc/printf> instead. -- --=item vsprintf -- --vsprintf() is C-specific, see L<perlfunc/sprintf> instead. -- --=item wait -- --This is identical to Perl's builtin C<wait()> function, --see L<perlfunc/wait>. -- --=item waitpid -- --Wait for a child process to change state. This is identical to Perl's --builtin C<waitpid()> function, see L<perlfunc/waitpid>. -- -- $pid = POSIX::waitpid( -1, POSIX::WNOHANG ); -- print "status = ", ($? / 256), "\n"; -- --=item wcstombs -- --This is identical to the C function C<wcstombs()>. --Perl does not have any support for the wide and multibyte --characters of the C standards, so this might be a rather --useless function. -- --=item wctomb -- --This is identical to the C function C<wctomb()>. --Perl does not have any support for the wide and multibyte --characters of the C standards, so this might be a rather --useless function. -- --=item write -- --Write to a file. This uses file descriptors such as those obtained by --calling C<POSIX::open>. -- -- $fd = POSIX::open( "foo", &POSIX::O_WRONLY ); -- $buf = "hello"; -- $bytes = POSIX::write( $fd, $buf, 5 ); -- --Returns C<undef> on failure. -- --See also L<perlfunc/syswrite>. -- --=back -- --=head1 CLASSES -- --=head2 POSIX::SigAction -- --=over 8 -- --=item new -- --Creates a new C<POSIX::SigAction> object which corresponds to the C --C<struct sigaction>. This object will be destroyed automatically when --it is no longer needed. The first parameter is the handler, a sub --reference. The second parameter is a C<POSIX::SigSet> object, it --defaults to the empty set. The third parameter contains the --C<sa_flags>, it defaults to 0. -- -- $sigset = POSIX::SigSet->new(SIGINT, SIGQUIT); -- $sigaction = POSIX::SigAction->new( \&handler, $sigset, &POSIX::SA_NOCLDSTOP ); -- --This C<POSIX::SigAction> object is intended for use with the C<POSIX::sigaction()> --function. -- --=back -- --=over 8 -- --=item handler -- --=item mask -- --=item flags -- --accessor functions to get/set the values of a SigAction object. -- -- $sigset = $sigaction->mask; -- $sigaction->flags(&POSIX::SA_RESTART); -- --=item safe -- --accessor function for the "safe signals" flag of a SigAction object; see --L<perlipc> for general information on safe (a.k.a. "deferred") signals. If --you wish to handle a signal safely, use this accessor to set the "safe" flag --in the C<POSIX::SigAction> object: -- -- $sigaction->safe(1); -- --You may also examine the "safe" flag on the output action object which is --filled in when given as the third parameter to C<POSIX::sigaction()>: -- -- sigaction(SIGINT, $new_action, $old_action); -- if ($old_action->safe) { -- # previous SIGINT handler used safe signals -- } -- --=back -- --=head2 POSIX::SigRt -- --=over 8 -- --=item %SIGRT -- --A hash of the POSIX realtime signal handlers. It is an extension of --the standard %SIG, the $POSIX::SIGRT{SIGRTMIN} is roughly equivalent --to $SIG{SIGRTMIN}, but the right POSIX moves (see below) are made with --the POSIX::SigSet and POSIX::sigaction instead of accessing the %SIG. -- --You can set the %POSIX::SIGRT elements to set the POSIX realtime --signal handlers, use C<delete> and C<exists> on the elements, and use --C<scalar> on the C<%POSIX::SIGRT> to find out how many POSIX realtime --signals there are available (SIGRTMAX - SIGRTMIN + 1, the SIGRTMAX is --a valid POSIX realtime signal). -- --Setting the %SIGRT elements is equivalent to calling this: -- -- sub new { -- my ($rtsig, $handler, $flags) = @_; -- my $sigset = POSIX::SigSet($rtsig); -- my $sigact = POSIX::SigAction->new($handler, $sigset, $flags); -- sigaction($rtsig, $sigact); -- } -- --The flags default to zero, if you want something different you can --either use C<local> on $POSIX::SigRt::SIGACTION_FLAGS, or you can --derive from POSIX::SigRt and define your own C<new()> (the tied hash --STORE method of the %SIGRT calls C<new($rtsig, $handler, $SIGACTION_FLAGS)>, --where the $rtsig ranges from zero to SIGRTMAX - SIGRTMIN + 1). -- --Just as with any signal, you can use sigaction($rtsig, undef, $oa) to --retrieve the installed signal handler (or, rather, the signal action). -- --B<NOTE:> whether POSIX realtime signals really work in your system, or --whether Perl has been compiled so that it works with them, is outside --of this discussion. -- --=item SIGRTMIN -- --Return the minimum POSIX realtime signal number available, or C<undef> --if no POSIX realtime signals are available. -- --=item SIGRTMAX -- --Return the maximum POSIX realtime signal number available, or C<undef> --if no POSIX realtime signals are available. -- --=back -- --=head2 POSIX::SigSet -- --=over 8 -- --=item new -- --Create a new SigSet object. This object will be destroyed automatically --when it is no longer needed. Arguments may be supplied to initialize the --set. -- --Create an empty set. -- -- $sigset = POSIX::SigSet->new; -- --Create a set with SIGUSR1. -- -- $sigset = POSIX::SigSet->new( &POSIX::SIGUSR1 ); -- --=item addset -- --Add a signal to a SigSet object. -- -- $sigset->addset( &POSIX::SIGUSR2 ); -- --Returns C<undef> on failure. -- --=item delset -- --Remove a signal from the SigSet object. -- -- $sigset->delset( &POSIX::SIGUSR2 ); -- --Returns C<undef> on failure. -- --=item emptyset -- --Initialize the SigSet object to be empty. -- -- $sigset->emptyset(); -- --Returns C<undef> on failure. -- --=item fillset -- --Initialize the SigSet object to include all signals. -- -- $sigset->fillset(); -- --Returns C<undef> on failure. -- --=item ismember -- --Tests the SigSet object to see if it contains a specific signal. -- -- if( $sigset->ismember( &POSIX::SIGUSR1 ) ){ -- print "contains SIGUSR1\n"; -- } -- --=back -- --=head2 POSIX::Termios -- --=over 8 -- --=item new -- --Create a new Termios object. This object will be destroyed automatically --when it is no longer needed. A Termios object corresponds to the termios --C struct. new() mallocs a new one, getattr() fills it from a file descriptor, --and setattr() sets a file descriptor's parameters to match Termios' contents. -- -- $termios = POSIX::Termios->new; -- --=item getattr -- --Get terminal control attributes. -- --Obtain the attributes for stdin. -- -- $termios->getattr( 0 ) # Recommended for clarity. -- $termios->getattr() -- --Obtain the attributes for stdout. -- -- $termios->getattr( 1 ) -- --Returns C<undef> on failure. -- --=item getcc -- --Retrieve a value from the c_cc field of a termios object. The c_cc field is --an array so an index must be specified. -- -- $c_cc[1] = $termios->getcc(1); -- --=item getcflag -- --Retrieve the c_cflag field of a termios object. -- -- $c_cflag = $termios->getcflag; -- --=item getiflag -- --Retrieve the c_iflag field of a termios object. -- -- $c_iflag = $termios->getiflag; -- --=item getispeed -- --Retrieve the input baud rate. -- -- $ispeed = $termios->getispeed; -- --=item getlflag -- --Retrieve the c_lflag field of a termios object. -- -- $c_lflag = $termios->getlflag; -- --=item getoflag -- --Retrieve the c_oflag field of a termios object. -- -- $c_oflag = $termios->getoflag; -- --=item getospeed -- --Retrieve the output baud rate. -- -- $ospeed = $termios->getospeed; -- --=item setattr -- --Set terminal control attributes. -- --Set attributes immediately for stdout. -- -- $termios->setattr( 1, &POSIX::TCSANOW ); -- --Returns C<undef> on failure. -- --=item setcc -- --Set a value in the c_cc field of a termios object. The c_cc field is an --array so an index must be specified. -- -- $termios->setcc( &POSIX::VEOF, 1 ); -- --=item setcflag -- --Set the c_cflag field of a termios object. -- -- $termios->setcflag( $c_cflag | &POSIX::CLOCAL ); -- --=item setiflag -- --Set the c_iflag field of a termios object. -- -- $termios->setiflag( $c_iflag | &POSIX::BRKINT ); -- --=item setispeed -- --Set the input baud rate. -- -- $termios->setispeed( &POSIX::B9600 ); -- --Returns C<undef> on failure. -- --=item setlflag -- --Set the c_lflag field of a termios object. -- -- $termios->setlflag( $c_lflag | &POSIX::ECHO ); -- --=item setoflag -- --Set the c_oflag field of a termios object. -- -- $termios->setoflag( $c_oflag | &POSIX::OPOST ); -- --=item setospeed -- --Set the output baud rate. -- -- $termios->setospeed( &POSIX::B9600 ); -- --Returns C<undef> on failure. -- --=item Baud rate values -- --B38400 B75 B200 B134 B300 B1800 B150 B0 B19200 B1200 B9600 B600 B4800 B50 B2400 B110 -- --=item Terminal interface values -- --TCSADRAIN TCSANOW TCOON TCIOFLUSH TCOFLUSH TCION TCIFLUSH TCSAFLUSH TCIOFF TCOOFF -- --=item c_cc field values -- --VEOF VEOL VERASE VINTR VKILL VQUIT VSUSP VSTART VSTOP VMIN VTIME NCCS -- --=item c_cflag field values -- --CLOCAL CREAD CSIZE CS5 CS6 CS7 CS8 CSTOPB HUPCL PARENB PARODD -- --=item c_iflag field values -- --BRKINT ICRNL IGNBRK IGNCR IGNPAR INLCR INPCK ISTRIP IXOFF IXON PARMRK -- --=item c_lflag field values -- --ECHO ECHOE ECHOK ECHONL ICANON IEXTEN ISIG NOFLSH TOSTOP -- --=item c_oflag field values -- --OPOST -- --=back -- --=head1 PATHNAME CONSTANTS -- --=over 8 -- --=item Constants -- --_PC_CHOWN_RESTRICTED _PC_LINK_MAX _PC_MAX_CANON _PC_MAX_INPUT _PC_NAME_MAX _PC_NO_TRUNC _PC_PATH_MAX _PC_PIPE_BUF _PC_VDISABLE -- --=back -- --=head1 POSIX CONSTANTS -- --=over 8 -- --=item Constants -- --_POSIX_ARG_MAX _POSIX_CHILD_MAX _POSIX_CHOWN_RESTRICTED _POSIX_JOB_CONTROL _POSIX_LINK_MAX _POSIX_MAX_CANON _POSIX_MAX_INPUT _POSIX_NAME_MAX _POSIX_NGROUPS_MAX _POSIX_NO_TRUNC _POSIX_OPEN_MAX _POSIX_PATH_MAX _POSIX_PIPE_BUF _POSIX_SAVED_IDS _POSIX_SSIZE_MAX _POSIX_STREAM_MAX _POSIX_TZNAME_MAX _POSIX_VDISABLE _POSIX_VERSION -- --=back -- --=head1 SYSTEM CONFIGURATION -- --=over 8 -- --=item Constants -- --_SC_ARG_MAX _SC_CHILD_MAX _SC_CLK_TCK _SC_JOB_CONTROL _SC_NGROUPS_MAX _SC_OPEN_MAX _SC_PAGESIZE _SC_SAVED_IDS _SC_STREAM_MAX _SC_TZNAME_MAX _SC_VERSION -- --=back -- --=head1 ERRNO -- --=over 8 -- --=item Constants -- --E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT EAGAIN EALREADY EBADF --EBUSY ECHILD ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ --EDOM EDQUOT EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH EINPROGRESS EINTR --EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK EMSGSIZE ENAMETOOLONG --ENETDOWN ENETRESET ENETUNREACH ENFILE ENOBUFS ENODEV ENOENT ENOEXEC --ENOLCK ENOMEM ENOPROTOOPT ENOSPC ENOSYS ENOTBLK ENOTCONN ENOTDIR --ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM EPFNOSUPPORT EPIPE --EPROCLIM EPROTONOSUPPORT EPROTOTYPE ERANGE EREMOTE ERESTART EROFS --ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESTALE ETIMEDOUT ETOOMANYREFS --ETXTBSY EUSERS EWOULDBLOCK EXDEV -- --=back -- --=head1 FCNTL -- --=over 8 -- --=item Constants -- --FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_OK F_RDLCK F_SETFD F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK O_ACCMODE O_APPEND O_CREAT O_EXCL O_NOCTTY O_NONBLOCK O_RDONLY O_RDWR O_TRUNC O_WRONLY -- --=back -- --=head1 FLOAT -- --=over 8 -- --=item Constants -- --DBL_DIG DBL_EPSILON DBL_MANT_DIG DBL_MAX DBL_MAX_10_EXP DBL_MAX_EXP DBL_MIN DBL_MIN_10_EXP DBL_MIN_EXP FLT_DIG FLT_EPSILON FLT_MANT_DIG FLT_MAX FLT_MAX_10_EXP FLT_MAX_EXP FLT_MIN FLT_MIN_10_EXP FLT_MIN_EXP FLT_RADIX FLT_ROUNDS LDBL_DIG LDBL_EPSILON LDBL_MANT_DIG LDBL_MAX LDBL_MAX_10_EXP LDBL_MAX_EXP LDBL_MIN LDBL_MIN_10_EXP LDBL_MIN_EXP -- --=back -- --=head1 LIMITS -- --=over 8 -- --=item Constants -- --ARG_MAX CHAR_BIT CHAR_MAX CHAR_MIN CHILD_MAX INT_MAX INT_MIN LINK_MAX LONG_MAX LONG_MIN MAX_CANON MAX_INPUT MB_LEN_MAX NAME_MAX NGROUPS_MAX OPEN_MAX PATH_MAX PIPE_BUF SCHAR_MAX SCHAR_MIN SHRT_MAX SHRT_MIN SSIZE_MAX STREAM_MAX TZNAME_MAX UCHAR_MAX UINT_MAX ULONG_MAX USHRT_MAX -- --=back -- --=head1 LOCALE -- --=over 8 -- --=item Constants -- --LC_ALL LC_COLLATE LC_CTYPE LC_MONETARY LC_NUMERIC LC_TIME -- --=back -- --=head1 MATH -- --=over 8 -- --=item Constants -- --HUGE_VAL -- --=back -- --=head1 SIGNAL -- --=over 8 -- --=item Constants -- --SA_NOCLDSTOP SA_NOCLDWAIT SA_NODEFER SA_ONSTACK SA_RESETHAND SA_RESTART --SA_SIGINFO SIGABRT SIGALRM SIGCHLD SIGCONT SIGFPE SIGHUP SIGILL SIGINT --SIGKILL SIGPIPE SIGQUIT SIGSEGV SIGSTOP SIGTERM SIGTSTP SIGTTIN SIGTTOU --SIGUSR1 SIGUSR2 SIG_BLOCK SIG_DFL SIG_ERR SIG_IGN SIG_SETMASK --SIG_UNBLOCK -- --=back -- --=head1 STAT -- --=over 8 -- --=item Constants -- --S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU S_ISGID S_ISUID S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR -- --=item Macros -- --S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISREG -- --=back -- --=head1 STDLIB -- --=over 8 -- --=item Constants -- --EXIT_FAILURE EXIT_SUCCESS MB_CUR_MAX RAND_MAX -- --=back -- --=head1 STDIO -- --=over 8 -- --=item Constants -- --BUFSIZ EOF FILENAME_MAX L_ctermid L_cuserid L_tmpname TMP_MAX -- --=back -- --=head1 TIME -- --=over 8 -- --=item Constants -- --CLK_TCK CLOCKS_PER_SEC -- --=back -- --=head1 UNISTD -- --=over 8 -- --=item Constants -- --R_OK SEEK_CUR SEEK_END SEEK_SET STDIN_FILENO STDOUT_FILENO STDERR_FILENO W_OK X_OK -- --=back -- --=head1 WAIT -- --=over 8 -- --=item Constants -- --WNOHANG WUNTRACED -- --=over 16 -- --=item WNOHANG -- --Do not suspend the calling process until a child process --changes state but instead return immediately. -- --=item WUNTRACED -- --Catch stopped child processes. -- --=back -- --=item Macros -- --WIFEXITED WEXITSTATUS WIFSIGNALED WTERMSIG WIFSTOPPED WSTOPSIG -- --=over 16 -- --=item WIFEXITED -- --WIFEXITED($?) returns true if the child process exited normally --(C<exit()> or by falling off the end of C<main()>) -- --=item WEXITSTATUS -- --WEXITSTATUS($?) returns the normal exit status of the child process --(only meaningful if WIFEXITED($?) is true) -- --=item WIFSIGNALED -- --WIFSIGNALED($?) returns true if the child process terminated because --of a signal -- --=item WTERMSIG -- --WTERMSIG($?) returns the signal the child process terminated for --(only meaningful if WIFSIGNALED($?) is true) -- --=item WIFSTOPPED -- --WIFSTOPPED($?) returns true if the child process is currently stopped --(can happen only if you specified the WUNTRACED flag to waitpid()) -- --=item WSTOPSIG -- --WSTOPSIG($?) returns the signal the child process was stopped for --(only meaningful if WIFSTOPPED($?) is true) -- --=back -- --=back -- -diff --git a/ext/POSIX/lib/POSIX.pm b/ext/POSIX/lib/POSIX.pm -new file mode 100644 -index 0000000..ffbd9de ---- /dev/null -+++ b/ext/POSIX/lib/POSIX.pm -@@ -0,0 +1,1042 @@ -+package POSIX; -+use strict; -+use warnings; -+ -+our(@ISA, %EXPORT_TAGS, @EXPORT_OK, @EXPORT, $AUTOLOAD, %SIGRT) = (); -+ -+our $VERSION = "1.19"; -+ -+use AutoLoader; -+ -+use XSLoader (); -+ -+use Fcntl qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK F_SETFD -+ F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK O_ACCMODE O_APPEND -+ O_CREAT O_EXCL O_NOCTTY O_NONBLOCK O_RDONLY O_RDWR O_TRUNC -+ O_WRONLY SEEK_CUR SEEK_END SEEK_SET -+ S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISREG -+ S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU S_ISGID S_ISUID -+ S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR); -+ -+# Grandfather old foo_h form to new :foo_h form -+my $loaded; -+ -+sub import { -+ load_imports() unless $loaded++; -+ my $this = shift; -+ my @list = map { m/^\w+_h$/ ? ":$_" : $_ } @_; -+ local $Exporter::ExportLevel = 1; -+ Exporter::import($this,@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 <STDIN>; -+} -+ -+sub perror { -+ print STDERR "@_: " if @_; -+ print STDERR $!,"\n"; -+} -+ -+sub printf { -+ usage "printf(pattern, args...)" if @_ < 1; -+ CORE::printf STDOUT @_; -+} -+ -+sub putc { -+ unimpl "putc() is C-specific--use print instead"; -+} -+ -+sub putchar { -+ unimpl "putchar() is C-specific--use print instead"; -+} -+ -+sub puts { -+ unimpl "puts() is C-specific--use print instead"; -+} -+ -+sub remove { -+ usage "remove(filename)" if @_ != 1; -+ (-d $_[0]) ? CORE::rmdir($_[0]) : CORE::unlink($_[0]); -+} -+ -+sub rename { -+ usage "rename(oldfilename, newfilename)" if @_ != 2; -+ CORE::rename($_[0], $_[1]); -+} -+ -+sub rewind { -+ usage "rewind(filehandle)" if @_ != 1; -+ CORE::seek($_[0],0,0); -+} -+ -+sub scanf { -+ unimpl "scanf() is C-specific--use <> and regular expressions instead"; -+} -+ -+sub sprintf { -+ usage "sprintf(pattern,args)" if @_ == 0; -+ CORE::sprintf(shift,@_); -+} -+ -+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<Everything is exported by default> with the exception of any POSIX -+functions with the same name as a built-in Perl function, such as -+C<abs>, C<alarm>, C<rmdir>, C<write>, etc.., which will be exported -+only if you ask for them explicitly. This is an unfortunate backwards -+compatibility feature. You can stop the exporting by saying C<use -+POSIX ()> and then use the fully qualified names (ie. C<POSIX::SEEK_END>). -+ -+This document gives a condensed list of the features available in the POSIX -+module. Consult your operating system's manpages for general information on -+most features. Consult L<perlfunc> for functions which are noted as being -+identical to Perl's builtin functions. -+ -+The first section describes POSIX functions from the 1003.1 specification. -+The second section describes some classes for signal objects, TTY objects, -+and other miscellaneous objects. The remaining sections list various -+constants and macros in an organization which roughly follows IEEE Std -+1003.1b-1993. -+ -+=head1 NOTE -+ -+The POSIX module is probably the most complex Perl module supplied with -+the standard distribution. It incorporates autoloading, namespace games, -+and dynamic loading of code that's in Perl, C, or both. It's a great -+source of wisdom. -+ -+=head1 CAVEATS -+ -+A few functions are not implemented because they are C specific. If you -+attempt to call these, they will print a message telling you that they -+aren't implemented, and suggest using the Perl equivalent should one -+exist. For example, trying to access the setjmp() call will elicit the -+message "setjmp() is C-specific: use eval {} instead". -+ -+Furthermore, some evil vendors will claim 1003.1 compliance, but in fact -+are not so: they will not pass the PCTS (POSIX Compliance Test Suites). -+For example, one vendor may not define EDEADLK, or the semantics of the -+errno values set by open(2) might not be quite right. Perl does not -+attempt to verify POSIX compliance. That means you can currently -+successfully say "use POSIX", and then later in your program you find -+that your vendor has been lax and there's no usable ICANON macro after -+all. This could be construed to be a bug. -+ -+=head1 FUNCTIONS -+ -+=over 8 -+ -+=item _exit -+ -+This is identical to the C function C<_exit()>. It exits the program -+immediately which means among other things buffered I/O is B<not> flushed. -+ -+Note that when using threads and in Linux this is B<not> a good way to -+exit a thread because in Linux processes and threads are kind of the -+same thing (Note: while this is the situation in early 2003 there are -+projects under way to have threads with more POSIXly semantics in Linux). -+If you want not to return from a thread, detach the thread. -+ -+=item abort -+ -+This is identical to the C function C<abort()>. It terminates the -+process with a C<SIGABRT> signal unless caught by a signal handler or -+if the handler does not return normally (it e.g. does a C<longjmp>). -+ -+=item abs -+ -+This is identical to Perl's builtin C<abs()> function, returning -+the absolute value of its numerical argument. -+ -+=item access -+ -+Determines the accessibility of a file. -+ -+ if( POSIX::access( "/", &POSIX::R_OK ) ){ -+ print "have read permission\n"; -+ } -+ -+Returns C<undef> on failure. Note: do not use C<access()> for -+security purposes. Between the C<access()> call and the operation -+you are preparing for the permissions might change: a classic -+I<race condition>. -+ -+=item acos -+ -+This is identical to the C function C<acos()>, returning -+the arcus cosine of its numerical argument. See also L<Math::Trig>. -+ -+=item alarm -+ -+This is identical to Perl's builtin C<alarm()> function, -+either for arming or disarming the C<SIGARLM> timer. -+ -+=item asctime -+ -+This is identical to the C function C<asctime()>. It returns -+a string of the form -+ -+ "Fri Jun 2 18:22:13 2000\n\0" -+ -+and it is called thusly -+ -+ $asctime = asctime($sec, $min, $hour, $mday, $mon, $year, -+ $wday, $yday, $isdst); -+ -+The C<$mon> is zero-based: January equals C<0>. The C<$year> is -+1900-based: 2001 equals C<101>. C<$wday> and C<$yday> default to zero -+(and are usually ignored anyway), and C<$isdst> defaults to -1. -+ -+=item asin -+ -+This is identical to the C function C<asin()>, returning -+the arcus sine of its numerical argument. See also L<Math::Trig>. -+ -+=item assert -+ -+Unimplemented, but you can use L<perlfunc/die> and the L<Carp> module -+to achieve similar things. -+ -+=item atan -+ -+This is identical to the C function C<atan()>, returning the -+arcus tangent of its numerical argument. See also L<Math::Trig>. -+ -+=item atan2 -+ -+This is identical to Perl's builtin C<atan2()> function, returning -+the arcus tangent defined by its two numerical arguments, the I<y> -+coordinate and the I<x> coordinate. See also L<Math::Trig>. -+ -+=item atexit -+ -+atexit() is C-specific: use C<END {}> instead, see L<perlsub>. -+ -+=item atof -+ -+atof() is C-specific. Perl converts strings to numbers transparently. -+If you need to force a scalar to a number, add a zero to it. -+ -+=item atoi -+ -+atoi() is C-specific. Perl converts strings to numbers transparently. -+If you need to force a scalar to a number, add a zero to it. -+If you need to have just the integer part, see L<perlfunc/int>. -+ -+=item atol -+ -+atol() is C-specific. Perl converts strings to numbers transparently. -+If you need to force a scalar to a number, add a zero to it. -+If you need to have just the integer part, see L<perlfunc/int>. -+ -+=item bsearch -+ -+bsearch() not supplied. For doing binary search on wordlists, -+see L<Search::Dict>. -+ -+=item calloc -+ -+calloc() is C-specific. Perl does memory management transparently. -+ -+=item ceil -+ -+This is identical to the C function C<ceil()>, returning the smallest -+integer value greater than or equal to the given numerical argument. -+ -+=item chdir -+ -+This is identical to Perl's builtin C<chdir()> function, allowing -+one to change the working (default) directory, see L<perlfunc/chdir>. -+ -+=item chmod -+ -+This is identical to Perl's builtin C<chmod()> function, allowing -+one to change file and directory permissions, see L<perlfunc/chmod>. -+ -+=item chown -+ -+This is identical to Perl's builtin C<chown()> function, allowing one -+to change file and directory owners and groups, see L<perlfunc/chown>. -+ -+=item clearerr -+ -+Use the method C<IO::Handle::clearerr()> instead, to reset the error -+state (if any) and EOF state (if any) of the given stream. -+ -+=item clock -+ -+This is identical to the C function C<clock()>, returning the -+amount of spent processor time in microseconds. -+ -+=item close -+ -+Close the file. This uses file descriptors such as those obtained by calling -+C<POSIX::open>. -+ -+ $fd = POSIX::open( "foo", &POSIX::O_RDONLY ); -+ POSIX::close( $fd ); -+ -+Returns C<undef> on failure. -+ -+See also L<perlfunc/close>. -+ -+=item closedir -+ -+This is identical to Perl's builtin C<closedir()> function for closing -+a directory handle, see L<perlfunc/closedir>. -+ -+=item cos -+ -+This is identical to Perl's builtin C<cos()> function, for returning -+the cosine of its numerical argument, see L<perlfunc/cos>. -+See also L<Math::Trig>. -+ -+=item cosh -+ -+This is identical to the C function C<cosh()>, for returning -+the hyperbolic cosine of its numeric argument. See also L<Math::Trig>. -+ -+=item creat -+ -+Create a new file. This returns a file descriptor like the ones returned by -+C<POSIX::open>. Use C<POSIX::close> to close the file. -+ -+ $fd = POSIX::creat( "foo", 0611 ); -+ POSIX::close( $fd ); -+ -+See also L<perlfunc/sysopen> and its C<O_CREAT> flag. -+ -+=item ctermid -+ -+Generates the path name for the controlling terminal. -+ -+ $path = POSIX::ctermid(); -+ -+=item ctime -+ -+This is identical to the C function C<ctime()> and equivalent -+to C<asctime(localtime(...))>, see L</asctime> and L</localtime>. -+ -+=item cuserid -+ -+Get the login name of the owner of the current process. -+ -+ $name = POSIX::cuserid(); -+ -+=item difftime -+ -+This is identical to the C function C<difftime()>, for returning -+the time difference (in seconds) between two times (as returned -+by C<time()>), see L</time>. -+ -+=item div -+ -+div() is C-specific, use L<perlfunc/int> on the usual C</> division and -+the modulus C<%>. -+ -+=item dup -+ -+This is similar to the C function C<dup()>, for duplicating a file -+descriptor. -+ -+This uses file descriptors such as those obtained by calling -+C<POSIX::open>. -+ -+Returns C<undef> on failure. -+ -+=item dup2 -+ -+This is similar to the C function C<dup2()>, for duplicating a file -+descriptor to an another known file descriptor. -+ -+This uses file descriptors such as those obtained by calling -+C<POSIX::open>. -+ -+Returns C<undef> on failure. -+ -+=item errno -+ -+Returns the value of errno. -+ -+ $errno = POSIX::errno(); -+ -+This identical to the numerical values of the C<$!>, see L<perlvar/$ERRNO>. -+ -+=item execl -+ -+execl() is C-specific, see L<perlfunc/exec>. -+ -+=item execle -+ -+execle() is C-specific, see L<perlfunc/exec>. -+ -+=item execlp -+ -+execlp() is C-specific, see L<perlfunc/exec>. -+ -+=item execv -+ -+execv() is C-specific, see L<perlfunc/exec>. -+ -+=item execve -+ -+execve() is C-specific, see L<perlfunc/exec>. -+ -+=item execvp -+ -+execvp() is C-specific, see L<perlfunc/exec>. -+ -+=item exit -+ -+This is identical to Perl's builtin C<exit()> function for exiting the -+program, see L<perlfunc/exit>. -+ -+=item exp -+ -+This is identical to Perl's builtin C<exp()> function for -+returning the exponent (I<e>-based) of the numerical argument, -+see L<perlfunc/exp>. -+ -+=item fabs -+ -+This is identical to Perl's builtin C<abs()> function for returning -+the absolute value of the numerical argument, see L<perlfunc/abs>. -+ -+=item fclose -+ -+Use method C<IO::Handle::close()> instead, or see L<perlfunc/close>. -+ -+=item fcntl -+ -+This is identical to Perl's builtin C<fcntl()> function, -+see L<perlfunc/fcntl>. -+ -+=item fdopen -+ -+Use method C<IO::Handle::new_from_fd()> instead, or see L<perlfunc/open>. -+ -+=item feof -+ -+Use method C<IO::Handle::eof()> instead, or see L<perlfunc/eof>. -+ -+=item ferror -+ -+Use method C<IO::Handle::error()> instead. -+ -+=item fflush -+ -+Use method C<IO::Handle::flush()> instead. -+See also L<perlvar/$OUTPUT_AUTOFLUSH>. -+ -+=item fgetc -+ -+Use method C<IO::Handle::getc()> instead, or see L<perlfunc/read>. -+ -+=item fgetpos -+ -+Use method C<IO::Seekable::getpos()> instead, or see L<L/seek>. -+ -+=item fgets -+ -+Use method C<IO::Handle::gets()> instead. Similar to E<lt>E<gt>, also known -+as L<perlfunc/readline>. -+ -+=item fileno -+ -+Use method C<IO::Handle::fileno()> instead, or see L<perlfunc/fileno>. -+ -+=item floor -+ -+This is identical to the C function C<floor()>, returning the largest -+integer value less than or equal to the numerical argument. -+ -+=item fmod -+ -+This is identical to the C function C<fmod()>. -+ -+ $r = fmod($x, $y); -+ -+It returns the remainder C<$r = $x - $n*$y>, where C<$n = trunc($x/$y)>. -+The C<$r> has the same sign as C<$x> and magnitude (absolute value) -+less than the magnitude of C<$y>. -+ -+=item fopen -+ -+Use method C<IO::File::open()> instead, or see L<perlfunc/open>. -+ -+=item fork -+ -+This is identical to Perl's builtin C<fork()> function -+for duplicating the current process, see L<perlfunc/fork> -+and L<perlfork> if you are in Windows. -+ -+=item fpathconf -+ -+Retrieves the value of a configurable limit on a file or directory. This -+uses file descriptors such as those obtained by calling C<POSIX::open>. -+ -+The following will determine the maximum length of the longest allowable -+pathname on the filesystem which holds C</var/foo>. -+ -+ $fd = POSIX::open( "/var/foo", &POSIX::O_RDONLY ); -+ $path_max = POSIX::fpathconf( $fd, &POSIX::_PC_PATH_MAX ); -+ -+Returns C<undef> on failure. -+ -+=item fprintf -+ -+fprintf() is C-specific, see L<perlfunc/printf> instead. -+ -+=item fputc -+ -+fputc() is C-specific, see L<perlfunc/print> instead. -+ -+=item fputs -+ -+fputs() is C-specific, see L<perlfunc/print> instead. -+ -+=item fread -+ -+fread() is C-specific, see L<perlfunc/read> instead. -+ -+=item free -+ -+free() is C-specific. Perl does memory management transparently. -+ -+=item freopen -+ -+freopen() is C-specific, see L<perlfunc/open> instead. -+ -+=item frexp -+ -+Return the mantissa and exponent of a floating-point number. -+ -+ ($mantissa, $exponent) = POSIX::frexp( 1.234e56 ); -+ -+=item fscanf -+ -+fscanf() is C-specific, use E<lt>E<gt> and regular expressions instead. -+ -+=item fseek -+ -+Use method C<IO::Seekable::seek()> instead, or see L<perlfunc/seek>. -+ -+=item fsetpos -+ -+Use method C<IO::Seekable::setpos()> instead, or seek L<perlfunc/seek>. -+ -+=item fstat -+ -+Get file status. This uses file descriptors such as those obtained by -+calling C<POSIX::open>. The data returned is identical to the data from -+Perl's builtin C<stat> function. -+ -+ $fd = POSIX::open( "foo", &POSIX::O_RDONLY ); -+ @stats = POSIX::fstat( $fd ); -+ -+=item fsync -+ -+Use method C<IO::Handle::sync()> instead. -+ -+=item ftell -+ -+Use method C<IO::Seekable::tell()> instead, or see L<perlfunc/tell>. -+ -+=item fwrite -+ -+fwrite() is C-specific, see L<perlfunc/print> instead. -+ -+=item getc -+ -+This is identical to Perl's builtin C<getc()> function, -+see L<perlfunc/getc>. -+ -+=item getchar -+ -+Returns one character from STDIN. Identical to Perl's C<getc()>, -+see L<perlfunc/getc>. -+ -+=item getcwd -+ -+Returns the name of the current working directory. -+See also L<Cwd>. -+ -+=item getegid -+ -+Returns the effective group identifier. Similar to Perl' s builtin -+variable C<$(>, see L<perlvar/$EGID>. -+ -+=item getenv -+ -+Returns the value of the specified environment variable. -+The same information is available through the C<%ENV> array. -+ -+=item geteuid -+ -+Returns the effective user identifier. Identical to Perl's builtin C<$E<gt>> -+variable, see L<perlvar/$EUID>. -+ -+=item getgid -+ -+Returns the user's real group identifier. Similar to Perl's builtin -+variable C<$)>, see L<perlvar/$GID>. -+ -+=item getgrgid -+ -+This is identical to Perl's builtin C<getgrgid()> function for -+returning group entries by group identifiers, see -+L<perlfunc/getgrgid>. -+ -+=item getgrnam -+ -+This is identical to Perl's builtin C<getgrnam()> function for -+returning group entries by group names, see L<perlfunc/getgrnam>. -+ -+=item getgroups -+ -+Returns the ids of the user's supplementary groups. Similar to Perl's -+builtin variable C<$)>, see L<perlvar/$GID>. -+ -+=item getlogin -+ -+This is identical to Perl's builtin C<getlogin()> function for -+returning the user name associated with the current session, see -+L<perlfunc/getlogin>. -+ -+=item getpgrp -+ -+This is identical to Perl's builtin C<getpgrp()> function for -+returning the process group identifier of the current process, see -+L<perlfunc/getpgrp>. -+ -+=item getpid -+ -+Returns the process identifier. Identical to Perl's builtin -+variable C<$$>, see L<perlvar/$PID>. -+ -+=item getppid -+ -+This is identical to Perl's builtin C<getppid()> function for -+returning the process identifier of the parent process of the current -+process , see L<perlfunc/getppid>. -+ -+=item getpwnam -+ -+This is identical to Perl's builtin C<getpwnam()> function for -+returning user entries by user names, see L<perlfunc/getpwnam>. -+ -+=item getpwuid -+ -+This is identical to Perl's builtin C<getpwuid()> function for -+returning user entries by user identifiers, see L<perlfunc/getpwuid>. -+ -+=item gets -+ -+Returns one line from C<STDIN>, similar to E<lt>E<gt>, also known -+as the C<readline()> function, see L<perlfunc/readline>. -+ -+B<NOTE>: if you have C programs that still use C<gets()>, be very -+afraid. The C<gets()> function is a source of endless grief because -+it has no buffer overrun checks. It should B<never> be used. The -+C<fgets()> function should be preferred instead. -+ -+=item getuid -+ -+Returns the user's identifier. Identical to Perl's builtin C<$E<lt>> variable, -+see L<perlvar/$UID>. -+ -+=item gmtime -+ -+This is identical to Perl's builtin C<gmtime()> function for -+converting seconds since the epoch to a date in Greenwich Mean Time, -+see L<perlfunc/gmtime>. -+ -+=item isalnum -+ -+This is identical to the C function, except that it can apply to a -+single character or to a whole string. Note that locale settings may -+affect what characters are considered C<isalnum>. Does not work on -+Unicode characters code point 256 or higher. Consider using regular -+expressions and the C</[[:alnum:]]/> construct instead, or possibly -+the C</\w/> construct. -+ -+=item isalpha -+ -+This is identical to the C function, except that it can apply to -+a single character or to a whole string. Note that locale settings -+may affect what characters are considered C<isalpha>. Does not work -+on Unicode characters code point 256 or higher. Consider using regular -+expressions and the C</[[:alpha:]]/> construct instead. -+ -+=item isatty -+ -+Returns a boolean indicating whether the specified filehandle is connected -+to a tty. Similar to the C<-t> operator, see L<perlfunc/-X>. -+ -+=item iscntrl -+ -+This is identical to the C function, except that it can apply to -+a single character or to a whole string. Note that locale settings -+may affect what characters are considered C<iscntrl>. Does not work -+on Unicode characters code point 256 or higher. Consider using regular -+expressions and the C</[[:cntrl:]]/> construct instead. -+ -+=item isdigit -+ -+This is identical to the C function, except that it can apply to -+a single character or to a whole string. Note that locale settings -+may affect what characters are considered C<isdigit> (unlikely, but -+still possible). Does not work on Unicode characters code point 256 -+or higher. Consider using regular expressions and the C</[[:digit:]]/> -+construct instead, or the C</\d/> construct. -+ -+=item isgraph -+ -+This is identical to the C function, except that it can apply to -+a single character or to a whole string. Note that locale settings -+may affect what characters are considered C<isgraph>. Does not work -+on Unicode characters code point 256 or higher. Consider using regular -+expressions and the C</[[:graph:]]/> construct instead. -+ -+=item islower -+ -+This is identical to the C function, except that it can apply to -+a single character or to a whole string. Note that locale settings -+may affect what characters are considered C<islower>. Does not work -+on Unicode characters code point 256 or higher. Consider using regular -+expressions and the C</[[:lower:]]/> construct instead. Do B<not> use -+C</[a-z]/>. -+ -+=item isprint -+ -+This is identical to the C function, except that it can apply to -+a single character or to a whole string. Note that locale settings -+may affect what characters are considered C<isprint>. Does not work -+on Unicode characters code point 256 or higher. Consider using regular -+expressions and the C</[[:print:]]/> construct instead. -+ -+=item ispunct -+ -+This is identical to the C function, except that it can apply to -+a single character or to a whole string. Note that locale settings -+may affect what characters are considered C<ispunct>. Does not work -+on Unicode characters code point 256 or higher. Consider using regular -+expressions and the C</[[:punct:]]/> construct instead. -+ -+=item isspace -+ -+This is identical to the C function, except that it can apply to -+a single character or to a whole string. Note that locale settings -+may affect what characters are considered C<isspace>. Does not work -+on Unicode characters code point 256 or higher. Consider using regular -+expressions and the C</[[:space:]]/> construct instead, or the C</\s/> -+construct. (Note that C</\s/> and C</[[:space:]]/> are slightly -+different in that C</[[:space:]]/> can normally match a vertical tab, -+while C</\s/> does not.) -+ -+=item isupper -+ -+This is identical to the C function, except that it can apply to -+a single character or to a whole string. Note that locale settings -+may affect what characters are considered C<isupper>. Does not work -+on Unicode characters code point 256 or higher. Consider using regular -+expressions and the C</[[:upper:]]/> construct instead. Do B<not> use -+C</[A-Z]/>. -+ -+=item isxdigit -+ -+This is identical to the C function, except that it can apply to a single -+character or to a whole string. Note that locale settings may affect what -+characters are considered C<isxdigit> (unlikely, but still possible). -+Does not work on Unicode characters code point 256 or higher. -+Consider using regular expressions and the C</[[:xdigit:]]/> -+construct instead, or simply C</[0-9a-f]/i>. -+ -+=item kill -+ -+This is identical to Perl's builtin C<kill()> function for sending -+signals to processes (often to terminate them), see L<perlfunc/kill>. -+ -+=item labs -+ -+(For returning absolute values of long integers.) -+labs() is C-specific, see L<perlfunc/abs> instead. -+ -+=item lchown -+ -+This is identical to the C function, except the order of arguments is -+consistent with Perl's builtin C<chown()> with the added restriction -+of only one path, not an list of paths. Does the same thing as the -+C<chown()> function but changes the owner of a symbolic link instead -+of the file the symbolic link points to. -+ -+=item ldexp -+ -+This is identical to the C function C<ldexp()> -+for multiplying floating point numbers with powers of two. -+ -+ $x_quadrupled = POSIX::ldexp($x, 2); -+ -+=item ldiv -+ -+(For computing dividends of long integers.) -+ldiv() is C-specific, use C</> and C<int()> instead. -+ -+=item link -+ -+This is identical to Perl's builtin C<link()> function -+for creating hard links into files, see L<perlfunc/link>. -+ -+=item localeconv -+ -+Get numeric formatting information. Returns a reference to a hash -+containing the current locale formatting values. -+ -+Here is how to query the database for the B<de> (Deutsch or German) locale. -+ -+ $loc = POSIX::setlocale( &POSIX::LC_ALL, "de" ); -+ print "Locale = $loc\n"; -+ $lconv = POSIX::localeconv(); -+ print "decimal_point = ", $lconv->{decimal_point}, "\n"; -+ print "thousands_sep = ", $lconv->{thousands_sep}, "\n"; -+ print "grouping = ", $lconv->{grouping}, "\n"; -+ print "int_curr_symbol = ", $lconv->{int_curr_symbol}, "\n"; -+ print "currency_symbol = ", $lconv->{currency_symbol}, "\n"; -+ print "mon_decimal_point = ", $lconv->{mon_decimal_point}, "\n"; -+ print "mon_thousands_sep = ", $lconv->{mon_thousands_sep}, "\n"; -+ print "mon_grouping = ", $lconv->{mon_grouping}, "\n"; -+ print "positive_sign = ", $lconv->{positive_sign}, "\n"; -+ print "negative_sign = ", $lconv->{negative_sign}, "\n"; -+ print "int_frac_digits = ", $lconv->{int_frac_digits}, "\n"; -+ print "frac_digits = ", $lconv->{frac_digits}, "\n"; -+ print "p_cs_precedes = ", $lconv->{p_cs_precedes}, "\n"; -+ print "p_sep_by_space = ", $lconv->{p_sep_by_space}, "\n"; -+ print "n_cs_precedes = ", $lconv->{n_cs_precedes}, "\n"; -+ print "n_sep_by_space = ", $lconv->{n_sep_by_space}, "\n"; -+ print "p_sign_posn = ", $lconv->{p_sign_posn}, "\n"; -+ print "n_sign_posn = ", $lconv->{n_sign_posn}, "\n"; -+ -+=item localtime -+ -+This is identical to Perl's builtin C<localtime()> function for -+converting seconds since the epoch to a date see L<perlfunc/localtime>. -+ -+=item log -+ -+This is identical to Perl's builtin C<log()> function, -+returning the natural (I<e>-based) logarithm of the numerical argument, -+see L<perlfunc/log>. -+ -+=item log10 -+ -+This is identical to the C function C<log10()>, -+returning the 10-base logarithm of the numerical argument. -+You can also use -+ -+ sub log10 { log($_[0]) / log(10) } -+ -+or -+ -+ sub log10 { log($_[0]) / 2.30258509299405 } -+ -+or -+ -+ sub log10 { log($_[0]) * 0.434294481903252 } -+ -+=item longjmp -+ -+longjmp() is C-specific: use L<perlfunc/die> instead. -+ -+=item lseek -+ -+Move the file's read/write position. This uses file descriptors such as -+those obtained by calling C<POSIX::open>. -+ -+ $fd = POSIX::open( "foo", &POSIX::O_RDONLY ); -+ $off_t = POSIX::lseek( $fd, 0, &POSIX::SEEK_SET ); -+ -+Returns C<undef> on failure. -+ -+=item malloc -+ -+malloc() is C-specific. Perl does memory management transparently. -+ -+=item mblen -+ -+This is identical to the C function C<mblen()>. -+Perl does not have any support for the wide and multibyte -+characters of the C standards, so this might be a rather -+useless function. -+ -+=item mbstowcs -+ -+This is identical to the C function C<mbstowcs()>. -+Perl does not have any support for the wide and multibyte -+characters of the C standards, so this might be a rather -+useless function. -+ -+=item mbtowc -+ -+This is identical to the C function C<mbtowc()>. -+Perl does not have any support for the wide and multibyte -+characters of the C standards, so this might be a rather -+useless function. -+ -+=item memchr -+ -+memchr() is C-specific, see L<perlfunc/index> instead. -+ -+=item memcmp -+ -+memcmp() is C-specific, use C<eq> instead, see L<perlop>. -+ -+=item memcpy -+ -+memcpy() is C-specific, use C<=>, see L<perlop>, or see L<perlfunc/substr>. -+ -+=item memmove -+ -+memmove() is C-specific, use C<=>, see L<perlop>, or see L<perlfunc/substr>. -+ -+=item memset -+ -+memset() is C-specific, use C<x> instead, see L<perlop>. -+ -+=item mkdir -+ -+This is identical to Perl's builtin C<mkdir()> function -+for creating directories, see L<perlfunc/mkdir>. -+ -+=item mkfifo -+ -+This is similar to the C function C<mkfifo()> for creating -+FIFO special files. -+ -+ if (mkfifo($path, $mode)) { .... -+ -+Returns C<undef> on failure. The C<$mode> is similar to the -+mode of C<mkdir()>, see L<perlfunc/mkdir>, though for C<mkfifo> -+you B<must> specify the C<$mode>. -+ -+=item mktime -+ -+Convert date/time info to a calendar time. -+ -+Synopsis: -+ -+ mktime(sec, min, hour, mday, mon, year, wday = 0, yday = 0, isdst = -1) -+ -+The month (C<mon>), weekday (C<wday>), and yearday (C<yday>) begin at zero. -+I.e. January is 0, not 1; Sunday is 0, not 1; January 1st is 0, not 1. The -+year (C<year>) is given in years since 1900. I.e. The year 1995 is 95; the -+year 2001 is 101. Consult your system's C<mktime()> manpage for details -+about these and the other arguments. -+ -+Calendar time for December 12, 1995, at 10:30 am. -+ -+ $time_t = POSIX::mktime( 0, 30, 10, 12, 11, 95 ); -+ print "Date = ", POSIX::ctime($time_t); -+ -+Returns C<undef> on failure. -+ -+=item modf -+ -+Return the integral and fractional parts of a floating-point number. -+ -+ ($fractional, $integral) = POSIX::modf( 3.14 ); -+ -+=item nice -+ -+This is similar to the C function C<nice()>, for changing -+the scheduling preference of the current process. Positive -+arguments mean more polite process, negative values more -+needy process. Normal user processes can only be more polite. -+ -+Returns C<undef> on failure. -+ -+=item offsetof -+ -+offsetof() is C-specific, you probably want to see L<perlfunc/pack> instead. -+ -+=item open -+ -+Open a file for reading for writing. This returns file descriptors, not -+Perl filehandles. Use C<POSIX::close> to close the file. -+ -+Open a file read-only with mode 0666. -+ -+ $fd = POSIX::open( "foo" ); -+ -+Open a file for read and write. -+ -+ $fd = POSIX::open( "foo", &POSIX::O_RDWR ); -+ -+Open a file for write, with truncation. -+ -+ $fd = POSIX::open( "foo", &POSIX::O_WRONLY | &POSIX::O_TRUNC ); -+ -+Create a new file with mode 0640. Set up the file for writing. -+ -+ $fd = POSIX::open( "foo", &POSIX::O_CREAT | &POSIX::O_WRONLY, 0640 ); -+ -+Returns C<undef> on failure. -+ -+See also L<perlfunc/sysopen>. -+ -+=item opendir -+ -+Open a directory for reading. -+ -+ $dir = POSIX::opendir( "/var" ); -+ @files = POSIX::readdir( $dir ); -+ POSIX::closedir( $dir ); -+ -+Returns C<undef> on failure. -+ -+=item pathconf -+ -+Retrieves the value of a configurable limit on a file or directory. -+ -+The following will determine the maximum length of the longest allowable -+pathname on the filesystem which holds C</var>. -+ -+ $path_max = POSIX::pathconf( "/var", &POSIX::_PC_PATH_MAX ); -+ -+Returns C<undef> on failure. -+ -+=item pause -+ -+This is similar to the C function C<pause()>, which suspends -+the execution of the current process until a signal is received. -+ -+Returns C<undef> on failure. -+ -+=item perror -+ -+This is identical to the C function C<perror()>, which outputs to the -+standard error stream the specified message followed by ": " and the -+current error string. Use the C<warn()> function and the C<$!> -+variable instead, see L<perlfunc/warn> and L<perlvar/$ERRNO>. -+ -+=item pipe -+ -+Create an interprocess channel. This returns file descriptors like those -+returned by C<POSIX::open>. -+ -+ my ($read, $write) = POSIX::pipe(); -+ POSIX::write( $write, "hello", 5 ); -+ POSIX::read( $read, $buf, 5 ); -+ -+See also L<perlfunc/pipe>. -+ -+=item pow -+ -+Computes C<$x> raised to the power C<$exponent>. -+ -+ $ret = POSIX::pow( $x, $exponent ); -+ -+You can also use the C<**> operator, see L<perlop>. -+ -+=item printf -+ -+Formats and prints the specified arguments to STDOUT. -+See also L<perlfunc/printf>. -+ -+=item putc -+ -+putc() is C-specific, see L<perlfunc/print> instead. -+ -+=item putchar -+ -+putchar() is C-specific, see L<perlfunc/print> instead. -+ -+=item puts -+ -+puts() is C-specific, see L<perlfunc/print> instead. -+ -+=item qsort -+ -+qsort() is C-specific, see L<perlfunc/sort> instead. -+ -+=item raise -+ -+Sends the specified signal to the current process. -+See also L<perlfunc/kill> and the C<$$> in L<perlvar/$PID>. -+ -+=item rand -+ -+C<rand()> is non-portable, see L<perlfunc/rand> instead. -+ -+=item read -+ -+Read from a file. This uses file descriptors such as those obtained by -+calling C<POSIX::open>. If the buffer C<$buf> is not large enough for the -+read then Perl will extend it to make room for the request. -+ -+ $fd = POSIX::open( "foo", &POSIX::O_RDONLY ); -+ $bytes = POSIX::read( $fd, $buf, 3 ); -+ -+Returns C<undef> on failure. -+ -+See also L<perlfunc/sysread>. -+ -+=item readdir -+ -+This is identical to Perl's builtin C<readdir()> function -+for reading directory entries, see L<perlfunc/readdir>. -+ -+=item realloc -+ -+realloc() is C-specific. Perl does memory management transparently. -+ -+=item remove -+ -+This is identical to Perl's builtin C<unlink()> function -+for removing files, see L<perlfunc/unlink>. -+ -+=item rename -+ -+This is identical to Perl's builtin C<rename()> function -+for renaming files, see L<perlfunc/rename>. -+ -+=item rewind -+ -+Seeks to the beginning of the file. -+ -+=item rewinddir -+ -+This is identical to Perl's builtin C<rewinddir()> function for -+rewinding directory entry streams, see L<perlfunc/rewinddir>. -+ -+=item rmdir -+ -+This is identical to Perl's builtin C<rmdir()> function -+for removing (empty) directories, see L<perlfunc/rmdir>. -+ -+=item scanf -+ -+scanf() is C-specific, use E<lt>E<gt> and regular expressions instead, -+see L<perlre>. -+ -+=item setgid -+ -+Sets the real group identifier and the effective group identifier for -+this process. Similar to assigning a value to the Perl's builtin -+C<$)> variable, see L<perlvar/$EGID>, except that the latter -+will change only the real user identifier, and that the setgid() -+uses only a single numeric argument, as opposed to a space-separated -+list of numbers. -+ -+=item setjmp -+ -+C<setjmp()> is C-specific: use C<eval {}> instead, -+see L<perlfunc/eval>. -+ -+=item setlocale -+ -+Modifies and queries program's locale. The following examples assume -+ -+ use POSIX qw(setlocale LC_ALL LC_CTYPE); -+ -+has been issued. -+ -+The following will set the traditional UNIX system locale behavior -+(the second argument C<"C">). -+ -+ $loc = setlocale( LC_ALL, "C" ); -+ -+The following will query the current LC_CTYPE category. (No second -+argument means 'query'.) -+ -+ $loc = setlocale( LC_CTYPE ); -+ -+The following will set the LC_CTYPE behaviour according to the locale -+environment variables (the second argument C<"">). -+Please see your systems C<setlocale(3)> documentation for the locale -+environment variables' meaning or consult L<perllocale>. -+ -+ $loc = setlocale( LC_CTYPE, "" ); -+ -+The following will set the LC_COLLATE behaviour to Argentinian -+Spanish. B<NOTE>: The naming and availability of locales depends on -+your operating system. Please consult L<perllocale> for how to find -+out which locales are available in your system. -+ -+ $loc = setlocale( LC_COLLATE, "es_AR.ISO8859-1" ); -+ -+=item setpgid -+ -+This is similar to the C function C<setpgid()> for -+setting the process group identifier of the current process. -+ -+Returns C<undef> on failure. -+ -+=item setsid -+ -+This is identical to the C function C<setsid()> for -+setting the session identifier of the current process. -+ -+=item setuid -+ -+Sets the real user identifier and the effective user identifier for -+this process. Similar to assigning a value to the Perl's builtin -+C<$E<lt>> variable, see L<perlvar/$UID>, except that the latter -+will change only the real user identifier. -+ -+=item sigaction -+ -+Detailed signal management. This uses C<POSIX::SigAction> objects for -+the C<action> and C<oldaction> arguments (the oldaction can also be -+just a hash reference). Consult your system's C<sigaction> manpage -+for details, see also C<POSIX::SigRt>. -+ -+Synopsis: -+ -+ sigaction(signal, action, oldaction = 0) -+ -+Returns C<undef> on failure. The C<signal> must be a number (like -+SIGHUP), not a string (like "SIGHUP"), though Perl does try hard -+to understand you. -+ -+If you use the SA_SIGINFO flag, the signal handler will in addition to -+the first argument, the signal name, also receive a second argument, a -+hash reference, inside which are the following keys with the following -+semantics, as defined by POSIX/SUSv3: -+ -+ signo the signal number -+ errno the error number -+ code if this is zero or less, the signal was sent by -+ a user process and the uid and pid make sense, -+ otherwise the signal was sent by the kernel -+ -+The following are also defined by POSIX/SUSv3, but unfortunately -+not very widely implemented: -+ -+ pid the process id generating the signal -+ uid the uid of the process id generating the signal -+ status exit value or signal for SIGCHLD -+ band band event for SIGPOLL -+ -+A third argument is also passed to the handler, which contains a copy -+of the raw binary contents of the siginfo structure: if a system has -+some non-POSIX fields, this third argument is where to unpack() them -+from. -+ -+Note that not all siginfo values make sense simultaneously (some are -+valid only for certain signals, for example), and not all values make -+sense from Perl perspective, you should to consult your system's -+C<sigaction> and possibly also C<siginfo> documentation. -+ -+=item siglongjmp -+ -+siglongjmp() is C-specific: use L<perlfunc/die> instead. -+ -+=item sigpending -+ -+Examine signals that are blocked and pending. This uses C<POSIX::SigSet> -+objects for the C<sigset> argument. Consult your system's C<sigpending> -+manpage for details. -+ -+Synopsis: -+ -+ sigpending(sigset) -+ -+Returns C<undef> on failure. -+ -+=item sigprocmask -+ -+Change and/or examine calling process's signal mask. This uses -+C<POSIX::SigSet> objects for the C<sigset> and C<oldsigset> arguments. -+Consult your system's C<sigprocmask> manpage for details. -+ -+Synopsis: -+ -+ sigprocmask(how, sigset, oldsigset = 0) -+ -+Returns C<undef> on failure. -+ -+=item sigsetjmp -+ -+C<sigsetjmp()> is C-specific: use C<eval {}> instead, -+see L<perlfunc/eval>. -+ -+=item sigsuspend -+ -+Install a signal mask and suspend process until signal arrives. This uses -+C<POSIX::SigSet> objects for the C<signal_mask> argument. Consult your -+system's C<sigsuspend> manpage for details. -+ -+Synopsis: -+ -+ sigsuspend(signal_mask) -+ -+Returns C<undef> on failure. -+ -+=item sin -+ -+This is identical to Perl's builtin C<sin()> function -+for returning the sine of the numerical argument, -+see L<perlfunc/sin>. See also L<Math::Trig>. -+ -+=item sinh -+ -+This is identical to the C function C<sinh()> -+for returning the hyperbolic sine of the numerical argument. -+See also L<Math::Trig>. -+ -+=item sleep -+ -+This is functionally identical to Perl's builtin C<sleep()> function -+for suspending the execution of the current for process for certain -+number of seconds, see L<perlfunc/sleep>. There is one significant -+difference, however: C<POSIX::sleep()> returns the number of -+B<unslept> seconds, while the C<CORE::sleep()> returns the -+number of slept seconds. -+ -+=item sprintf -+ -+This is similar to Perl's builtin C<sprintf()> function -+for returning a string that has the arguments formatted as requested, -+see L<perlfunc/sprintf>. -+ -+=item sqrt -+ -+This is identical to Perl's builtin C<sqrt()> function. -+for returning the square root of the numerical argument, -+see L<perlfunc/sqrt>. -+ -+=item srand -+ -+Give a seed the pseudorandom number generator, see L<perlfunc/srand>. -+ -+=item sscanf -+ -+sscanf() is C-specific, use regular expressions instead, -+see L<perlre>. -+ -+=item stat -+ -+This is identical to Perl's builtin C<stat()> function -+for returning information about files and directories. -+ -+=item strcat -+ -+strcat() is C-specific, use C<.=> instead, see L<perlop>. -+ -+=item strchr -+ -+strchr() is C-specific, see L<perlfunc/index> instead. -+ -+=item strcmp -+ -+strcmp() is C-specific, use C<eq> or C<cmp> instead, see L<perlop>. -+ -+=item strcoll -+ -+This is identical to the C function C<strcoll()> -+for collating (comparing) strings transformed using -+the C<strxfrm()> function. Not really needed since -+Perl can do this transparently, see L<perllocale>. -+ -+=item strcpy -+ -+strcpy() is C-specific, use C<=> instead, see L<perlop>. -+ -+=item strcspn -+ -+strcspn() is C-specific, use regular expressions instead, -+see L<perlre>. -+ -+=item strerror -+ -+Returns the error string for the specified errno. -+Identical to the string form of the C<$!>, see L<perlvar/$ERRNO>. -+ -+=item strftime -+ -+Convert date and time information to string. Returns the string. -+ -+Synopsis: -+ -+ strftime(fmt, sec, min, hour, mday, mon, year, wday = -1, yday = -1, isdst = -1) -+ -+The month (C<mon>), weekday (C<wday>), and yearday (C<yday>) begin at zero. -+I.e. January is 0, not 1; Sunday is 0, not 1; January 1st is 0, not 1. The -+year (C<year>) is given in years since 1900. I.e., the year 1995 is 95; the -+year 2001 is 101. Consult your system's C<strftime()> manpage for details -+about these and the other arguments. -+ -+If you want your code to be portable, your format (C<fmt>) argument -+should use only the conversion specifiers defined by the ANSI C -+standard (C89, to play safe). These are C<aAbBcdHIjmMpSUwWxXyYZ%>. -+But even then, the B<results> of some of the conversion specifiers are -+non-portable. For example, the specifiers C<aAbBcpZ> change according -+to the locale settings of the user, and both how to set locales (the -+locale names) and what output to expect are non-standard. -+The specifier C<c> changes according to the timezone settings of the -+user and the timezone computation rules of the operating system. -+The C<Z> specifier is notoriously unportable since the names of -+timezones are non-standard. Sticking to the numeric specifiers is the -+safest route. -+ -+The given arguments are made consistent as though by calling -+C<mktime()> before calling your system's C<strftime()> function, -+except that the C<isdst> value is not affected. -+ -+The string for Tuesday, December 12, 1995. -+ -+ $str = POSIX::strftime( "%A, %B %d, %Y", 0, 0, 0, 12, 11, 95, 2 ); -+ print "$str\n"; -+ -+=item strlen -+ -+strlen() is C-specific, use C<length()> instead, see L<perlfunc/length>. -+ -+=item strncat -+ -+strncat() is C-specific, use C<.=> instead, see L<perlop>. -+ -+=item strncmp -+ -+strncmp() is C-specific, use C<eq> instead, see L<perlop>. -+ -+=item strncpy -+ -+strncpy() is C-specific, use C<=> instead, see L<perlop>. -+ -+=item strpbrk -+ -+strpbrk() is C-specific, use regular expressions instead, -+see L<perlre>. -+ -+=item strrchr -+ -+strrchr() is C-specific, see L<perlfunc/rindex> instead. -+ -+=item strspn -+ -+strspn() is C-specific, use regular expressions instead, -+see L<perlre>. -+ -+=item strstr -+ -+This is identical to Perl's builtin C<index()> function, -+see L<perlfunc/index>. -+ -+=item strtod -+ -+String to double translation. Returns the parsed number and the number -+of characters in the unparsed portion of the string. Truly -+POSIX-compliant systems set $! ($ERRNO) to indicate a translation -+error, so clear $! before calling strtod. However, non-POSIX systems -+may not check for overflow, and therefore will never set $!. -+ -+strtod should respect any POSIX I<setlocale()> settings. -+ -+To parse a string $str as a floating point number use -+ -+ $! = 0; -+ ($num, $n_unparsed) = POSIX::strtod($str); -+ -+The second returned item and $! can be used to check for valid input: -+ -+ if (($str eq '') || ($n_unparsed != 0) || $!) { -+ die "Non-numeric input $str" . ($! ? ": $!\n" : "\n"); -+ } -+ -+When called in a scalar context strtod returns the parsed number. -+ -+=item strtok -+ -+strtok() is C-specific, use regular expressions instead, see -+L<perlre>, or L<perlfunc/split>. -+ -+=item strtol -+ -+String to (long) integer translation. Returns the parsed number and -+the number of characters in the unparsed portion of the string. Truly -+POSIX-compliant systems set $! ($ERRNO) to indicate a translation -+error, so clear $! before calling strtol. However, non-POSIX systems -+may not check for overflow, and therefore will never set $!. -+ -+strtol should respect any POSIX I<setlocale()> settings. -+ -+To parse a string $str as a number in some base $base use -+ -+ $! = 0; -+ ($num, $n_unparsed) = POSIX::strtol($str, $base); -+ -+The base should be zero or between 2 and 36, inclusive. When the base -+is zero or omitted strtol will use the string itself to determine the -+base: a leading "0x" or "0X" means hexadecimal; a leading "0" means -+octal; any other leading characters mean decimal. Thus, "1234" is -+parsed as a decimal number, "01234" as an octal number, and "0x1234" -+as a hexadecimal number. -+ -+The second returned item and $! can be used to check for valid input: -+ -+ if (($str eq '') || ($n_unparsed != 0) || !$!) { -+ die "Non-numeric input $str" . $! ? ": $!\n" : "\n"; -+ } -+ -+When called in a scalar context strtol returns the parsed number. -+ -+=item strtoul -+ -+String to unsigned (long) integer translation. strtoul() is identical -+to strtol() except that strtoul() only parses unsigned integers. See -+L</strtol> for details. -+ -+Note: Some vendors supply strtod() and strtol() but not strtoul(). -+Other vendors that do supply strtoul() parse "-1" as a valid value. -+ -+=item strxfrm -+ -+String transformation. Returns the transformed string. -+ -+ $dst = POSIX::strxfrm( $src ); -+ -+Used in conjunction with the C<strcoll()> function, see L</strcoll>. -+ -+Not really needed since Perl can do this transparently, see -+L<perllocale>. -+ -+=item sysconf -+ -+Retrieves values of system configurable variables. -+ -+The following will get the machine's clock speed. -+ -+ $clock_ticks = POSIX::sysconf( &POSIX::_SC_CLK_TCK ); -+ -+Returns C<undef> on failure. -+ -+=item system -+ -+This is identical to Perl's builtin C<system()> function, see -+L<perlfunc/system>. -+ -+=item tan -+ -+This is identical to the C function C<tan()>, returning the -+tangent of the numerical argument. See also L<Math::Trig>. -+ -+=item tanh -+ -+This is identical to the C function C<tanh()>, returning the -+hyperbolic tangent of the numerical argument. See also L<Math::Trig>. -+ -+=item tcdrain -+ -+This is similar to the C function C<tcdrain()> for draining -+the output queue of its argument stream. -+ -+Returns C<undef> on failure. -+ -+=item tcflow -+ -+This is similar to the C function C<tcflow()> for controlling -+the flow of its argument stream. -+ -+Returns C<undef> on failure. -+ -+=item tcflush -+ -+This is similar to the C function C<tcflush()> for flushing -+the I/O buffers of its argument stream. -+ -+Returns C<undef> on failure. -+ -+=item tcgetpgrp -+ -+This is identical to the C function C<tcgetpgrp()> for returning the -+process group identifier of the foreground process group of the controlling -+terminal. -+ -+=item tcsendbreak -+ -+This is similar to the C function C<tcsendbreak()> for sending -+a break on its argument stream. -+ -+Returns C<undef> on failure. -+ -+=item tcsetpgrp -+ -+This is similar to the C function C<tcsetpgrp()> for setting the -+process group identifier of the foreground process group of the controlling -+terminal. -+ -+Returns C<undef> on failure. -+ -+=item time -+ -+This is identical to Perl's builtin C<time()> function -+for returning the number of seconds since the epoch -+(whatever it is for the system), see L<perlfunc/time>. -+ -+=item times -+ -+The times() function returns elapsed realtime since some point in the past -+(such as system startup), user and system times for this process, and user -+and system times used by child processes. All times are returned in clock -+ticks. -+ -+ ($realtime, $user, $system, $cuser, $csystem) = POSIX::times(); -+ -+Note: Perl's builtin C<times()> function returns four values, measured in -+seconds. -+ -+=item tmpfile -+ -+Use method C<IO::File::new_tmpfile()> instead, or see L<File::Temp>. -+ -+=item tmpnam -+ -+Returns a name for a temporary file. -+ -+ $tmpfile = POSIX::tmpnam(); -+ -+For security reasons, which are probably detailed in your system's -+documentation for the C library tmpnam() function, this interface -+should not be used; instead see L<File::Temp>. -+ -+=item tolower -+ -+This is identical to the C function, except that it can apply to a single -+character or to a whole string. Consider using the C<lc()> function, -+see L<perlfunc/lc>, or the equivalent C<\L> operator inside doublequotish -+strings. -+ -+=item toupper -+ -+This is identical to the C function, except that it can apply to a single -+character or to a whole string. Consider using the C<uc()> function, -+see L<perlfunc/uc>, or the equivalent C<\U> operator inside doublequotish -+strings. -+ -+=item ttyname -+ -+This is identical to the C function C<ttyname()> for returning the -+name of the current terminal. -+ -+=item tzname -+ -+Retrieves the time conversion information from the C<tzname> variable. -+ -+ POSIX::tzset(); -+ ($std, $dst) = POSIX::tzname(); -+ -+=item tzset -+ -+This is identical to the C function C<tzset()> for setting -+the current timezone based on the environment variable C<TZ>, -+to be used by C<ctime()>, C<localtime()>, C<mktime()>, and C<strftime()> -+functions. -+ -+=item umask -+ -+This is identical to Perl's builtin C<umask()> function -+for setting (and querying) the file creation permission mask, -+see L<perlfunc/umask>. -+ -+=item uname -+ -+Get name of current operating system. -+ -+ ($sysname, $nodename, $release, $version, $machine) = POSIX::uname(); -+ -+Note that the actual meanings of the various fields are not -+that well standardized, do not expect any great portability. -+The C<$sysname> might be the name of the operating system, -+the C<$nodename> might be the name of the host, the C<$release> -+might be the (major) release number of the operating system, -+the C<$version> might be the (minor) release number of the -+operating system, and the C<$machine> might be a hardware identifier. -+Maybe. -+ -+=item ungetc -+ -+Use method C<IO::Handle::ungetc()> instead. -+ -+=item unlink -+ -+This is identical to Perl's builtin C<unlink()> function -+for removing files, see L<perlfunc/unlink>. -+ -+=item utime -+ -+This is identical to Perl's builtin C<utime()> function -+for changing the time stamps of files and directories, -+see L<perlfunc/utime>. -+ -+=item vfprintf -+ -+vfprintf() is C-specific, see L<perlfunc/printf> instead. -+ -+=item vprintf -+ -+vprintf() is C-specific, see L<perlfunc/printf> instead. -+ -+=item vsprintf -+ -+vsprintf() is C-specific, see L<perlfunc/sprintf> instead. -+ -+=item wait -+ -+This is identical to Perl's builtin C<wait()> function, -+see L<perlfunc/wait>. -+ -+=item waitpid -+ -+Wait for a child process to change state. This is identical to Perl's -+builtin C<waitpid()> function, see L<perlfunc/waitpid>. -+ -+ $pid = POSIX::waitpid( -1, POSIX::WNOHANG ); -+ print "status = ", ($? / 256), "\n"; -+ -+=item wcstombs -+ -+This is identical to the C function C<wcstombs()>. -+Perl does not have any support for the wide and multibyte -+characters of the C standards, so this might be a rather -+useless function. -+ -+=item wctomb -+ -+This is identical to the C function C<wctomb()>. -+Perl does not have any support for the wide and multibyte -+characters of the C standards, so this might be a rather -+useless function. -+ -+=item write -+ -+Write to a file. This uses file descriptors such as those obtained by -+calling C<POSIX::open>. -+ -+ $fd = POSIX::open( "foo", &POSIX::O_WRONLY ); -+ $buf = "hello"; -+ $bytes = POSIX::write( $fd, $buf, 5 ); -+ -+Returns C<undef> on failure. -+ -+See also L<perlfunc/syswrite>. -+ -+=back -+ -+=head1 CLASSES -+ -+=head2 POSIX::SigAction -+ -+=over 8 -+ -+=item new -+ -+Creates a new C<POSIX::SigAction> object which corresponds to the C -+C<struct sigaction>. This object will be destroyed automatically when -+it is no longer needed. The first parameter is the handler, a sub -+reference. The second parameter is a C<POSIX::SigSet> object, it -+defaults to the empty set. The third parameter contains the -+C<sa_flags>, it defaults to 0. -+ -+ $sigset = POSIX::SigSet->new(SIGINT, SIGQUIT); -+ $sigaction = POSIX::SigAction->new( \&handler, $sigset, &POSIX::SA_NOCLDSTOP ); -+ -+This C<POSIX::SigAction> object is intended for use with the C<POSIX::sigaction()> -+function. -+ -+=back -+ -+=over 8 -+ -+=item handler -+ -+=item mask -+ -+=item flags -+ -+accessor functions to get/set the values of a SigAction object. -+ -+ $sigset = $sigaction->mask; -+ $sigaction->flags(&POSIX::SA_RESTART); -+ -+=item safe -+ -+accessor function for the "safe signals" flag of a SigAction object; see -+L<perlipc> for general information on safe (a.k.a. "deferred") signals. If -+you wish to handle a signal safely, use this accessor to set the "safe" flag -+in the C<POSIX::SigAction> object: -+ -+ $sigaction->safe(1); -+ -+You may also examine the "safe" flag on the output action object which is -+filled in when given as the third parameter to C<POSIX::sigaction()>: -+ -+ sigaction(SIGINT, $new_action, $old_action); -+ if ($old_action->safe) { -+ # previous SIGINT handler used safe signals -+ } -+ -+=back -+ -+=head2 POSIX::SigRt -+ -+=over 8 -+ -+=item %SIGRT -+ -+A hash of the POSIX realtime signal handlers. It is an extension of -+the standard %SIG, the $POSIX::SIGRT{SIGRTMIN} is roughly equivalent -+to $SIG{SIGRTMIN}, but the right POSIX moves (see below) are made with -+the POSIX::SigSet and POSIX::sigaction instead of accessing the %SIG. -+ -+You can set the %POSIX::SIGRT elements to set the POSIX realtime -+signal handlers, use C<delete> and C<exists> on the elements, and use -+C<scalar> on the C<%POSIX::SIGRT> to find out how many POSIX realtime -+signals there are available (SIGRTMAX - SIGRTMIN + 1, the SIGRTMAX is -+a valid POSIX realtime signal). -+ -+Setting the %SIGRT elements is equivalent to calling this: -+ -+ sub new { -+ my ($rtsig, $handler, $flags) = @_; -+ my $sigset = POSIX::SigSet($rtsig); -+ my $sigact = POSIX::SigAction->new($handler, $sigset, $flags); -+ sigaction($rtsig, $sigact); -+ } -+ -+The flags default to zero, if you want something different you can -+either use C<local> on $POSIX::SigRt::SIGACTION_FLAGS, or you can -+derive from POSIX::SigRt and define your own C<new()> (the tied hash -+STORE method of the %SIGRT calls C<new($rtsig, $handler, $SIGACTION_FLAGS)>, -+where the $rtsig ranges from zero to SIGRTMAX - SIGRTMIN + 1). -+ -+Just as with any signal, you can use sigaction($rtsig, undef, $oa) to -+retrieve the installed signal handler (or, rather, the signal action). -+ -+B<NOTE:> whether POSIX realtime signals really work in your system, or -+whether Perl has been compiled so that it works with them, is outside -+of this discussion. -+ -+=item SIGRTMIN -+ -+Return the minimum POSIX realtime signal number available, or C<undef> -+if no POSIX realtime signals are available. -+ -+=item SIGRTMAX -+ -+Return the maximum POSIX realtime signal number available, or C<undef> -+if no POSIX realtime signals are available. -+ -+=back -+ -+=head2 POSIX::SigSet -+ -+=over 8 -+ -+=item new -+ -+Create a new SigSet object. This object will be destroyed automatically -+when it is no longer needed. Arguments may be supplied to initialize the -+set. -+ -+Create an empty set. -+ -+ $sigset = POSIX::SigSet->new; -+ -+Create a set with SIGUSR1. -+ -+ $sigset = POSIX::SigSet->new( &POSIX::SIGUSR1 ); -+ -+=item addset -+ -+Add a signal to a SigSet object. -+ -+ $sigset->addset( &POSIX::SIGUSR2 ); -+ -+Returns C<undef> on failure. -+ -+=item delset -+ -+Remove a signal from the SigSet object. -+ -+ $sigset->delset( &POSIX::SIGUSR2 ); -+ -+Returns C<undef> on failure. -+ -+=item emptyset -+ -+Initialize the SigSet object to be empty. -+ -+ $sigset->emptyset(); -+ -+Returns C<undef> on failure. -+ -+=item fillset -+ -+Initialize the SigSet object to include all signals. -+ -+ $sigset->fillset(); -+ -+Returns C<undef> on failure. -+ -+=item ismember -+ -+Tests the SigSet object to see if it contains a specific signal. -+ -+ if( $sigset->ismember( &POSIX::SIGUSR1 ) ){ -+ print "contains SIGUSR1\n"; -+ } -+ -+=back -+ -+=head2 POSIX::Termios -+ -+=over 8 -+ -+=item new -+ -+Create a new Termios object. This object will be destroyed automatically -+when it is no longer needed. A Termios object corresponds to the termios -+C struct. new() mallocs a new one, getattr() fills it from a file descriptor, -+and setattr() sets a file descriptor's parameters to match Termios' contents. -+ -+ $termios = POSIX::Termios->new; -+ -+=item getattr -+ -+Get terminal control attributes. -+ -+Obtain the attributes for stdin. -+ -+ $termios->getattr( 0 ) # Recommended for clarity. -+ $termios->getattr() -+ -+Obtain the attributes for stdout. -+ -+ $termios->getattr( 1 ) -+ -+Returns C<undef> on failure. -+ -+=item getcc -+ -+Retrieve a value from the c_cc field of a termios object. The c_cc field is -+an array so an index must be specified. -+ -+ $c_cc[1] = $termios->getcc(1); -+ -+=item getcflag -+ -+Retrieve the c_cflag field of a termios object. -+ -+ $c_cflag = $termios->getcflag; -+ -+=item getiflag -+ -+Retrieve the c_iflag field of a termios object. -+ -+ $c_iflag = $termios->getiflag; -+ -+=item getispeed -+ -+Retrieve the input baud rate. -+ -+ $ispeed = $termios->getispeed; -+ -+=item getlflag -+ -+Retrieve the c_lflag field of a termios object. -+ -+ $c_lflag = $termios->getlflag; -+ -+=item getoflag -+ -+Retrieve the c_oflag field of a termios object. -+ -+ $c_oflag = $termios->getoflag; -+ -+=item getospeed -+ -+Retrieve the output baud rate. -+ -+ $ospeed = $termios->getospeed; -+ -+=item setattr -+ -+Set terminal control attributes. -+ -+Set attributes immediately for stdout. -+ -+ $termios->setattr( 1, &POSIX::TCSANOW ); -+ -+Returns C<undef> on failure. -+ -+=item setcc -+ -+Set a value in the c_cc field of a termios object. The c_cc field is an -+array so an index must be specified. -+ -+ $termios->setcc( &POSIX::VEOF, 1 ); -+ -+=item setcflag -+ -+Set the c_cflag field of a termios object. -+ -+ $termios->setcflag( $c_cflag | &POSIX::CLOCAL ); -+ -+=item setiflag -+ -+Set the c_iflag field of a termios object. -+ -+ $termios->setiflag( $c_iflag | &POSIX::BRKINT ); -+ -+=item setispeed -+ -+Set the input baud rate. -+ -+ $termios->setispeed( &POSIX::B9600 ); -+ -+Returns C<undef> on failure. -+ -+=item setlflag -+ -+Set the c_lflag field of a termios object. -+ -+ $termios->setlflag( $c_lflag | &POSIX::ECHO ); -+ -+=item setoflag -+ -+Set the c_oflag field of a termios object. -+ -+ $termios->setoflag( $c_oflag | &POSIX::OPOST ); -+ -+=item setospeed -+ -+Set the output baud rate. -+ -+ $termios->setospeed( &POSIX::B9600 ); -+ -+Returns C<undef> on failure. -+ -+=item Baud rate values -+ -+B38400 B75 B200 B134 B300 B1800 B150 B0 B19200 B1200 B9600 B600 B4800 B50 B2400 B110 -+ -+=item Terminal interface values -+ -+TCSADRAIN TCSANOW TCOON TCIOFLUSH TCOFLUSH TCION TCIFLUSH TCSAFLUSH TCIOFF TCOOFF -+ -+=item c_cc field values -+ -+VEOF VEOL VERASE VINTR VKILL VQUIT VSUSP VSTART VSTOP VMIN VTIME NCCS -+ -+=item c_cflag field values -+ -+CLOCAL CREAD CSIZE CS5 CS6 CS7 CS8 CSTOPB HUPCL PARENB PARODD -+ -+=item c_iflag field values -+ -+BRKINT ICRNL IGNBRK IGNCR IGNPAR INLCR INPCK ISTRIP IXOFF IXON PARMRK -+ -+=item c_lflag field values -+ -+ECHO ECHOE ECHOK ECHONL ICANON IEXTEN ISIG NOFLSH TOSTOP -+ -+=item c_oflag field values -+ -+OPOST -+ -+=back -+ -+=head1 PATHNAME CONSTANTS -+ -+=over 8 -+ -+=item Constants -+ -+_PC_CHOWN_RESTRICTED _PC_LINK_MAX _PC_MAX_CANON _PC_MAX_INPUT _PC_NAME_MAX _PC_NO_TRUNC _PC_PATH_MAX _PC_PIPE_BUF _PC_VDISABLE -+ -+=back -+ -+=head1 POSIX CONSTANTS -+ -+=over 8 -+ -+=item Constants -+ -+_POSIX_ARG_MAX _POSIX_CHILD_MAX _POSIX_CHOWN_RESTRICTED _POSIX_JOB_CONTROL _POSIX_LINK_MAX _POSIX_MAX_CANON _POSIX_MAX_INPUT _POSIX_NAME_MAX _POSIX_NGROUPS_MAX _POSIX_NO_TRUNC _POSIX_OPEN_MAX _POSIX_PATH_MAX _POSIX_PIPE_BUF _POSIX_SAVED_IDS _POSIX_SSIZE_MAX _POSIX_STREAM_MAX _POSIX_TZNAME_MAX _POSIX_VDISABLE _POSIX_VERSION -+ -+=back -+ -+=head1 SYSTEM CONFIGURATION -+ -+=over 8 -+ -+=item Constants -+ -+_SC_ARG_MAX _SC_CHILD_MAX _SC_CLK_TCK _SC_JOB_CONTROL _SC_NGROUPS_MAX _SC_OPEN_MAX _SC_PAGESIZE _SC_SAVED_IDS _SC_STREAM_MAX _SC_TZNAME_MAX _SC_VERSION -+ -+=back -+ -+=head1 ERRNO -+ -+=over 8 -+ -+=item Constants -+ -+E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT EAGAIN EALREADY EBADF -+EBUSY ECHILD ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ -+EDOM EDQUOT EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH EINPROGRESS EINTR -+EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK EMSGSIZE ENAMETOOLONG -+ENETDOWN ENETRESET ENETUNREACH ENFILE ENOBUFS ENODEV ENOENT ENOEXEC -+ENOLCK ENOMEM ENOPROTOOPT ENOSPC ENOSYS ENOTBLK ENOTCONN ENOTDIR -+ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM EPFNOSUPPORT EPIPE -+EPROCLIM EPROTONOSUPPORT EPROTOTYPE ERANGE EREMOTE ERESTART EROFS -+ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESTALE ETIMEDOUT ETOOMANYREFS -+ETXTBSY EUSERS EWOULDBLOCK EXDEV -+ -+=back -+ -+=head1 FCNTL -+ -+=over 8 -+ -+=item Constants -+ -+FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_OK F_RDLCK F_SETFD F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK O_ACCMODE O_APPEND O_CREAT O_EXCL O_NOCTTY O_NONBLOCK O_RDONLY O_RDWR O_TRUNC O_WRONLY -+ -+=back -+ -+=head1 FLOAT -+ -+=over 8 -+ -+=item Constants -+ -+DBL_DIG DBL_EPSILON DBL_MANT_DIG DBL_MAX DBL_MAX_10_EXP DBL_MAX_EXP DBL_MIN DBL_MIN_10_EXP DBL_MIN_EXP FLT_DIG FLT_EPSILON FLT_MANT_DIG FLT_MAX FLT_MAX_10_EXP FLT_MAX_EXP FLT_MIN FLT_MIN_10_EXP FLT_MIN_EXP FLT_RADIX FLT_ROUNDS LDBL_DIG LDBL_EPSILON LDBL_MANT_DIG LDBL_MAX LDBL_MAX_10_EXP LDBL_MAX_EXP LDBL_MIN LDBL_MIN_10_EXP LDBL_MIN_EXP -+ -+=back -+ -+=head1 LIMITS -+ -+=over 8 -+ -+=item Constants -+ -+ARG_MAX CHAR_BIT CHAR_MAX CHAR_MIN CHILD_MAX INT_MAX INT_MIN LINK_MAX LONG_MAX LONG_MIN MAX_CANON MAX_INPUT MB_LEN_MAX NAME_MAX NGROUPS_MAX OPEN_MAX PATH_MAX PIPE_BUF SCHAR_MAX SCHAR_MIN SHRT_MAX SHRT_MIN SSIZE_MAX STREAM_MAX TZNAME_MAX UCHAR_MAX UINT_MAX ULONG_MAX USHRT_MAX -+ -+=back -+ -+=head1 LOCALE -+ -+=over 8 -+ -+=item Constants -+ -+LC_ALL LC_COLLATE LC_CTYPE LC_MONETARY LC_NUMERIC LC_TIME -+ -+=back -+ -+=head1 MATH -+ -+=over 8 -+ -+=item Constants -+ -+HUGE_VAL -+ -+=back -+ -+=head1 SIGNAL -+ -+=over 8 -+ -+=item Constants -+ -+SA_NOCLDSTOP SA_NOCLDWAIT SA_NODEFER SA_ONSTACK SA_RESETHAND SA_RESTART -+SA_SIGINFO SIGABRT SIGALRM SIGCHLD SIGCONT SIGFPE SIGHUP SIGILL SIGINT -+SIGKILL SIGPIPE SIGQUIT SIGSEGV SIGSTOP SIGTERM SIGTSTP SIGTTIN SIGTTOU -+SIGUSR1 SIGUSR2 SIG_BLOCK SIG_DFL SIG_ERR SIG_IGN SIG_SETMASK -+SIG_UNBLOCK -+ -+=back -+ -+=head1 STAT -+ -+=over 8 -+ -+=item Constants -+ -+S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU S_ISGID S_ISUID S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR -+ -+=item Macros -+ -+S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISREG -+ -+=back -+ -+=head1 STDLIB -+ -+=over 8 -+ -+=item Constants -+ -+EXIT_FAILURE EXIT_SUCCESS MB_CUR_MAX RAND_MAX -+ -+=back -+ -+=head1 STDIO -+ -+=over 8 -+ -+=item Constants -+ -+BUFSIZ EOF FILENAME_MAX L_ctermid L_cuserid L_tmpname TMP_MAX -+ -+=back -+ -+=head1 TIME -+ -+=over 8 -+ -+=item Constants -+ -+CLK_TCK CLOCKS_PER_SEC -+ -+=back -+ -+=head1 UNISTD -+ -+=over 8 -+ -+=item Constants -+ -+R_OK SEEK_CUR SEEK_END SEEK_SET STDIN_FILENO STDOUT_FILENO STDERR_FILENO W_OK X_OK -+ -+=back -+ -+=head1 WAIT -+ -+=over 8 -+ -+=item Constants -+ -+WNOHANG WUNTRACED -+ -+=over 16 -+ -+=item WNOHANG -+ -+Do not suspend the calling process until a child process -+changes state but instead return immediately. -+ -+=item WUNTRACED -+ -+Catch stopped child processes. -+ -+=back -+ -+=item Macros -+ -+WIFEXITED WEXITSTATUS WIFSIGNALED WTERMSIG WIFSTOPPED WSTOPSIG -+ -+=over 16 -+ -+=item WIFEXITED -+ -+WIFEXITED($?) returns true if the child process exited normally -+(C<exit()> or by falling off the end of C<main()>) -+ -+=item WEXITSTATUS -+ -+WEXITSTATUS($?) returns the normal exit status of the child process -+(only meaningful if WIFEXITED($?) is true) -+ -+=item WIFSIGNALED -+ -+WIFSIGNALED($?) returns true if the child process terminated because -+of a signal -+ -+=item WTERMSIG -+ -+WTERMSIG($?) returns the signal the child process terminated for -+(only meaningful if WIFSIGNALED($?) is true) -+ -+=item WIFSTOPPED -+ -+WIFSTOPPED($?) returns true if the child process is currently stopped -+(can happen only if you specified the WUNTRACED flag to waitpid()) -+ -+=item WSTOPSIG -+ -+WSTOPSIG($?) returns the signal the child process was stopped for -+(only meaningful if WIFSTOPPED($?) is true) -+ -+=back -+ -+=back -+ diff --git a/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_4.patch b/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_4.patch deleted file mode 100644 index 98bf0743fb..0000000000 --- a/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_4.patch +++ /dev/null @@ -1,57 +0,0 @@ -Upstream-Status:Inappropriate [Backport] - -commit 43c0c913165d6abe1bc0cb45a784eb1c32c3700b -Author: Nicholas Clark <nick@ccl4.org> -Date: Mon Feb 14 09:06:42 2011 +0000 - - For miniperl, use the USE_SITECUSTOMIZE feature to load the build-time @INC - - For miniperl (only), always enable USE_SITECUSTOMIZE, but change it to load - a buildcustomize.pl file from $INC[0], if present. The default @INC for - miniperl is '.', so by default this does nothing. - -diff --git a/perl.c b/perl.c -index 8f8565d..6bb9f46 100644 ---- a/perl.c -+++ b/perl.c -@@ -24,6 +24,10 @@ - * function of the interpreter; that can be found in perlmain.c - */ - -+#ifdef PERL_IS_MINIPERL -+# define USE_SITECUSTOMIZE -+#endif -+ - #include "EXTERN.h" - #define PERL_IN_PERL_C - #include "perl.h" -@@ -1973,15 +1977,26 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) - } - } - --#if defined(USE_SITECUSTOMIZE) && !defined(PERL_IS_MINIPERL) -+#if defined(USE_SITECUSTOMIZE) - if (!minus_f) { -- /* SITELIB_EXP is a function call on Win32. -- The games with local $! are to avoid setting errno if there is no -+ /* The games with local $! are to avoid setting errno if there is no - sitecustomize script. */ -+# ifdef PERL_IS_MINIPERL -+ AV *const inc = GvAV(PL_incgv); -+ SV **const inc0 = inc ? av_fetch(inc, 0, FALSE) : NULL; -+ -+ if (inc0) { -+ (void)Perl_av_create_and_unshift_one(aTHX_ &PL_preambleav, -+ Perl_newSVpvf(aTHX_ -+ "BEGIN { do {local $!; -f '%"SVf"/buildcustomize.pl'} && do '%"SVf"/buildcustomize.pl' }", *inc0, *inc0)); -+ } -+# else -+ /* SITELIB_EXP is a function call on Win32. */ - const char *const sitelib = SITELIB_EXP; - (void)Perl_av_create_and_unshift_one(aTHX_ &PL_preambleav, - Perl_newSVpvf(aTHX_ - "BEGIN { do {local $!; -f '%s/sitecustomize.pl'} && do '%s/sitecustomize.pl' }", sitelib, sitelib)); -+# endif - } - #endif - diff --git a/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_5.patch b/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_5.patch deleted file mode 100644 index 5891ee6a93..0000000000 --- a/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_5.patch +++ /dev/null @@ -1,430 +0,0 @@ -Upstream-Status:Inappropriate [Backport] - -Rebased by Nitin A Kamble <nitin.a.kamble@intel.com> on 3/11/2011 - -commit 5e4c4c91bd52a48de59520d5e9b4e3478e49c613 -Author: Nicholas Clark <nick@ccl4.org> -Date: Mon Feb 14 10:14:18 2011 +0000 - - Use a buildcustomize.pl to set @INC in miniperl when building extensions. - - With the build tools now shipped in various subdirectories of cpan/ and dist/ - we need to add several paths to @INC when invoking MakeMaker (etc) to build - extensions. - - The previous approach of using $ENV{PERL5LIB} was fragile, because: - a: It was hitting the length limit for %ENV variables on VMS - b: It was running the risk of race conditions in a parallel build - - ExtUtils::Makemaker "knows" to add -I../..lib, which puts lib at the *front* - of @INC, but if one parallel process happens to copy a module into lib/ - whilst another is searching for it, the second may get a partial read - c: Overwriting $ENV{PERL5LIB} breaks any system where any of the installed - build tools are actually implemented in Perl, if they are relying on - $ENV{PERL5LIB} for setup - - This approach - - a: Doesn't have %ENV length limits - b: Ensures that lib/ is last, so copy targets are always shadowing copy - sources - c: Only affects miniperl, and doesn't touch $ENV{PERL5LIB} - - Approaches that turned out to have fatal flaws: - - 1: Using $ENV{PERL5OPT} with a module fails because ExtUtils::MakeMaker - searches for the build perl without setting lib, and treats the error - caused by a failed -M as "not a valid perl 5 binary" - 2: Refactoring ExtUtils::MakeMaker to *not* use -I for lib, and instead rely - on $ENV{PERL5LIB} [which includes "../../lib"] fails because: - some extensions have subdirectories, and on these EU::MM correctly uses - -I../../../lib, where as $ENV{PERL5LIB} only has space for relative paths, - and only with two levels. - - This approach actually takes advantage of ExtUtils::MakeMaker setting an -I - option correct for the depth of directory being built. - -Index: perl-5.12.3/Cross/Makefile-cross-SH -=================================================================== ---- perl-5.12.3.orig/Cross/Makefile-cross-SH -+++ perl-5.12.3/Cross/Makefile-cross-SH -@@ -324,7 +324,7 @@ $spitshell >>$Makefile <<'!NO!SUBS!' - - CONFIGPM = xlib/$(CROSS_NAME)/Config.pm - --private = preplibrary $(CONFIGPM) $(CROSS_LIB)/Config.pod -+private = preplibrary $(CONFIGPM) $(CROSS_LIB)/Config.pod lib/buildcustomize.pl - - shextract = Makefile cflags config.h makeaperl makedepend \ - makedir myconfig writemain pod/Makefile -@@ -752,6 +752,9 @@ lib/lib.pm: miniperl $(CONFIGPM) - @-rm -f $@ - $(LDLIBPTH) ./miniperl -Ilib -MCross lib/lib_pm.PL - -+lib/buildcustomize.pl: $(MINIPERL_EXE) write_buildcustomize.pl -+ $(MINIPERL) write_buildcustomize.pl >lib/buildcustomize.pl -+ - unidatafiles $(unidatafiles): uni.data - - uni.data: miniperl$(EXE_EXT) $(CONFIGPM) lib/unicore/mktables -@@ -922,16 +925,16 @@ manicheck: FORCE - - - --$(DYNALOADER): preplibrary FORCE -+$(DYNALOADER): lib/buildcustomize.pl preplibrary FORCE - @$(LDLIBPTH) $(RUN) ./miniperl$(EXE_EXT) -Ilib make_ext.pl --cross $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL) LINKTYPE=static $(STATIC_LDFLAGS) - --d_dummy $(dynamic_ext): miniperl$(EXE_EXT) preplibrary makeppport $(DYNALOADER) FORCE -+d_dummy $(dynamic_ext): miniperl$(EXE_EXT) lib/buildcustomize.pl preplibrary makeppport $(DYNALOADER) FORCE - @$(LDLIBPTH) $(RUN) ./miniperl$(EXE_EXT) -Ilib make_ext.pl --cross $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL) LINKTYPE=dynamic - --s_dummy $(static_ext): miniperl$(EXE_EXT) preplibrary makeppport $(DYNALOADER) FORCE -+s_dummy $(static_ext): miniperl$(EXE_EXT) lib/buildcustomize.pl preplibrary makeppport $(DYNALOADER) FORCE - @$(LDLIBPTH) $(RUN) ./miniperl$(EXE_EXT) -Ilib make_ext.pl --cross $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL) LINKTYPE=static $(STATIC_LDFLAGS) - --n_dummy $(nonxs_ext): miniperl$(EXE_EXT) preplibrary $(DYNALOADER) FORCE -+n_dummy $(nonxs_ext): miniperl$(EXE_EXT) lib/buildcustomize.pl preplibrary $(DYNALOADER) FORCE - @$(LDLIBPTH) $(RUN) ./miniperl$(EXE_EXT) -Ilib make_ext.pl --cross $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL) - !NO!SUBS! - -Index: perl-5.12.3/MANIFEST -=================================================================== ---- perl-5.12.3.orig/MANIFEST -+++ perl-5.12.3/MANIFEST -@@ -4747,6 +4747,7 @@ win32/wince.c WinCE port - win32/wince.h WinCE port - win32/wincesck.c WinCE port - writemain.SH Generate perlmain.c from miniperlmain.c+extensions -+write_buildcustomize.pl Generate lib/buildcustomize.pl - x2p/a2p.c Output of a2p.y run through byacc - x2p/a2p.h Global declarations - x2p/a2p.pod Pod for awk to perl translator -Index: perl-5.12.3/Makefile.SH -=================================================================== ---- perl-5.12.3.orig/Makefile.SH -+++ perl-5.12.3/Makefile.SH -@@ -428,7 +428,7 @@ esac - ## In the following dollars and backticks do not need the extra backslash. - $spitshell >>$Makefile <<'!NO!SUBS!' - --private = preplibrary $(CONFIGPM) $(CONFIGPOD) lib/ExtUtils/Miniperl.pm git_version.h -+private = preplibrary $(CONFIGPM) $(CONFIGPOD) lib/ExtUtils/Miniperl.pm git_version.h lib/buildcustomize.pl - - # Files to be built with variable substitution before miniperl - # is available. -@@ -991,6 +991,9 @@ $(plextract): $(MINIPERL_EXE) $(CONFIGPM - x2p/s2p: $(MINIPERL_EXE) $(CONFIGPM) $(dynamic_ext) x2p/s2p.PL - cd x2p; $(LDLIBPTH) $(MAKE) s2p - -+lib/buildcustomize.pl: $(MINIPERL_EXE) write_buildcustomize.pl -+ $(MINIPERL) write_buildcustomize.pl >lib/buildcustomize.pl -+ - unidatafiles $(unidatafiles) pod/perluniprops.pod: uni.data - - uni.data: $(MINIPERL_EXE) $(CONFIGPM) lib/unicore/mktables $(nonxs_ext) -@@ -1160,16 +1163,16 @@ manicheck: FORCE - # - # DynaLoader may be needed for extensions that use Makefile.PL. - --$(DYNALOADER): $(MINIPERL_EXE) preplibrary FORCE $(nonxs_ext) -+$(DYNALOADER): $(MINIPERL_EXE) lib/buildcustomize.pl preplibrary FORCE $(nonxs_ext) - $(MINIPERL) make_ext.pl $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL) LINKTYPE=static $(STATIC_LDFLAGS) - --d_dummy $(dynamic_ext): $(MINIPERL_EXE) preplibrary makeppport $(DYNALOADER) FORCE $(PERLEXPORT) -+d_dummy $(dynamic_ext): $(MINIPERL_EXE) lib/buildcustomize.pl preplibrary makeppport $(DYNALOADER) FORCE $(PERLEXPORT) - $(MINIPERL) make_ext.pl $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL) LINKTYPE=dynamic - --s_dummy $(static_ext): $(MINIPERL_EXE) preplibrary makeppport $(DYNALOADER) FORCE -+s_dummy $(static_ext): $(MINIPERL_EXE) lib/buildcustomize.pl preplibrary makeppport $(DYNALOADER) FORCE - $(MINIPERL) make_ext.pl $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL) LINKTYPE=static $(STATIC_LDFLAGS) - --n_dummy $(nonxs_ext): $(MINIPERL_EXE) preplibrary FORCE -+n_dummy $(nonxs_ext): $(MINIPERL_EXE) lib/buildcustomize.pl preplibrary FORCE - $(MINIPERL) make_ext.pl $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL) - !NO!SUBS! - -Index: perl-5.12.3/installperl -=================================================================== ---- perl-5.12.3.orig/installperl -+++ perl-5.12.3/installperl -@@ -714,6 +714,8 @@ sub installlib { - # ignore the test extensions - return if $dir =~ m{\bXS/(?:APItest|Typemap)\b}; - return if $name =~ m{\b(?:APItest|Typemap)\.pm$}; -+ # ignore the build support code -+ return if $name =~ /\bbuildcustomize\.pl$/; - # ignore the demo files - return if $dir =~ /\b(?:demos?|eg)\b/; - -Index: perl-5.12.3/make_ext.pl -=================================================================== ---- perl-5.12.3.orig/make_ext.pl -+++ perl-5.12.3/make_ext.pl -@@ -4,11 +4,9 @@ use warnings; - use Config; - BEGIN { - if ($^O eq 'MSWin32') { -- unshift @INC, ('../cpan/Cwd', '../cpan/Cwd/lib'); -- require File::Spec::Functions; -+ unshift @INC, '../cpan/Cwd'; - require FindExt; -- } -- else { -+ } else { - unshift @INC, 'cpan/Cwd'; - } - } -@@ -18,27 +16,6 @@ my $is_Win32 = $^O eq 'MSWin32'; - my $is_VMS = $^O eq 'VMS'; - my $is_Unix = !$is_Win32 && !$is_VMS; - --# To clarify, this isn't the entire suite of modules considered "toolchain" --# It's not even all modules needed to build ext/ --# It's just the source paths of the (minimum complete set of) modules in ext/ --# needed to build the nonxs modules --# After which, all nonxs modules are in lib, which was always sufficient to --# allow miniperl to build everything else. -- --# This list cannot get any longer without overflowing the length limit for --# environment variables on VMS --my @toolchain = qw(cpan/AutoLoader/lib -- cpan/Cwd cpan/Cwd/lib -- cpan/ExtUtils-Command/lib -- dist/ExtUtils-Install/lib -- cpan/ExtUtils-MakeMaker/lib -- cpan/ExtUtils-Manifest/lib -- cpan/File-Path/lib -- ); -- --# Used only in ExtUtils::Liblist::Kid::_win32_ext() --push @toolchain, 'cpan/Text-ParseWords/lib' if $is_Win32; -- - my @ext_dirs = qw(cpan dist ext); - my $ext_dirs_re = '(?:' . join('|', @ext_dirs) . ')'; - -@@ -295,16 +272,7 @@ sub build_extension { - $perl ||= "$up/miniperl"; - my $return_dir = $up; - my $lib_dir = "$up/lib"; -- # $lib_dir must be last, as we're copying files into it, and in a parallel -- # make there's a race condition if one process tries to open a module that -- # another process has half-written. -- my @new_inc = ((map {"$up/$_"} @toolchain), $lib_dir); -- if ($is_Win32) { -- @new_inc = map {File::Spec::Functions::rel2abs($_)} @new_inc; -- } -- $ENV{PERL5LIB} = join $Config{path_sep}, @new_inc; - $ENV{PERL_CORE} = 1; -- # warn $ENV{PERL5LIB}; - - my $makefile; - if ($is_VMS) { -@@ -375,7 +343,7 @@ EOM - @cross = '-MCross'; - } - -- my @args = (@cross, 'Makefile.PL'); -+ my @args = ("-I$lib_dir", @cross, 'Makefile.PL'); - if ($is_VMS) { - my $libd = VMS::Filespec::vmspath($lib_dir); - push @args, "INST_LIB=$libd", "INST_ARCHLIB=$libd"; -Index: perl-5.12.3/vms/descrip_mms.template -=================================================================== ---- perl-5.12.3.orig/vms/descrip_mms.template -+++ perl-5.12.3/vms/descrip_mms.template -@@ -360,7 +360,7 @@ CRTLOPTS =,$(CRTL)/Options - unidatadirs = lib/unicore/To lib/unicore/lib - - # Modules which must be installed before we can build extensions --LIBPREREQ = $(ARCHDIR)Config.pm $(ARCHDIR)Config_heavy.pl [.lib.VMS]Filespec.pm $(ARCHDIR)vmspipe.com [.lib]re.pm -+LIBPREREQ = $(ARCHDIR)Config.pm $(ARCHDIR)Config_heavy.pl [.lib.VMS]Filespec.pm $(ARCHDIR)vmspipe.com [.lib]re.pm [.lib]buildcustomize.pl - - utils1 = [.lib.pods]perldoc.com [.lib.ExtUtils]Miniperl.pm [.utils]c2ph.com [.utils]h2ph.com - utils2 = [.utils]h2xs.com [.utils]libnetcfg.com [.lib]perlbug.com [.utils]dprofpp.com -@@ -458,6 +458,9 @@ archcorefiles : $(ac) $(ARCHAUTO)time.st - [.lib]re.pm : [.ext.re]re.pm - Copy/NoConfirm/Log $(MMS$SOURCE) [.lib] - -+[.lib]buildcustomize.pl : write_buildcustomize.pl $(MINIPERL_EXE) -+ $(MINIPERL) write_buildcustomize.pl > [.lib]buildcustomize.pl -+ - vmspipe.com : [.vms]vmspipe.com - Copy/NoConfirm/Log $(MMS$SOURCE) [] - -@@ -561,7 +564,7 @@ unidatafiles.ts : $(MINIPERL_EXE) [.lib] - @ If F$Search("$(MMS$TARGET)").nes."" Then Delete/NoLog/NoConfirm $(MMS$TARGET);* - @ Copy/NoConfirm _NLA0: $(MMS$TARGET) - --DynaLoader$(O) : $(ARCHDIR)Config.pm $(MINIPERL_EXE) [.lib.VMS]Filespec.pm -+DynaLoader$(O) : [.lib]buildcustomize.pl $(ARCHDIR)Config.pm $(MINIPERL_EXE) [.lib.VMS]Filespec.pm - $(MINIPERL) make_ext.pl "MAKE=$(MMS)" "DynaLoader" - - dynext : $(LIBPREREQ) $(DBG)perlshr$(E) unidatafiles.ts DynaLoader$(O) preplibrary makeppport $(MINIPERL_EXE) -@@ -1856,6 +1859,7 @@ tidy : cleanlis - - If F$Search("[.utils]*.com;-1").nes."" Then Purge/NoConfirm/Log [.utils]*.com - - If F$Search("[.x2p]*.com;-1").nes."" Then Purge/NoConfirm/Log [.x2p]*.com - - If F$Search("[.lib.pods]*.com;-1").nes."" Then Purge/NoConfirm/Log [.lib.pods]*.com -+ - If F$Search("[.lib]buildcustomize.pl;-1").nes."" Then Purge/NoConfirm/Log [.lib]buildcustomize.pl - - clean : tidy cleantest - - $(MINIPERL) make_ext.pl "MAKE=$(MMS)" "--all" "--target=clean" -Index: perl-5.12.3/win32/Makefile -=================================================================== ---- perl-5.12.3.orig/win32/Makefile -+++ perl-5.12.3/win32/Makefile -@@ -923,6 +923,9 @@ $(CONFIGPM) : $(MINIPERL) ..\config.sh c - -$(MINIPERL) -I..\lib $(ICWD) config_h.PL "INST_VER=$(INST_VER)" - if errorlevel 1 $(MAKE) /$(MAKEFLAGS) $(CONFIGPM) - -+..\lib\buildcustomize.pl: $(MINIPERL) ..\write_buildcustomize.pl -+ $(MINIPERL) -I..\lib ..\write_buildcustomize.pl .. >..\lib\buildcustomize.pl -+ - $(MINIPERL) : $(MINIDIR) $(MINI_OBJ) - $(LINK32) -subsystem:console -out:$@ @<< - $(LINK_FLAGS) $(LIBFILES) $(MINI_OBJ) -@@ -1045,24 +1048,24 @@ MakePPPort: $(MINIPERL) $(CONFIGPM) Exte - #------------------------------------------------------------------------------- - # There's no direct way to mark a dependency on - # DynaLoader.pm, so this will have to do --Extensions: ..\make_ext.pl $(PERLDEP) $(CONFIGPM) $(DYNALOADER) -+Extensions: ..\make_ext.pl ..\lib\buildcustomize.pl $(PERLDEP) $(CONFIGPM) $(DYNALOADER) - $(XCOPY) ..\*.h $(COREDIR)\*.* - $(MINIPERL) -I..\lib ..\make_ext.pl "MAKE=$(MAKE)" --dir=$(CPANDIR) --dir=$(DISTDIR) --dir=$(EXTDIR) --dynamic - --Extensions_reonly: ..\make_ext.pl $(PERLDEP) $(CONFIGPM) $(DYNALOADER) -+Extensions_reonly: ..\make_ext.pl ..\lib\buildcustomize.pl $(PERLDEP) $(CONFIGPM) $(DYNALOADER) - $(XCOPY) ..\*.h $(COREDIR)\*.* - $(MINIPERL) -I..\lib ..\make_ext.pl "MAKE=$(MAKE)" --dir=$(CPANDIR) --dir=$(DISTDIR) --dir=$(EXTDIR) --dynamic +re - --Extensions_static : ..\make_ext.pl list_static_libs.pl $(PERLDEP) $(CONFIGPM) -+Extensions_static : ..\make_ext.pl ..\lib\buildcustomize.pl list_static_libs.pl $(PERLDEP) $(CONFIGPM) - $(XCOPY) ..\*.h $(COREDIR)\*.* - $(MINIPERL) -I..\lib ..\make_ext.pl "MAKE=$(MAKE)" --dir=$(CPANDIR) --dir=$(DISTDIR) --dir=$(EXTDIR) --static - $(MINIPERL) -I..\lib list_static_libs.pl > Extensions_static - --Extensions_nonxs: ..\make_ext.pl $(PERLDEP) $(CONFIGPM) -+Extensions_nonxs: ..\make_ext.pl ..\lib\buildcustomize.pl $(PERLDEP) $(CONFIGPM) - $(XCOPY) ..\*.h $(COREDIR)\*.* - $(MINIPERL) -I..\lib ..\make_ext.pl "MAKE=$(MAKE)" --dir=$(CPANDIR) --dir=$(DISTDIR) --dir=$(EXTDIR) --nonxs - --$(DYNALOADER) : ..\make_ext.pl $(PERLDEP) $(CONFIGPM) Extensions_nonxs -+$(DYNALOADER) : ..\make_ext.pl ..\lib\buildcustomize.pl $(PERLDEP) $(CONFIGPM) Extensions_nonxs - $(XCOPY) ..\*.h $(COREDIR)\*.* - $(MINIPERL) -I..\lib ..\make_ext.pl "MAKE=$(MAKE)" --dir=$(EXTDIR) --dynaloader - -@@ -1159,6 +1162,7 @@ distclean: realclean - -del /f $(LIBDIR)\Win32CORE.pm - -del /f $(LIBDIR)\Win32API\File.pm - -del /f $(LIBDIR)\Win32API\File\cFile.pc -+ -del /f $(LIBDIR)\buildcustomize.pl - -del /f $(DISTDIR)\XSLoader\XSLoader.pm - -if exist $(LIBDIR)\App rmdir /s /q $(LIBDIR)\App - -if exist $(LIBDIR)\Archive rmdir /s /q $(LIBDIR)\Archive -Index: perl-5.12.3/win32/makefile.mk -=================================================================== ---- perl-5.12.3.orig/win32/makefile.mk -+++ perl-5.12.3/win32/makefile.mk -@@ -1215,6 +1215,10 @@ $(CONFIGPM) : $(MINIPERL) ..\config.sh c - $(MINIPERL) -I..\lib $(ICWD) config_h.PL "INST_VER=$(INST_VER)" \ - || $(MAKE) $(MAKEMACROS) $(CONFIGPM) $(MAKEFILE) - -+..\lib\buildcustomize.pl: $(MINIPERL) ..\write_buildcustomize.pl -+ $(MINIPERL) -I..\lib ..\write_buildcustomize.pl .. >..\lib\buildcustomize.pl -+ -+ - $(MINIPERL) : $(MINIDIR) $(MINI_OBJ) $(CRTIPMLIBS) - .IF "$(CCTYPE)" == "BORLAND" - if not exist $(CCLIBDIR)\PSDK\odbccp32.lib \ -@@ -1423,24 +1427,24 @@ MakePPPort: $(MINIPERL) $(CONFIGPM) Exte - #------------------------------------------------------------------------------- - # There's no direct way to mark a dependency on - # DynaLoader.pm, so this will have to do --Extensions : ..\make_ext.pl $(PERLDEP) $(CONFIGPM) $(DYNALOADER) -+Extensions : ..\make_ext.pl ..\lib\buildcustomize.pl $(PERLDEP) $(CONFIGPM) $(DYNALOADER) - $(XCOPY) ..\*.h $(COREDIR)\*.* - $(MINIPERL) -I..\lib ..\make_ext.pl "MAKE=$(MAKE)" --dir=$(CPANDIR) --dir=$(DISTDIR) --dir=$(EXTDIR) --dynamic - --Extensions_reonly : ..\make_ext.pl $(PERLDEP) $(CONFIGPM) $(DYNALOADER) -+Extensions_reonly : ..\make_ext.pl ..\lib\buildcustomize.pl $(PERLDEP) $(CONFIGPM) $(DYNALOADER) - $(XCOPY) ..\*.h $(COREDIR)\*.* - $(MINIPERL) -I..\lib ..\make_ext.pl "MAKE=$(MAKE)" --dir=$(CPANDIR) --dir=$(DISTDIR) --dir=$(EXTDIR) --dynamic +re - --Extensions_static : ..\make_ext.pl list_static_libs.pl $(PERLDEP) $(CONFIGPM) -+Extensions_static : ..\make_ext.pl ..\lib\buildcustomize.pl list_static_libs.pl $(PERLDEP) $(CONFIGPM) - $(XCOPY) ..\*.h $(COREDIR)\*.* - $(MINIPERL) -I..\lib ..\make_ext.pl "MAKE=$(MAKE)" --dir=$(CPANDIR) --dir=$(DISTDIR) --dir=$(EXTDIR) --static - $(MINIPERL) -I..\lib list_static_libs.pl > Extensions_static - --Extensions_nonxs : ..\make_ext.pl $(PERLDEP) $(CONFIGPM) -+Extensions_nonxs : ..\make_ext.pl ..\lib\buildcustomize.pl $(PERLDEP) $(CONFIGPM) - $(XCOPY) ..\*.h $(COREDIR)\*.* - $(MINIPERL) -I..\lib ..\make_ext.pl "MAKE=$(MAKE)" --dir=$(CPANDIR) --dir=$(DISTDIR) --dir=$(EXTDIR) --nonxs - --$(DYNALOADER) : ..\make_ext.pl $(PERLDEP) $(CONFIGPM) Extensions_nonxs -+$(DYNALOADER) : ..\make_ext.pl ..\lib\buildcustomize.pl $(PERLDEP) $(CONFIGPM) Extensions_nonxs - $(XCOPY) ..\*.h $(COREDIR)\*.* - $(MINIPERL) -I..\lib ..\make_ext.pl "MAKE=$(MAKE)" --dir=$(EXTDIR) --dynaloader - -@@ -1534,6 +1538,7 @@ distclean: realclean - -del /f $(LIBDIR)\Win32CORE.pm - -del /f $(LIBDIR)\Win32API\File.pm - -del /f $(LIBDIR)\Win32API\File\cFile.pc -+ -del /f $(LIBDIR)\buildcustomize.pl - -del /f $(DISTDIR)\XSLoader\XSLoader.pm - -if exist $(LIBDIR)\App rmdir /s /q $(LIBDIR)\App - -if exist $(LIBDIR)\Archive rmdir /s /q $(LIBDIR)\Archive -Index: perl-5.12.3/write_buildcustomize.pl -=================================================================== ---- /dev/null -+++ perl-5.12.3/write_buildcustomize.pl -@@ -0,0 +1,50 @@ -+#!./miniperl -w -+ -+use strict; -+if (@ARGV) { -+ my $dir = shift; -+ chdir $dir or die "Can't chdir '$dir': $!"; -+ unshift @INC, 'lib'; -+} -+ -+unshift @INC, ('cpan/Cwd', 'cpan/Cwd/lib'); -+require File::Spec::Functions; -+ -+# To clarify, this isn't the entire suite of modules considered "toolchain" -+# It's not even all modules needed to build ext/ -+# It's just the source paths of the (minimum complete set of) modules in ext/ -+# needed to build the nonxs modules -+# After which, all nonxs modules are in lib, which was always sufficient to -+# allow miniperl to build everything else. -+ -+my @toolchain = qw(cpan/AutoLoader/lib -+ cpan/Cwd cpan/Cwd/lib -+ cpan/ExtUtils-Command/lib -+ dist/ExtUtils-Install/lib -+ cpan/ExtUtils-MakeMaker/lib -+ cpan/ExtUtils-Manifest/lib -+ cpan/File-Path/lib -+ ); -+ -+# Used only in ExtUtils::Liblist::Kid::_win32_ext() -+push @toolchain, 'cpan/Text-ParseWords/lib' if $^O eq 'MSWin32'; -+ -+# lib must be last, as the the toolchain modules write themselves into it -+# as they build, and it's important that @INC order ensures that the partially -+# written files are always masked by the complete versions. -+ -+my $inc = join ",\n ", -+ map { "q\0$_\0" } -+ (map {File::Spec::Functions::rel2abs($_)} @toolchain, 'lib'), '.'; -+ -+# If any of the system's build tools are written in Perl, then this module -+# may well be loaded by a much older version than we are building. So keep it -+# as backwards compatible as is easy. -+print <<"EOT"; -+#!perl -+ -+# We are miniperl, building extensions -+# Reset \@INC completely, adding the directories we need, and removing the -+# installed directories (which we don't need to read, and may confuse us) -+\@INC = ($inc); -+EOT diff --git a/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_6.patch b/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_6.patch deleted file mode 100644 index 42677391de..0000000000 --- a/meta/recipes-devtools/perl/perl-5.12.3/parallel_build_fix_6.patch +++ /dev/null @@ -1,158 +0,0 @@ -Upstream-Status:Inappropriate [Backport] - -Rebased by Nitin A Kamble <nitin.a.kamble@intel.com> on 3/11/2011 - -commit 7353f64c5bca6e7102582a1e0017c850930249c3 -Author: Nicholas Clark <nick@ccl4.org> -Date: Mon Feb 14 20:36:36 2011 +0000 - - Add ext/re/re.pm to the @INC set for miniperl by lib/buildcustomize.pl - - This avoids a build-time race condition where lib/re.pm might be read midway - through the *second* copy of it (when ext/re/Makefile is being run). It also - simplifies many [Mm]akefile* rules, which previously had a special case to - copy it early. - -Index: perl-5.12.3/Cross/Makefile-cross-SH -=================================================================== ---- perl-5.12.3.orig/Cross/Makefile-cross-SH -+++ perl-5.12.3/Cross/Makefile-cross-SH -@@ -727,7 +727,7 @@ fi - $spitshell >>$Makefile <<'!NO!SUBS!' - - .PHONY: preplibrary --preplibrary: miniperl $(CONFIGPM) lib/lib.pm lib/re.pm $(PREPLIBRARY_LIBPERL) -+preplibrary: miniperl $(CONFIGPM) lib/lib.pm $(PREPLIBRARY_LIBPERL) - - .PHONY: makeppport - makeppport: miniperl$(EXE_EXT) $(CONFIGPM) -@@ -748,10 +748,6 @@ $(plextract): miniperl $(CONFIGPM) x2p/s - @-rm -f $@ - $(LDLIBPTH) ./miniperl -I`pwd`/lib $@.PL - --lib/lib.pm: miniperl $(CONFIGPM) -- @-rm -f $@ -- $(LDLIBPTH) ./miniperl -Ilib -MCross lib/lib_pm.PL -- - lib/buildcustomize.pl: $(MINIPERL_EXE) write_buildcustomize.pl - $(MINIPERL) write_buildcustomize.pl >lib/buildcustomize.pl - -@@ -1212,7 +1208,7 @@ minitest.prep: - - # Can't depend on lib/Config.pm because that might be where miniperl - # is crashing. --minitest: miniperl$(EXE_EXT) lib/re.pm minitest.prep -+minitest: miniperl$(EXE_EXT) minitest.prep - - cd t && (rm -f perl$(EXE_EXT); $(LNS) ../miniperl$(EXE_EXT) perl$(EXE_EXT)) \ - && $(LDLIBPTH) ./perl TEST -minitest base/*.t comp/*.t cmd/*.t run/*.t io/*.t op/*.t uni/*.t </dev/tty - -Index: perl-5.12.3/Makefile.SH -=================================================================== ---- perl-5.12.3.orig/Makefile.SH -+++ perl-5.12.3/Makefile.SH -@@ -970,7 +970,7 @@ esac - $spitshell >>$Makefile <<'!NO!SUBS!' - - .PHONY: preplibrary --preplibrary: $(MINIPERL_EXE) $(CONFIGPM) lib/re.pm $(PREPLIBRARY_LIBPERL) -+preplibrary: $(MINIPERL_EXE) $(CONFIGPM) $(PREPLIBRARY_LIBPERL) - - $(CONFIGPM_FROM_CONFIG_SH): $(CONFIGPOD) - -@@ -980,10 +980,6 @@ $(CONFIGPOD): config.sh $(MINIPERL_EXE) - lib/ExtUtils/Miniperl.pm: miniperlmain.c $(MINIPERL_EXE) minimod.pl $(CONFIGPM) - $(MINIPERL) minimod.pl > lib/ExtUtils/Miniperl.pm - --lib/re.pm: ext/re/re.pm -- @-rm -f $@ -- cp ext/re/re.pm lib/re.pm -- - $(plextract): $(MINIPERL_EXE) $(CONFIGPM) x2p/s2p $(dynamic_ext) - @-rm -f $@ - $(MINIPERL) $@.PL -@@ -1267,7 +1263,7 @@ _cleaner2: - rm -f lib/.exists lib/*/.exists lib/*/*/.exists - rm -f h2ph.man pstruct - rm -rf .config -- rm -f preload lib/re.pm -+ rm -f preload - rm -rf lib/Encode lib/Compress lib/Hash lib/re - rm -rf lib/TAP lib/Module/Pluggable lib/App - rm -rf lib/mro -@@ -1464,7 +1460,7 @@ minitest.prep: - - # Can't depend on lib/Config.pm because that might be where miniperl - # is crashing. --minitest: $(MINIPERL_EXE) lib/re.pm minitest.prep -+minitest: $(MINIPERL_EXE) minitest.prep - - cd t && (rm -f $(PERL_EXE); $(LNS) ../$(MINIPERL_EXE) $(PERL_EXE)) \ - && $(RUN_PERL) TEST -minitest base/*.t comp/*.t cmd/*.t run/*.t io/*.t re/*.t op/*.t uni/*.t </dev/tty - -Index: perl-5.12.3/vms/descrip_mms.template -=================================================================== ---- perl-5.12.3.orig/vms/descrip_mms.template -+++ perl-5.12.3/vms/descrip_mms.template -@@ -360,7 +360,7 @@ CRTLOPTS =,$(CRTL)/Options - unidatadirs = lib/unicore/To lib/unicore/lib - - # Modules which must be installed before we can build extensions --LIBPREREQ = $(ARCHDIR)Config.pm $(ARCHDIR)Config_heavy.pl [.lib.VMS]Filespec.pm $(ARCHDIR)vmspipe.com [.lib]re.pm [.lib]buildcustomize.pl -+LIBPREREQ = $(ARCHDIR)Config.pm $(ARCHDIR)Config_heavy.pl [.lib.VMS]Filespec.pm $(ARCHDIR)vmspipe.com [.lib]buildcustomize.pl - - utils1 = [.lib.pods]perldoc.com [.lib.ExtUtils]Miniperl.pm [.utils]c2ph.com [.utils]h2ph.com - utils2 = [.utils]h2xs.com [.utils]libnetcfg.com [.lib]perlbug.com [.utils]dprofpp.com -@@ -455,9 +455,6 @@ pod = $(pod0) $(pod1) $(pod2) $(pod3) $( - archcorefiles : $(ac) $(ARCHAUTO)time.stamp - @ $(NOOP) - --[.lib]re.pm : [.ext.re]re.pm -- Copy/NoConfirm/Log $(MMS$SOURCE) [.lib] -- - [.lib]buildcustomize.pl : write_buildcustomize.pl $(MINIPERL_EXE) - $(MINIPERL) write_buildcustomize.pl > [.lib]buildcustomize.pl - -@@ -1487,7 +1484,7 @@ test_harness : all [.t.lib]vmsfspec.t - - @[.vms]test.com "$(E)" "$(__DEBUG__)" - @ $(MINIPERL) -e "print ""Ran tests"";" > [.t]rantests. - --minitest : $(MINITEST_EXE) [.lib]re.pm [.lib.VMS]Filespec.pm unidatafiles.ts -+minitest : $(MINITEST_EXE) [.lib.VMS]Filespec.pm unidatafiles.ts - @ PERL_TEST_DRIVER == "minitest" - - @[.vms]test.com "$(E)" "$(__DEBUG__)" - -Index: perl-5.12.3/win32/Makefile -=================================================================== ---- perl-5.12.3.orig/win32/Makefile -+++ perl-5.12.3/win32/Makefile -@@ -918,7 +918,6 @@ $(CONFIGPM) : $(MINIPERL) ..\config.sh c - if exist lib\* $(RCOPY) lib\*.* ..\lib\$(NULL) - $(XCOPY) ..\*.h $(COREDIR)\*.* - $(XCOPY) *.h $(COREDIR)\*.* -- $(XCOPY) ..\ext\re\re.pm $(LIBDIR)\*.* - $(RCOPY) include $(COREDIR)\*.* - -$(MINIPERL) -I..\lib $(ICWD) config_h.PL "INST_VER=$(INST_VER)" - if errorlevel 1 $(MAKE) /$(MAKEFLAGS) $(CONFIGPM) -Index: perl-5.12.3/win32/makefile.mk -=================================================================== ---- perl-5.12.3.orig/win32/makefile.mk -+++ perl-5.12.3/win32/makefile.mk -@@ -1210,7 +1210,6 @@ $(CONFIGPM) : $(MINIPERL) ..\config.sh c - if exist lib\* $(RCOPY) lib\*.* ..\lib\$(NULL) - $(XCOPY) ..\*.h $(COREDIR)\*.* - $(XCOPY) *.h $(COREDIR)\*.* -- $(XCOPY) ..\ext\re\re.pm $(LIBDIR)\*.* - $(RCOPY) include $(COREDIR)\*.* - $(MINIPERL) -I..\lib $(ICWD) config_h.PL "INST_VER=$(INST_VER)" \ - || $(MAKE) $(MAKEMACROS) $(CONFIGPM) $(MAKEFILE) -Index: perl-5.12.3/write_buildcustomize.pl -=================================================================== ---- perl-5.12.3.orig/write_buildcustomize.pl -+++ perl-5.12.3/write_buildcustomize.pl -@@ -24,6 +24,7 @@ my @toolchain = qw(cpan/AutoLoader/lib - cpan/ExtUtils-MakeMaker/lib - dist/ExtUtils-Manifest/lib - cpan/File-Path/lib -+ ext/re - ); - - # Used only in ExtUtils::Liblist::Kid::_win32_ext() diff --git a/meta/recipes-devtools/perl/perl-5.12.3/09_fix_installperl.patch b/meta/recipes-devtools/perl/perl-5.14.2/09_fix_installperl.patch index a80d17c8b0..a80d17c8b0 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/09_fix_installperl.patch +++ b/meta/recipes-devtools/perl/perl-5.14.2/09_fix_installperl.patch diff --git a/meta/recipes-devtools/perl/perl-5.12.3/Configure-multilib.patch b/meta/recipes-devtools/perl/perl-5.14.2/Configure-multilib.patch index 9625b0b84e..9625b0b84e 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/Configure-multilib.patch +++ b/meta/recipes-devtools/perl/perl-5.14.2/Configure-multilib.patch diff --git a/meta/recipes-devtools/perl/perl-5.12.3/MM_Unix.pm.patch b/meta/recipes-devtools/perl/perl-5.14.2/MM_Unix.pm.patch index eb92ccb678..eb92ccb678 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/MM_Unix.pm.patch +++ b/meta/recipes-devtools/perl/perl-5.14.2/MM_Unix.pm.patch diff --git a/meta/recipes-devtools/perl/perl-5.12.3/Makefile.SH.patch b/meta/recipes-devtools/perl/perl-5.14.2/Makefile.SH.patch index 6371a3d5ab..c9fd5e27e7 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/Makefile.SH.patch +++ b/meta/recipes-devtools/perl/perl-5.14.2/Makefile.SH.patch @@ -1,29 +1,19 @@ Upstream-Status:Inappropriate [embedded specific] -Index: perl-5.12.3/Makefile.SH +Index: perl-5.14.2/Makefile.SH =================================================================== ---- perl-5.12.3.orig/Makefile.SH -+++ perl-5.12.3/Makefile.SH -@@ -50,12 +50,12 @@ case "$useshrplib" in +--- perl-5.14.2.orig/Makefile.SH ++++ perl-5.14.2/Makefile.SH +@@ -36,7 +36,7 @@ case "$useshrplib" in true) # Prefix all runs of 'miniperl' and 'perl' with # $ldlibpth so that ./perl finds *this* shared libperl. -- case "$LD_LIBRARY_PATH" in -- '') -- ldlibpth="LD_LIBRARY_PATH=`pwd`";; -- *) -- ldlibpth="LD_LIBRARY_PATH=`pwd`:${LD_LIBRARY_PATH}";; -- esac -+# case "$LD_LIBRARY_PATH" in -+# '') -+# ldlibpth="LD_LIBRARY_PATH=`pwd`";; -+# *) -+# ldlibpth="LD_LIBRARY_PATH=`pwd`:${LD_LIBRARY_PATH}";; -+# esac +- ldlibpth=LD_LIBRARY_PATH=`pwd`'$${LD_LIBRARY_PATH:+:}$$LD_LIBRARY_PATH' ++ #ldlibpth=LD_LIBRARY_PATH=`pwd`'$${LD_LIBRARY_PATH:+:}$$LD_LIBRARY_PATH' pldlflags="$cccdlflags" static_ldflags='' -@@ -133,7 +133,8 @@ true) +@@ -114,7 +114,8 @@ true) ldlibpth='' ;; *) @@ -33,7 +23,7 @@ Index: perl-5.12.3/Makefile.SH ;; esac # Strip off any trailing :'s -@@ -154,18 +155,7 @@ true) +@@ -135,18 +136,7 @@ true) # INSTALL file, under "Building a shared perl library". # If there is no pre-existing $libperl, we don't need # to do anything further. @@ -53,7 +43,7 @@ Index: perl-5.12.3/Makefile.SH ;; os390) test -f /bin/env && ldlibpth="/bin/env $ldlibpth" ;; -@@ -557,9 +547,19 @@ splintfiles = $(c1) +@@ -529,9 +519,19 @@ splintfiles = $(c1) .c.s: $(CCCMDSRC) -S $*.c @@ -76,7 +66,7 @@ Index: perl-5.12.3/Makefile.SH .PHONY: all translators utilities -@@ -567,16 +567,16 @@ all: $(FIRSTMAKEFILE) $(MINIPERL_EXE) $( +@@ -539,7 +539,7 @@ all: $(FIRSTMAKEFILE) $(MINIPERL_EXE) $( # by make_patchnum.pl. git_version.h: lib/Config_git.pl @@ -85,18 +75,45 @@ Index: perl-5.12.3/Makefile.SH $(MINIPERL) make_patchnum.pl # make sure that we recompile perl.c if the git version changes - perl$(OBJ_EXT): git_version.h - --translators: $(MINIPERL_EXE) $(CONFIGPM) $(dynamic_ext) FORCE -+translators: $(CONFIGPM) $(dynamic_ext) FORCE - @echo " "; echo " Making x2p stuff"; cd x2p; $(LDLIBPTH) $(MAKE) all +@@ -552,8 +552,8 @@ perl$(OBJ_EXT): git_version.h + # loading, we need to build perl first. + case "$usedl" in + define) +- util_deps='$(MINIPERL_EXE) $(CONFIGPM) lib/auto/Cwd/Cwd$(DLSUFFIX) FORCE' +- x2p_deps='$(MINIPERL_EXE) $(CONFIGPM) $(dynamic_ext) FORCE' ++ util_deps='$(CONFIGPM) lib/auto/Cwd/Cwd$(DLSUFFIX) FORCE' ++ x2p_deps='$(CONFIGPM) $(dynamic_ext) FORCE' + ;; + *) util_deps='$(PERL_EXE) $(CONFIGPM) FORCE' + x2p_deps='$(PERL_EXE) $(CONFIGPM) FORCE' +@@ -627,7 +627,7 @@ generate_uudmap$(HOST_EXE_EXT): generate + miniperlmain$(OBJ_EXT): miniperlmain.c patchlevel.h + $(CCCMD) $(PLDLFLAGS) $*.c + +-perlmain.c: $(MINIPERL_EXE) lib/ExtUtils/Miniperl.pm ++perlmain.c: lib/ExtUtils/Miniperl.pm + $(MINIPERL) -Ilib -MExtUtils::Miniperl -e 'writemain(@ARGV)' DynaLoader $(static_ext) > perlmain.c + + perlmain$(OBJ_EXT): perlmain.c +@@ -691,7 +691,7 @@ PERLEXPORT = perl.exp + ;; + esac + $spitshell >>$Makefile <<'!NO!SUBS!' +-perl.exp: $(MINIPERLEXP) makedef.pl config.sh $(SYM) $(SYMH) ++perl.exp: makedef.pl config.sh $(SYM) $(SYMH) + ./$(MINIPERLEXP) makedef.pl PLATFORM=aix CC_FLAGS="$(OPTIMIZE)" | sort -u | sort -f > perl.exp --utilities: $(MINIPERL_EXE) $(CONFIGPM) $(plextract) FORCE -+utilities: $(CONFIGPM) $(plextract) FORCE - @echo " "; echo " Making utilities"; cd utils; $(LDLIBPTH) $(MAKE) all + !NO!SUBS! +@@ -700,7 +700,7 @@ os2) + $spitshell >>$Makefile <<'!NO!SUBS!' + MINIPERLEXP = miniperl +-perl5.def: $(MINIPERLEXP) makedef.pl config.sh $(SYM) $(SYMH) miniperl.map ++perl5.def: makedef.pl config.sh $(SYM) $(SYMH) miniperl.map + ./$(MINIPERLEXP) makedef.pl PLATFORM=os2 -DPERL_DLL=$(PERL_DLL) CC_FLAGS="$(OPTIMIZE)" > perl5.def -@@ -754,7 +754,7 @@ $(LIBPERL): $& $(obj) $(DYNALOADER) $(LI + !NO!SUBS! +@@ -757,7 +757,7 @@ $(LIBPERL): $& $(obj) $(DYNALOADER) $(LI true) $spitshell >>$Makefile <<'!NO!SUBS!' rm -f $@ @@ -105,7 +122,7 @@ Index: perl-5.12.3/Makefile.SH !NO!SUBS! case "$osname" in aix) -@@ -795,7 +795,9 @@ $(MINIPERL_EXE): $& miniperlmain$(OBJ_EX +@@ -798,7 +798,9 @@ $(MINIPERL_EXE): $& miniperlmain$(OBJ_EX $(CC) -o $(MINIPERL_EXE) $(CLDFLAGS) \ $(mini_obj) \ miniperlmain$(OBJ_EXT) opmini$(OBJ_EXT) perlmini$(OBJ_EXT) $(libs) @@ -116,7 +133,7 @@ Index: perl-5.12.3/Makefile.SH !NO!SUBS! ;; next4*) -@@ -803,7 +805,9 @@ $(MINIPERL_EXE): $& miniperlmain$(OBJ_EX +@@ -806,7 +808,9 @@ $(MINIPERL_EXE): $& miniperlmain$(OBJ_EX $(MINIPERL_EXE): $& miniperlmain$(OBJ_EXT) $(mini_obj) perlmini$(OBJ_EXT) opmini$(OBJ_EXT) $(CC) -o $(MINIPERL_EXE) $(mini_obj) \ miniperlmain$(OBJ_EXT) opmini$(OBJ_EXT) perlmini$(OBJ_EXT) $(libs) @@ -127,7 +144,7 @@ Index: perl-5.12.3/Makefile.SH !NO!SUBS! ;; darwin*) -@@ -825,7 +829,9 @@ $(MINIPERL_EXE): $& miniperlmain$(OBJ_EX +@@ -828,7 +832,9 @@ $(MINIPERL_EXE): $& miniperlmain$(OBJ_EX $(CC) $(CLDFLAGS) $(NAMESPACEFLAGS) -o $(MINIPERL_EXE) \ $(mini_obj) \ miniperlmain$(OBJ_EXT) opmini$(OBJ_EXT) perlmini$(OBJ_EXT) $(libs) @@ -138,7 +155,7 @@ Index: perl-5.12.3/Makefile.SH !NO!SUBS! ;; *) -@@ -835,7 +841,10 @@ $(MINIPERL_EXE): $& miniperlmain$(OBJ_EX +@@ -838,7 +844,10 @@ $(MINIPERL_EXE): $& miniperlmain$(OBJ_EX $(LDLIBPTH) $(CC) $(CLDFLAGS) -o $(MINIPERL_EXE) \ $(mini_obj) \ miniperlmain$(OBJ_EXT) opmini$(OBJ_EXT) perlmini$(OBJ_EXT) $(libs) @@ -150,7 +167,7 @@ Index: perl-5.12.3/Makefile.SH !NO!SUBS! ;; esac -@@ -957,7 +966,7 @@ case "${osname}" in +@@ -960,7 +969,7 @@ case "${osname}" in catamount) $spitshell >>$Makefile <<!GROK!THIS! .PHONY: makeppport @@ -159,7 +176,7 @@ Index: perl-5.12.3/Makefile.SH -@for f in Makefile.PL PPPort_pm.PL PPPort_xs.PL ppport_h.PL; do \ (cd ext/Devel-PPPort && `pwd`/run.sh ../../$(MINIPERL_EXE) -I../../lib \$\$f); \ done -@@ -967,7 +976,7 @@ makeppport: \$(MINIPERL_EXE) \$(CONFIGPM +@@ -970,7 +979,7 @@ makeppport: \$(MINIPERL_EXE) \$(CONFIGPM *) $spitshell >>$Makefile <<'!NO!SUBS!' .PHONY: makeppport @@ -168,7 +185,7 @@ Index: perl-5.12.3/Makefile.SH $(MINIPERL) $(Icwd) mkppport !NO!SUBS! -@@ -977,29 +986,29 @@ esac +@@ -980,22 +989,22 @@ esac $spitshell >>$Makefile <<'!NO!SUBS!' .PHONY: preplibrary @@ -185,15 +202,6 @@ Index: perl-5.12.3/Makefile.SH +lib/ExtUtils/Miniperl.pm: miniperlmain.c minimod.pl $(CONFIGPM) $(MINIPERL) minimod.pl > lib/ExtUtils/Miniperl.pm --$(plextract): $(MINIPERL_EXE) $(CONFIGPM) x2p/s2p $(dynamic_ext) -+$(plextract): $(CONFIGPM) x2p/s2p $(dynamic_ext) - @-rm -f $@ - $(MINIPERL) $@.PL - --x2p/s2p: $(MINIPERL_EXE) $(CONFIGPM) $(dynamic_ext) x2p/s2p.PL -+x2p/s2p: $(CONFIGPM) $(dynamic_ext) x2p/s2p.PL - cd x2p; $(LDLIBPTH) $(MAKE) s2p - -lib/buildcustomize.pl: $(MINIPERL_EXE) write_buildcustomize.pl +lib/buildcustomize.pl: write_buildcustomize.pl $(MINIPERL) write_buildcustomize.pl >lib/buildcustomize.pl @@ -205,13 +213,13 @@ Index: perl-5.12.3/Makefile.SH $(MINIPERL) $(Icwd) lib/unicore/mktables -C lib/unicore -P pod -maketest -makelist -p # Commented out so always runs, mktables looks at far more files than we # can in this makefile to decide if needs to run or not -@@ -1008,21 +1017,21 @@ uni.data: $(MINIPERL_EXE) $(CONFIGPM) li +@@ -1004,21 +1013,21 @@ uni.data: $(MINIPERL_EXE) $(CONFIGPM) li # $(PERL_EXE) and ext because buildtoc uses Text::Wrap uses re # But also this ensures that all extensions are built before we try to scan # them, which picks up Devel::PPPort's documentation. -pod/perltoc.pod: $(perltoc_pod_prereqs) $(PERL_EXE) $(ext) pod/buildtoc - $(RUN_PERL) -f -Ilib pod/buildtoc --build-toc -q -+pod/perltoc.pod: $(perltoc_pod_prereqs) $(ext) pod/buildtoc ++pod/perltoc.pod: $(perltoc_pod_prereqs) $(ext) pod/buildtoc + $(MINIPERL) -f -Ilib pod/buildtoc --build-toc -q pod/perlapi.pod: pod/perlintern.pod @@ -224,15 +232,15 @@ Index: perl-5.12.3/Makefile.SH +pod/perlmodlib.pod: pod/perlmodlib.PL MANIFEST $(MINIPERL) $(Icwd) pod/perlmodlib.PL -q - pod/perldelta.pod: pod/perl5123delta.pod - $(LNS) perl5123delta.pod pod/perldelta.pod + pod/perl5142delta.pod: pod/perldelta.pod + $(LNS) perldelta.pod pod/perl5142delta.pod -extra.pods: $(MINIPERL_EXE) -+extra.pods: ++extra.pods: -@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: +@@ -1058,11 +1067,7 @@ no-install: INSTALL_DEPENDENCE = all install.perl: $(INSTALL_DEPENDENCE) installperl @@ -245,7 +253,7 @@ Index: perl-5.12.3/Makefile.SH # XXX Experimental. Hardwired values, but useful for testing. # Eventually Configure could ask for some of these values. -@@ -1166,16 +1171,16 @@ manicheck: FORCE +@@ -1161,16 +1166,16 @@ manicheck: FORCE # # DynaLoader may be needed for extensions that use Makefile.PL. @@ -266,12 +274,12 @@ Index: perl-5.12.3/Makefile.SH $(MINIPERL) make_ext.pl $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL) !NO!SUBS! -@@ -1373,10 +1378,10 @@ _test: +@@ -1365,10 +1370,10 @@ _test: test_prep_pre: preplibrary utilities $(nonxs_ext) --test_prep: test_prep_pre $(MINIPERL_EXE) $(unidatafiles) $(PERL_EXE) $(dynamic_ext) $(TEST_PERL_DLL) runtests -+test_prep: test_prep_pre $(unidatafiles) $(PERL_EXE) $(dynamic_ext) $(TEST_PERL_DLL) runtests +-test_prep: test_prep_pre $(MINIPERL_EXE) $(unidatafiles) $(PERL_EXE) $(dynamic_ext) $(TEST_PERL_DLL) runtests x2p/s2p $(generated_pods) ++test_prep: test_prep_pre $(unidatafiles) $(PERL_EXE) $(dynamic_ext) $(TEST_PERL_DLL) runtests x2p/s2p $(generated_pods) cd t && (rm -f $(PERL_EXE); $(LNS) ../$(PERL_EXE) $(PERL_EXE)) -test_prep_reonly: $(MINIPERL_EXE) $(PERL_EXE) $(dynamic_ext_re) $(TEST_PERL_DLL) @@ -279,12 +287,12 @@ Index: perl-5.12.3/Makefile.SH $(MINIPERL) make_ext.pl $(dynamic_ext_re) MAKE=$(MAKE) LIBPERL_A=$(LIBPERL) LINKTYPE=dynamic cd t && (rm -f $(PERL_EXE); $(LNS) ../$(PERL_EXE) $(PERL_EXE)) -@@ -1467,7 +1472,7 @@ minitest.prep: +@@ -1459,7 +1464,7 @@ minitest.prep: # Can't depend on lib/Config.pm because that might be where miniperl # is crashing. -minitest: $(MINIPERL_EXE) minitest.prep +minitest: minitest.prep - cd t && (rm -f $(PERL_EXE); $(LNS) ../$(MINIPERL_EXE) $(PERL_EXE)) \ - && $(RUN_PERL) TEST -minitest base/*.t comp/*.t cmd/*.t run/*.t io/*.t re/*.t op/*.t uni/*.t </dev/tty + && $(RUN_PERL) TEST base/*.t comp/*.t cmd/*.t run/*.t io/*.t re/*.t op/*.t uni/*.t </dev/tty diff --git a/meta/recipes-devtools/perl/perl-5.12.3/Makefile.patch b/meta/recipes-devtools/perl/perl-5.14.2/Makefile.patch index 8a279a5262..858e2e10fb 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/Makefile.patch +++ b/meta/recipes-devtools/perl/perl-5.14.2/Makefile.patch @@ -1,12 +1,11 @@ Upstream-Status:Inappropriate [embedded specific] -Index: perl-5.12.3/Cross/Makefile +Index: perl-5.14.2/Cross/Makefile =================================================================== ---- perl-5.12.3.orig/Cross/Makefile -+++ perl-5.12.3/Cross/Makefile -@@ -2,7 +2,8 @@ - # - ## $Id: Makefile,v 1.5 2003/12/12 00:48:19 red Exp red $ +--- perl-5.14.2.orig/Cross/Makefile ++++ perl-5.14.2/Cross/Makefile +@@ -1,6 +1,7 @@ + ## Toplevel Makefile for cross-compilation of perl -export TOPDIR=${shell pwd} +override TOPDIR=${shell pwd} @@ -14,7 +13,7 @@ Index: perl-5.12.3/Cross/Makefile include $(TOPDIR)/config export CFLAGS export SYS=$(ARCH)-$(OS) -@@ -12,7 +13,7 @@ export OPTIMIZATION = -O2 +@@ -10,7 +11,7 @@ export OPTIMIZATION = -O2 export CC = $(CROSS)gcc export CXX = $(CROSS)g++ @@ -23,7 +22,7 @@ Index: perl-5.12.3/Cross/Makefile export STRIP = $(CROSS)strip export AR = $(CROSS)ar export RANLIB = $(CROSS)ranlib -@@ -34,17 +35,6 @@ CFLAGS+=$(FULL_OPTIMIZATION) +@@ -32,17 +33,6 @@ CFLAGS+=$(FULL_OPTIMIZATION) all: @echo Please read the README file before doing anything else. @@ -41,7 +40,7 @@ Index: perl-5.12.3/Cross/Makefile perl: @echo Perl cross-build directory is $(TOPDIR) @echo Target arch is $(SYS) -@@ -54,11 +44,11 @@ perl: +@@ -52,11 +42,11 @@ perl: $(TOPDIR)/generate_config_sh config.sh-$(SYS) > $(TOPDIR)/../config.sh cd $(TOPDIR)/.. ; ./Configure -S ; make depend ; make ; make more cd $(TOPDIR)/.. ; mkdir -p fake_config_library ; cp lib/Config.pm lib/Config_heavy.pl fake_config_library diff --git a/meta/recipes-devtools/perl/perl-5.12.3/asm-pageh-fix.patch b/meta/recipes-devtools/perl/perl-5.14.2/asm-pageh-fix.patch index c65b1a1fe3..c65b1a1fe3 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/asm-pageh-fix.patch +++ b/meta/recipes-devtools/perl/perl-5.14.2/asm-pageh-fix.patch diff --git a/meta/recipes-devtools/perl/perl-5.12.3/config.sh b/meta/recipes-devtools/perl/perl-5.14.2/config.sh index f1c5001bfb..b3e2d432c4 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/config.sh +++ b/meta/recipes-devtools/perl/perl-5.14.2/config.sh @@ -14,7 +14,7 @@ : Configure command line arguments. config_arg0='Configure' -config_args='-des -Doptimize=-O2 -Dmyhostname=localhost -Dperladmin=root@localhost -Dcc=gcc -Dcf_by=Open Embedded -Dinstallprefix=@DESTDIR@ -Dprefix=/usr -Dvendorprefix=/usr -Dsiteprefix=/usr -Dotherlibdirs=/usr/lib/perl5/5.12.3 -Duseshrplib -Dusethreads -Duseithreads -Duselargefiles -Ud_dosuid -Dd_semctl_semun -Ui_db -Ui_ndbm -Ui_gdbm -Di_shadow -Di_syslog -Dman3ext=3pm -Duseperlio -Dinstallusrbinperl -Ubincompat5005 -Uversiononly -Dpager=/usr/bin/less -isr' +config_args='-des -Doptimize=-O2 -Dmyhostname=localhost -Dperladmin=root@localhost -Dcc=gcc -Dcf_by=Open Embedded -Dinstallprefix=@DESTDIR@ -Dprefix=/usr -Dvendorprefix=/usr -Dsiteprefix=/usr -Dotherlibdirs=/usr/lib/perl5/5.14.2 -Duseshrplib -Dusethreads -Duseithreads -Duselargefiles -Ud_dosuid -Dd_semctl_semun -Ui_db -Ui_ndbm -Ui_gdbm -Di_shadow -Di_syslog -Dman3ext=3pm -Duseperlio -Dinstallusrbinperl -Ubincompat5005 -Uversiononly -Dpager=/usr/bin/less -isr' config_argc=28 config_arg1='-des' config_arg2='-Doptimize=-O2' @@ -26,7 +26,7 @@ config_arg7='-Dinstallprefix=@DESTDIR@' config_arg8='-Dprefix=/usr' config_arg9='-Dvendorprefix=/usr' config_arg10='-Dsiteprefix=/usr' -config_arg11='-Dotherlibdirs=/usr/lib/perl5/5.12.3' +config_arg11='-Dotherlibdirs=/usr/lib/perl5/5.14.2' config_arg12='-Duseshrplib' config_arg13='-Dusethreads' config_arg14='-Duseithreads' @@ -64,11 +64,11 @@ ansi2knr='' aphostname='' api_revision='5' api_subversion='0' -api_version='12' -api_versionstring='5.12.0' +api_version='14' +api_versionstring='5.14.0' ar='ar' -archlib='/usr/lib/perl5/5.12.3/@ARCH@-thread-multi' -archlibexp='/usr/lib/perl5/5.12.3/@ARCH@-thread-multi' +archlib='/usr/lib/perl5/5.14.2/@ARCH@-thread-multi' +archlibexp='/usr/lib/perl5/5.14.2/@ARCH@-thread-multi' archname64='' archname='@ARCH@-thread-multi' archobjs='' @@ -86,7 +86,7 @@ castflags='0' cat='cat' cc='gcc' cccdlflags='-fPIC' -ccdlflags='-Wl,-E -Wl,-rpath,/usr/lib/perl5/5.12.3/@ARCH@-thread-multi/CORE' +ccdlflags='-Wl,-E -Wl,-rpath,/usr/lib/perl5/5.14.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' @@ -746,7 +746,7 @@ inc_version_list_init='0' incpath='' inews='' initialinstalllocation='/usr/bin' -installarchlib='@DESTDIR@/lib/perl5/5.12.3/@ARCH@-thread-multi' +installarchlib='@DESTDIR@/lib/perl5/5.14.2/@ARCH@-thread-multi' installbin='@DESTDIR@/bin' installhtml1dir='' installhtml3dir='' @@ -754,23 +754,23 @@ installman1dir='' installman3dir='' installprefix='@DESTDIR@' installprefixexp='@DESTDIR@' -installprivlib='@DESTDIR@/lib/perl5/5.12.3' +installprivlib='@DESTDIR@/lib/perl5/5.14.2' installscript='@DESTDIR@/bin' -installsitearch='@DESTDIR@/lib/perl5/site_perl/5.12.3/@ARCH@-thread-multi' +installsitearch='@DESTDIR@/lib/perl5/site_perl/5.14.2/@ARCH@-thread-multi' installsitebin='@DESTDIR@/bin' installsitehtml1dir='' installsitehtml3dir='' -installsitelib='@DESTDIR@/lib/perl5/site_perl/5.12.3' +installsitelib='@DESTDIR@/lib/perl5/site_perl/5.14.2' installsiteman1dir='' installsiteman3dir='' installsitescript='@DESTDIR@/bin' installstyle='lib/perl5' installusrbinperl='define' -installvendorarch='@DESTDIR@/lib/perl5/vendor_perl/5.12.3/@ARCH@-thread-multi' +installvendorarch='@DESTDIR@/lib/perl5/vendor_perl/5.14.2/@ARCH@-thread-multi' installvendorbin='@DESTDIR@/bin' installvendorhtml1dir='' installvendorhtml3dir='' -installvendorlib='@DESTDIR@/lib/perl5/vendor_perl/5.12.3' +installvendorlib='@DESTDIR@/lib/perl5/vendor_perl/5.14.2' installvendorman1dir='' installvendorman3dir='' installvendorscript='@DESTDIR@/bin' @@ -864,11 +864,11 @@ optimize='-O2' orderlib='false' osname='linux' osvers='2.6.37-rc5-yocto-standard+' -otherlibdirs='/usr/lib/perl5/5.12.3' +otherlibdirs='/usr/lib/perl5/5.14.2' package='perl5' pager='/usr/bin/less -isr' passcat='cat /etc/passwd' -patchlevel='12' +patchlevel='14' path_sep=':' perl5='/usr/bin/perl' perl='' @@ -884,8 +884,8 @@ pmake='' pr='' prefix='/usr' prefixexp='/usr' -privlib='/usr/lib/perl5/5.12.3' -privlibexp='/usr/lib/perl5/5.12.3' +privlib='/usr/lib/perl5/5.14.2' +privlibexp='/usr/lib/perl5/5.14.2' procselfexe='"/proc/self/exe"' prototype='define' randbits='48' @@ -937,17 +937,17 @@ sig_num='0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 sig_num_init='0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 6, 17, 29, 31, 0' sig_size='69' signal_t='void' -sitearch='/usr/lib/perl5/site_perl/5.12.3/@ARCH@-thread-multi' -sitearchexp='/usr/lib/perl5/site_perl/5.12.3/@ARCH@-thread-multi' +sitearch='/usr/lib/perl5/site_perl/5.14.2/@ARCH@-thread-multi' +sitearchexp='/usr/lib/perl5/site_perl/5.14.2/@ARCH@-thread-multi' sitebin='/usr/bin' sitebinexp='/usr/bin' sitehtml1dir='' sitehtml1direxp='' sitehtml3dir='' sitehtml3direxp='' -sitelib='/usr/lib/perl5/site_perl/5.12.3' +sitelib='/usr/lib/perl5/site_perl/5.14.2' sitelib_stem='/usr/lib/perl5/site_perl' -sitelibexp='/usr/lib/perl5/site_perl/5.12.3' +sitelibexp='/usr/lib/perl5/site_perl/5.14.2' siteman1dir='' siteman1direxp='' siteman3dir='' @@ -1045,17 +1045,17 @@ uvtype='unsigned long' uvuformat='"lu"' uvxformat='"lx"' vaproto='define' -vendorarch='/usr/lib/perl5/vendor_perl/5.12.3/@ARCH@-thread-multi' -vendorarchexp='/usr/lib/perl5/vendor_perl/5.12.3/@ARCH@-thread-multi' +vendorarch='/usr/lib/perl5/vendor_perl/5.14.2/@ARCH@-thread-multi' +vendorarchexp='/usr/lib/perl5/vendor_perl/5.14.2/@ARCH@-thread-multi' vendorbin='/usr/bin' vendorbinexp='/usr/bin' vendorhtml1dir=' ' vendorhtml1direxp='' vendorhtml3dir=' ' vendorhtml3direxp='' -vendorlib='/usr/lib/perl5/vendor_perl/5.12.3' +vendorlib='/usr/lib/perl5/vendor_perl/5.14.2' vendorlib_stem='/usr/lib/perl5/vendor_perl' -vendorlibexp='/usr/lib/perl5/vendor_perl/5.12.3' +vendorlibexp='/usr/lib/perl5/vendor_perl/5.14.2' vendorman1dir=' ' vendorman1direxp='' vendorman3dir=' ' @@ -1064,8 +1064,8 @@ vendorprefix='/usr' vendorprefixexp='/usr' vendorscript='/usr/bin' vendorscriptexp='/usr/bin' -version='5.12.3' -version_patchlevel_string='version 12 subversion 2' +version='5.14.2' +version_patchlevel_string='version 14 subversion 2' versiononly='undef' vi='' voidflags='15' @@ -1075,12 +1075,19 @@ yaccflags='' zcat='' zip='zip' PERL_REVISION=5 -PERL_VERSION=12 +PERL_VERSION=14 PERL_SUBVERSION=2 PERL_API_REVISION=5 -PERL_API_VERSION=12 +PERL_API_VERSION=14 PERL_API_SUBVERSION=0 PERL_PATCHLEVEL='' PERL_CONFIG_SH=true : Variables propagated from previous config.sh file. libdb_needs_pthread='N' + +d_static_inline='define' +d_sockaddr_sa_len='undef' +d_sin6_scope_id='define' +d_prctl='define' +d_prctl_set_name='define' +perl_static_inline='static __inline__' diff --git a/meta/recipes-devtools/perl/perl-5.12.3/config.sh-32 b/meta/recipes-devtools/perl/perl-5.14.2/config.sh-32 index 7259a0c6ae..7259a0c6ae 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/config.sh-32 +++ b/meta/recipes-devtools/perl/perl-5.14.2/config.sh-32 diff --git a/meta/recipes-devtools/perl/perl-5.12.3/config.sh-32-be b/meta/recipes-devtools/perl/perl-5.14.2/config.sh-32-be index a59a9abb5e..a59a9abb5e 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/config.sh-32-be +++ b/meta/recipes-devtools/perl/perl-5.14.2/config.sh-32-be diff --git a/meta/recipes-devtools/perl/perl-5.12.3/config.sh-32-le b/meta/recipes-devtools/perl/perl-5.14.2/config.sh-32-le index 10e4226567..10e4226567 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/config.sh-32-le +++ b/meta/recipes-devtools/perl/perl-5.14.2/config.sh-32-le diff --git a/meta/recipes-devtools/perl/perl-5.12.3/config.sh-64 b/meta/recipes-devtools/perl/perl-5.14.2/config.sh-64 index 6929d3a09d..6929d3a09d 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/config.sh-64 +++ b/meta/recipes-devtools/perl/perl-5.14.2/config.sh-64 diff --git a/meta/recipes-devtools/perl/perl-5.12.3/config.sh-64-be b/meta/recipes-devtools/perl/perl-5.14.2/config.sh-64-be index c08ce3c431..c08ce3c431 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/config.sh-64-be +++ b/meta/recipes-devtools/perl/perl-5.14.2/config.sh-64-be diff --git a/meta/recipes-devtools/perl/perl-5.12.3/config.sh-64-le b/meta/recipes-devtools/perl/perl-5.14.2/config.sh-64-le index 277d2a9bee..277d2a9bee 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/config.sh-64-le +++ b/meta/recipes-devtools/perl/perl-5.14.2/config.sh-64-le diff --git a/meta/recipes-devtools/perl/perl-5.14.2/cross-generate_uudmap.patch b/meta/recipes-devtools/perl/perl-5.14.2/cross-generate_uudmap.patch new file mode 100644 index 0000000000..a00ad61d90 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.14.2/cross-generate_uudmap.patch @@ -0,0 +1,15 @@ +Upstream-Status:Inappropriate [embedded specific] + +Index: perl-5.14.2/Makefile.SH +=================================================================== +--- perl-5.14.2.orig/Makefile.SH ++++ perl-5.14.2/Makefile.SH +@@ -622,7 +622,7 @@ bitcount.h: generate_uudmap$(HOST_EXE_EX + $(RUN) ./generate_uudmap$(HOST_EXE_EXT) uudmap.h bitcount.h + + generate_uudmap$(HOST_EXE_EXT): generate_uudmap$(OBJ_EXT) +- $(CC) -o generate_uudmap$(EXE_EXT) $(LDFLAGS) generate_uudmap$(OBJ_EXT) $(libs) ++ $(BUILD_CC) -o generate_uudmap$(EXE_EXT) generate_uudmap.c + + miniperlmain$(OBJ_EXT): miniperlmain.c patchlevel.h + $(CCCMD) $(PLDLFLAGS) $*.c diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/arm_thread_stress_timeout.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/arm_thread_stress_timeout.diff index 700b344ed3..1d80e954f6 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/arm_thread_stress_timeout.diff +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/arm_thread_stress_timeout.diff @@ -1,15 +1,18 @@ -Upstream-Status:Inappropriate [debian patch] +From f624a9f1206cdd44fde99c40d82e2f326db485dd Mon Sep 17 00:00:00 2001 +From: Niko Tyni <ntyni@debian.org> +Date: Sat, 1 Nov 2008 15:10:16 +0200 +Subject: Raise the timeout of ext/threads/shared/t/stress.t to accommodate + slower build hosts -Subject: Raise the timeout of ext/threads/shared/t/stress.t to accommodate slower build hosts Bug-Debian: http://bugs.debian.org/501970 - +Patch-Name: debian/arm_thread_stress_timeout.diff --- dist/threads-shared/t/stress.t | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/dist/threads-shared/t/stress.t b/dist/threads-shared/t/stress.t -index adfd1ed..652a3e6 100755 +index adfd1ed..652a3e6 100644 --- a/dist/threads-shared/t/stress.t +++ b/dist/threads-shared/t/stress.t @@ -34,7 +34,7 @@ use threads::shared; @@ -21,5 +24,3 @@ index adfd1ed..652a3e6 100755 my $mutex = 1; share($mutex); --- -tg: (a508b62..) debian/arm_thread_stress_timeout (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/cpan_definstalldirs.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/cpan_definstalldirs.diff index 3931c2d357..9fa937819e 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/cpan_definstalldirs.diff +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/cpan_definstalldirs.diff @@ -1,21 +1,23 @@ -Upstream-Status:Inappropriate [debian patch] - -Subject: Provide a sensible INSTALLDIRS default for modules installed from CPAN. +From 4b63b9a433661cd13cfb1448dbfb90c5f53a53be Mon Sep 17 00:00:00 2001 +From: Brendan O'Dea <bod@debian.org> +Date: Tue, 8 Mar 2005 19:30:38 +1100 +Subject: Provide a sensible INSTALLDIRS default for modules installed from + CPAN. Some modules which are included in core set INSTALLDIRS => 'perl' explicitly in Makefile.PL or Build.PL. This makes sense for the normal @INC ordering, but not ours. - +Patch-Name: debian/cpan_definstalldirs.diff --- cpan/CPAN/lib/CPAN/FirstTime.pm | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/cpan/CPAN/lib/CPAN/FirstTime.pm b/cpan/CPAN/lib/CPAN/FirstTime.pm -index 53ffbf1..53976ff 100644 +index 667bdca..c38c890 100644 --- a/cpan/CPAN/lib/CPAN/FirstTime.pm +++ b/cpan/CPAN/lib/CPAN/FirstTime.pm -@@ -947,7 +947,7 @@ sub init { +@@ -990,7 +990,7 @@ sub init { my_prompt_loop(prefer_installer => 'MB', $matcher, 'MB|EUMM|RAND'); if (!$matcher or 'makepl_arg make_arg' =~ /$matcher/) { @@ -24,7 +26,7 @@ index 53ffbf1..53976ff 100644 my_dflt_prompt(make_arg => "", $matcher); if ( $CPAN::Config->{makepl_arg} =~ /LIBS=|INC=/ ) { $CPAN::Frontend->mywarn( -@@ -969,7 +969,7 @@ sub init { +@@ -1022,7 +1022,7 @@ sub init { my_dflt_prompt(make_install_arg => $CPAN::Config->{make_arg} || "", $matcher); @@ -33,5 +35,3 @@ index 53ffbf1..53976ff 100644 my_dflt_prompt(mbuild_arg => "", $matcher); if (exists $CPAN::HandleConfig::keys{mbuild_install_build_command} --- -tg: (a508b62..) debian/cpan_definstalldirs (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/cpanplus_config_path.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/cpanplus_config_path.diff index 8f2f5d2bd3..e3e5ec9d52 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/cpanplus_config_path.diff +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/cpanplus_config_path.diff @@ -1,25 +1,26 @@ -Upstream-Status:Inappropriate [debian patch] - +From 9825086b15f34f365a272cc8d6caf4e2044bede6 Mon Sep 17 00:00:00 2001 From: Niko Tyni <ntyni@debian.org> +Date: Mon, 6 Jul 2009 22:17:53 +0300 Subject: Save local versions of CPANPLUS::Config::System into /etc/perl. - + This is a configuration file and needs to go in /etc by policy. Besides, /usr may not even be writable. - + This mirrors the Debian setup of CPAN.pm in debian/cpan_config_path. See #533707. +Patch-Name: debian/cpanplus_config_path.diff --- cpan/CPANPLUS/lib/CPANPLUS/Configure.pm | 1 + cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants.pm | 3 +++ 2 files changed, 4 insertions(+), 0 deletions(-) diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Configure.pm b/cpan/CPANPLUS/lib/CPANPLUS/Configure.pm -index baac91d..a3794de 100644 +index ba1ca07..25cbe5f 100644 --- a/cpan/CPANPLUS/lib/CPANPLUS/Configure.pm +++ b/cpan/CPANPLUS/lib/CPANPLUS/Configure.pm -@@ -276,6 +276,7 @@ Saves the configuration to the package name you provided. +@@ -280,6 +280,7 @@ Saves the configuration to the package name you provided. If this package is not C<CPANPLUS::Config::System>, it will be saved in your C<.cpanplus> directory, otherwise it will be attempted to be saved in the system wide directory. @@ -28,10 +29,10 @@ index baac91d..a3794de 100644 If no argument is provided, it will default to your personal config. diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants.pm b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants.pm -index 1a38200..6ee0d82 100644 +index 443d5a4..f7085a8 100644 --- a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants.pm +++ b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants.pm -@@ -199,6 +199,9 @@ use constant CONFIG_USER_FILE => sub { +@@ -209,6 +209,9 @@ use constant CONFIG_USER_FILE => sub { ) . '.pm'; }; use constant CONFIG_SYSTEM_FILE => sub { @@ -41,5 +42,3 @@ index 1a38200..6ee0d82 100644 require CPANPLUS::Internals; require File::Basename; my $dir = File::Basename::dirname( --- -tg: (a508b62..) debian/cpanplus_config_path (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/cpanplus_definstalldirs.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/cpanplus_definstalldirs.diff index bd5fe80618..6d05c34fbb 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/cpanplus_definstalldirs.diff +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/cpanplus_definstalldirs.diff @@ -1,18 +1,21 @@ -Upstream-Status:Inappropriate [debian patch] - +From 66517b14790aa6410fd37e411dd62521e1e02b7f Mon Sep 17 00:00:00 2001 From: Niko Tyni <ntyni@debian.org> +Date: Mon, 6 Jul 2009 21:58:41 +0300 Subject: Configure CPANPLUS to use the site directories by default. -Closes: 533707 - + +Bug-Debian: http://bugs.debian.org/533707 + The core modules usually default to INSTALLDIRS=perl (ExtUtils::MakeMaker) or installdirs=core (Module::Build), so we need to explicitly ask for the site destination to get upgraded versions into /usr/local. See also the sister patch, debian/cpan_definstalldirs . +Patch-Name: debian/cpanplus_definstalldirs.diff --- cpan/CPANPLUS/lib/CPANPLUS/Config/System.pm | 30 +++++++++++++++++++++++++++ 1 files changed, 30 insertions(+), 0 deletions(-) + create mode 100644 cpan/CPANPLUS/lib/CPANPLUS/Config/System.pm diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Config/System.pm b/cpan/CPANPLUS/lib/CPANPLUS/Config/System.pm new file mode 100644 @@ -50,5 +53,3 @@ index 0000000..5e6e11e +} + +1; --- -tg: (a508b62..) debian/cpanplus_definstalldirs (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/db_file_ver.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/db_file_ver.diff index e9aa60a9b9..ff07ec567d 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/db_file_ver.diff +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/db_file_ver.diff @@ -1,17 +1,19 @@ -Upstream-Status:Inappropriate [debian patch] - +From 0d1acf7af6da3a3f933faba8459ad9ff03fe3e5b Mon Sep 17 00:00:00 2001 +From: Brendan O'Dea <bod@debian.org> +Date: Fri, 16 Dec 2005 01:32:14 +1100 Subject: Remove overly restrictive DB_File version check. + Bug-Debian: http://bugs.debian.org/340047 Package dependencies ensure the correct library is linked at run-time. - +Patch-Name: debian/db_file_ver.diff --- cpan/DB_File/version.c | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) diff --git a/cpan/DB_File/version.c b/cpan/DB_File/version.c -index 47158d3..67ccdff 100644 +index e01f6f6..544e6ee 100644 --- a/cpan/DB_File/version.c +++ b/cpan/DB_File/version.c @@ -48,6 +48,7 @@ __getBerkeleyDBInfo() @@ -30,5 +32,3 @@ index 47158d3..67ccdff 100644 /* check that libdb is recent enough -- we need 2.3.4 or greater */ if (Major == 2 && (Minor < 3 || (Minor == 3 && Patch < 4))) --- -tg: (a508b62..) debian/db_file_ver (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/deprecate-with-apt.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/deprecate-with-apt.diff new file mode 100644 index 0000000000..65a132db36 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/deprecate-with-apt.diff @@ -0,0 +1,406 @@ +From c2bd2059cfbba573643c748ace4ff4db4cbf015d Mon Sep 17 00:00:00 2001 +From: Dominic Hargreaves <dom@earth.li> +Date: Mon, 17 May 2010 13:23:07 +0300 +Subject: Point users to Debian packages of deprecated core modules + +Bug-Debian: http://bugs.debian.org/580034 + +Class::ISA, Switch, Pod::Plainer, and (partially) Shell were +deprecated from the Perl core in 5.12.0. + +Class::ISA, Switch, Pod::Plainer were removed from the Perl core in +5.14.0. + +Shell and Devel::DProf, and Perl 4 libraries, were deprecated from the +Perl core in 5.14.0. + +To get a clean transition, perl/perl-modules is going to recommend the +separate Debian packages of these for one release cycle so that they will be +pulled in by default on upgrades. + +However, on systems configured to ignore recommendations the deprecation +warnings will still be useful, so modify them slightly to point to the +separate packages instead. + +Patch-Name: debian/deprecate-with-apt.diff +--- + lib/abbrev.pl | 2 +- + lib/assert.pl | 2 +- + lib/bigfloat.pl | 2 +- + lib/bigint.pl | 2 +- + lib/bigrat.pl | 2 +- + lib/cacheout.pl | 2 +- + lib/complete.pl | 2 +- + lib/ctime.pl | 2 +- + lib/deprecate.pm | 16 +++++++++++++++- + lib/dotsh.pl | 2 +- + lib/exceptions.pl | 2 +- + lib/fastcwd.pl | 2 +- + lib/find.pl | 2 +- + lib/finddepth.pl | 2 +- + lib/flush.pl | 2 +- + lib/getcwd.pl | 2 +- + lib/getopt.pl | 2 +- + lib/getopts.pl | 2 +- + lib/hostname.pl | 2 +- + lib/importenv.pl | 2 +- + lib/look.pl | 2 +- + lib/newgetopt.pl | 2 +- + lib/open2.pl | 2 +- + lib/open3.pl | 2 +- + lib/pwd.pl | 2 +- + lib/shellwords.pl | 2 +- + lib/stat.pl | 2 +- + lib/syslog.pl | 2 +- + lib/tainted.pl | 2 +- + lib/termcap.pl | 2 +- + lib/timelocal.pl | 2 +- + lib/validate.pl | 2 +- + 32 files changed, 46 insertions(+), 32 deletions(-) + +diff --git a/lib/abbrev.pl b/lib/abbrev.pl +index d46321f..0168631 100644 +--- a/lib/abbrev.pl ++++ b/lib/abbrev.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + ;# Usage: + ;# %foo = (); +diff --git a/lib/assert.pl b/lib/assert.pl +index d47e006..80593c5 100644 +--- a/lib/assert.pl ++++ b/lib/assert.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + # + # This library is no longer being maintained, and is included for backward +diff --git a/lib/bigfloat.pl b/lib/bigfloat.pl +index 82d0f5c..c21bac6 100644 +--- a/lib/bigfloat.pl ++++ b/lib/bigfloat.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + package bigfloat; + require "bigint.pl"; +diff --git a/lib/bigint.pl b/lib/bigint.pl +index 6de1c53..031e8ad 100644 +--- a/lib/bigint.pl ++++ b/lib/bigint.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + package bigint; + # +diff --git a/lib/bigrat.pl b/lib/bigrat.pl +index aaf1713..146a8f4 100644 +--- a/lib/bigrat.pl ++++ b/lib/bigrat.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + package bigrat; + require "bigint.pl"; +diff --git a/lib/cacheout.pl b/lib/cacheout.pl +index a5da453..937405d 100644 +--- a/lib/cacheout.pl ++++ b/lib/cacheout.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + # + # This library is no longer being maintained, and is included for backward +diff --git a/lib/complete.pl b/lib/complete.pl +index 9ed041c..2ab0c6a 100644 +--- a/lib/complete.pl ++++ b/lib/complete.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + ;# + # +diff --git a/lib/ctime.pl b/lib/ctime.pl +index aa00d00..ac24e71 100644 +--- a/lib/ctime.pl ++++ b/lib/ctime.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + ;# ctime.pl is a simple Perl emulation for the well known ctime(3C) function. + # +diff --git a/lib/deprecate.pm b/lib/deprecate.pm +index 7562c69..fc548b0 100644 +--- a/lib/deprecate.pm ++++ b/lib/deprecate.pm +@@ -7,6 +7,14 @@ our $VERSION = 0.02; + our %Config; + unless (%Config) { require Config; *Config = \%Config::Config; } + ++# Debian-specific change: recommend the separate Debian packages of ++# deprecated modules where available ++ ++my %DEBIAN_PACKAGES = ( ++ "Shell" => "libshell-perl", ++ "Devel::DProf" => "libdevel-dprof-perl" ++); ++ + # This isn't a public API. It's internal to code maintained by the perl-porters + # If you would like it to be a public API, please send a patch with + # documentation and tests. Until then, it may change without warning. +@@ -58,9 +66,15 @@ EOM + if (defined $callers_bitmask + && (vec($callers_bitmask, $warnings::Offsets{deprecated}, 1) + || vec($callers_bitmask, $warnings::Offsets{all}, 1))) { +- warn <<"EOM"; ++ if (my $deb = $DEBIAN_PACKAGES{$package}) { ++ warn <<"EOM"; ++$package will be removed from the Perl core distribution in the next major release. Please install the separate $deb package. It is being used at $call_file, line $call_line. ++EOM ++ } else { ++ warn <<"EOM"; + $package will be removed from the Perl core distribution in the next major release. Please install it from CPAN. It is being used at $call_file, line $call_line. + EOM ++ } + } + } + } +diff --git a/lib/dotsh.pl b/lib/dotsh.pl +index 92f1f4c..4085122 100644 +--- a/lib/dotsh.pl ++++ b/lib/dotsh.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + # + # @(#)dotsh.pl 03/19/94 +diff --git a/lib/exceptions.pl b/lib/exceptions.pl +index 8af64c8..b5b1427 100644 +--- a/lib/exceptions.pl ++++ b/lib/exceptions.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + # exceptions.pl + # tchrist@convex.com +diff --git a/lib/fastcwd.pl b/lib/fastcwd.pl +index 70007a1..2c7c42e 100644 +--- a/lib/fastcwd.pl ++++ b/lib/fastcwd.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + # By John Bazik + # +diff --git a/lib/find.pl b/lib/find.pl +index 8e1b42c..7fb2fbf 100644 +--- a/lib/find.pl ++++ b/lib/find.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + # This library is deprecated and unmaintained. It is included for + # compatibility with Perl 4 scripts which may use it, but it will be +diff --git a/lib/finddepth.pl b/lib/finddepth.pl +index 479905f..c07cea5 100644 +--- a/lib/finddepth.pl ++++ b/lib/finddepth.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + # This library is deprecated and unmaintained. It is included for + # compatibility with Perl 4 scripts which may use it, but it will be +diff --git a/lib/flush.pl b/lib/flush.pl +index c427976..e5ed0ae 100644 +--- a/lib/flush.pl ++++ b/lib/flush.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + # + # This library is no longer being maintained, and is included for backward +diff --git a/lib/getcwd.pl b/lib/getcwd.pl +index 77b2442..3810a99 100644 +--- a/lib/getcwd.pl ++++ b/lib/getcwd.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + # By Brandon S. Allbery + # +diff --git a/lib/getopt.pl b/lib/getopt.pl +index 1d4008a..019a165 100644 +--- a/lib/getopt.pl ++++ b/lib/getopt.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + ;# $RCSfile: getopt.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:23:58 $ + # +diff --git a/lib/getopts.pl b/lib/getopts.pl +index 37ecb4a..3d27418 100644 +--- a/lib/getopts.pl ++++ b/lib/getopts.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + ;# getopts.pl - a better getopt.pl + # +diff --git a/lib/hostname.pl b/lib/hostname.pl +index f57375e..b055d30 100644 +--- a/lib/hostname.pl ++++ b/lib/hostname.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + # From: asherman@fmrco.com (Aaron Sherman) + # +diff --git a/lib/importenv.pl b/lib/importenv.pl +index 625edf6..52ee722 100644 +--- a/lib/importenv.pl ++++ b/lib/importenv.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + # This library is no longer being maintained, and is included for backward + # compatibility with Perl 4 programs which may require it. +diff --git a/lib/look.pl b/lib/look.pl +index 7be55b2..12dcace 100644 +--- a/lib/look.pl ++++ b/lib/look.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + ;# Usage: &look(*FILEHANDLE,$key,$dict,$fold) + # +diff --git a/lib/newgetopt.pl b/lib/newgetopt.pl +index 4ac9470..08df6cb 100644 +--- a/lib/newgetopt.pl ++++ b/lib/newgetopt.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + # This library is no longer being maintained, and is included for backward + # compatibility with Perl 4 programs which may require it. +diff --git a/lib/open2.pl b/lib/open2.pl +index ceb5653..a05f2ab 100644 +--- a/lib/open2.pl ++++ b/lib/open2.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + # This legacy library is deprecated and will be removed in a future + # release of perl. +diff --git a/lib/open3.pl b/lib/open3.pl +index 9f4d5a4..27f7ab4 100644 +--- a/lib/open3.pl ++++ b/lib/open3.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + # This legacy library is deprecated and will be removed in a future + # release of perl. +diff --git a/lib/pwd.pl b/lib/pwd.pl +index bd8123b..bdace6e 100644 +--- a/lib/pwd.pl ++++ b/lib/pwd.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + ;# pwd.pl - keeps track of current working directory in PWD environment var + ;# +diff --git a/lib/shellwords.pl b/lib/shellwords.pl +index b562f5f..7f16375 100644 +--- a/lib/shellwords.pl ++++ b/lib/shellwords.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + ;# This legacy library is deprecated and will be removed in a future + ;# release of perl. +diff --git a/lib/stat.pl b/lib/stat.pl +index feda273..910ce1c 100644 +--- a/lib/stat.pl ++++ b/lib/stat.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + ;# This legacy library is deprecated and will be removed in a future + ;# release of perl. +diff --git a/lib/syslog.pl b/lib/syslog.pl +index 7504a5d..4c2b95f 100644 +--- a/lib/syslog.pl ++++ b/lib/syslog.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + # + # syslog.pl +diff --git a/lib/tainted.pl b/lib/tainted.pl +index e88bca1..d58c765 100644 +--- a/lib/tainted.pl ++++ b/lib/tainted.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + # This legacy library is deprecated and will be removed in a future + # release of perl. +diff --git a/lib/termcap.pl b/lib/termcap.pl +index a84cba3..e641f4d 100644 +--- a/lib/termcap.pl ++++ b/lib/termcap.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + ;# $RCSfile: termcap.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:24:16 $ + # +diff --git a/lib/timelocal.pl b/lib/timelocal.pl +index fefb9da..2297888 100644 +--- a/lib/timelocal.pl ++++ b/lib/timelocal.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + ;# timelocal.pl + ;# +diff --git a/lib/validate.pl b/lib/validate.pl +index fc2d16a..1a8aef4 100644 +--- a/lib/validate.pl ++++ b/lib/validate.pl +@@ -1,4 +1,4 @@ +-warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; ++warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install the separate libperl4-corelibs-perl package. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n"; + + ;# The validate routine takes a single multiline string consisting of + ;# lines containing a filename plus a file test to try on it. (The diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/disable-zlib-bundling.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/disable-zlib-bundling.diff index 44349a534e..80c0acb39d 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/disable-zlib-bundling.diff +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/disable-zlib-bundling.diff @@ -1,11 +1,12 @@ -Upstream-Status:Inappropriate [debian patch] - +From 90c7967530102c66bbff25d89273d3f0bf189a83 Mon Sep 17 00:00:00 2001 From: Niko Tyni <ntyni@debian.org> +Date: Fri, 10 Apr 2009 01:17:43 +0300 Subject: Disable zlib bundling in Compress::Raw::Zlib Compress::Raw::Zlib statically links its bundled version of zlib by default, but we use the system library instead. +Patch-Name: debian/disable-zlib-bundling.diff --- cpan/Compress-Raw-Zlib/config.in | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) @@ -27,5 +28,3 @@ index c56cc03..2c6659b 100644 OLD_ZLIB = False GZIP_OS_CODE = AUTO_DETECT --- -tg: (a508b62..) debian/disable-zlib-bundling (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/doc_info.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/doc_info.diff index be75f30144..a118da341c 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/doc_info.diff +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/doc_info.diff @@ -1,19 +1,21 @@ -Upstream-Status:Inappropriate [debian patch] - -Subject: Replace generic man(1) instructions with Debian-specific information. +From 16ebe1f5232621d8894aa6c6210fdf2fc9b54a84 Mon Sep 17 00:00:00 2001 +From: Brendan O'Dea <bod@debian.org> +Date: Fri, 18 Mar 2005 22:22:25 +1100 +Subject: Replace generic man(1) instructions with Debian-specific + information. Indicate that the user needs to install the perl-doc package. - +Patch-Name: debian/doc_info.diff --- pod/perl.pod | 12 ++++++++++-- 1 files changed, 10 insertions(+), 2 deletions(-) diff --git a/pod/perl.pod b/pod/perl.pod -index e67f062..3b8ae83 100644 +index 29cabf1..529ad6f 100644 --- a/pod/perl.pod +++ b/pod/perl.pod -@@ -242,8 +242,16 @@ For ease of access, the Perl manual has been split up into several sections. +@@ -261,8 +261,16 @@ For ease of access, the Perl manual has been split up into several sections. perlwin32 Perl notes for Windows @@ -32,5 +34,3 @@ index e67f062..3b8ae83 100644 In general, if something strange has gone wrong with your program and you're not sure where you should look for help, try the B<-w> switch first. It will --- -tg: (a508b62..) debian/doc_info (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/enc2xs_inc.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/enc2xs_inc.diff index 4cac4b75f4..7c33e90fda 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/enc2xs_inc.diff +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/enc2xs_inc.diff @@ -1,6 +1,8 @@ -Upstream-Status:Inappropriate [debian patch] - +From e9fd6e7729b9ebd9bc74b8cf295cd3a7f5aa5472 Mon Sep 17 00:00:00 2001 +From: Brendan O'Dea <bod@debian.org> +Date: Tue, 8 Mar 2005 19:30:38 +1100 Subject: Tweak enc2xs to follow symlinks and ignore missing @INC directories. + Bug-Debian: http://bugs.debian.org/290336 - ignore missing directories, @@ -8,6 +10,7 @@ Bug-Debian: http://bugs.debian.org/290336 - filter "." out when running "enc2xs -C", it's unnecessary and causes issues with follow => 1 (see #603686 and [rt.cpan.org #64585]) +Patch-Name: debian/enc2xs_inc.diff --- cpan/Encode/bin/enc2xs | 8 ++++---- 1 files changed, 4 insertions(+), 4 deletions(-) @@ -48,5 +51,3 @@ index 773c0a0..bc1ae1b 100644 $_ModLines = ""; for my $enc ( sort keys %LocalMod ) { $_ModLines .= --- -tg: (a508b62..) debian/enc2xs_inc (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/errno_ver.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/errno_ver.diff index de73ed549a..0f3bfa6667 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/errno_ver.diff +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/errno_ver.diff @@ -1,25 +1,28 @@ -Upstream-Status:Inappropriate [debian patch] +From 973bed42db538804179f39d66dab37c82c6ade24 Mon Sep 17 00:00:00 2001 +From: Brendan O'Dea <bod@debian.org> +Date: Fri, 16 Dec 2005 01:32:14 +1100 +Subject: Remove Errno version check due to upgrade problems with long-running + processes. -Subject: Remove Errno version check due to upgrade problems with long-running processes. Bug-Debian: http://bugs.debian.org/343351 Remove version check which can cause problems for long running processes embedding perl when upgrading to a newer version, compatible, but built on a different machine. - +Patch-Name: debian/errno_ver.diff --- ext/Errno/Errno_pm.PL | 5 ----- 1 files changed, 0 insertions(+), 5 deletions(-) diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL -index 124b8fc..b554cd4 100644 +index 56bc815..01f510a 100644 --- a/ext/Errno/Errno_pm.PL +++ b/ext/Errno/Errno_pm.PL -@@ -341,13 +341,8 @@ EOF +@@ -332,13 +332,8 @@ EOF + package Errno; - our (\@EXPORT_OK,\%EXPORT_TAGS,\@ISA,\$VERSION,\%errno,\$AUTOLOAD); - use Exporter (); + require Exporter; -use Config; use strict; @@ -27,8 +30,6 @@ index 124b8fc..b554cd4 100644 -"$Config{'archname'}-$Config{'osvers'}" or - die "Errno architecture ($Config{'archname'}-$Config{'osvers'}) does not match executable architecture (\$Config{'archname'}-\$Config{'osvers'})"; - - \$VERSION = "$VERSION"; + our \$VERSION = "$VERSION"; \$VERSION = eval \$VERSION; - \@ISA = qw(Exporter); --- -tg: (a508b62..) debian/errno_ver (depends on: upstream) + our \@ISA = 'Exporter'; diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/extutils_set_libperl_path.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/extutils_set_libperl_path.diff new file mode 100644 index 0000000000..4c2da327d5 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/extutils_set_libperl_path.diff @@ -0,0 +1,23 @@ +From 334ac01a8306485ed901f4fb45d79f39a944fe77 Mon Sep 17 00:00:00 2001 +From: Brendan O'Dea <bod@debian.org> +Date: Tue, 8 Mar 2005 19:30:38 +1100 +Subject: EU:MM: Set location of libperl.a to /usr/lib + +Patch-Name: debian/extutils_set_libperl_path.diff +--- + cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm | 2 +- + 1 files changed, 1 insertions(+), 1 deletions(-) + +diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm +index 4ee6b3f..42bbb83 100644 +--- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm ++++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm +@@ -2409,7 +2409,7 @@ MAP_PRELIBS = $Config{perllibs} $Config{cryptlib} + ($lperl = $libperl) =~ s/\$\(A\)/$self->{LIB_EXT}/; + } + unless ($libperl && -f $lperl) { # Ilya's code... +- my $dir = $self->{PERL_SRC} || "$self->{PERL_ARCHLIB}/CORE"; ++ my $dir = $self->{PERL_SRC} || "/usr/lib"; + $dir = "$self->{PERL_ARCHLIB}/.." if $self->{UNINSTALLED_PERL}; + $libperl ||= "libperl$self->{LIB_EXT}"; + $libperl = "$dir/$libperl"; diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/fakeroot.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/fakeroot.diff index 2c8def5a81..bd90af9b39 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/fakeroot.diff +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/fakeroot.diff @@ -1,5 +1,6 @@ -Upstream-Status:Inappropriate [debian patch] - +From a46a7107fb045ffa6047488b8002fec97b621a11 Mon Sep 17 00:00:00 2001 +From: Brendan O'Dea <bod@debian.org> +Date: Fri, 18 Mar 2005 22:22:25 +1100 Subject: Postpone LD_LIBRARY_PATH evaluation to the binary targets. Modify the setting of LD_LIBRARY_PATH to append pre-existing values at the @@ -9,16 +10,16 @@ This is required when building packages with dpkg-buildpackage and fakeroot, since fakeroot (which now sets LD_LIBRARY_PATH) is not used for the "build" rule where the Makefile is created, but is for the clean/binary* targets. - +Patch-Name: debian/fakeroot.diff --- Makefile.SH | 9 ++------- 1 files changed, 2 insertions(+), 7 deletions(-) diff --git a/Makefile.SH b/Makefile.SH -index fc13b2b..d420229 100755 +index eb6326a..1dac585 100755 --- a/Makefile.SH +++ b/Makefile.SH -@@ -50,12 +50,7 @@ case "$useshrplib" in +@@ -36,12 +36,7 @@ case "$useshrplib" in true) # Prefix all runs of 'miniperl' and 'perl' with # $ldlibpth so that ./perl finds *this* shared libperl. @@ -32,7 +33,7 @@ index fc13b2b..d420229 100755 pldlflags="$cccdlflags" static_ldflags='' -@@ -126,7 +121,7 @@ true) +@@ -112,7 +107,7 @@ true) ;; esac case "$ldlibpthname" in @@ -41,5 +42,3 @@ index fc13b2b..d420229 100755 *) case "$osname" in os2) --- -tg: (a508b62..) debian/fakeroot (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/find_html2text.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/find_html2text.diff new file mode 100644 index 0000000000..16de7ad022 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/find_html2text.diff @@ -0,0 +1,35 @@ +From ca66b95be369b47a6d372c3653be57cd737f7f21 Mon Sep 17 00:00:00 2001 +From: Andreas Marschke <andreas.marschke@googlemail.com> +Date: Sat, 17 Sep 2011 11:38:42 +0100 +Subject: Configure CPAN::Distribution with correct name of html2text + +Bug-Debian: http://bugs.debian.org/640479 +Patch-Name: debian/find_html2text.diff + +If you use cpan from Debian you usually wind up trying to read online +documentation through it. Unfortunately cpan can't find the +html2text.pl script even though it is installed using the Debian +package 'html2text'. + +Please see the attached patch for a quick fix of this issue. + +[Maintainer's note: html2text in Debian is not the same implementation +as the html2text.pl which is expected, but should provide similar +functionality]. +--- + cpan/CPAN/lib/CPAN/Distribution.pm | 2 +- + 1 files changed, 1 insertions(+), 1 deletions(-) + +diff --git a/cpan/CPAN/lib/CPAN/Distribution.pm b/cpan/CPAN/lib/CPAN/Distribution.pm +index 637ab27..a8193d9 100644 +--- a/cpan/CPAN/lib/CPAN/Distribution.pm ++++ b/cpan/CPAN/lib/CPAN/Distribution.pm +@@ -3715,7 +3715,7 @@ sub _display_url { + if $CPAN::DEBUG; + + # should we define it in the config instead? +- my $html_converter = "html2text.pl"; ++ my $html_converter = "html2text"; + + my $web_browser = $CPAN::Config->{'lynx'} || undef; + my $web_browser_out = $web_browser diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/document_makemaker_ccflags.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/document_makemaker_ccflags.diff new file mode 100644 index 0000000000..3bda8f7099 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/document_makemaker_ccflags.diff @@ -0,0 +1,31 @@ +From f0e3a51bd7286788e410510af86a6c07edac4445 Mon Sep 17 00:00:00 2001 +From: Niko Tyni <ntyni@debian.org> +Date: Mon, 30 May 2011 22:54:24 +0300 +Subject: Document that CCFLAGS should include $Config{ccflags} + +Bug: https://rt.cpan.org/Public/Bug/Display.html?id=68613 +Bug-Debian: http://bugs.debian.org/628522 + +Compiling XS extensions without $Config{ccflags} can break the +binary interface on some platforms. + +Patch-Name: fixes/document_makemaker_ccflags.diff +--- + cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm | 4 ++++ + 1 files changed, 4 insertions(+), 0 deletions(-) + +diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm +index be9624e..c56ca8f 100644 +--- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm ++++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm +@@ -1524,6 +1524,10 @@ currently used by MakeMaker but may be handy in Makefile.PLs. + String that will be included in the compiler call command line between + the arguments INC and OPTIMIZE. + ++The default value is taken from $Config{ccflags}. When overriding ++CCFLAGS, make sure to include the $Config{ccflags} settings to avoid ++binary incompatibilities. ++ + =item CONFIG + + Arrayref. E.g. [qw(archname manext)] defines ARCHNAME & MANEXT from diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/extutils-cbuilder-cflags.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/extutils-cbuilder-cflags.diff new file mode 100644 index 0000000000..cd86a76dea --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/extutils-cbuilder-cflags.diff @@ -0,0 +1,86 @@ +From 0c91624f1f9ec46a6f13cad3031b706213233479 Mon Sep 17 00:00:00 2001 +From: Niko Tyni <ntyni@debian.org> +Date: Thu, 28 Apr 2011 09:18:54 +0300 +Subject: Append CFLAGS and LDFLAGS to their Config.pm counterparts in + EU::CBuilder + +Bug: http://rt.perl.org/rt3//Public/Bug/Display.html?id=89478 +Bug-Debian: http://bugs.debian.org/624460 +Origin: upstream, http://perl5.git.perl.org/perl.git/commitdiff/011e8fb476b5fb27c9aa613360d918aa0b798b3d + +Since ExtUtils::CBuilder 0.27_04 (bleadperl commit 06e8058f27e4), +CFLAGS and LDFLAGS from the environment have overridden the Config.pm +ccflags and ldflags settings. This can cause binary incompatibilities +between the core Perl and extensions built with EU::CBuilder. + +Append to the Config.pm values rather than overriding them. + +Patch-Name: fixes/extutils-cbuilder-cflags.diff +--- + .../lib/ExtUtils/CBuilder/Base.pm | 6 +++- + dist/ExtUtils-CBuilder/t/04-base.t | 25 +++++++++++++++++++- + 2 files changed, 28 insertions(+), 3 deletions(-) + +diff --git a/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm b/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm +index b572312..2255c51 100644 +--- a/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm ++++ b/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm +@@ -40,11 +40,13 @@ sub new { + $self->{config}{$k} = $v unless exists $self->{config}{$k}; + } + $self->{config}{cc} = $ENV{CC} if defined $ENV{CC}; +- $self->{config}{ccflags} = $ENV{CFLAGS} if defined $ENV{CFLAGS}; ++ $self->{config}{ccflags} = join(" ", $self->{config}{ccflags}, $ENV{CFLAGS}) ++ if defined $ENV{CFLAGS}; + $self->{config}{cxx} = $ENV{CXX} if defined $ENV{CXX}; + $self->{config}{cxxflags} = $ENV{CXXFLAGS} if defined $ENV{CXXFLAGS}; + $self->{config}{ld} = $ENV{LD} if defined $ENV{LD}; +- $self->{config}{ldflags} = $ENV{LDFLAGS} if defined $ENV{LDFLAGS}; ++ $self->{config}{ldflags} = join(" ", $self->{config}{ldflags}, $ENV{LDFLAGS}) ++ if defined $ENV{LDFLAGS}; + + unless ( exists $self->{config}{cxx} ) { + my ($ccpath, $ccbase, $ccsfx ) = fileparse($self->{config}{cc}, qr/\.[^.]*/); +diff --git a/dist/ExtUtils-CBuilder/t/04-base.t b/dist/ExtUtils-CBuilder/t/04-base.t +index db0ef98..49819a1 100644 +--- a/dist/ExtUtils-CBuilder/t/04-base.t ++++ b/dist/ExtUtils-CBuilder/t/04-base.t +@@ -1,7 +1,7 @@ + #! perl -w + + use strict; +-use Test::More tests => 50; ++use Test::More tests => 64; + use Config; + use Cwd; + use File::Path qw( mkpath ); +@@ -328,6 +328,29 @@ is_deeply( $mksymlists_args, + "_prepare_mksymlists_args(): got expected arguments for Mksymlists", + ); + ++my %testvars = ( ++ CFLAGS => 'ccflags', ++ LDFLAGS => 'ldflags', ++); ++ ++while (my ($VAR, $var) = each %testvars) { ++ local $ENV{$VAR}; ++ $base = ExtUtils::CBuilder::Base->new( quiet => 1 ); ++ ok( $base, "ExtUtils::CBuilder::Base->new() returned true value" ); ++ isa_ok( $base, 'ExtUtils::CBuilder::Base' ); ++ like($base->{config}{$var}, qr/\Q$Config{$var}/, ++ "honours $var from Config.pm"); ++ ++ $ENV{$VAR} = "-foo -bar"; ++ $base = ExtUtils::CBuilder::Base->new( quiet => 1 ); ++ ok( $base, "ExtUtils::CBuilder::Base->new() returned true value" ); ++ isa_ok( $base, 'ExtUtils::CBuilder::Base' ); ++ like($base->{config}{$var}, qr/\Q$ENV{$VAR}/, ++ "honours $VAR from the environment"); ++ like($base->{config}{$var}, qr/\Q$Config{$var}/, ++ "doesn't override $var from Config.pm with $VAR from the environment"); ++} ++ + ##### + + for ($source_file, $object_file, $lib_file) { diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/h2ph-multiarch.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/h2ph-multiarch.diff new file mode 100644 index 0000000000..b18b464b07 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/h2ph-multiarch.diff @@ -0,0 +1,69 @@ +From 37969e249dfc593ebabfcb682893b6c69dc6b313 Mon Sep 17 00:00:00 2001 +From: Niko Tyni <ntyni@debian.org> +Date: Wed, 18 May 2011 21:44:06 -0700 +Subject: Make h2ph correctly search gcc include directories + +Bug: http://rt.perl.org/rt3/Public/Bug/Display.html?id=90122 +Bug-Debian: http://bugs.debian.org/625808 +Origin: upstream, http://perl5.git.perl.org/perl.git/commit/e7ec705d9b91d35fa99dc50d0a232b6372160a77 + +System header conversion with "h2ph -a" is currently broken on Ubuntu +Natty and Oneiric (unless the gcc-multilib package is installed for +backward compatibility), resulting in things like + + # perl -e 'require "syscall.ph"' + Can't locate asm/unistd.ph in @INC [...] + +This happens because Ubuntu has switched to a 'multiarch' setup, see +<https://wiki.ubuntu.com/MultiarchSpec> for details. + +The asm subdirectory isn't in $Config{usrinc} anymore: /usr/include/asm +is now /usr/include/x86_64-linux-gnu/asm. (The third component of the +new path varies with the actual architecture.) + +gcc --print-search-dirs doesn't really tell anything about where gcc +looks for the include directories, it was just used to find the gcc +internal directory prefix. + +Parse the output of "gcc -v -E" instead, and append $Config{usrinc} +for safety. Duplicates shouldn't matter. + +The h2ph "-a" switch isn't currently tested automatically, and that +seems nontrivial to do portably. Manual testing was done with + + # mkdir ttt + # ./perl -Ilib ./utils/h2ph -a -d $(pwd)/ttt syscall.h + +The gcc invocation has been tested to work with gcc 4.6, 4.1, and 3.3. + +http://bugs.debian.org/625808 +https://bugs.launchpad.net/bugs/777903 + +Patch-Name: fixes/h2ph-multiarch.diff +--- + utils/h2ph.PL | 12 ++---------- + 1 files changed, 2 insertions(+), 10 deletions(-) + +diff --git a/utils/h2ph.PL b/utils/h2ph.PL +index 87f3c7d..4545d6d 100644 +--- a/utils/h2ph.PL ++++ b/utils/h2ph.PL +@@ -761,16 +761,8 @@ sub queue_includes_from + # non-GCC?) C compilers, but gcc uses additional include directories. + sub inc_dirs + { +- my $from_gcc = `LC_ALL=C $Config{cc} -v 2>&1`; +- if( !( $from_gcc =~ s:^Reading specs from (.*?)/specs\b.*:$1/include:s ) ) +- { # gcc-4+ : +- $from_gcc = `LC_ALL=C $Config{cc} -print-search-dirs 2>&1`; +- if ( !($from_gcc =~ s/^install:\s*([^\s]+[^\s\/])([\s\/]*).*$/$1\/include/s) ) +- { +- $from_gcc = ''; +- }; +- }; +- length($from_gcc) ? ($from_gcc, $from_gcc . "-fixed", $Config{usrinc}) : ($Config{usrinc}); ++ my $from_gcc = `LC_ALL=C $Config{cc} -v -E - < /dev/null 2>&1 | awk '/^#include/, /^End of search list/' | grep '^ '`; ++ length($from_gcc) ? (split(' ', $from_gcc), $Config{usrinc}) : ($Config{usrinc}); + } + + diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/hurd-ccflags.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/hurd-ccflags.diff index 8868c643f1..901f98d344 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/hurd-ccflags.diff +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/hurd-ccflags.diff @@ -1,12 +1,16 @@ -Upstream-Status:Inappropriate [debian patch] - -Author: Samuel Thibault <sthibault@debian.org> +From f66e8575cb0ca11171f43efe0f9e3c6e790b75bc Mon Sep 17 00:00:00 2001 +From: Samuel Thibault <sthibault@debian.org> +Date: Wed, 4 Aug 2010 13:34:05 +0300 Subject: Make hints/gnu.sh append to $ccflags rather than overriding them + +Bug: http://rt.perl.org/rt3/Public/Bug/Display.html?id=92244 Bug-Debian: http://bugs.debian.org/587901 +Origin: upstream, http://perl5.git.perl.org/perl.git/commit/a190e648879 Don't override possible extra $ccflags values given to Configure on GNU/Hurd. +Patch-Name: fixes/hurd-ccflags.diff --- hints/gnu.sh | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) @@ -24,5 +28,3 @@ index 2cfce54..c1ba2db 100644 # The following routines are only available as stubs in GNU libc. # XXX remove this once metaconf detects the GNU libc stubs. --- -tg: (a508b62..) fixes/hurd-ccflags (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/hurd-hints.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/hurd-hints.diff new file mode 100644 index 0000000000..1ba9cbd7a4 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/hurd-hints.diff @@ -0,0 +1,48 @@ +From d6fd7595fcd04b332e7449f59ea298639f10a183 Mon Sep 17 00:00:00 2001 +From: Pino Toscano <pino@debian.org> +Date: Wed, 10 Aug 2011 08:11:33 +0300 +Subject: Improve general GNU hints, needed for GNU/Hurd. + +Bug-Debian: http://bugs.debian.org/636609 + +Patch-Name: fixes/hurd-hints.diff +--- + ext/ODBM_File/hints/gnu.pl | 1 + + hints/gnu.sh | 12 ++++++++++++ + 2 files changed, 13 insertions(+), 0 deletions(-) + create mode 100644 ext/ODBM_File/hints/gnu.pl + +diff --git a/ext/ODBM_File/hints/gnu.pl b/ext/ODBM_File/hints/gnu.pl +new file mode 100644 +index 0000000..db63567 +--- /dev/null ++++ b/ext/ODBM_File/hints/gnu.pl +@@ -0,0 +1 @@ ++do './hints/linux.pl' or die $@; +diff --git a/hints/gnu.sh b/hints/gnu.sh +index c1ba2db..f075642 100644 +--- a/hints/gnu.sh ++++ b/hints/gnu.sh +@@ -8,10 +8,22 @@ set `echo X "$libswanted "| sed -e 's/ nsl / /' -e 's/ c / pthread /'` + shift + libswanted="$*" + ++# Debian 4.0 puts ndbm in the -lgdbm_compat library. ++libswanted="$libswanted gdbm_compat" ++ + case "$optimize" in + '') optimize='-O2' ;; + esac + ++case "$plibpth" in ++'') plibpth=`gcc -print-search-dirs | grep libraries | ++ cut -f2- -d= | tr ':' $trnl | grep -v 'gcc' | sed -e 's:/$::'` ++ set X $plibpth # Collapse all entries on one line ++ shift ++ plibpth="$*" ++ ;; ++esac ++ + # Flags needed to produce shared libraries. + lddlflags='-shared' + diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/index-tainting.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/index-tainting.diff new file mode 100644 index 0000000000..204e9992a9 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/index-tainting.diff @@ -0,0 +1,73 @@ +From e25298a339dd6679f1b080f0125ac1b237b87950 Mon Sep 17 00:00:00 2001 +From: David Mitchell <davem@iabyn.com> +Date: Tue, 28 Jun 2011 17:04:40 +0100 +Subject: RT 64804: tainting with index() of a constant + +Bug: http://rt.perl.org/rt3/Public/Bug/Display.html?id=64804 +Bug-Debian: http://bugs.debian.org/291450 +Origin: upstream, http://perl5.git.perl.org/perl.git/commit/3b36395d31cf0a2f3a017505cd0ea857a7acb5d1 + +At compile time, ck_index with a tainted constant set PL_tainted, +which remained on during the rest of compilation, tainting all other +constants. + +Fix this by saving and restoring PL_tainted across the call to +fbm_compile, which is what sets PL_tainted. + +Patch-Name: fixes/index-tainting.diff +--- + op.c | 5 ++++- + t/op/taint.t | 16 +++++++++++++++- + 2 files changed, 19 insertions(+), 2 deletions(-) + +diff --git a/op.c b/op.c +index e21b9a4..973df13 100644 +--- a/op.c ++++ b/op.c +@@ -7780,8 +7780,11 @@ Perl_ck_index(pTHX_ OP *o) + OP *kid = cLISTOPo->op_first->op_sibling; /* get past pushmark */ + if (kid) + kid = kid->op_sibling; /* get past "big" */ +- if (kid && kid->op_type == OP_CONST) ++ if (kid && kid->op_type == OP_CONST) { ++ const bool save_taint = PL_tainted; + fbm_compile(((SVOP*)kid)->op_sv, 0); ++ PL_tainted = save_taint; ++ } + } + return ck_fun(o); + } +diff --git a/t/op/taint.t b/t/op/taint.t +index 9df6fee..a300b9b 100644 +--- a/t/op/taint.t ++++ b/t/op/taint.t +@@ -17,7 +17,7 @@ BEGIN { + use strict; + use Config; + +-plan tests => 774; ++plan tests => 778; + + $| = 1; + +@@ -2144,6 +2144,20 @@ end + is_tainted $dest, "ucfirst(tainted) taints its return value"; + } + ++ ++# tainted constants and index() ++# RT 64804; http://bugs.debian.org/291450 ++{ ++ ok(tainted $old_env_path, "initial taintedness"); ++ BEGIN { no strict 'refs'; my $v = $old_env_path; *{"::C"} = sub () { $v }; } ++ ok(tainted C, "constant is tainted properly"); ++ ok(!tainted "", "tainting not broken yet"); ++ index(undef, C); ++ ok(!tainted "", "tainting still works after index() of the constant"); ++} ++ ++ ++ + # This may bomb out with the alarm signal so keep it last + SKIP: { + skip "No alarm()" unless $Config{d_alarm}; diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/module-build-home-directory.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/module-build-home-directory.diff new file mode 100644 index 0000000000..1c9009b32a --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/module-build-home-directory.diff @@ -0,0 +1,37 @@ +From 9266292f705f2a3b6e5b97fa50e5f2be31371d5c Mon Sep 17 00:00:00 2001 +From: Dominic Hargreaves <dom@earth.li> +Date: Mon, 2 May 2011 10:35:04 +0100 +Subject: Fix failing tilde test when run under a UID without a passwd entry + +Bug: https://rt.cpan.org/Public/Bug/Display.html?id=67893 +Bug-Debian: http://bugs.debian.org/624850 + +Patch-Name: fixes/module-build-home-directory.diff +--- + cpan/Module-Build/t/tilde.t | 6 ++++-- + 1 files changed, 4 insertions(+), 2 deletions(-) + +diff --git a/cpan/Module-Build/t/tilde.t b/cpan/Module-Build/t/tilde.t +index fac821b..04f0210 100644 +--- a/cpan/Module-Build/t/tilde.t ++++ b/cpan/Module-Build/t/tilde.t +@@ -46,7 +46,8 @@ SKIP: { + + unless (defined $home) { + my @info = eval { getpwuid $> }; +- skip "No home directory for tilde-expansion tests", 15 if $@; ++ skip "No home directory for tilde-expansion tests", 15 if $@ ++ or !defined $info[7]; + $home = $info[7]; + } + +@@ -95,7 +96,8 @@ SKIP: { + # Again, with named users + SKIP: { + my @info = eval { getpwuid $> }; +- skip "No home directory for tilde-expansion tests", 1 if $@; ++ skip "No home directory for tilde-expansion tests", 1 if $@ ++ or !defined $info[7] or !defined $info[0]; + my ($me, $home) = @info[0,7]; + + my $expected = "$home/fooxzy"; diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/net_smtp_docs.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/net_smtp_docs.diff index 2307a09ea3..549fc1007d 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/fixes/net_smtp_docs.diff +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/net_smtp_docs.diff @@ -1,10 +1,12 @@ -Upstream-Status:Inappropriate [debian patch] - +From ab32eba7fcc45d864c22e8f4ee02e0a6712070e0 Mon Sep 17 00:00:00 2001 +From: Brendan O'Dea <bod@debian.org> +Date: Thu, 20 Sep 2007 19:47:14 +1000 Subject: Document the Net::SMTP 'Port' option + Bug-Debian: http://bugs.debian.org/100195 Bug: http://rt.cpan.org/Public/Bug/Display.html?id=36038 - +Patch-Name: fixes/net_smtp_docs.diff --- cpan/libnet/Net/SMTP.pm | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) @@ -21,5 +23,3 @@ index a28496d..07b2498 100644 Example: --- -tg: (a508b62..) fixes/net_smtp_docs (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/pod_fixes.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/pod_fixes.diff new file mode 100644 index 0000000000..eb0eb0bf44 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/pod_fixes.diff @@ -0,0 +1,145 @@ +From c6b1fdd18dab0236458502564e54c180bb0ce341 Mon Sep 17 00:00:00 2001 +From: Keith Thompson <kst@mib.org> +Date: Fri, 29 Jul 2011 17:17:00 -0700 +Subject: Fix typos in several pod/perl*.pod files + +Bug-Debian: http://bugs.debian.org/637816 +Origin: http://perl5.git.perl.org/perl.git/commit/7698aede74509727f7bca31c58fc7a53b182315d +Patch-Name: fixes/pod_fixes.diff +--- + pod/perlfunc.pod | 8 ++++---- + pod/perlglossary.pod | 10 +++++----- + pod/perlmod.pod | 4 ++-- + pod/perlretut.pod | 6 +++--- + 4 files changed, 14 insertions(+), 14 deletions(-) + +diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod +index 2ee3637..719a740 100644 +--- a/pod/perlfunc.pod ++++ b/pod/perlfunc.pod +@@ -3918,7 +3918,7 @@ count. A numeric repeat count may optionally be enclosed in brackets, as + in C<pack("C[80]", @arr)>. The repeat count gobbles that many values from + the LIST when used with all format types other than C<a>, C<A>, C<Z>, C<b>, + C<B>, C<h>, C<H>, C<@>, C<.>, C<x>, C<X>, and C<P>, where it means +-something else, dscribed below. Supplying a C<*> for the repeat count ++something else, described below. Supplying a C<*> for the repeat count + instead of a number means to use however many items are left, except for: + + =over +@@ -5870,7 +5870,7 @@ sometimes saying the opposite, for example) the results are not + well-defined. + + Because C<< <=> >> returns C<undef> when either operand is C<NaN> +-(not-a-number), and laso because C<sort> raises an exception unless the ++(not-a-number), and also because C<sort> raises an exception unless the + result of a comparison is defined, be careful when sorting with a + comparison function like C<< $a <=> $b >> any lists that might contain a + C<NaN>. The following example takes advantage that C<NaN != NaN> to +@@ -5958,7 +5958,7 @@ specified. + + A pattern matching the empty string (not to be confused with + an empty pattern C<//>, which is just one member of the set of patterns +-matching the epmty string), splits EXPR into individual ++matching the empty string), splits EXPR into individual + characters. For example: + + print join(':', split(/ */, 'hi there')), "\n"; +@@ -6222,7 +6222,7 @@ For example: + printf '<%.1e>', 10; # prints "<1.0e+01>" + + For "g" and "G", this specifies the maximum number of digits to show, +-including thoe prior to the decimal point and those after it; for ++including those prior to the decimal point and those after it; for + example: + + # These examples are subject to system-specific variation. +diff --git a/pod/perlglossary.pod b/pod/perlglossary.pod +index 639ce33..191371c 100644 +--- a/pod/perlglossary.pod ++++ b/pod/perlglossary.pod +@@ -507,7 +507,7 @@ the class (its L<objects|/object>). See also L</inheritance>. + + =item class method + +-A L</method> whose L</invocand> is a L</package> name, not an ++A L</method> whose L</invocant> is a L</package> name, not an + L</object> reference. A method associated with the class as a whole. + + =item client +@@ -1470,7 +1470,7 @@ Perl, C<print STDOUT "$foo\n";> can be understood as "verb + indirect-object object" where L</STDOUT> is the recipient of the + L<print|perlfunc/print> action, and C<"$foo"> is the object being + printed. Similarly, when invoking a L</method>, you might place the +-invocand between the method and its arguments: ++invocant between the method and its arguments: + + $gollum = new Pathetic::Creature "Smeagol"; + give $gollum "Fisssssh!"; +@@ -1548,11 +1548,11 @@ of compiler that takes a program and turns it into a more executable + form (L<syntax trees|/syntax tree>) within the I<perl> process itself, + which the Perl L</run time> system then interprets. + +-=item invocand ++=item invocant + + The agent on whose behalf a L</method> is invoked. In a L</class> +-method, the invocand is a package name. In an L</instance> method, +-the invocand is an object reference. ++method, the invocant is a package name. In an L</instance> method, ++the invocant is an object reference. + + =item invocation + +diff --git a/pod/perlmod.pod b/pod/perlmod.pod +index 5266f19..17de73e 100644 +--- a/pod/perlmod.pod ++++ b/pod/perlmod.pod +@@ -571,7 +571,7 @@ like for example handle the cloning of non-Perl data, if necessary. + C<CLONE> will be called once as a class method for every package that has it + defined (or inherits it). It will be called in the context of the new thread, + so all modifications are made in the new area. Currently CLONE is called with +-no parameters other than the invocand package name, but code should not assume ++no parameters other than the invocant package name, but code should not assume + that this will remain unchanged, as it is likely that in future extra parameters + will be passed in to give more information about the state of cloning. + +@@ -593,7 +593,7 @@ to make use of the objects, then a more sophisticated approach is + needed. + + Like C<CLONE>, C<CLONE_SKIP> is currently called with no parameters other +-than the invocand package name, although that may change. Similarly, to ++than the invocant package name, although that may change. Similarly, to + allow for future expansion, the return value should be a single C<0> or + C<1> value. + +diff --git a/pod/perlretut.pod b/pod/perlretut.pod +index ea80594..1c65f5b 100644 +--- a/pod/perlretut.pod ++++ b/pod/perlretut.pod +@@ -781,7 +781,7 @@ so may lead to surprising and unsatisfactory results. + =head2 Relative backreferences + + Counting the opening parentheses to get the correct number for a +-backreference is errorprone as soon as there is more than one ++backreference is error-prone as soon as there is more than one + capturing group. A more convenient technique became available + with Perl 5.10: relative backreferences. To refer to the immediately + preceding capture group one now may write C<\g{-1}>, the next but +@@ -1537,7 +1537,7 @@ the regexp in the I<last successful match> is used instead. So we have + + =head3 Global matching + +-The final two modifiers we will disccuss here, ++The final two modifiers we will discuss here, + C<//g> and C<//c>, concern multiple matches. + The modifier C<//g> stands for global matching and allows the + matching operator to match within a string as many times as possible. +@@ -1870,7 +1870,7 @@ substituted. + + C<\Q>, C<\L>, C<\l>, C<\U>, C<\u> and C<\E> are actually part of + double-quotish syntax, and not part of regexp syntax proper. They will +-work if they appear in a regular expression embeddded directly in a ++work if they appear in a regular expression embedded directly in a + program, but not when contained in a string that is interpolated in a + pattern. + diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/respect_umask.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/respect_umask.diff new file mode 100644 index 0000000000..a84c9f9e3e --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/respect_umask.diff @@ -0,0 +1,153 @@ +From 0d1ab4f799eb14d5488fcc959f4a6bdec548b370 Mon Sep 17 00:00:00 2001 +From: Brendan O'Dea <bod@debian.org> +Date: Tue, 8 Mar 2005 19:30:38 +1100 +Subject: Respect umask during installation + +This is needed to satisfy Debian policy regarding group-writable +site directories. + +Patch-Name: fixes/respect_umask.diff +--- + cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm | 18 +++++++++--------- + dist/ExtUtils-Install/lib/ExtUtils/Install.pm | 18 +++++++++--------- + 2 files changed, 18 insertions(+), 18 deletions(-) + +diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm +index 6964eea..865d36d 100644 +--- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm ++++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm +@@ -2053,7 +2053,7 @@ doc__install : doc_site_install + $(NOECHO) $(ECHO) INSTALLDIRS not defined, defaulting to INSTALLDIRS=site + + pure_perl_install :: all +- $(NOECHO) $(MOD_INSTALL) \ ++ $(NOECHO) umask 022; $(MOD_INSTALL) \ + read }.$self->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q{ \ + write }.$self->catfile('$(DESTINSTALLARCHLIB)','auto','$(FULLEXT)','.packlist').q{ \ + $(INST_LIB) $(DESTINSTALLPRIVLIB) \ +@@ -2067,7 +2067,7 @@ pure_perl_install :: all + + + pure_site_install :: all +- $(NOECHO) $(MOD_INSTALL) \ ++ $(NOECHO) umask 022; $(MOD_INSTALL) \ + read }.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{ \ + write }.$self->catfile('$(DESTINSTALLSITEARCH)','auto','$(FULLEXT)','.packlist').q{ \ + $(INST_LIB) $(DESTINSTALLSITELIB) \ +@@ -2080,7 +2080,7 @@ pure_site_install :: all + }.$self->catdir('$(PERL_ARCHLIB)','auto','$(FULLEXT)').q{ + + pure_vendor_install :: all +- $(NOECHO) $(MOD_INSTALL) \ ++ $(NOECHO) umask 022; $(MOD_INSTALL) \ + read }.$self->catfile('$(VENDORARCHEXP)','auto','$(FULLEXT)','.packlist').q{ \ + write }.$self->catfile('$(DESTINSTALLVENDORARCH)','auto','$(FULLEXT)','.packlist').q{ \ + $(INST_LIB) $(DESTINSTALLVENDORLIB) \ +@@ -2092,8 +2092,8 @@ pure_vendor_install :: all + + doc_perl_install :: all + $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod +- -$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB) +- -$(NOECHO) $(DOC_INSTALL) \ ++ -$(NOECHO) umask 022; $(MKPATH) $(DESTINSTALLARCHLIB) ++ -$(NOECHO) umask 022; $(DOC_INSTALL) \ + "Module" "$(NAME)" \ + "installed into" "$(INSTALLPRIVLIB)" \ + LINKTYPE "$(LINKTYPE)" \ +@@ -2103,8 +2103,8 @@ doc_perl_install :: all + + doc_site_install :: all + $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod +- -$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB) +- -$(NOECHO) $(DOC_INSTALL) \ ++ -$(NOECHO) umask 022; $(MKPATH) $(DESTINSTALLARCHLIB) ++ -$(NOECHO) umask 022; $(DOC_INSTALL) \ + "Module" "$(NAME)" \ + "installed into" "$(INSTALLSITELIB)" \ + LINKTYPE "$(LINKTYPE)" \ +@@ -2114,8 +2114,8 @@ doc_site_install :: all + + doc_vendor_install :: all + $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod +- -$(NOECHO) $(MKPATH) $(DESTINSTALLARCHLIB) +- -$(NOECHO) $(DOC_INSTALL) \ ++ -$(NOECHO) umask 022; $(MKPATH) $(DESTINSTALLARCHLIB) ++ -$(NOECHO) umask 022; $(DOC_INSTALL) \ + "Module" "$(NAME)" \ + "installed into" "$(INSTALLVENDORLIB)" \ + LINKTYPE "$(LINKTYPE)" \ +diff --git a/dist/ExtUtils-Install/lib/ExtUtils/Install.pm b/dist/ExtUtils-Install/lib/ExtUtils/Install.pm +index 3b030a5..cb0e9e0 100644 +--- a/dist/ExtUtils-Install/lib/ExtUtils/Install.pm ++++ b/dist/ExtUtils-Install/lib/ExtUtils/Install.pm +@@ -468,7 +468,7 @@ sub _can_write_dir { + + =pod + +-=item _mkpath($dir,$show,$mode,$verbose,$dry_run) ++=item _mkpath($dir,$show,$verbose,$dry_run) + + Wrapper around File::Path::mkpath() to handle errors. + +@@ -485,13 +485,13 @@ writable. + =cut + + sub _mkpath { +- my ($dir,$show,$mode,$verbose,$dry_run)=@_; ++ my ($dir,$show,$verbose,$dry_run)=@_; + if ( $verbose && $verbose > 1 && ! -d $dir) { + $show= 1; +- printf "mkpath(%s,%d,%#o)\n", $dir, $show, $mode; ++ printf "mkpath(%s,%d)\n", $dir, $show; + } + if (!$dry_run) { +- if ( ! eval { File::Path::mkpath($dir,$show,$mode); 1 } ) { ++ if ( ! eval { File::Path::mkpath($dir,$show); 1 } ) { + _choke("Can't create '$dir'","$@"); + } + +@@ -796,7 +796,7 @@ sub install { #XXX OS-SPECIFIC + _chdir($cwd); + } + foreach my $targetdir (sort keys %check_dirs) { +- _mkpath( $targetdir, 0, 0755, $verbose, $dry_run ); ++ _mkpath( $targetdir, 0, $verbose, $dry_run ); + } + foreach my $found (@found_files) { + my ($diff, $ffd, $origfile, $mode, $size, $atime, $mtime, +@@ -810,7 +810,7 @@ sub install { #XXX OS-SPECIFIC + $targetfile= _unlink_or_rename( $targetfile, 'tryhard', 'install' ) + unless $dry_run; + } elsif ( ! -d $targetdir ) { +- _mkpath( $targetdir, 0, 0755, $verbose, $dry_run ); ++ _mkpath( $targetdir, 0, $verbose, $dry_run ); + } + print "Installing $targetfile\n"; + +@@ -850,7 +850,7 @@ sub install { #XXX OS-SPECIFIC + + if ($pack{'write'}) { + $dir = install_rooted_dir(dirname($pack{'write'})); +- _mkpath( $dir, 0, 0755, $verbose, $dry_run ); ++ _mkpath( $dir, 0, $verbose, $dry_run ); + print "Writing $pack{'write'}\n" if $verbose; + $packlist->write(install_rooted_file($pack{'write'})) unless $dry_run; + } +@@ -1190,7 +1190,7 @@ be prepended as a directory to each installed file (and directory). + sub pm_to_blib { + my($fromto,$autodir,$pm_filter) = @_; + +- _mkpath($autodir,0,0755); ++ _mkpath($autodir,0); + while(my($from, $to) = each %$fromto) { + if( -f $to && -s $from == -s $to && -M $to < -M $from ) { + print "Skip $to (unchanged)\n"; +@@ -1213,7 +1213,7 @@ sub pm_to_blib { + # we wont try hard here. its too likely to mess things up. + forceunlink($to); + } else { +- _mkpath(dirname($to),0,0755); ++ _mkpath(dirname($to),0); + } + if ($need_filtering) { + run_filter($pm_filter, $from, $to); diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/sys-syslog-socket-timeout-kfreebsd.patch b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/sys-syslog-socket-timeout-kfreebsd.patch new file mode 100644 index 0000000000..e29e9b0c04 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/fixes/sys-syslog-socket-timeout-kfreebsd.patch @@ -0,0 +1,36 @@ +From 9ba88d73444c22788b7c2a212e15dbfe3da2a1af Mon Sep 17 00:00:00 2001 +From: Niko Tyni <ntyni@debian.org> +Date: Wed, 3 Aug 2011 22:36:24 +0300 +Subject: Use a socket timeout on GNU/kFreeBSD to catch ICMP port unreachable + messages + +Bug: http://rt.cpan.org/Ticket/Display.html?id=69997 +Bug-Debian: http://bugs.debian.org/627821 + +Without this, openlog() on a UDP socket may succeed on the FreeBSD kernel +even when there's no listener, causing test failures. + +It seems probable that all FreeBSD-based systems suffer from the +same issue, but that's for upstream to decide. + +Patch-Name: fixes/sys-syslog-socket-timeout-kfreebsd.patch +--- + cpan/Sys-Syslog/Syslog.pm | 5 ++++- + 1 files changed, 4 insertions(+), 1 deletions(-) + +diff --git a/cpan/Sys-Syslog/Syslog.pm b/cpan/Sys-Syslog/Syslog.pm +index 002e6e4..b445c66 100644 +--- a/cpan/Sys-Syslog/Syslog.pm ++++ b/cpan/Sys-Syslog/Syslog.pm +@@ -138,7 +138,10 @@ my @fallbackMethods = (); + # happy, the timeout is now zero by default on all systems + # except on OSX where it is set to 250 msec, and can be set + # with the infamous setlogsock() function. +-$sock_timeout = 0.25 if $^O =~ /darwin/; ++# ++# Debian change: include Debian GNU/kFreeBSD, lower to 1ms ++# see [rt.cpan.org #69997] ++$sock_timeout = 0.001 if $^O =~ /darwin|gnukfreebsd/; + + # coderef for a nicer handling of errors + my $err_sub = $options{nofatal} ? \&warnings::warnif : \&croak; diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/instmodsh_doc.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/instmodsh_doc.diff index 5555dfc43e..ab0133d92f 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/instmodsh_doc.diff +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/instmodsh_doc.diff @@ -1,8 +1,9 @@ -Upstream-Status:Inappropriate [debian patch] - +From ab89a31d1f46388a61953349c3546e4082cd38de Mon Sep 17 00:00:00 2001 +From: Brendan O'Dea <bod@debian.org> +Date: Tue, 8 Mar 2005 19:30:38 +1100 Subject: Debian policy doesn't install .packlist files for core or vendor. - +Patch-Name: debian/instmodsh_doc.diff --- cpan/ExtUtils-MakeMaker/bin/instmodsh | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) @@ -24,5 +25,3 @@ index 5874aa6..6a2f03e 100644 =head1 SEE ALSO ExtUtils::Installed --- -tg: (a508b62..) debian/instmodsh_doc (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/ld_run_path.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/ld_run_path.diff index 02610d34a9..d38b04b613 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/ld_run_path.diff +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/ld_run_path.diff @@ -1,25 +1,24 @@ -Upstream-Status:Inappropriate [debian patch] - +From 704f6017119ce0301a9105944512120a38a43a02 Mon Sep 17 00:00:00 2001 +From: Brendan O'Dea <bod@debian.org> +Date: Fri, 18 Mar 2005 22:22:25 +1100 Subject: Remove standard libs from LD_RUN_PATH as per Debian policy. - +Patch-Name: debian/ld_run_path.diff --- .../ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm | 3 +++ 1 files changed, 3 insertions(+), 0 deletions(-) diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm -index b807e97..6c955d7 100644 +index cf4826f..eb212b5 100644 --- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm +++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm -@@ -53,6 +53,9 @@ sub _unix_os2_ext { +@@ -54,6 +54,9 @@ sub _unix_os2_ext { my($pwd) = cwd(); # from Cwd.pm my($found) = 0; + # Debian-specific: don't use LD_RUN_PATH for standard dirs -+ $ld_run_path_seen{$_}++ for qw(/lib /usr/lib /usr/X11R6/lib); ++ $ld_run_path_seen{$_}++ for @libpath; + foreach my $thislib (split ' ', $potential_libs) { # Handle possible linker path arguments. --- -tg: (a508b62..) debian/ld_run_path (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/libnet_config_path.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/libnet_config_path.diff index a38e78ac34..6604d35c5b 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/libnet_config_path.diff +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/libnet_config_path.diff @@ -1,8 +1,10 @@ -Upstream-Status:Inappropriate [debian patch] - -Subject: Set location of libnet.cfg to /etc/perl/Net as /usr may not be writable. - +From 7465b6d008187580eabe655b9c8e75351d3d24b4 Mon Sep 17 00:00:00 2001 +From: Brendan O'Dea <bod@debian.org> +Date: Tue, 8 Mar 2005 19:30:38 +1100 +Subject: Set location of libnet.cfg to /etc/perl/Net as /usr may not be + writable. +Patch-Name: debian/libnet_config_path.diff --- cpan/libnet/Net/Config.pm | 7 +++---- 1 files changed, 3 insertions(+), 4 deletions(-) @@ -33,5 +35,3 @@ index db51c1f..8404593 100644 can be done by having a C<.libnetrc> file in their home directory. This file should return a reference to a HASH containing the keys described below. For example --- -tg: (a508b62..) debian/libnet_config_path (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/libperl_embed_doc.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/libperl_embed_doc.diff new file mode 100644 index 0000000000..cc3e0507f8 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/libperl_embed_doc.diff @@ -0,0 +1,26 @@ +From d70e88badfcc6edd05e884597f19fbbdcf2cf6a7 Mon Sep 17 00:00:00 2001 +From: Brendan O'Dea <bod@debian.org> +Date: Tue, 8 Mar 2005 19:30:38 +1100 +Subject: Note that libperl-dev package is required for embedded linking + +Bug-Debian: http://bugs.debian.org/186778 + +Patch-Name: debian/libperl_embed_doc.diff +--- + lib/ExtUtils/Embed.pm | 3 +++ + 1 files changed, 3 insertions(+), 0 deletions(-) + +diff --git a/lib/ExtUtils/Embed.pm b/lib/ExtUtils/Embed.pm +index 9710630..86f13b5 100644 +--- a/lib/ExtUtils/Embed.pm ++++ b/lib/ExtUtils/Embed.pm +@@ -305,6 +305,9 @@ and extensions in your C/C++ applications. + Typically, an application B<Makefile> will invoke ExtUtils::Embed + functions while building your application. + ++Note that on Debian systems the B<libperl-dev> package is required for ++compiling applications which embed an interpreter. ++ + =head1 @EXPORT + + ExtUtils::Embed exports the following functions: diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/m68k_thread_stress.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/m68k_thread_stress.diff index 675c9aa03d..f1dfe36043 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/m68k_thread_stress.diff +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/m68k_thread_stress.diff @@ -1,16 +1,19 @@ -Upstream-Status:Inappropriate [debian patch] - +From 55a718425dc4612ac01850ef786f75f072b20b9e Mon Sep 17 00:00:00 2001 +From: Niko Tyni <ntyni@debian.org> +Date: Mon, 8 Sep 2008 20:48:14 +0300 Subject: Disable some threads tests on m68k for now due to missing TLS. -Closes: #495826, #517938 +Bug-Debian: http://bugs.debian.org/495826 +Bug-Debian: http://bugs.debian.org/517938 +Patch-Name: debian/m68k_thread_stress.diff --- dist/threads-shared/t/stress.t | 4 ++++ dist/threads-shared/t/waithires.t | 6 ++++++ 2 files changed, 10 insertions(+), 0 deletions(-) diff --git a/dist/threads-shared/t/stress.t b/dist/threads-shared/t/stress.t -index adfd1ed..8573f1a 100755 +index 652a3e6..2f1b576 100644 --- a/dist/threads-shared/t/stress.t +++ b/dist/threads-shared/t/stress.t @@ -11,6 +11,10 @@ BEGIN { @@ -25,7 +28,7 @@ index adfd1ed..8573f1a 100755 use ExtUtils::testlib; diff --git a/dist/threads-shared/t/waithires.t b/dist/threads-shared/t/waithires.t -index e3a1086..633374e 100755 +index 3c3e852..349c5b4 100644 --- a/dist/threads-shared/t/waithires.t +++ b/dist/threads-shared/t/waithires.t @@ -16,6 +16,12 @@ BEGIN { @@ -41,5 +44,3 @@ index e3a1086..633374e 100755 } use ExtUtils::testlib; --- -tg: (a508b62..) debian/m68k_thread_stress (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/mod_paths.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/mod_paths.diff index 26d8ed03a2..2cc0946f51 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/mod_paths.diff +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/mod_paths.diff @@ -1,5 +1,6 @@ -Upstream-Status:Inappropriate [debian patch] - +From 11633e598640b02e19329f323623af254fbac451 Mon Sep 17 00:00:00 2001 +From: Brendan O'Dea <bod@debian.org> +Date: Fri, 18 Mar 2005 22:22:25 +1100 Subject: Tweak @INC ordering for Debian Our order is: @@ -15,16 +16,16 @@ The rationale being that an admin (via site), or module packager (vendor) can chose to shadow core modules when there is a newer version than is included in core. - +Patch-Name: debian/mod_paths.diff --- perl.c | 58 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 files changed, 58 insertions(+), 0 deletions(-) diff --git a/perl.c b/perl.c -index 05cea40..023d6a0 100644 +index f756e02..d26dcb0 100644 --- a/perl.c +++ b/perl.c -@@ -4125,6 +4125,11 @@ S_init_perllib(pTHX) +@@ -4219,6 +4219,11 @@ S_init_perllib(pTHX) INCPUSH_ADD_SUB_DIRS|INCPUSH_CAN_RELOCATE); #endif @@ -36,7 +37,7 @@ index 05cea40..023d6a0 100644 #ifdef SITEARCH_EXP /* sitearch is always relative to sitelib on Windows for * DLL-based path intuition to work correctly */ -@@ -4242,6 +4247,59 @@ S_init_perllib(pTHX) +@@ -4336,6 +4341,59 @@ S_init_perllib(pTHX) INCPUSH_ADD_OLD_VERS|INCPUSH_CAN_RELOCATE); #endif @@ -96,5 +97,3 @@ index 05cea40..023d6a0 100644 #ifdef PERL_OTHERLIBDIRS S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_OTHERLIBDIRS), INCPUSH_ADD_OLD_VERS|INCPUSH_ADD_ARCHONLY_SUB_DIRS --- -tg: (a508b62..) debian/mod_paths (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/module_build_man_extensions.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/module_build_man_extensions.diff index 63c8441bd2..b11433fb5e 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/module_build_man_extensions.diff +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/module_build_man_extensions.diff @@ -1,17 +1,21 @@ -Upstream-Status:Inappropriate [debian patch] +From fbb5f07872d45bac76b5c3c83b50a19aa5da10b0 Mon Sep 17 00:00:00 2001 +From: Niko Tyni <ntyni@debian.org> +Date: Thu, 8 May 2008 14:32:33 +0300 +Subject: Adjust Module::Build manual page extensions for the Debian Perl + policy -Subject: Adjust Module::Build manual page extensions for the Debian Perl policy Bug-Debian: http://bugs.debian.org/479460 +Patch-Name: debian/module_build_man_extensions.diff --- cpan/Module-Build/lib/Module/Build/Base.pm | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/cpan/Module-Build/lib/Module/Build/Base.pm b/cpan/Module-Build/lib/Module/Build/Base.pm -index 5bd8ec7..b4e606a 100644 +index fba916a..82df4cc 100644 --- a/cpan/Module-Build/lib/Module/Build/Base.pm +++ b/cpan/Module-Build/lib/Module/Build/Base.pm -@@ -3071,7 +3071,7 @@ sub manify_bin_pods { +@@ -3246,7 +3246,7 @@ sub manify_bin_pods { foreach my $file (keys %$files) { # Pod::Simple based parsers only support one document per instance. # This is expected to change in a future version (Pod::Simple > 3.03). @@ -20,7 +24,7 @@ index 5bd8ec7..b4e606a 100644 my $manpage = $self->man1page_name( $file ) . '.' . $self->config( 'man1ext' ); my $outfile = File::Spec->catfile($mandir, $manpage); -@@ -3096,7 +3096,7 @@ sub manify_lib_pods { +@@ -3271,7 +3271,7 @@ sub manify_lib_pods { while (my ($file, $relfile) = each %$files) { # Pod::Simple based parsers only support one document per instance. # This is expected to change in a future version (Pod::Simple > 3.03). @@ -29,5 +33,3 @@ index 5bd8ec7..b4e606a 100644 my $manpage = $self->man3page_name( $relfile ) . '.' . $self->config( 'man3ext' ); my $outfile = File::Spec->catfile( $mandir, $manpage); --- -tg: (a508b62..) debian/module_build_man_extensions (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/no_packlist_perllocal.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/no_packlist_perllocal.diff new file mode 100644 index 0000000000..3324c1e36f --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/no_packlist_perllocal.diff @@ -0,0 +1,88 @@ +From 44c7521619dd0e637920393184affcb26a27d5b7 Mon Sep 17 00:00:00 2001 +From: Brendan O'Dea <bod@debian.org> +Date: Tue, 8 Mar 2005 19:30:38 +1100 +Subject: Don't install .packlist or perllocal.pod for perl or vendor + +Patch-Name: debian/no_packlist_perllocal.diff +--- + cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm | 31 +++-------------------- + 1 files changed, 4 insertions(+), 27 deletions(-) + +diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm +index 42bbb83..a16e2d0 100644 +--- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm ++++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm +@@ -2054,8 +2054,6 @@ doc__install : doc_site_install + + pure_perl_install :: all + $(NOECHO) umask 022; $(MOD_INSTALL) \ +- read }.$self->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q{ \ +- write }.$self->catfile('$(DESTINSTALLARCHLIB)','auto','$(FULLEXT)','.packlist').q{ \ + $(INST_LIB) $(DESTINSTALLPRIVLIB) \ + $(INST_ARCHLIB) $(DESTINSTALLARCHLIB) \ + $(INST_BIN) $(DESTINSTALLBIN) \ +@@ -2081,8 +2079,6 @@ pure_site_install :: all + + pure_vendor_install :: all + $(NOECHO) umask 022; $(MOD_INSTALL) \ +- read }.$self->catfile('$(VENDORARCHEXP)','auto','$(FULLEXT)','.packlist').q{ \ +- write }.$self->catfile('$(DESTINSTALLVENDORARCH)','auto','$(FULLEXT)','.packlist').q{ \ + $(INST_LIB) $(DESTINSTALLVENDORLIB) \ + $(INST_ARCHLIB) $(DESTINSTALLVENDORARCH) \ + $(INST_BIN) $(DESTINSTALLVENDORBIN) \ +@@ -2091,37 +2087,19 @@ pure_vendor_install :: all + $(INST_MAN3DIR) $(DESTINSTALLVENDORMAN3DIR) + + doc_perl_install :: all +- $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod +- -$(NOECHO) umask 022; $(MKPATH) $(DESTINSTALLARCHLIB) +- -$(NOECHO) umask 022; $(DOC_INSTALL) \ +- "Module" "$(NAME)" \ +- "installed into" "$(INSTALLPRIVLIB)" \ +- LINKTYPE "$(LINKTYPE)" \ +- VERSION "$(VERSION)" \ +- EXE_FILES "$(EXE_FILES)" \ +- >> }.$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q{ + + doc_site_install :: all +- $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod +- -$(NOECHO) umask 02; $(MKPATH) $(DESTINSTALLARCHLIB) ++ $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLSITEARCH)/perllocal.pod ++ -$(NOECHO) umask 02; $(MKPATH) $(DESTINSTALLSITEARCH) + -$(NOECHO) umask 02; $(DOC_INSTALL) \ + "Module" "$(NAME)" \ + "installed into" "$(INSTALLSITELIB)" \ + LINKTYPE "$(LINKTYPE)" \ + VERSION "$(VERSION)" \ + EXE_FILES "$(EXE_FILES)" \ +- >> }.$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q{ ++ >> }.$self->catfile('$(DESTINSTALLSITEARCH)','perllocal.pod').q{ + + doc_vendor_install :: all +- $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod +- -$(NOECHO) umask 022; $(MKPATH) $(DESTINSTALLARCHLIB) +- -$(NOECHO) umask 022; $(DOC_INSTALL) \ +- "Module" "$(NAME)" \ +- "installed into" "$(INSTALLVENDORLIB)" \ +- LINKTYPE "$(LINKTYPE)" \ +- VERSION "$(VERSION)" \ +- EXE_FILES "$(EXE_FILES)" \ +- >> }.$self->catfile('$(DESTINSTALLARCHLIB)','perllocal.pod').q{ + + }; + +@@ -2130,13 +2108,12 @@ uninstall :: uninstall_from_$(INSTALLDIRS)dirs + $(NOECHO) $(NOOP) + + uninstall_from_perldirs :: +- $(NOECHO) $(UNINSTALL) }.$self->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q{ + + uninstall_from_sitedirs :: + $(NOECHO) $(UNINSTALL) }.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{ + + uninstall_from_vendordirs :: +- $(NOECHO) $(UNINSTALL) }.$self->catfile('$(VENDORARCHEXP)','auto','$(FULLEXT)','.packlist').q{ ++ + }; + + join("",@m); diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/patchlevel.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/patchlevel.diff new file mode 100644 index 0000000000..0a8a467f78 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/patchlevel.diff @@ -0,0 +1,30 @@ +From cf928101697efa4a46ada500c2f449caeb854fd4 Mon Sep 17 00:00:00 2001 +From: Niko Tyni <ntyni@debian.org> +Date: Sun, 15 May 2011 19:35:58 +0300 +Subject: List packaged patches in patchlevel.h + +Origin: vendor +Bug-Debian: http://bugs.debian.org/567489 + +The list of packaged patches is in patchlevel-debian.h, which is generated +from the debian/patches/ directory when building the package. + +Patch-Name: debian/patchlevel.diff +--- + patchlevel.h | 3 +++ + 1 files changed, 3 insertions(+), 0 deletions(-) + +diff --git a/patchlevel.h b/patchlevel.h +index 5dc2a53..1356595 100644 +--- a/patchlevel.h ++++ b/patchlevel.h +@@ -137,6 +137,9 @@ static const char * const local_patches[] = { + ,"uncommitted-changes" + #endif + PERL_GIT_UNPUSHED_COMMITS /* do not remove this line */ ++#ifdef DEBIAN ++#include "patchlevel-debian.h" ++#endif + ,NULL + }; + diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/perlivp.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/perlivp.diff index 304e4c1af8..98b1b501f5 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/perlivp.diff +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/perlivp.diff @@ -1,8 +1,9 @@ -Upstream-Status:Inappropriate [debian patch] - +From 4c7e04f75c9513451d1622e5a6dd58c2c8377d81 Mon Sep 17 00:00:00 2001 From: Niko Tyni <ntyni@debian.org> +Date: Fri, 9 Jan 2009 18:54:47 +0200 Subject: Make perlivp skip include directories in /usr/local -Closes: 510895 + +Bug-Debian: http://bugs.debian.org/510895 On Sat, Jan 10, 2009 at 12:37:18AM +1100, Brendan O'Dea wrote: > On Wed, Jan 7, 2009 at 12:21 AM, Niko Tyni <ntyni@debian.org> wrote: @@ -17,15 +18,15 @@ On Sat, Jan 10, 2009 at 12:37:18AM +1100, Brendan O'Dea wrote: > installed any local packages. As Niko points out, they will be > created as required. - Signed-off-by: Niko Tyni <ntyni@debian.org> +Patch-Name: debian/perlivp.diff --- utils/perlivp.PL | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) diff --git a/utils/perlivp.PL b/utils/perlivp.PL -index 9783261..156146f 100644 +index 6fcb670..1401cac 100644 --- a/utils/perlivp.PL +++ b/utils/perlivp.PL @@ -142,6 +142,7 @@ my $INC_total = 0; @@ -33,8 +34,6 @@ index 9783261..156146f 100644 foreach (@INC) { next if $_ eq '.'; # skip -d test here + next if m|/usr/local|; # not shipped on Debian - if ($^O eq 'MacOS') { - next if $_ eq ':'; # skip -d test here - next if $_ eq 'Dev:Pseudo:'; # why is this in @INC? --- -tg: (a508b62..) debian/perlivp (depends on: upstream) + if (-d $_) { + print "## Perl \@INC directory `$_' exists.\n" if $opt{'v'}; + $INC_there++; diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/prefix_changes.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/prefix_changes.diff new file mode 100644 index 0000000000..a1e17ce71e --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/prefix_changes.diff @@ -0,0 +1,118 @@ +From 148e2717682ce8c65475ffdeea84b3cdd1ab1649 Mon Sep 17 00:00:00 2001 +From: Brendan O'Dea <bod@debian.org> +Date: Tue, 8 Mar 2005 19:30:38 +1100 +Subject: Fiddle with *PREFIX and variables written to the makefile + +Fiddle with *PREFIX and variables written to the makefile so that +install directories may be changed when make is run by passing +PREFIX= to the "make install" command (used when packaging +modules). + +Patch-Name: debian/prefix_changes.diff +--- + cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm | 12 ++++++------ + cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm | 3 +-- + cpan/ExtUtils-MakeMaker/t/INST.t | 4 +--- + cpan/ExtUtils-MakeMaker/t/INST_PREFIX.t | 10 +++++----- + 4 files changed, 13 insertions(+), 16 deletions(-) + +diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm +index a38f274..93d3fe9 100644 +--- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm ++++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Any.pm +@@ -701,8 +701,6 @@ all POD files in MAN1PODS and MAN3PODS. + sub manifypods_target { + my($self) = shift; + +- my $man1pods = ''; +- my $man3pods = ''; + my $dependencies = ''; + + # populate manXpods & dependencies: +@@ -718,7 +716,7 @@ END + foreach my $section (qw(1 3)) { + my $pods = $self->{"MAN${section}PODS"}; + push @man_cmds, $self->split_command(<<CMD, %$pods); +- \$(NOECHO) \$(POD2MAN) --section=$section --perm_rw=\$(PERM_RW) ++ \$(NOECHO) \$(POD2MAN) --section=\$(MAN${section}EXT) --perm_rw=\$(PERM_RW) + CMD + } + +@@ -1521,9 +1519,11 @@ sub init_INSTALL_from_PREFIX { + $self->{SITEPREFIX} ||= $sprefix; + $self->{VENDORPREFIX} ||= $vprefix; + +- # Lots of MM extension authors like to use $(PREFIX) so we +- # put something sensible in there no matter what. +- $self->{PREFIX} = '$('.uc $self->{INSTALLDIRS}.'PREFIX)'; ++ my $p = $self->{PREFIX} = $self->{PERLPREFIX}; ++ for my $t (qw/PERL SITE VENDOR/) ++ { ++ $self->{"${t}PREFIX"} =~ s!^\Q$p\E(?=/|$)!\$(PREFIX)!; ++ } + } + + my $arch = $Config{archname}; +diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm +index a16e2d0..c308c49 100644 +--- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm ++++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm +@@ -2981,8 +2981,7 @@ sub prefixify { + print STDERR " prefixify $var => $path\n" if $Verbose >= 2; + print STDERR " from $sprefix to $rprefix\n" if $Verbose >= 2; + +- if( $self->{ARGS}{PREFIX} && +- $path !~ s{^\Q$sprefix\E\b}{$rprefix}s ) ++ if( $path !~ s{^\Q$sprefix\E\b}{$rprefix}s && $self->{ARGS}{PREFIX} ) + { + + print STDERR " cannot prefix, using default.\n" if $Verbose >= 2; +diff --git a/cpan/ExtUtils-MakeMaker/t/INST.t b/cpan/ExtUtils-MakeMaker/t/INST.t +index 6aac294..28294f2 100644 +--- a/cpan/ExtUtils-MakeMaker/t/INST.t ++++ b/cpan/ExtUtils-MakeMaker/t/INST.t +@@ -61,9 +61,7 @@ isa_ok( $mm, 'ExtUtils::MakeMaker' ); + is( $mm->{NAME}, 'Big::Dummy', 'NAME' ); + is( $mm->{VERSION}, 0.01, 'VERSION' ); + +-my $config_prefix = $Config{installprefixexp} || $Config{installprefix} || +- $Config{prefixexp} || $Config{prefix}; +-is( $mm->{PERLPREFIX}, $config_prefix, 'PERLPREFIX' ); ++is( $mm->{PERLPREFIX}, '$(PREFIX)', 'PERLPREFIX' ); + + is( !!$mm->{PERL_CORE}, !!$ENV{PERL_CORE}, 'PERL_CORE' ); + +diff --git a/cpan/ExtUtils-MakeMaker/t/INST_PREFIX.t b/cpan/ExtUtils-MakeMaker/t/INST_PREFIX.t +index fbb18a3..8987569 100644 +--- a/cpan/ExtUtils-MakeMaker/t/INST_PREFIX.t ++++ b/cpan/ExtUtils-MakeMaker/t/INST_PREFIX.t +@@ -10,7 +10,7 @@ BEGIN { + } + + use strict; +-use Test::More tests => 52; ++use Test::More tests => 47; + use MakeMaker::Test::Utils; + use MakeMaker::Test::Setup::BFD; + use ExtUtils::MakeMaker; +@@ -58,16 +58,16 @@ like( $stdout->read, qr{ + Writing\ MYMETA.yml\n + }x ); + +-is( $mm->{PREFIX}, '$(SITEPREFIX)', 'PREFIX set based on INSTALLDIRS' ); ++#is( $mm->{PREFIX}, '$(SITEPREFIX)', 'PREFIX set based on INSTALLDIRS' ); + + isa_ok( $mm, 'ExtUtils::MakeMaker' ); + + is( $mm->{NAME}, 'Big::Dummy', 'NAME' ); + is( $mm->{VERSION}, 0.01, 'VERSION' ); + +-foreach my $prefix (qw(PREFIX PERLPREFIX SITEPREFIX VENDORPREFIX)) { +- unlike( $mm->{$prefix}, qr/\$\(PREFIX\)/ ); +-} ++#foreach my $prefix (qw(PREFIX PERLPREFIX SITEPREFIX VENDORPREFIX)) { ++# unlike( $mm->{$prefix}, qr/\$\(PREFIX\)/ ); ++#} + + + my $PREFIX = File::Spec->catdir('foo', 'bar'); diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/prune_libs.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/prune_libs.diff index 5bb072c021..bb05a945b3 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/prune_libs.diff +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/prune_libs.diff @@ -1,21 +1,23 @@ -Upstream-Status:Inappropriate [debian patch] - +From 063566907896ff32bea27897fa73cebbbd7bacce Mon Sep 17 00:00:00 2001 +From: Brendan O'Dea <bod@debian.org> +Date: Fri, 18 Mar 2005 22:22:25 +1100 Subject: Prune the list of libraries wanted to what we actually need. + Bug-Debian: http://bugs.debian.org/128355 We want to keep the dependencies on perl-base as small as possible, and some of the original list may be present on buildds (see Bug#128355). - +Patch-Name: debian/prune_libs.diff --- Configure | 5 ++--- 1 files changed, 2 insertions(+), 3 deletions(-) diff --git a/Configure b/Configure -index 3a8732b..6013c86 100755 +index d9911f9..f59f75c 100755 --- a/Configure +++ b/Configure -@@ -1363,8 +1363,7 @@ libswanted_uselargefiles='' +@@ -1367,8 +1367,7 @@ libswanted_uselargefiles='' : set usesocks on the Configure command line to enable socks. : List of libraries we want. : If anyone needs extra -lxxx, put those in a hint file. @@ -25,7 +27,7 @@ index 3a8732b..6013c86 100755 : We probably want to search /usr/shlib before most other libraries. : This is only used by the lib/ExtUtils/MakeMaker.pm routine extliblist. glibpth=`echo " $glibpth " | sed -e 's! /usr/shlib ! !'` -@@ -22179,7 +22178,7 @@ sunos*X4*) +@@ -22308,7 +22307,7 @@ sunos*X4*) ;; *) case "$usedl" in $define|true|[yY]*) @@ -34,5 +36,3 @@ index 3a8732b..6013c86 100755 shift perllibs="$*" ;; --- -tg: (a508b62..) debian/prune_libs (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/series b/meta/recipes-devtools/perl/perl-5.14.2/debian/series new file mode 100644 index 0000000000..08adca5626 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/series @@ -0,0 +1,40 @@ +debian/arm_thread_stress_timeout.diff +debian/cpan_definstalldirs.diff +debian/db_file_ver.diff +debian/doc_info.diff +debian/enc2xs_inc.diff +debian/errno_ver.diff +debian/libperl_embed_doc.diff +fixes/respect_umask.diff +debian/writable_site_dirs.diff +debian/extutils_set_libperl_path.diff +debian/no_packlist_perllocal.diff +debian/prefix_changes.diff +debian/fakeroot.diff +debian/instmodsh_doc.diff +debian/ld_run_path.diff +debian/libnet_config_path.diff +debian/m68k_thread_stress.diff +debian/mod_paths.diff +debian/module_build_man_extensions.diff +debian/prune_libs.diff +fixes/net_smtp_docs.diff +debian/perlivp.diff +debian/disable-zlib-bundling.diff +debian/cpanplus_definstalldirs.diff +debian/cpanplus_config_path.diff +debian/deprecate-with-apt.diff +fixes/hurd-ccflags.diff +debian/squelch-locale-warnings.diff +debian/skip-upstream-git-tests.diff +fixes/extutils-cbuilder-cflags.diff +fixes/module-build-home-directory.diff +debian/patchlevel.diff +fixes/h2ph-multiarch.diff +fixes/index-tainting.diff +debian/skip-kfreebsd-crash.diff +fixes/document_makemaker_ccflags.diff +fixes/sys-syslog-socket-timeout-kfreebsd.patch +fixes/hurd-hints.diff +fixes/pod_fixes.diff +debian/find_html2text.diff diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/skip-kfreebsd-crash.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/skip-kfreebsd-crash.diff new file mode 100644 index 0000000000..7992129a51 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/skip-kfreebsd-crash.diff @@ -0,0 +1,39 @@ +From ff2815399ad94915da2e63cb3c4bbd2d02dac4b2 Mon Sep 17 00:00:00 2001 +From: Niko Tyni <ntyni@debian.org> +Date: Fri, 5 Aug 2011 10:50:18 +0300 +Subject: Skip a crashing test case in t/op/threads.t on GNU/kFreeBSD + +Bug: http://rt.perl.org/rt3/Ticket/Display.html?id=96272 +Bug-Debian: http://bugs.debian.org/628493 + +The crash is not a regression in 5.14, it just gets triggered there by +a new unrelated test case. + +Skip the test until the culprit is found. + +Patch-Name: debian/skip-kfreebsd-crash.diff +--- + t/op/threads.t | 4 ++++ + 1 files changed, 4 insertions(+), 0 deletions(-) + +diff --git a/t/op/threads.t b/t/op/threads.t +index 24e84e4..6a91366 100644 +--- a/t/op/threads.t ++++ b/t/op/threads.t +@@ -342,6 +342,9 @@ threads->create( + + EOI + ++SKIP: { ++ skip "[perl #96272] avoid crash on GNU/kFreeBSD", 1 ++ if $^O eq 'gnukfreebsd'; + # [perl #78494] Pipes shared between threads block when closed + watchdog 10; + { +@@ -351,5 +354,6 @@ watchdog 10; + threads->create(sub { })->join; + ok(1, "Pipes shared between threads do not block when closed"); + } ++} + + # EOF diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/skip-upstream-git-tests.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/skip-upstream-git-tests.diff new file mode 100644 index 0000000000..a157bc7f60 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/skip-upstream-git-tests.diff @@ -0,0 +1,59 @@ +From 2be2eed9148c38d3e982d3371f379ce77021aeb5 Mon Sep 17 00:00:00 2001 +From: Niko Tyni <ntyni@debian.org> +Date: Fri, 22 Apr 2011 11:15:32 +0300 +Subject: Skip tests specific to the upstream Git repository + +These tests fail if run from a different git repository than +upstream. This complicates things needlessly for downstream packagers. + +Skip the tests altogether even if the .git directory exists. + +Patch-Name: debian/skip-upstream-git-tests.diff +--- + t/porting/authors.t | 3 ++- + t/porting/cmp_version.t | 3 ++- + t/porting/manifest.t | 3 ++- + 3 files changed, 6 insertions(+), 3 deletions(-) + +diff --git a/t/porting/authors.t b/t/porting/authors.t +index 28ca1ca..3c7f069 100644 +--- a/t/porting/authors.t ++++ b/t/porting/authors.t +@@ -9,7 +9,8 @@ BEGIN { + use strict; + use warnings; + +-if (! -d '.git' ) { ++# Debian change: skip as we're probably in a different git repository ++if (1 || ! -d '.git' ) { + print "1..0 # SKIP: not being run from a git checkout\n"; + exit 0; + } +diff --git a/t/porting/cmp_version.t b/t/porting/cmp_version.t +index b3c677c..f89f2a7 100644 +--- a/t/porting/cmp_version.t ++++ b/t/porting/cmp_version.t +@@ -25,7 +25,8 @@ use File::Spec::Functions qw(rel2abs abs2rel catfile catdir curdir); + use Getopt::Std; + use Maintainers; + +-if (! -d '.git' ) { ++# Debian change: skip as we're probably in a different git repository ++if (1 || ! -d '.git' ) { + print "1..0 # SKIP: not being run from a git checkout\n"; + exit 0; + } +diff --git a/t/porting/manifest.t b/t/porting/manifest.t +index 48dd3ac..b08126b 100644 +--- a/t/porting/manifest.t ++++ b/t/porting/manifest.t +@@ -59,7 +59,8 @@ SKIP: { + + SKIP: { + chdir ".."; +- skip("not under git control", 3) unless -d '.git'; ++ # Debian change: skip as we're probably in a different git repository ++ skip("not under git control", 3) unless 0 && -d '.git'; + chomp(my @repo= grep { !/\.gitignore$/ } `git ls-files`); + skip("git ls-files didnt work",3) + if !@repo; diff --git a/meta/recipes-devtools/perl/perl-5.12.3/debian/squelch-locale-warnings.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/squelch-locale-warnings.diff index eac0fc30c4..71660b08ba 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/debian/squelch-locale-warnings.diff +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/squelch-locale-warnings.diff @@ -1,7 +1,8 @@ -Upstream-Status:Inappropriate [debian patch] - +From 718e9cbd59f0739fc9104af111e42fff66f927a7 Mon Sep 17 00:00:00 2001 From: Niko Tyni <ntyni@debian.org> +Date: Sun, 3 Oct 2010 21:36:17 +0300 Subject: Squelch locale warnings in Debian package maintainer scripts + Bug-Debian: http://bugs.debian.org/508764 The system locales are rather frequently out of sync with the C library @@ -12,13 +13,14 @@ by the DPKG_RUNNING_VERSION environment variable. Any real locale problem will show up after the system upgrade too, and the warning will be triggered normally again at that point. +Patch-Name: debian/squelch-locale-warnings.diff --- locale.c | 4 ++++ pod/perllocale.pod | 8 ++++++++ 2 files changed, 12 insertions(+), 0 deletions(-) diff --git a/locale.c b/locale.c -index 16ccce8..2592b3c 100644 +index 4631b86..94a0962 100644 --- a/locale.c +++ b/locale.c @@ -359,6 +359,10 @@ Perl_init_i18nl10n(pTHX_ int printwarn) @@ -33,10 +35,10 @@ index 16ccce8..2592b3c 100644 if (locwarn) { diff --git a/pod/perllocale.pod b/pod/perllocale.pod -index 0dbabe7..60b7bab 100644 +index 8926d8b..6c55889 100644 --- a/pod/perllocale.pod +++ b/pod/perllocale.pod -@@ -844,6 +844,14 @@ B<NOTE>: PERL_BADLANG only gives you a way to hide the warning message. +@@ -861,6 +861,14 @@ B<NOTE>: PERL_BADLANG only gives you a way to hide the warning message. The message tells about some problem in your system's locale support, and you should investigate what the problem is. @@ -51,5 +53,3 @@ index 0dbabe7..60b7bab 100644 =back The following environment variables are not specific to Perl: They are --- -tg: (a508b62..) debian/squelch-locale-warnings (depends on: upstream) diff --git a/meta/recipes-devtools/perl/perl-5.14.2/debian/writable_site_dirs.diff b/meta/recipes-devtools/perl/perl-5.14.2/debian/writable_site_dirs.diff new file mode 100644 index 0000000000..a4fc32aec0 --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.14.2/debian/writable_site_dirs.diff @@ -0,0 +1,36 @@ +From 492e0d6b4e3e0d786fb88b9058d581f6466c4a3e Mon Sep 17 00:00:00 2001 +From: Brendan O'Dea <bod@debian.org> +Date: Tue, 8 Mar 2005 19:30:38 +1100 +Subject: Set umask approproately for site install directories + +Policy requires group writable site directories + +Patch-Name: debian/writable_site_dirs.diff +--- + cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm | 6 +++--- + 1 files changed, 3 insertions(+), 3 deletions(-) + +diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm +index 865d36d..4ee6b3f 100644 +--- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm ++++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm +@@ -2067,7 +2067,7 @@ pure_perl_install :: all + + + pure_site_install :: all +- $(NOECHO) umask 022; $(MOD_INSTALL) \ ++ $(NOECHO) umask 02; $(MOD_INSTALL) \ + read }.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{ \ + write }.$self->catfile('$(DESTINSTALLSITEARCH)','auto','$(FULLEXT)','.packlist').q{ \ + $(INST_LIB) $(DESTINSTALLSITELIB) \ +@@ -2103,8 +2103,8 @@ doc_perl_install :: all + + doc_site_install :: all + $(NOECHO) $(ECHO) Appending installation info to $(DESTINSTALLARCHLIB)/perllocal.pod +- -$(NOECHO) umask 022; $(MKPATH) $(DESTINSTALLARCHLIB) +- -$(NOECHO) umask 022; $(DOC_INSTALL) \ ++ -$(NOECHO) umask 02; $(MKPATH) $(DESTINSTALLARCHLIB) ++ -$(NOECHO) umask 02; $(DOC_INSTALL) \ + "Module" "$(NAME)" \ + "installed into" "$(INSTALLSITELIB)" \ + LINKTYPE "$(LINKTYPE)" \ diff --git a/meta/recipes-devtools/perl/perl-5.12.3/fix_bad_rpath.patch b/meta/recipes-devtools/perl/perl-5.14.2/fix_bad_rpath.patch index 7b99857c17..69ac434779 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/fix_bad_rpath.patch +++ b/meta/recipes-devtools/perl/perl-5.14.2/fix_bad_rpath.patch @@ -10,16 +10,15 @@ This fixes this warning for perl recipe as well as libxml-parser-perl recipe. It is a fix to MakeMaker within perl, so all such perl recipes will get fixed with this perl fix. -Index: perl-5.12.3/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm +Index: perl-5.14.2/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm =================================================================== ---- perl-5.12.3.orig/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm -+++ perl-5.12.3/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm -@@ -54,7 +54,7 @@ sub _unix_os2_ext { +--- perl-5.14.2.orig/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm ++++ perl-5.14.2/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist/Kid.pm +@@ -55,6 +55,7 @@ sub _unix_os2_ext { my($found) = 0; # Debian-specific: don't use LD_RUN_PATH for standard dirs -- $ld_run_path_seen{$_}++ for qw(/lib /usr/lib /usr/X11R6/lib); -+ $ld_run_path_seen{$_}++ for qw(/lib /usr/lib /usr/X11R6/lib SYSROOTLIB); ++ push(@libpath, "SYSROOTLIB"); + $ld_run_path_seen{$_}++ for @libpath; foreach my $thislib (split ' ', $potential_libs) { - diff --git a/meta/recipes-devtools/perl/perl-5.12.3/generate-sh.patch b/meta/recipes-devtools/perl/perl-5.14.2/generate-sh.patch index 47f91c56d3..47f91c56d3 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/generate-sh.patch +++ b/meta/recipes-devtools/perl/perl-5.14.2/generate-sh.patch diff --git a/meta/recipes-devtools/perl/perl-5.12.3/installperl.patch b/meta/recipes-devtools/perl/perl-5.14.2/installperl.patch index 456012376e..456012376e 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/installperl.patch +++ b/meta/recipes-devtools/perl/perl-5.14.2/installperl.patch diff --git a/meta/recipes-devtools/perl/perl-5.12.3/letgcc-find-errno.patch b/meta/recipes-devtools/perl/perl-5.14.2/letgcc-find-errno.patch index 5161e4c8b6..5161e4c8b6 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/letgcc-find-errno.patch +++ b/meta/recipes-devtools/perl/perl-5.14.2/letgcc-find-errno.patch diff --git a/meta/recipes-devtools/perl/perl-5.12.3/native-nopacklist.patch b/meta/recipes-devtools/perl/perl-5.14.2/native-nopacklist.patch index 389c3342fb..389c3342fb 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/native-nopacklist.patch +++ b/meta/recipes-devtools/perl/perl-5.14.2/native-nopacklist.patch diff --git a/meta/recipes-devtools/perl/perl-5.12.3/native-perlinc.patch b/meta/recipes-devtools/perl/perl-5.14.2/native-perlinc.patch index f0bb1f6596..f0bb1f6596 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/native-perlinc.patch +++ b/meta/recipes-devtools/perl/perl-5.14.2/native-perlinc.patch diff --git a/meta/recipes-devtools/perl/perl-5.12.3/perl-configpm-switch.patch b/meta/recipes-devtools/perl/perl-5.14.2/perl-configpm-switch.patch index 9e9f342866..c6cc15c93f 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/perl-configpm-switch.patch +++ b/meta/recipes-devtools/perl/perl-5.14.2/perl-configpm-switch.patch @@ -9,18 +9,20 @@ to use the settings appropriate for the native and/or target builds as required. This also disables the use of the cache since the cached values would be valid for the host only. ---- perl-5.8.8/configpm 2007/04/30 03:10:43 1.1 -+++ perl-5.8.8/configpm 2007/04/30 03:11:56 -@@ -374,7 +374,7 @@ +Index: perl-5.14.2/configpm +=================================================================== +--- perl-5.14.2.orig/configpm ++++ perl-5.14.2/configpm +@@ -658,7 +658,7 @@ sub FETCH { my($self, $key) = @_; # check for cached value (which may be undef so we use exists not defined) -- return $self->{$key} if exists $self->{$key}; -+ #return $self->{$key} if exists $self->{$key}; - - return $self->fetch_string($key); +- return exists $self->{$key} ? $self->{$key} : $self->fetch_string($key); ++ return $self->fetch_string($key); } -@@ -530,7 +530,21 @@ + + ENDOFEND +@@ -816,7 +816,21 @@ $config_txt .= sprintf <<'ENDOFTIE', $fa sub DESTROY { } sub AUTOLOAD { diff --git a/meta/recipes-devtools/perl/perl-5.12.3/perl-configure.sh b/meta/recipes-devtools/perl/perl-5.14.2/perl-configure.sh index e72ce49f99..e72ce49f99 100755 --- a/meta/recipes-devtools/perl/perl-5.12.3/perl-configure.sh +++ b/meta/recipes-devtools/perl/perl-5.14.2/perl-configure.sh diff --git a/meta/recipes-devtools/perl/perl-5.12.3/perl-dynloader.patch b/meta/recipes-devtools/perl/perl-5.14.2/perl-dynloader.patch index 1840605df1..035beba66a 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/perl-dynloader.patch +++ b/meta/recipes-devtools/perl/perl-5.14.2/perl-dynloader.patch @@ -7,12 +7,14 @@ system. Update by Nitin A Kamble <nitin.a.kamble@intel.com> 2011/04/21 ---- perl-5.12.3/dist/XSLoader/XSLoader_pm.PL 2007/04/20 09:03:08 1.1 -+++ perl-5.12.3/dist/XSLoader/XSLoader_pm.PL 2007/04/20 09:03:08 -@@ -65,6 +65,19 @@ - print OUT <<'EOT'; - my $modpname = join('/',@modparts); - my $modlibname = (caller())[1]; +Index: perl-5.14.2/dist/XSLoader/XSLoader_pm.PL +=================================================================== +--- perl-5.14.2.orig/dist/XSLoader/XSLoader_pm.PL ++++ perl-5.14.2/dist/XSLoader/XSLoader_pm.PL +@@ -28,6 +28,20 @@ sub load { + + my ($module, $modlibname) = caller(); + + # OE: Allow env to form dynamic loader to look in a different place + # This is so it finds the host .so files, not the targets + if (defined $ENV{PERLHOSTLIB}) @@ -26,6 +28,7 @@ Update by Nitin A Kamble <nitin.a.kamble@intel.com> 2011/04/21 + } + print STDERR "*** Module name OUT: $modlibname\n"; + } - my $c = @modparts; - $modlibname =~ s,[\\/][^\\/]+$,, while $c--; # Q&D basename - my $file = "$modlibname/auto/$modpname/$modfname.$dl_dlext"; ++ + if (@_) { + $module = $_[0]; + } else { diff --git a/meta/recipes-devtools/perl/perl-5.12.3/perl-enable-gdbm.patch b/meta/recipes-devtools/perl/perl-5.14.2/perl-enable-gdbm.patch index aa83fca5ae..aa83fca5ae 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/perl-enable-gdbm.patch +++ b/meta/recipes-devtools/perl/perl-5.14.2/perl-enable-gdbm.patch diff --git a/meta/recipes-devtools/perl/perl-5.12.3/perl-moreconfig.patch b/meta/recipes-devtools/perl/perl-5.14.2/perl-moreconfig.patch index 59ce85a7a3..59ce85a7a3 100644 --- a/meta/recipes-devtools/perl/perl-5.12.3/perl-moreconfig.patch +++ b/meta/recipes-devtools/perl/perl-5.14.2/perl-moreconfig.patch diff --git a/meta/recipes-devtools/perl/perl-native_5.12.3.bb b/meta/recipes-devtools/perl/perl-native_5.14.2.bb index a8e2346606..0f49950478 100644 --- a/meta/recipes-devtools/perl/perl-native_5.12.3.bb +++ b/meta/recipes-devtools/perl/perl-native_5.14.2.bb @@ -4,7 +4,7 @@ SECTION = "libs" LICENSE = "Artistic|GPL" LIC_FILES_CHKSUM = "file://Copying;md5=2b4c6ffbcfcbdee469f02565f253d81a \ file://Artistic;md5=f921793d03cc6d63ec4b15e9be8fd3f8" -PR = "r5" +PR = "r0" LIC_FILES_CHKSUM = "file://Copying;md5=2b4c6ffbcfcbdee469f02565f253d81a \ file://Artistic;md5=f921793d03cc6d63ec4b15e9be8fd3f8" @@ -12,18 +12,12 @@ LIC_FILES_CHKSUM = "file://Copying;md5=2b4c6ffbcfcbdee469f02565f253d81a \ SRC_URI = "http://www.cpan.org/src/5.0/perl-${PV}.tar.gz \ file://Configure-multilib.patch \ file://perl-configpm-switch.patch \ - file://parallel_build_fix_1.patch \ - file://parallel_build_fix_2.patch \ - file://parallel_build_fix_3.patch \ - file://parallel_build_fix_4.patch \ - file://parallel_build_fix_5.patch \ - file://parallel_build_fix_6.patch \ file://native-nopacklist.patch \ file://native-perlinc.patch \ file://MM_Unix.pm.patch" -SRC_URI[md5sum] = "29975a69dce54e47fcd6331c085c6c99" -SRC_URI[sha256sum] = "5678bfd5c2cd59253a26171bf3e681235433b00c730eea8a8046e1b225c11d2f" +SRC_URI[md5sum] = "3306fbaf976dcebdcd49b2ac0be00eb9" +SRC_URI[sha256sum] = "6488359573bd7d41761bf935f66f827dc220fb3df961ef9b775d51fbd66548d3" S = "${WORKDIR}/perl-${PV}" @@ -88,15 +82,17 @@ do_install () { install lib/ExtUtils/typemap ${D}${libdir}/perl/${PV}/ExtUtils/ # perl shared library headers - for i in av.h embed.h gv.h keywords.h op.h perlio.h pp.h regexp.h \ - uconfig.h XSUB.h cc_runtime.h embedvar.h handy.h opnames.h \ - perliol.h pp_proto.h regnodes.h unixish.h config.h EXTERN.h \ - hv.h malloc_ctl.h pad.h perlsdio.h proto.h scope.h utf8.h \ - cop.h fakesdio.h INTERN.h mg.h patchlevel.h perlsfio.h \ - reentr.h sv.h utfebcdic.h cv.h fakethr.h intrpvar.h \ - nostdio.h perlapi.h perlvars.h util.h \ - dosish.h form.h iperlsys.h opcode.h perl.h perly.h regcomp.h \ - thread.h warnings.h; do + for i in av.h bitcount.h config.h cop.h cv.h dosish.h embed.h embedvar.h \ + EXTERN.h fakesdio.h fakethr.h form.h gv.h handy.h hv.h INTERN.h \ + intrpvar.h iperlsys.h keywords.h l1_char_class_tab.h malloc_ctl.h \ + metaconfig.h mg.h mydtrace.h nostdio.h opcode.h op.h opnames.h \ + op_reg_common.h overload.h pad.h parser.h patchlevel.h perlapi.h \ + perl.h perlio.h perliol.h perlsdio.h perlsfio.h perlvars.h \ + perly.h pp.h pp_proto.h proto.h reentr.h regcharclass.h regcomp.h \ + regexp.h regnodes.h scope.h sv.h thread.h time64_config.h \ + time64.h uconfig.h unixish.h utf8.h utfebcdic.h util.h \ + uudmap.h warnings.h XSUB.h + do install $i ${D}${libdir}/perl/${PV}/CORE done diff --git a/meta/recipes-devtools/perl/perl-rdepends_5.12.3.inc b/meta/recipes-devtools/perl/perl-rdepends_5.14.2.inc index 309bd17413..26239d2d52 100644 --- a/meta/recipes-devtools/perl/perl-rdepends_5.12.3.inc +++ b/meta/recipes-devtools/perl/perl-rdepends_5.14.2.inc @@ -17,14 +17,15 @@ RDEPENDS_perl-module-math-bigint-calc += "perl-module-integer " # Depends list # copy contents of /tmp/1 in this file -RDEPENDS_perl-module-archive-tar += "perl-module-exporter" RDEPENDS_perl-module-archive-tar-file += "perl-module-archive-tar" +RDEPENDS_perl-module-archive-tar += "perl-module-exporter" RDEPENDS_perl-module-attributes += "perl-module-xsloader" -RDEPENDS_perl-module-b += "perl-module-exporter" RDEPENDS_perl-module-b-debug += "perl-module-b" RDEPENDS_perl-module-bignum += "perl-module-bigint" RDEPENDS_perl-module-bigrat += "perl-module-bigint" RDEPENDS_perl-module-bigrat += "perl-module-exporter" +RDEPENDS_perl-module-b += "perl-module-exporter" +#RDEPENDS_perl-module-build += "perl-module-module-metadata" RDEPENDS_perl-module-carp += "perl-module-exporter" RDEPENDS_perl-module-cgi-util += "perl-module-exporter" RDEPENDS_perl-module-class-struct += "perl-module-exporter" @@ -32,27 +33,30 @@ RDEPENDS_perl-module-compress-raw-bzip2 += "perl-module-exporter" RDEPENDS_perl-module-compress-raw-zlib += "perl-module-exporter" RDEPENDS_perl-module-compress-zlib += "perl-module-exporter" RDEPENDS_perl-module-config-extensions += "perl-module-exporter" +#RDEPENDS_perl-module-cpan += "perl-module-mac-buildtools" RDEPENDS_perl-module-cpanplus += "perl-module-base" +RDEPENDS_perl-module-cpanplus += "perl-module-cpanplus" RDEPENDS_perl-module-cpanplus += "perl-module-exporter" RDEPENDS_perl-module-cpanplus += "perl-module-tie-hash" RDEPENDS_perl-module-data-dumper += "perl-module-exporter" RDEPENDS_perl-module-data-dumper += "perl-module-overload" RDEPENDS_perl-module-devel-peek += "perl-module-exporter" +RDEPENDS_perl-module-devel-peek += "perl-module-xsloader" RDEPENDS_perl-module-devel-selfstubber += "perl-module-selfloader" RDEPENDS_perl-module-digest-md5 += "perl-module-exporter" RDEPENDS_perl-module-digest-sha += "perl-module-dynaloader" RDEPENDS_perl-module-digest-sha += "perl-module-exporter" -RDEPENDS_perl-module-dynaloader += "perl-module-autoloader" -RDEPENDS_perl-module-encode += "perl-module-encode-config" -RDEPENDS_perl-module-encode += "perl-module-exporter" RDEPENDS_perl-module-encode-cjkconstants += "perl-module-exporter" RDEPENDS_perl-module-encode-encoder += "perl-module-exporter" RDEPENDS_perl-module-encode-encoding += "perl-module-encode" +RDEPENDS_perl-module-encode += "perl-module-encode-config" +RDEPENDS_perl-module-encode += "perl-module-exporter" RDEPENDS_perl-module-encode-unicode += "perl-module-encode" RDEPENDS_perl-module-english += "perl-module-exporter" +RDEPENDS_perl-module-errno += "perl-module-exporter" RDEPENDS_perl-module-exporter-heavy += "perl-module-exporter" -RDEPENDS_perl-module-extutils-command += "perl-module-exporter" RDEPENDS_perl-module-extutils-command-mm += "perl-module-exporter" +RDEPENDS_perl-module-extutils-command += "perl-module-exporter" RDEPENDS_perl-module-extutils-constant-proxysubs += "perl-module-extutils-constant-xs" RDEPENDS_perl-module-extutils-constant-xs += "perl-module-extutils-constant-base" RDEPENDS_perl-module-extutils-embed += "perl-module-exporter" @@ -64,8 +68,6 @@ RDEPENDS_perl-module-extutils-makemaker += "perl-module-extutils-my" RDEPENDS_perl-module-extutils-manifest += "perl-module-exporter" RDEPENDS_perl-module-extutils-miniperl += "perl-module-exporter" RDEPENDS_perl-module-extutils-mkbootstrap += "perl-module-exporter" -RDEPENDS_perl-module-extutils-mm += "perl-module-extutils-liblist" -RDEPENDS_perl-module-extutils-mm += "perl-module-extutils-makemaker" RDEPENDS_perl-module-extutils-mm-aix += "perl-module-extutils-mm-unix" RDEPENDS_perl-module-extutils-mm-beos += "perl-module-extutils-mm-any" RDEPENDS_perl-module-extutils-mm-beos += "perl-module-extutils-mm-unix" @@ -76,6 +78,8 @@ RDEPENDS_perl-module-extutils-mm-dos += "perl-module-extutils-mm-unix" RDEPENDS_perl-module-extutils-mm-nw5 += "perl-module-extutils-mm-win32" RDEPENDS_perl-module-extutils-mm-os2 += "perl-module-extutils-mm-any" RDEPENDS_perl-module-extutils-mm-os2 += "perl-module-extutils-mm-unix" +RDEPENDS_perl-module-extutils-mm += "perl-module-extutils-liblist" +RDEPENDS_perl-module-extutils-mm += "perl-module-extutils-makemaker" RDEPENDS_perl-module-extutils-mm-qnx += "perl-module-extutils-mm-unix" RDEPENDS_perl-module-extutils-mm-unix += "perl-module-extutils-mm-any" RDEPENDS_perl-module-extutils-mm-uwin += "perl-module-extutils-mm-unix" @@ -89,6 +93,7 @@ RDEPENDS_perl-module-extutils-mm-win95 += "perl-module-extutils-mm-win32" RDEPENDS_perl-module-extutils-my += "perl-module-extutils-mm" RDEPENDS_perl-module-extutils-parsexs += "perl-module-exporter" RDEPENDS_perl-module-fcntl += "perl-module-exporter" +RDEPENDS_perl-module-fcntl += "perl-module-xsloader" RDEPENDS_perl-module-file-basename += "perl-module-exporter" RDEPENDS_perl-module-file-compare += "perl-module-exporter" RDEPENDS_perl-module-file-copy += "perl-module-exporter" @@ -96,6 +101,8 @@ RDEPENDS_perl-module-file-find += "perl-module-cwd" RDEPENDS_perl-module-file-find += "perl-module-exporter" RDEPENDS_perl-module-file-find += "perl-module-file-basename" RDEPENDS_perl-module-file-find += "perl-module-file-spec" +RDEPENDS_perl-module-file-glob += "perl-module-xsloader" +RDEPENDS_perl-module-filehandle += "perl-module-io-file" RDEPENDS_perl-module-file-spec-cygwin += "perl-module-file-spec-unix" RDEPENDS_perl-module-file-spec-epoc += "perl-module-file-spec-unix" RDEPENDS_perl-module-file-spec-functions += "perl-module-exporter" @@ -104,27 +111,29 @@ RDEPENDS_perl-module-file-spec-os2 += "perl-module-file-spec-unix" RDEPENDS_perl-module-file-spec-vms += "perl-module-file-spec-unix" RDEPENDS_perl-module-file-spec-win32 += "perl-module-file-spec-unix" RDEPENDS_perl-module-file-temp += "perl-module-symbol" -RDEPENDS_perl-module-filehandle += "perl-module-io-file" RDEPENDS_perl-module-filter-util-call += "perl-module-dynaloader" RDEPENDS_perl-module-filter-util-call += "perl-module-exporter" RDEPENDS_perl-module-findbin += "perl-module-exporter" +RDEPENDS_perl-module-gdbm-file += "perl-module-carp" +RDEPENDS_perl-module-gdbm-file += "perl-module-exporter" +RDEPENDS_perl-module-gdbm-file += "perl-module-tie-hash" +RDEPENDS_perl-module-gdbm-file += "perl-module-xsloader" RDEPENDS_perl-module-getopt-std += "perl-module-exporter" -RDEPENDS_perl-module-hash-util += "perl-module-dynaloader" -RDEPENDS_perl-module-hash-util += "perl-module-exporter" RDEPENDS_perl-module-hash-util-fieldhash += "perl-module-exporter" -RDEPENDS_perl-module-i18n-collate += "perl-module-exporter" -RDEPENDS_perl-module-i18n-langinfo += "perl-module-dynaloader" +RDEPENDS_perl-module-hash-util += "perl-module-exporter" +RDEPENDS_perl-module-hash-util += "perl-module-xsloader" RDEPENDS_perl-module-i18n-langinfo += "perl-module-exporter" +RDEPENDS_perl-module-i18n-langinfo += "perl-module-xsloader" RDEPENDS_perl-module-i18n-langtags += "perl-module-exporter" RDEPENDS_perl-module-inc-latest += "perl-module-inc-latest-private" RDEPENDS_perl-module-io-compress-base-common += "perl-module-exporter" RDEPENDS_perl-module-io-compress-bzip2 += "perl-module-exporter " RDEPENDS_perl-module-io-compress-deflate += "perl-module-exporter " -RDEPENDS_perl-module-io-compress-gzip += "perl-module-exporter " RDEPENDS_perl-module-io-compress-gzip-constants += "perl-module-exporter" +RDEPENDS_perl-module-io-compress-gzip += "perl-module-exporter " RDEPENDS_perl-module-io-compress-rawdeflate += "perl-module-exporter " -RDEPENDS_perl-module-io-compress-zip += "perl-module-exporter " RDEPENDS_perl-module-io-compress-zip-constants += "perl-module-exporter" +RDEPENDS_perl-module-io-compress-zip += "perl-module-exporter " RDEPENDS_perl-module-io-compress-zlib-constants += "perl-module-exporter" RDEPENDS_perl-module-io-file += "perl-module-exporter" RDEPENDS_perl-module-io-handle += "perl-module-exporter" @@ -152,6 +161,7 @@ RDEPENDS_perl-module-locale-currency += "perl-module-exporter" RDEPENDS_perl-module-locale-language += "perl-module-exporter" RDEPENDS_perl-module-locale-script += "perl-module-exporter" RDEPENDS_perl-module-math-bigfloat += "perl-module-exporter" +RDEPENDS_perl-module-math-bigint-fastcalc += "perl-module-xsloader" RDEPENDS_perl-module-math-complex += "perl-module-exporter" RDEPENDS_perl-module-math-trig += "perl-module-exporter" RDEPENDS_perl-module-mime-base64 += "perl-module-exporter" @@ -168,30 +178,33 @@ RDEPENDS_perl-module-net-ftp-l += "perl-module-net-ftp-i" RDEPENDS_perl-module-net-ping += "perl-module-exporter" RDEPENDS_perl-module-net-time += "perl-module-exporter" RDEPENDS_perl-module-object-accessor += "perl-module-overload" +RDEPENDS_perl-module-perlio-encoding += "perl-module-xsloader" +RDEPENDS_perl-module-perlio-scalar += "perl-module-xsloader" +RDEPENDS_perl-module-perlio-via += "perl-module-xsloader" RDEPENDS_perl-module-pod-escapes += "perl-module-exporter" RDEPENDS_perl-module-pod-functions += "perl-module-exporter" -RDEPENDS_perl-module-pod-html += "perl-module-exporter" RDEPENDS_perl-module-pod-latex += "perl-module-pod-parseutils" RDEPENDS_perl-module-pod-simple-transcodesmart += "perl-module-encode" RDEPENDS_perl-module-pod-usage += "perl-module-pod-select" RDEPENDS_perl-module-posix += "perl-module-exporter" +RDEPENDS_perl-module-posix += "perl-module-xsloader" RDEPENDS_perl-module-safe += "perl-module-utf8" RDEPENDS_perl-module-scalar-util += "perl-module-exporter" RDEPENDS_perl-module-scalar-util += "perl-module-list-util" RDEPENDS_perl-module-scalar-util-pp += "perl-module-exporter" RDEPENDS_perl-module-sdbm-file += "perl-module-tie-hash" +RDEPENDS_perl-module-sdbm-file += "perl-module-xsloader" RDEPENDS_perl-module-search-dict += "perl-module-exporter" RDEPENDS_perl-module-socket += "perl-module-exporter" -RDEPENDS_perl-module-storable += "perl-module-carp" -RDEPENDS_perl-module-storable += "perl-module-dynaloader" +RDEPENDS_perl-module-socket += "perl-module-xsloader" RDEPENDS_perl-module-storable += "perl-module-exporter" +RDEPENDS_perl-module-storable += "perl-module-xsloader" RDEPENDS_perl-module-symbol += "perl-module-exporter" -RDEPENDS_perl-module-sys-hostname += "perl-module-autoloader" RDEPENDS_perl-module-sys-hostname += "perl-module-exporter" RDEPENDS_perl-module-term-complete += "perl-module-exporter" -RDEPENDS_perl-module-test += "perl-module-exporter" RDEPENDS_perl-module-test-builder-module += "perl-module-exporter" RDEPENDS_perl-module-test-builder-tester-color += "perl-module-test-builder-tester" +RDEPENDS_perl-module-test += "perl-module-exporter" RDEPENDS_perl-module-text-abbrev += "perl-module-exporter" RDEPENDS_perl-module-text-tabs += "perl-module-exporter" RDEPENDS_perl-module-text-wrap += "perl-module-exporter" @@ -203,6 +216,7 @@ RDEPENDS_perl-module-time-hires += "perl-module-exporter" RDEPENDS_perl-module-time-local += "perl-module-exporter" RDEPENDS_perl-module-time-piece += "perl-module-dynaloader" RDEPENDS_perl-module-time-piece += "perl-module-exporter" +RDEPENDS_perl-module-unicode-collate += "perl-module-dynaloader" RDEPENDS_perl-module-unicode-normalize += "perl-module-dynaloader" RDEPENDS_perl-module-unicode-normalize += "perl-module-exporter" RDEPENDS_perl-module-unicode-ucd += "perl-module-exporter" diff --git a/meta/recipes-devtools/perl/perl-rprovides_5.12.3.inc b/meta/recipes-devtools/perl/perl-rprovides_5.14.2.inc index 9a648dbf2f..9a648dbf2f 100644 --- a/meta/recipes-devtools/perl/perl-rprovides_5.12.3.inc +++ b/meta/recipes-devtools/perl/perl-rprovides_5.14.2.inc diff --git a/meta/recipes-devtools/perl/perl_5.12.3.bb b/meta/recipes-devtools/perl/perl_5.14.2.bb index e4769a4235..788962638d 100644 --- a/meta/recipes-devtools/perl/perl_5.12.3.bb +++ b/meta/recipes-devtools/perl/perl_5.14.2.bb @@ -7,23 +7,25 @@ LIC_FILES_CHKSUM = "file://Copying;md5=2b4c6ffbcfcbdee469f02565f253d81a \ # We need gnugrep (for -I) DEPENDS = "virtual/db grep-native" DEPENDS += "gdbm zlib" -PR = "r5" +PR = "r0" # 5.10.1 has Module::Build built-in PROVIDES += "libmodule-build-perl" -# Major part of version -#PVM = "5.13" - SRC_URI = "http://www.cpan.org/src/5.0/perl-${PV}.tar.gz \ file://debian/arm_thread_stress_timeout.diff \ - file://debian/cpan_config_path.diff \ file://debian/cpan_definstalldirs.diff \ file://debian/db_file_ver.diff \ file://debian/doc_info.diff \ file://debian/enc2xs_inc.diff \ file://debian/errno_ver.diff \ - file://debian/extutils_hacks.diff \ + file://debian/libperl_embed_doc.diff \ + file://debian/fixes/respect_umask.diff \ + file://debian/writable_site_dirs.diff \ + file://debian/extutils_set_libperl_path.diff \ + file://debian/no_packlist_perllocal.diff \ + file://debian/prefix_changes.diff \ + file://debian/fakeroot.diff \ file://debian/instmodsh_doc.diff \ file://debian/ld_run_path.diff \ file://debian/libnet_config_path.diff \ @@ -32,31 +34,26 @@ SRC_URI = "http://www.cpan.org/src/5.0/perl-${PV}.tar.gz \ file://debian/module_build_man_extensions.diff \ file://debian/prune_libs.diff \ file://debian/fixes/net_smtp_docs.diff \ - file://debian/fixes/processPL.diff \ file://debian/perlivp.diff \ file://debian/disable-zlib-bundling.diff \ file://debian/cpanplus_definstalldirs.diff \ file://debian/cpanplus_config_path.diff \ - file://debian/fixes/autodie-flock.diff \ - file://debian/devel-ppport-ia64-optim.diff \ - file://debian/fixes/cpanplus-without-home.diff \ - file://debian/arm_optim.diff \ file://debian/deprecate-with-apt.diff \ file://debian/fixes/hurd-ccflags.diff \ file://debian/squelch-locale-warnings.diff \ - file://debian/fixes/lc-numeric-docs.diff \ - file://debian/fixes/lc-numeric-sprintf.diff \ - file://debian/fixes/concat-stack-corruption.diff \ - file://debian/fixes/h2ph-gcc-4.5.diff \ - file://debian/patchlevel \ + file://debian/skip-upstream-git-tests.diff \ + file://debian/fixes/extutils-cbuilder-cflags.diff \ + file://debian/fixes/module-build-home-directory.diff \ + file://debian/fixes/h2ph-multiarch.diff \ + file://debian/fixes/index-tainting.diff \ + file://debian/skip-kfreebsd-crash.diff \ + file://debian/fixes/document_makemaker_ccflags.diff \ + file://debian/fixes/sys-syslog-socket-timeout-kfreebsd.patch \ + file://debian/fixes/hurd-hints.diff \ + file://debian/fixes/pod_fixes.diff \ + file://debian/find_html2text.diff \ \ file://Makefile.patch \ - file://parallel_build_fix_1.patch \ - file://parallel_build_fix_2.patch \ - file://parallel_build_fix_3.patch \ - file://parallel_build_fix_4.patch \ - file://parallel_build_fix_5.patch \ - file://parallel_build_fix_6.patch \ file://Makefile.SH.patch \ file://installperl.patch \ file://perl-dynloader.patch \ @@ -78,8 +75,8 @@ SRC_URI = "http://www.cpan.org/src/5.0/perl-${PV}.tar.gz \ file://config.sh-64-be" # file://debian/fakeroot.diff -SRC_URI[md5sum] = "29975a69dce54e47fcd6331c085c6c99" -SRC_URI[sha256sum] = "5678bfd5c2cd59253a26171bf3e681235433b00c730eea8a8046e1b225c11d2f" +SRC_URI[md5sum] = "3306fbaf976dcebdcd49b2ac0be00eb9" +SRC_URI[sha256sum] = "6488359573bd7d41761bf935f66f827dc220fb3df961ef9b775d51fbd66548d3" inherit perlnative siteinfo @@ -220,8 +217,6 @@ perl_package_preprocess () { -e "s,${STAGING_BINDIR_NATIVE}/,,g" \ ${PKGD}${bindir}/h2xs \ ${PKGD}${bindir}/h2ph \ - ${PKGD}${bindir}/pod2html \ - ${PKGD}${bindir}/pod2latex \ ${PKGD}${bindir}/pod2man \ ${PKGD}${bindir}/pod2text \ ${PKGD}${bindir}/pod2usage \ |