diff -Nru perl-5.14.2/AUTHORS perl-5.14.3/AUTHORS --- perl-5.14.2/AUTHORS 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/AUTHORS 2012-10-11 21:16:44.000000000 +0300 @@ -15,7 +15,7 @@ -- A. C. Yardley A. Sinan Unur -Aaron Crane +Aaron Crane Aaron B. Dossett Aaron J. Mackey Abe Timmerman @@ -35,12 +35,14 @@ Alan Champion Alan Grover Alan Grow +Alan Haggai Alavi Alan Harder Alan Modra Alan Ferrency Alastair Douglas Albert Chin-A-Young Albert Dvornik +Alberto Simões Alessandro Forghieri Alexander Alekseev Alexander Hartmaier @@ -68,7 +70,7 @@ Anders Johnson Andreas Karrer Andreas Klussmann -Andreas Knig +Andreas König Andreas Marienborg Andreas Schwab Andrei Yelistratov @@ -105,7 +107,7 @@ Artur Bergman Arvan Ash Berlin -Ask Bjern Hansen +Ask Bjöern Hansen Audrey Tang Axel Boldt Barrie Slaymaker @@ -131,6 +133,7 @@ Blair Zajac Brandon Black Bo Borgerson +Bo Johansson Bo Lindbergh Bob Dalgleish Bob Wilkinson @@ -151,6 +154,8 @@ Brian Callaghan Brian Clarke brian d foy +Brian Fraser +Brian Greenfield Brian Grossman Brian Harrison Brian Jepson @@ -170,6 +175,7 @@ Campo Weijerman Carl Eklof Carl M. Fongheiser +Carl Hayter Carl Witty Cary D. Renzema Casey R. Tweten @@ -221,10 +227,11 @@ Conrad Augustin Conrad E. Kimball Craig A. Berry +Craig DeForest Craig Milo Rogers Curtis Poe Curtis Jewell -Dagfinn Ilmari Mannsker +Dagfinn Ilmari Mannsåker Dale Amon Damian Conway Damon Atkins @@ -241,12 +248,13 @@ Daniel Frederick Crisman Daniel Grisinger Daniel Lieberman -Daniel Muio +Daniel Muiño Daniel P. Berrange Daniel S. Lewart Daniel Yacob Danny R. Faught Danny Sadinoff +Darin McBride Darrell Kindred Darrell Schiebel Darren/Torin/Who Ever... @@ -295,6 +303,7 @@ David Wheeler Davin Milun Dean Roehrich +Dee Newcum deekoo Dennis Kaarsemaker Dennis Marsa @@ -304,10 +313,12 @@ dLux Dmitry Karasik Dominic Dunlop +Dominic Hargreaves Dominique Dumont Dominique Quatravaux Doug Campbell Doug MacEachern +Douglas Christopher Wilson Douglas E. Wegscheid Douglas Lankshear Douglas Wilson @@ -353,8 +364,9 @@ Frank Wiegand Franklin Chen Franz Fasching -Franois Dsarmnien -Frderic Chauveau +François Désarménien +Frederic Briere +Fréderic Chauveau Fyodor Krasnov G. Del Merritt Gabe Schaffer @@ -420,6 +432,7 @@ Henrik Tougaard Hernan Perez Masci Hershel Walters +Hojung Youn Holger Bechtold Hongwen Qiu Horst von Brand @@ -432,7 +445,7 @@ Ian Goodacre Ian Maloney Ian Phillipps -Ignasi Roca Carri +Ignasi Roca Carrió Igor Sutton Ilmari Karonen Ilya Martynov @@ -442,7 +455,7 @@ Inaba Hiroto Indy Singh Ingo Weinhold -Ingy dt Net +Ingy döt Net insecure Irving Reid Ivan Kurmanov @@ -457,7 +470,7 @@ James A. Duncan James FitzGibbon James Jurach -James E Keenan +James E Keenan James Mastros Jamshid Afshar Jan D. @@ -498,8 +511,10 @@ Jerrad Pierce Jerry D. Hedden Jesse Glick +Jesse Luehrs Jesse Vincent -Jess Quiroga +Jesús Quiroga +Jilles Tjoelker Jim Anderson Jim Avera Jim Balter @@ -517,18 +532,21 @@ Joe Orton Joe Schaefer Joe Smith +Joel Berger Joel Rosi-Schwartz Joerg Porath Joergen Haegg Johan Holtman Johan Vromans Johann Klasek +Johannes Plunien John Bley John Borwick John Cerney John D Groenveld John Goodyear John Hasstedt +John Hawkinson John Heidemann John Holdsworth John Hughes @@ -538,7 +556,7 @@ John Malmberg John Nolan John P. Linderman -John Peacock +John Peacock John Pfuntner John Poltorak John Q. Linux @@ -578,8 +596,8 @@ Jungshik Shin Justin Banks John E. Malmberg -Jrg Walter -Jos Pedro Oliveira +Jörg Walter +José Pedro Oliveira Ka-Ping Yee Kaoru Maeda Karl Glazebrook @@ -587,12 +605,12 @@ Karl Simon Berg Karl Williamson Karsten Sperling +Karthik Rajagopalan Kaveh Ghazi -Kay Rpke +Kay Röpke KAWAI Takanori Keith Neufeld -Keith Thompson -Keith Thompson +Keith Thompson Ken Estes Ken Fox Ken Hirsch @@ -606,6 +624,7 @@ Keong Lim Kevin Brintnall Kevin Chase +Kevin J. Woolley Kevin O'Gorman Kevin Ruscoe Kevin Ryde @@ -627,9 +646,10 @@ Larry W. Virden Larry Wall Lars Hecking -Lars D +Lars Dɪᴇᴄᴋᴏᴡ 迪拉斯 Laszlo Molnar Larwan Berke +Laurent Dami Leif Huhn Len Johnson Leo Lapworth @@ -639,6 +659,7 @@ Lesley Binks Lincoln D. Stein Lionel Cons +Louis Strous Luc St-Louis Luca Fini Lukas Mai @@ -648,21 +669,24 @@ Lupe Christoph Luther Huffman Maik Hentsche -Major Sbastien +Major Sébastien Makoto MATSUSHITA Malcolm Beattie Manuel Valente +Marc Green Marc Lehmann Marc Paquette -Marcel Grnauer +Marcel Grünauer Marcus Holland-Moritz Marek Rouchal Mark A Biggar Mark A. Hershberger +Mark A. Stratman Mark Aufflick Mark Bixby Mark Dickinson -Mark Fisher +Mark Dootson +Mark Leighton Fisher Mark Fowler Mark Hanson Mark J. Reed @@ -711,6 +735,7 @@ Matt S Trout Matthew Black Matthew Green +Matthew Horsfall Matthew Sachs Matthew T Harden Matthias Ulrich Neeracher @@ -753,6 +778,7 @@ Mike Pomraning Mike Rogers Mike Schilli +Mike Sheldrake Mike Stok Mike W Ellwood Mikhail Zabaluev @@ -768,7 +794,7 @@ Neil Bowers Neil Watkiss Nicholas Clark -Nicholas Oxhj +Nicholas Oxhøj Nicholas Perez Nick Cleaton Nick Duffek @@ -783,6 +809,7 @@ Nikola Milutinovic Nikolai Eipel Noah +Nobuhiro Iwamatsu Noirin Shirley Norbert Pueschel Norio Suzuki @@ -823,10 +850,11 @@ Paul Saab Paul Schinder Paul Szabo -Pavel Kakovsk +Pavel Kaňkovský Pavel Zakouril Pedro Felipe Horrillo Guerra Per Einar Ellefsen +Perlover Peter BARABAS Pete Peterson Peter Chines @@ -843,18 +871,20 @@ Peter Prymmer Peter Rabbitson Peter Scott -Peter Valdemar Mrch +Peter Valdemar Mørch Peter van Heusden Peter Wolfe Peter E. Yee Petter Reinholdtsen Phil Lobbes +Phil Monsen Philip Hazel Philip M. Gollucci Philip Newton Philippe M. Chiasson Philippe Bruhat (BooK) Piers Cawley +Pino Toscano Piotr Fusik Piotr Klaban Pradeep Hodigere @@ -892,7 +922,7 @@ Richard Kandarian Richard L. England Richard L. Maus, Jr. -Richard Mhn +Richard Möhn Richard Ohnemus Richard Soderberg Richard Yeh @@ -916,6 +946,7 @@ Rocco Caputo Roderick Schertler Rodger Anderson +Rodolfo Carvalho Ronald F. Guilmette Ronald J. Kimball Ronald Schmidt @@ -927,11 +958,13 @@ Russell Fulton Russell Mosemann Ryan Herbert -Salvador Fandio +Salvador Fandiño Salvador Ortiz Garcia +Sam Kimbrel Sam Tregar Sam Vilain -Samuli Krkkinen +Samuel Thibault +Samuli Kärkkäinen Schuyler Erle Scott A Crosby Scott Bronson @@ -947,18 +980,19 @@ Sean Robinson Sean Sheedy Sebastian Wittmeier -Sbastien Aperghis-Tramoni +Sébastien Aperghis-Tramoni Sebastien Barre Sebastian Schmidt Sebastian Steinlechner -Srgio Durigan Jnior +Sérgio Durigan Júnior Shawn +Shawn M Moore Sherm Pendley -Shigeya Suzuki +Shigeya Suzuki Shimpei Yamashita Shinya Hayakawa Shishir Gundavaram -Shlomi Fish +Shlomi Fish Simon Cozens Simon Glover Simon Leinen @@ -970,18 +1004,21 @@ Smylers Solar Designer Spider Boardman -Spiros Denaxas +Spiros Denaxas Sreeji K Das Stas Bekman -Steffen Mller +Steffen Müller +Steffen Schwigon Steffen Ullrich -Stphane Payrard +Stéphane Payrard Stepan Kasal Stephane Payrard Stephanie Beals +Stephen Bennett Stephen Clouse Stephen McCamant Stephen O. Lidie +Stephen Oberholtzer Stephen P. Potter Stephen Zander Steve A Fink @@ -994,6 +1031,7 @@ Steve Peters Steve Purkis Steve Vinoski +Stevan Little Steven Hirsch Steven Knight Steven Morlock @@ -1014,13 +1052,14 @@ Teun Burgers Thad Floryan Thomas Bowditch -Thomas Cont +Thomas Conté Thomas Dorner Thomas Kofler -Thomas Knig +Thomas König Thomas Pfau +Thomas Sibley Thomas Wegner -Thorsten Glaser +Thorsten Glaser Tim Adye Tim Ayers Tim Bunce @@ -1030,6 +1069,7 @@ Tim Mooney Tim Sweetman Tim Witham +Timothe Litt Timur I. Bakeyev Tkil Todd C. Miller @@ -1054,7 +1094,7 @@ Tony Sanders Tor Lillqvist Torsten Foertsch -Torsten Schnfeld +Torsten Schönfeld Trevor Blackwell Tuomas J. Lukka Tsutomu IKEGAMI @@ -1065,7 +1105,7 @@ Vadim Konovalov Valeriy E. Ushakov Vernon Lyon -Ville Skytt +Ville Skyttä Vincent Pit Vishal Bhatia Vlad Harchev @@ -1080,7 +1120,7 @@ Wayne Berke Wayne Scott Wayne Thompson -Wilfredo Snchez +Wilfredo Sánchez William J. Middleton William Mann William Middleton @@ -1088,7 +1128,7 @@ William Setzer William Williams William Yardley -Winfried Knig +Winfried König Wolfgang Laun Wolfram Humann Xavier Noria @@ -1103,6 +1143,6 @@ Yves Orton Zachary Miller Zefram -Zsbn Ambrus +Zsbán Ambrus Zbynek Vyskovsky -var Arnfjr Bjarmason +Ævar Arnfjörð Bjarmason diff -Nru perl-5.14.2/Configure perl-5.14.3/Configure --- perl-5.14.2/Configure 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/Configure 2012-10-11 21:16:44.000000000 +0300 @@ -16118,23 +16118,24 @@ procselfexe='' val="$undef" case "$d_readlink" in -"$define") - if $issymlink /proc/self/exe ; then - $ls -l /proc/self/exe > reflect + "$define") + : NetBSD first as /proc/self is a symlink to /proc/curproc, and it feels + : more tidy to avoid an extra level of symlink + set NetBSD /proc/curproc/exe Linux /proc/self/exe FreeBSD /proc/curproc/file Solaris /proc/self/path/a.out + while test $# -gt 0; do + type=$1; try=$2 + shift; shift + if $issymlink $try; then + $ls -l $try > reflect if $contains /`basename $ls` reflect >/dev/null 2>&1; then - echo "You have Linux-like /proc/self/exe." - procselfexe='"/proc/self/exe"' - val="$define" + echo "You have $type-like $try." + procselfexe='"'$try'"' + val="$define" + : This will break out of the loop + set X; shift fi - fi - if $issymlink /proc/curproc/file ; then - $ls -l /proc/curproc/file > reflect - if $contains /`basename $ls` reflect >/dev/null 2>&1; then - echo "You have BSD-like /proc/curproc/file." - procselfexe='"/proc/curproc/file"' - val="$define" - fi - fi + fi + done ;; esac $rm -f reflect diff -Nru perl-5.14.2/cpan/Digest/Digest.pm perl-5.14.3/cpan/Digest/Digest.pm --- perl-5.14.2/cpan/Digest/Digest.pm 2010-12-30 04:07:15.000000000 +0200 +++ perl-5.14.3/cpan/Digest/Digest.pm 2012-10-11 21:16:49.000000000 +0300 @@ -3,7 +3,7 @@ use strict; use vars qw($VERSION %MMAP $AUTOLOAD); -$VERSION = "1.16"; +$VERSION = "1.16_01"; %MMAP = ( "SHA-1" => [["Digest::SHA", 1], "Digest::SHA1", ["Digest::SHA2", 1]], @@ -24,7 +24,7 @@ shift; # class ignored my $algorithm = shift; my $impl = $MMAP{$algorithm} || do { - $algorithm =~ s/\W+//; + $algorithm =~ s/\W+//g; "Digest::$algorithm"; }; $impl = [$impl] unless ref($impl); @@ -35,7 +35,9 @@ ($class, @args) = @$class if ref($class); no strict 'refs'; unless (exists ${"$class\::"}{"VERSION"}) { - eval "require $class"; + my $pm_file = $class . ".pm"; + $pm_file =~ s{::}{/}g; + eval { require $pm_file }; if ($@) { $err ||= $@; next; diff -Nru perl-5.14.2/cpan/Digest/t/security.t perl-5.14.3/cpan/Digest/t/security.t --- perl-5.14.2/cpan/Digest/t/security.t 1970-01-01 02:00:00.000000000 +0200 +++ perl-5.14.3/cpan/Digest/t/security.t 2012-10-11 21:16:49.000000000 +0300 @@ -0,0 +1,14 @@ +#!/usr/bin/env perl + +# Digest->new() had an exploitable eval + +use strict; +use warnings; + +use Test::More tests => 1; + +use Digest; + +$LOL::PWNED = 0; +eval { Digest->new(q[MD;5;$LOL::PWNED = 42]) }; +is $LOL::PWNED, 0; diff -Nru perl-5.14.2/Cross/config.sh-arm-linux perl-5.14.3/Cross/config.sh-arm-linux --- perl-5.14.2/Cross/config.sh-arm-linux 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/Cross/config.sh-arm-linux 2012-10-11 21:16:44.000000000 +0300 @@ -36,8 +36,8 @@ api_version='14' api_versionstring='5.14.0' ar='ar' -archlib='/usr/lib/perl5/5.14.2/armv4l-linux' -archlibexp='/usr/lib/perl5/5.14.2/armv4l-linux' +archlib='/usr/lib/perl5/5.14.3/armv4l-linux' +archlibexp='/usr/lib/perl5/5.14.3/armv4l-linux' archname64='' archname='armv4l-linux' archobjs='' @@ -55,7 +55,7 @@ cat='cat' cc='cc' cccdlflags='-fpic' -ccdlflags='-rdynamic -Wl,-rpath,/usr/lib/perl5/5.14.2/armv4l-linux/CORE' +ccdlflags='-rdynamic -Wl,-rpath,/usr/lib/perl5/5.14.3/armv4l-linux/CORE' ccflags='-fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64' ccflags_uselargefiles='-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64' ccname='arm-linux-gcc' @@ -724,7 +724,7 @@ inc_version_list_init='0' incpath='' inews='' -installarchlib='./install_me_here/usr/lib/perl5/5.14.2/armv4l-linux' +installarchlib='./install_me_here/usr/lib/perl5/5.14.3/armv4l-linux' installbin='./install_me_here/usr/bin' installhtml1dir='' installhtml3dir='' @@ -732,13 +732,13 @@ installman3dir='./install_me_here/usr/share/man/man3' installprefix='./install_me_here/usr' installprefixexp='./install_me_here/usr' -installprivlib='./install_me_here/usr/lib/perl5/5.14.2' +installprivlib='./install_me_here/usr/lib/perl5/5.14.3' installscript='./install_me_here/usr/bin' -installsitearch='./install_me_here/usr/lib/perl5/site_perl/5.14.2/armv4l-linux' +installsitearch='./install_me_here/usr/lib/perl5/site_perl/5.14.3/armv4l-linux' installsitebin='./install_me_here/usr/bin' installsitehtml1dir='' installsitehtml3dir='' -installsitelib='./install_me_here/usr/lib/perl5/site_perl/5.14.2' +installsitelib='./install_me_here/usr/lib/perl5/site_perl/5.14.3' installsiteman1dir='./install_me_here/usr/share/man/man1' installsiteman3dir='./install_me_here/usr/share/man/man3' installsitescript='./install_me_here/usr/bin' @@ -867,8 +867,8 @@ pr='' prefix='/usr' prefixexp='/usr' -privlib='/usr/lib/perl5/5.14.2' -privlibexp='/usr/lib/perl5/5.14.2' +privlib='/usr/lib/perl5/5.14.3' +privlibexp='/usr/lib/perl5/5.14.3' procselfexe='"/proc/self/exe"' prototype='define' ptrsize='4' @@ -933,17 +933,17 @@ 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, 6, 17, 29, 31, 0' sig_size='68' signal_t='void' -sitearch='/usr/lib/perl5/site_perl/5.14.2/armv4l-linux' -sitearchexp='/usr/lib/perl5/site_perl/5.14.2/armv4l-linux' +sitearch='/usr/lib/perl5/site_perl/5.14.3/armv4l-linux' +sitearchexp='/usr/lib/perl5/site_perl/5.14.3/armv4l-linux' sitebin='/usr/bin' sitebinexp='/usr/bin' sitehtml1dir='' sitehtml1direxp='' sitehtml3dir='' sitehtml3direxp='' -sitelib='/usr/lib/perl5/site_perl/5.14.2' +sitelib='/usr/lib/perl5/site_perl/5.14.3' sitelib_stem='/usr/lib/perl5/site_perl' -sitelibexp='/usr/lib/perl5/site_perl/5.14.2' +sitelibexp='/usr/lib/perl5/site_perl/5.14.3' siteman1dir='/usr/share/man/man1' siteman1direxp='/usr/share/man/man1' siteman3dir='/usr/share/man/man3' @@ -980,7 +980,7 @@ strerror_r_proto='0' strings='/usr/include/string.h' submit='' -subversion='2' +subversion='3' sysman='/usr/share/man/man1' tail='' tar='' @@ -1068,8 +1068,8 @@ vendorprefixexp='' vendorscript='' vendorscriptexp='' -version='5.14.2' -version_patchlevel_string='version 14 subversion 2' +version='5.14.3' +version_patchlevel_string='version 14 subversion 3' versiononly='undef' vi='' voidflags='15' @@ -1084,7 +1084,7 @@ config_argc=0 PERL_REVISION=5 PERL_VERSION=14 -PERL_SUBVERSION=2 +PERL_SUBVERSION=3 PERL_API_REVISION=5 PERL_API_VERSION=14 PERL_API_SUBVERSION=0 diff -Nru perl-5.14.2/Cross/config.sh-arm-linux-n770 perl-5.14.3/Cross/config.sh-arm-linux-n770 --- perl-5.14.2/Cross/config.sh-arm-linux-n770 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/Cross/config.sh-arm-linux-n770 2012-10-11 21:16:44.000000000 +0300 @@ -36,8 +36,8 @@ api_version='14' api_versionstring='5.14.0' ar='ar' -archlib='/usr/lib/perl5/5.14.2/armv4l-linux' -archlibexp='/usr/lib/perl5/5.14.2/armv4l-linux' +archlib='/usr/lib/perl5/5.14.3/armv4l-linux' +archlibexp='/usr/lib/perl5/5.14.3/armv4l-linux' archname64='' archname='armv4l-linux' archobjs='' @@ -55,7 +55,7 @@ cat='cat' cc='arm-none-linux-gnueabi-gcc' cccdlflags='-fpic' -ccdlflags='-rdynamic -Wl,-rpath,/usr/lib/perl5/5.14.2/armv4l-linux/CORE' +ccdlflags='-rdynamic -Wl,-rpath,/usr/lib/perl5/5.14.3/armv4l-linux/CORE' ccflags='-fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64' ccflags_uselargefiles='-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64' ccname='arm-linux-gcc' @@ -703,7 +703,7 @@ inc_version_list_init='0' incpath='' inews='' -installarchlib='./install_me_here/usr/lib/perl5/5.14.2/armv4l-linux' +installarchlib='./install_me_here/usr/lib/perl5/5.14.3/armv4l-linux' installbin='./install_me_here/usr/bin' installhtml1dir='' installhtml3dir='' @@ -711,13 +711,13 @@ installman3dir='./install_me_here/usr/share/man/man3' installprefix='./install_me_here/usr' installprefixexp='./install_me_here/usr' -installprivlib='./install_me_here/usr/lib/perl5/5.14.2' +installprivlib='./install_me_here/usr/lib/perl5/5.14.3' installscript='./install_me_here/usr/bin' -installsitearch='./install_me_here/usr/lib/perl5/site_perl/5.14.2/armv4l-linux' +installsitearch='./install_me_here/usr/lib/perl5/site_perl/5.14.3/armv4l-linux' installsitebin='./install_me_here/usr/bin' installsitehtml1dir='' installsitehtml3dir='' -installsitelib='./install_me_here/usr/lib/perl5/site_perl/5.14.2' +installsitelib='./install_me_here/usr/lib/perl5/site_perl/5.14.3' installsiteman1dir='./install_me_here/usr/share/man/man1' installsiteman3dir='./install_me_here/usr/share/man/man3' installsitescript='./install_me_here/usr/bin' @@ -845,8 +845,8 @@ pr='' prefix='/usr' prefixexp='/usr' -privlib='/usr/lib/perl5/5.14.2' -privlibexp='/usr/lib/perl5/5.14.2' +privlib='/usr/lib/perl5/5.14.3' +privlibexp='/usr/lib/perl5/5.14.3' procselfexe='"/proc/self/exe"' prototype='define' ptrsize='4' @@ -907,17 +907,17 @@ 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, 6, 17, 29, 31, 0' sig_size='68' signal_t='void' -sitearch='/usr/lib/perl5/site_perl/5.14.2/armv4l-linux' -sitearchexp='/usr/lib/perl5/site_perl/5.14.2/armv4l-linux' +sitearch='/usr/lib/perl5/site_perl/5.14.3/armv4l-linux' +sitearchexp='/usr/lib/perl5/site_perl/5.14.3/armv4l-linux' sitebin='/usr/bin' sitebinexp='/usr/bin' sitehtml1dir='' sitehtml1direxp='' sitehtml3dir='' sitehtml3direxp='' -sitelib='/usr/lib/perl5/site_perl/5.14.2' +sitelib='/usr/lib/perl5/site_perl/5.14.3' sitelib_stem='/usr/lib/perl5/site_perl' -sitelibexp='/usr/lib/perl5/site_perl/5.14.2' +sitelibexp='/usr/lib/perl5/site_perl/5.14.3' siteman1dir='/usr/share/man/man1' siteman1direxp='/usr/share/man/man1' siteman3dir='/usr/share/man/man3' @@ -954,7 +954,7 @@ strerror_r_proto='0' strings='/usr/include/string.h' submit='' -subversion='2' +subversion='3' sysman='/usr/share/man/man1' tail='' tar='' @@ -1040,8 +1040,8 @@ vendorprefixexp='' vendorscript='' vendorscriptexp='' -version='5.14.2' -version_patchlevel_string='version 14 subversion 2' +version='5.14.3' +version_patchlevel_string='version 14 subversion 3' versiononly='undef' vi='' voidflags='15' @@ -1056,7 +1056,7 @@ config_argc=0 PERL_REVISION=5 PERL_VERSION=14 -PERL_SUBVERSION=2 +PERL_SUBVERSION=3 PERL_API_REVISION=5 PERL_API_VERSION=14 PERL_API_SUBVERSION=0 diff -Nru perl-5.14.2/debian/changelog perl-5.14.3/debian/changelog --- perl-5.14.2/debian/changelog 2012-11-04 12:37:47.000000000 +0200 +++ perl-5.14.3/debian/changelog 2012-11-04 19:26:50.000000000 +0200 @@ -1,3 +1,10 @@ +perl (5.14.3-1) UNRELEASED; urgency=low + + * New upstream version. + + update Digest and Module::CoreList conflict versions for 5.14.3 + + -- Niko Tyni Sun, 04 Nov 2012 19:16:06 +0200 + perl (5.14.2-15) unstable; urgency=low * Fix CPAN::FirstTime defaults with nonexisting site dirs if a parent diff -Nru perl-5.14.2/debian/control perl-5.14.3/debian/control --- perl-5.14.2/debian/control 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/control 2012-11-04 19:26:50.000000000 +0200 @@ -91,7 +91,7 @@ libtest-harness-perl (<< 3.23), libtest-simple-perl (<< 0.98), liblocale-codes-perl (<< 3.16), - libmodule-corelist-perl (<< 2.49.02), + libmodule-corelist-perl (<< 2.74), libio-zlib-perl (<< 1.10), libarchive-tar-perl (<< 1.76), libextutils-cbuilder-perl (<< 0.280203), @@ -122,7 +122,7 @@ libperl-ostype-perl (<< 1.002), libversion-requirements-perl(<< 0.101020), libcpan-meta-yaml-perl (<< 0.003), - libdigest-perl (<< 1.16), + libdigest-perl (<< 1.16.01), libextutils-install-perl (<< 1.56), libhttp-tiny-perl (<< 0.012), libfile-path-perl (<< 2.08.01), diff -Nru perl-5.14.2/debian/copyright perl-5.14.3/debian/copyright --- perl-5.14.2/debian/copyright 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/copyright 2012-11-04 19:26:50.000000000 +0200 @@ -9,11 +9,11 @@ . Larry Wall et. al. (see /usr/share/doc/perl/AUTHORS). . - Last checked against: Perl 5.14.2 + Last checked against: Perl 5.14.3 Files: * Copyright: - Perl is Copyright (C) 1987-2011 by Larry Wall and others. All rights reserved. + Perl is Copyright (C) 1987-2012 by Larry Wall and others. All rights reserved. License: GPL-1+ or Artistic This program is free software; you can redistribute it and/or modify it under the terms of either: @@ -71,7 +71,7 @@ Files: perl.c Copyright: - Copyright 1987-2011, Larry Wall + Copyright 1987-2012, Larry Wall MS-DOS port Copyright (c) 1989, 1990, Diomidis Spinellis OS/2 port Copyright (c) 1990, 1991, Raymond Chen, Kai Uwe Rommel Version 5 port Copyright (c) 1994-2002, Andreas Kaiser, Ilya Zakharevich diff -Nru perl-5.14.2/debian/patches/debian/arm_thread_stress_timeout.diff perl-5.14.3/debian/patches/debian/arm_thread_stress_timeout.diff --- perl-5.14.2/debian/patches/debian/arm_thread_stress_timeout.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/arm_thread_stress_timeout.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From f624a9f1206cdd44fde99c40d82e2f326db485dd Mon Sep 17 00:00:00 2001 +From f327b90ba6001c330f204e5dc69a981707252b08 Mon Sep 17 00:00:00 2001 From: Niko Tyni Date: Sat, 1 Nov 2008 15:10:16 +0200 Subject: Raise the timeout of ext/threads/shared/t/stress.t to accommodate diff -Nru perl-5.14.2/debian/patches/debian/cpan_definstalldirs.diff perl-5.14.3/debian/patches/debian/cpan_definstalldirs.diff --- perl-5.14.2/debian/patches/debian/cpan_definstalldirs.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/cpan_definstalldirs.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 4b63b9a433661cd13cfb1448dbfb90c5f53a53be Mon Sep 17 00:00:00 2001 +From e2e3b5a4f7a283ae69f2dcfec17ed39e3e7f74cc Mon Sep 17 00:00:00 2001 From: Brendan O'Dea Date: Tue, 8 Mar 2005 19:30:38 +1100 Subject: Provide a sensible INSTALLDIRS default for modules installed from diff -Nru perl-5.14.2/debian/patches/debian/cpan-missing-site-dirs.diff perl-5.14.3/debian/patches/debian/cpan-missing-site-dirs.diff --- perl-5.14.2/debian/patches/debian/cpan-missing-site-dirs.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/cpan-missing-site-dirs.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 0b575dfeee79f43c5e7779ee0c80010f0f2fe62b Mon Sep 17 00:00:00 2001 +From 07f140e1dcff0128f3a253ee4c1feafe11231d26 Mon Sep 17 00:00:00 2001 From: Niko Tyni Date: Tue, 16 Oct 2012 23:07:56 +0300 Subject: Fix CPAN::FirstTime defaults with nonexisting site dirs if a parent diff -Nru perl-5.14.2/debian/patches/debian/cpanplus_config_path.diff perl-5.14.3/debian/patches/debian/cpanplus_config_path.diff --- perl-5.14.2/debian/patches/debian/cpanplus_config_path.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/cpanplus_config_path.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From b8ab15d6bed9e9155b2524f9c57731f2780872fa Mon Sep 17 00:00:00 2001 +From ee974c9ff65f695c10b2284d134f20c6f05ec433 Mon Sep 17 00:00:00 2001 From: Niko Tyni Date: Mon, 6 Jul 2009 22:17:53 +0300 Subject: Save local versions of CPANPLUS::Config::System into /etc/perl. diff -Nru perl-5.14.2/debian/patches/debian/cpanplus_definstalldirs.diff perl-5.14.3/debian/patches/debian/cpanplus_definstalldirs.diff --- perl-5.14.2/debian/patches/debian/cpanplus_definstalldirs.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/cpanplus_definstalldirs.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 43e79995e19b9e9b0f76295232087d1ea23f9b9c Mon Sep 17 00:00:00 2001 +From 7023b922eb269d36c3534f2ca44193f8a389af97 Mon Sep 17 00:00:00 2001 From: Niko Tyni Date: Mon, 6 Jul 2009 21:58:41 +0300 Subject: Configure CPANPLUS to use the site directories by default. diff -Nru perl-5.14.2/debian/patches/debian/db_file_ver.diff perl-5.14.3/debian/patches/debian/db_file_ver.diff --- perl-5.14.2/debian/patches/debian/db_file_ver.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/db_file_ver.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 0d1acf7af6da3a3f933faba8459ad9ff03fe3e5b Mon Sep 17 00:00:00 2001 +From b390b21da4ae27e8fa162cc376b7000338d05b6e Mon Sep 17 00:00:00 2001 From: Brendan O'Dea Date: Fri, 16 Dec 2005 01:32:14 +1100 Subject: Remove overly restrictive DB_File version check. diff -Nru perl-5.14.2/debian/patches/debian/deprecate-with-apt.diff perl-5.14.3/debian/patches/debian/deprecate-with-apt.diff --- perl-5.14.2/debian/patches/debian/deprecate-with-apt.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/deprecate-with-apt.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From d9d28a9561de43518d8724ef12c2096f98e7134c Mon Sep 17 00:00:00 2001 +From 7b017877ad0d597aa599069841d71d7c942d8f77 Mon Sep 17 00:00:00 2001 From: Dominic Hargreaves Date: Mon, 17 May 2010 13:23:07 +0300 Subject: Point users to Debian packages of deprecated core modules diff -Nru perl-5.14.2/debian/patches/debian/doc_info.diff perl-5.14.3/debian/patches/debian/doc_info.diff --- perl-5.14.2/debian/patches/debian/doc_info.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/doc_info.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 16ebe1f5232621d8894aa6c6210fdf2fc9b54a84 Mon Sep 17 00:00:00 2001 +From 89e129d5317a438e87dfc7dfb8e04ba6d114fbaa Mon Sep 17 00:00:00 2001 From: Brendan O'Dea Date: Fri, 18 Mar 2005 22:22:25 +1100 Subject: Replace generic man(1) instructions with Debian-specific @@ -12,10 +12,10 @@ 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/pod/perl.pod b/pod/perl.pod -index 29cabf1..529ad6f 100644 +index 56c4088..1dae4b6 100644 --- a/pod/perl.pod +++ b/pod/perl.pod -@@ -261,8 +261,16 @@ For ease of access, the Perl manual has been split up into several sections. +@@ -262,8 +262,16 @@ For ease of access, the Perl manual has been split up into several sections. perlwin32 Perl notes for Windows diff -Nru perl-5.14.2/debian/patches/debian/enc2xs_inc.diff perl-5.14.3/debian/patches/debian/enc2xs_inc.diff --- perl-5.14.2/debian/patches/debian/enc2xs_inc.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/enc2xs_inc.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From e9fd6e7729b9ebd9bc74b8cf295cd3a7f5aa5472 Mon Sep 17 00:00:00 2001 +From 1ae1572010706f45d32f8e4fc31e70a716b91d2b Mon Sep 17 00:00:00 2001 From: Brendan O'Dea Date: Tue, 8 Mar 2005 19:30:38 +1100 Subject: Tweak enc2xs to follow symlinks and ignore missing @INC directories. diff -Nru perl-5.14.2/debian/patches/debian/errno_ver.diff perl-5.14.3/debian/patches/debian/errno_ver.diff --- perl-5.14.2/debian/patches/debian/errno_ver.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/errno_ver.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 973bed42db538804179f39d66dab37c82c6ade24 Mon Sep 17 00:00:00 2001 +From 6a6966aece0d0aec579afd17403e75a3b97f8867 Mon Sep 17 00:00:00 2001 From: Brendan O'Dea Date: Fri, 16 Dec 2005 01:32:14 +1100 Subject: Remove Errno version check due to upgrade problems with long-running diff -Nru perl-5.14.2/debian/patches/debian/extutils_set_libperl_path.diff perl-5.14.3/debian/patches/debian/extutils_set_libperl_path.diff --- perl-5.14.2/debian/patches/debian/extutils_set_libperl_path.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/extutils_set_libperl_path.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 334ac01a8306485ed901f4fb45d79f39a944fe77 Mon Sep 17 00:00:00 2001 +From d092b559a68c3e739c7d74b9f5f9ccbf39ff7547 Mon Sep 17 00:00:00 2001 From: Brendan O'Dea Date: Tue, 8 Mar 2005 19:30:38 +1100 Subject: EU:MM: Set location of libperl.a to /usr/lib diff -Nru perl-5.14.2/debian/patches/debian/fakeroot.diff perl-5.14.3/debian/patches/debian/fakeroot.diff --- perl-5.14.2/debian/patches/debian/fakeroot.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/fakeroot.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From a46a7107fb045ffa6047488b8002fec97b621a11 Mon Sep 17 00:00:00 2001 +From 303cdb28cc1431aabf215ff960acd9f1f12217d0 Mon Sep 17 00:00:00 2001 From: Brendan O'Dea Date: Fri, 18 Mar 2005 22:22:25 +1100 Subject: Postpone LD_LIBRARY_PATH evaluation to the binary targets. @@ -16,7 +16,7 @@ 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/Makefile.SH b/Makefile.SH -index eb6326a..1dac585 100755 +index 85b238d..79c6956 100755 --- a/Makefile.SH +++ b/Makefile.SH @@ -36,12 +36,7 @@ case "$useshrplib" in diff -Nru perl-5.14.2/debian/patches/debian/find_html2text.diff perl-5.14.3/debian/patches/debian/find_html2text.diff --- perl-5.14.2/debian/patches/debian/find_html2text.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/find_html2text.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 215f7a1ac54858acfa4639976153a0d6b191db3a Mon Sep 17 00:00:00 2001 +From d14231ae72a0f23fd15b4dc80a1fa00988fd5e6d Mon Sep 17 00:00:00 2001 From: Andreas Marschke Date: Sat, 17 Sep 2011 11:38:42 +0100 Subject: Configure CPAN::Distribution with correct name of html2text diff -Nru perl-5.14.2/debian/patches/debian/hurd_test_skip_io_pipe.diff perl-5.14.3/debian/patches/debian/hurd_test_skip_io_pipe.diff --- perl-5.14.2/debian/patches/debian/hurd_test_skip_io_pipe.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/hurd_test_skip_io_pipe.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 3d2c8349068cee391fea4323e9f1599bc6fde6f6 Mon Sep 17 00:00:00 2001 +From ff22caaad86c14083fad9b0cb0a6120bc2074f9a Mon Sep 17 00:00:00 2001 From: Dominic Hargreaves Date: Sun, 27 Nov 2011 16:48:07 +0000 Subject: Disable failing GNU/Hurd tests dist/IO/t/io_pipe.t diff -Nru perl-5.14.2/debian/patches/debian/hurd_test_skip_pipe.diff perl-5.14.3/debian/patches/debian/hurd_test_skip_pipe.diff --- perl-5.14.2/debian/patches/debian/hurd_test_skip_pipe.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/hurd_test_skip_pipe.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 9b2278af3e6866caed1c7c935bea42a73d23b90c Mon Sep 17 00:00:00 2001 +From 58dbbd3e2eab5e195f0a026ed864a73d3d185633 Mon Sep 17 00:00:00 2001 From: Dominic Hargreaves Date: Sun, 27 Nov 2011 16:43:11 +0000 Subject: Disable failing GNU/Hurd tests io/pipe.t diff -Nru perl-5.14.2/debian/patches/debian/hurd_test_skip_sigdispatch.diff perl-5.14.3/debian/patches/debian/hurd_test_skip_sigdispatch.diff --- perl-5.14.2/debian/patches/debian/hurd_test_skip_sigdispatch.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/hurd_test_skip_sigdispatch.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 90eb1a1c7bf7831a54670751e1a2b4b308ca68b7 Mon Sep 17 00:00:00 2001 +From 49a752161f31ef3f3a814544081468f81dbe43ce Mon Sep 17 00:00:00 2001 From: Dominic Hargreaves Date: Sun, 27 Nov 2011 16:15:42 +0000 Subject: Disable failing GNU/Hurd tests op/sigdispatch.t diff -Nru perl-5.14.2/debian/patches/debian/hurd_test_skip_stack.diff perl-5.14.3/debian/patches/debian/hurd_test_skip_stack.diff --- perl-5.14.2/debian/patches/debian/hurd_test_skip_stack.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/hurd_test_skip_stack.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From c5782305f4ed81e93b7e515cc3dad0d667b4ed6a Mon Sep 17 00:00:00 2001 +From cf3aa06fec1dc945d0ad9fb2aa2a589d556cf427 Mon Sep 17 00:00:00 2001 From: Dominic Hargreaves Date: Sun, 27 Nov 2011 16:27:07 +0000 Subject: Disable failing GNU/Hurd tests dist/threads/t/stack.t diff -Nru perl-5.14.2/debian/patches/debian/hurd_test_todo_syslog.diff perl-5.14.3/debian/patches/debian/hurd_test_todo_syslog.diff --- perl-5.14.2/debian/patches/debian/hurd_test_todo_syslog.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/hurd_test_todo_syslog.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From f5a9fe90878941a7e31f7362848532762db6bf90 Mon Sep 17 00:00:00 2001 +From 485dd918813a4e972beb68580bcee3aa0d3854c5 Mon Sep 17 00:00:00 2001 From: Dominic Hargreaves Date: Sun, 27 Nov 2011 15:11:53 +0000 Subject: Disable failing GNU/Hurd tests in cpan/Sys-Syslog/t/syslog.t diff -Nru perl-5.14.2/debian/patches/debian/instmodsh_doc.diff perl-5.14.3/debian/patches/debian/instmodsh_doc.diff --- perl-5.14.2/debian/patches/debian/instmodsh_doc.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/instmodsh_doc.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From ab89a31d1f46388a61953349c3546e4082cd38de Mon Sep 17 00:00:00 2001 +From 41c98f63dde49ad09232e8e0e26053a5371a1b78 Mon Sep 17 00:00:00 2001 From: Brendan O'Dea Date: Tue, 8 Mar 2005 19:30:38 +1100 Subject: Debian policy doesn't install .packlist files for core or vendor. diff -Nru perl-5.14.2/debian/patches/debian/ld_run_path.diff perl-5.14.3/debian/patches/debian/ld_run_path.diff --- perl-5.14.2/debian/patches/debian/ld_run_path.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/ld_run_path.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 704f6017119ce0301a9105944512120a38a43a02 Mon Sep 17 00:00:00 2001 +From a48c632f12b6a7f442892f2bc12cb95e2bfca252 Mon Sep 17 00:00:00 2001 From: Brendan O'Dea Date: Fri, 18 Mar 2005 22:22:25 +1100 Subject: Remove standard libs from LD_RUN_PATH as per Debian policy. diff -Nru perl-5.14.2/debian/patches/debian/libnet_config_path.diff perl-5.14.3/debian/patches/debian/libnet_config_path.diff --- perl-5.14.2/debian/patches/debian/libnet_config_path.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/libnet_config_path.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 7465b6d008187580eabe655b9c8e75351d3d24b4 Mon Sep 17 00:00:00 2001 +From b1129a94a7ae0fb2bc36cc039b42c47dd3c2e6b7 Mon Sep 17 00:00:00 2001 From: Brendan O'Dea Date: Tue, 8 Mar 2005 19:30:38 +1100 Subject: Set location of libnet.cfg to /etc/perl/Net as /usr may not be diff -Nru perl-5.14.2/debian/patches/debian/libperl_embed_doc.diff perl-5.14.3/debian/patches/debian/libperl_embed_doc.diff --- perl-5.14.2/debian/patches/debian/libperl_embed_doc.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/libperl_embed_doc.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From d70e88badfcc6edd05e884597f19fbbdcf2cf6a7 Mon Sep 17 00:00:00 2001 +From 86bd1eced8cb5f71bf07745257bb0f3b575e85ef Mon Sep 17 00:00:00 2001 From: Brendan O'Dea Date: Tue, 8 Mar 2005 19:30:38 +1100 Subject: Note that libperl-dev package is required for embedded linking diff -Nru perl-5.14.2/debian/patches/debian/m68k_thread_stress.diff perl-5.14.3/debian/patches/debian/m68k_thread_stress.diff --- perl-5.14.2/debian/patches/debian/m68k_thread_stress.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/m68k_thread_stress.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 55a718425dc4612ac01850ef786f75f072b20b9e Mon Sep 17 00:00:00 2001 +From fac4a5c78f19a6d0e2e770c654ccec39f6e1246e Mon Sep 17 00:00:00 2001 From: Niko Tyni Date: Mon, 8 Sep 2008 20:48:14 +0300 Subject: Disable some threads tests on m68k for now due to missing TLS. diff -Nru perl-5.14.2/debian/patches/debian/makemaker-pasthru.diff perl-5.14.3/debian/patches/debian/makemaker-pasthru.diff --- perl-5.14.2/debian/patches/debian/makemaker-pasthru.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/makemaker-pasthru.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 9e57320367f05f0bcf39dfa13bcfa037e1d138f8 Mon Sep 17 00:00:00 2001 +From b05e785e0effc597e8c82d928026d6c1da161b4f Mon Sep 17 00:00:00 2001 From: Niko Tyni Date: Sat, 25 Feb 2012 19:41:27 +0200 Subject: Make EU::MM pass LD through to recursive Makefile.PL invocations diff -Nru perl-5.14.2/debian/patches/debian/mod_paths.diff perl-5.14.3/debian/patches/debian/mod_paths.diff --- perl-5.14.2/debian/patches/debian/mod_paths.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/mod_paths.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 11633e598640b02e19329f323623af254fbac451 Mon Sep 17 00:00:00 2001 +From 44a29f202bb6ac6e78128bb7913c6d23bb63d2ee Mon Sep 17 00:00:00 2001 From: Brendan O'Dea Date: Fri, 18 Mar 2005 22:22:25 +1100 Subject: Tweak @INC ordering for Debian @@ -22,10 +22,10 @@ 1 file changed, 58 insertions(+) diff --git a/perl.c b/perl.c -index f756e02..d26dcb0 100644 +index ef97eb2..6b4de2e 100644 --- a/perl.c +++ b/perl.c -@@ -4219,6 +4219,11 @@ S_init_perllib(pTHX) +@@ -4234,6 +4234,11 @@ S_init_perllib(pTHX) INCPUSH_ADD_SUB_DIRS|INCPUSH_CAN_RELOCATE); #endif @@ -37,7 +37,7 @@ #ifdef SITEARCH_EXP /* sitearch is always relative to sitelib on Windows for * DLL-based path intuition to work correctly */ -@@ -4336,6 +4341,59 @@ S_init_perllib(pTHX) +@@ -4351,6 +4356,59 @@ S_init_perllib(pTHX) INCPUSH_ADD_OLD_VERS|INCPUSH_CAN_RELOCATE); #endif diff -Nru perl-5.14.2/debian/patches/debian/module_build_man_extensions.diff perl-5.14.3/debian/patches/debian/module_build_man_extensions.diff --- perl-5.14.2/debian/patches/debian/module_build_man_extensions.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/module_build_man_extensions.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From fbb5f07872d45bac76b5c3c83b50a19aa5da10b0 Mon Sep 17 00:00:00 2001 +From 1d337e4d5a306c2f699d1619921b7dbb4037b52b Mon Sep 17 00:00:00 2001 From: Niko Tyni Date: Thu, 8 May 2008 14:32:33 +0300 Subject: Adjust Module::Build manual page extensions for the Debian Perl diff -Nru perl-5.14.2/debian/patches/debian/no_packlist_perllocal.diff perl-5.14.3/debian/patches/debian/no_packlist_perllocal.diff --- perl-5.14.2/debian/patches/debian/no_packlist_perllocal.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/no_packlist_perllocal.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 44c7521619dd0e637920393184affcb26a27d5b7 Mon Sep 17 00:00:00 2001 +From 0ce12cc4913dbd9f1829c1d8220634a7ea404a07 Mon Sep 17 00:00:00 2001 From: Brendan O'Dea Date: Tue, 8 Mar 2005 19:30:38 +1100 Subject: Don't install .packlist or perllocal.pod for perl or vendor diff -Nru perl-5.14.2/debian/patches/debian/patchlevel.diff perl-5.14.3/debian/patches/debian/patchlevel.diff --- perl-5.14.2/debian/patches/debian/patchlevel.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/patchlevel.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 59d5d96dba20848c77e5a63c840254607fb132fd Mon Sep 17 00:00:00 2001 +From 3a0a691a2a46549e2c015192be6ab7bd8e5a0527 Mon Sep 17 00:00:00 2001 From: Niko Tyni Date: Sun, 15 May 2011 19:35:58 +0300 Subject: List packaged patches in patchlevel.h @@ -15,7 +15,7 @@ 1 file changed, 3 insertions(+) diff --git a/patchlevel.h b/patchlevel.h -index 5dc2a53..1356595 100644 +index 70d39d9..191147f 100644 --- a/patchlevel.h +++ b/patchlevel.h @@ -137,6 +137,9 @@ static const char * const local_patches[] = { diff -Nru perl-5.14.2/debian/patches/debian/perl5db-x-terminal-emulator.patch perl-5.14.3/debian/patches/debian/perl5db-x-terminal-emulator.patch --- perl-5.14.2/debian/patches/debian/perl5db-x-terminal-emulator.patch 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/perl5db-x-terminal-emulator.patch 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 27a9b71a196681c5430f6343e6ca8654c2500d5a Mon Sep 17 00:00:00 2001 +From 1259302e7425468c1211cfb3324fff962197279c Mon Sep 17 00:00:00 2001 From: Dominic Hargreaves Date: Sat, 14 Apr 2012 11:34:05 +0100 Subject: Invoke x-terminal-emulator rather than xterm in perl5db.pl diff -Nru perl-5.14.2/debian/patches/debian/perlivp.diff perl-5.14.3/debian/patches/debian/perlivp.diff --- perl-5.14.2/debian/patches/debian/perlivp.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/perlivp.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 4c7e04f75c9513451d1622e5a6dd58c2c8377d81 Mon Sep 17 00:00:00 2001 +From aa0345d1b35eb9339afc5d039ebb8f34efee9d55 Mon Sep 17 00:00:00 2001 From: Niko Tyni Date: Fri, 9 Jan 2009 18:54:47 +0200 Subject: Make perlivp skip include directories in /usr/local diff -Nru perl-5.14.2/debian/patches/debian/prefix_changes.diff perl-5.14.3/debian/patches/debian/prefix_changes.diff --- perl-5.14.2/debian/patches/debian/prefix_changes.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/prefix_changes.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 148e2717682ce8c65475ffdeea84b3cdd1ab1649 Mon Sep 17 00:00:00 2001 +From a6dc2aac74dfcc50efb7ab96840c63f926625d37 Mon Sep 17 00:00:00 2001 From: Brendan O'Dea Date: Tue, 8 Mar 2005 19:30:38 +1100 Subject: Fiddle with *PREFIX and variables written to the makefile diff -Nru perl-5.14.2/debian/patches/debian/prune_libs.diff perl-5.14.3/debian/patches/debian/prune_libs.diff --- perl-5.14.2/debian/patches/debian/prune_libs.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/prune_libs.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 063566907896ff32bea27897fa73cebbbd7bacce Mon Sep 17 00:00:00 2001 +From 783d40d565007daa2f8c482a3695fb0888171cb9 Mon Sep 17 00:00:00 2001 From: Brendan O'Dea Date: Fri, 18 Mar 2005 22:22:25 +1100 Subject: Prune the list of libraries wanted to what we actually need. @@ -14,7 +14,7 @@ 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/Configure b/Configure -index d9911f9..f59f75c 100755 +index 0bb5c4f..141c107 100755 --- a/Configure +++ b/Configure @@ -1367,8 +1367,7 @@ libswanted_uselargefiles='' @@ -27,7 +27,7 @@ : 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 ! !'` -@@ -22308,7 +22307,7 @@ sunos*X4*) +@@ -22309,7 +22308,7 @@ sunos*X4*) ;; *) case "$usedl" in $define|true|[yY]*) diff -Nru perl-5.14.2/debian/patches/debian/skip-upstream-git-tests.diff perl-5.14.3/debian/patches/debian/skip-upstream-git-tests.diff --- perl-5.14.2/debian/patches/debian/skip-upstream-git-tests.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/skip-upstream-git-tests.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 0a4678662496c394f18f9beb1c402ba22c5a4f48 Mon Sep 17 00:00:00 2001 +From 7eabfee9be6db29a0ac8b405bbd0eee0ab0d9bdc Mon Sep 17 00:00:00 2001 From: Niko Tyni Date: Fri, 22 Apr 2011 11:15:32 +0300 Subject: Skip tests specific to the upstream Git repository diff -Nru perl-5.14.2/debian/patches/debian/squelch-locale-warnings.diff perl-5.14.3/debian/patches/debian/squelch-locale-warnings.diff --- perl-5.14.2/debian/patches/debian/squelch-locale-warnings.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/squelch-locale-warnings.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From debc11ce5022136a0dca62149af3f08e1d6b70c2 Mon Sep 17 00:00:00 2001 +From 3251b284aade6d897c77981d51d36e2e3d383a94 Mon Sep 17 00:00:00 2001 From: Niko Tyni Date: Sun, 3 Oct 2010 21:36:17 +0300 Subject: Squelch locale warnings in Debian package maintainer scripts diff -Nru perl-5.14.2/debian/patches/debian/writable_site_dirs.diff perl-5.14.3/debian/patches/debian/writable_site_dirs.diff --- perl-5.14.2/debian/patches/debian/writable_site_dirs.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/debian/writable_site_dirs.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 492e0d6b4e3e0d786fb88b9058d581f6466c4a3e Mon Sep 17 00:00:00 2001 +From a6657905042d06e433cde18853310ff550b9bcab Mon Sep 17 00:00:00 2001 From: Brendan O'Dea Date: Tue, 8 Mar 2005 19:30:38 +1100 Subject: Set umask approproately for site install directories diff -Nru perl-5.14.2/debian/patches/fixes/cgi_no_shellwords_pl.diff perl-5.14.3/debian/patches/fixes/cgi_no_shellwords_pl.diff --- perl-5.14.2/debian/patches/fixes/cgi_no_shellwords_pl.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/cgi_no_shellwords_pl.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 8aa68c5074ddff2cf59e80abd7b191af65c7a459 Mon Sep 17 00:00:00 2001 +From 755d9eadeba63670800c03a2e93f3d5639514441 Mon Sep 17 00:00:00 2001 From: Alessandro Ghedini Date: Sun, 5 Feb 2012 23:07:29 +0000 Subject: Use Text::ParseWords instead of shellwords.pl diff -Nru perl-5.14.2/debian/patches/fixes/cpan_module_pod_fixes.diff perl-5.14.3/debian/patches/fixes/cpan_module_pod_fixes.diff --- perl-5.14.2/debian/patches/fixes/cpan_module_pod_fixes.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/cpan_module_pod_fixes.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 42ba911e936f3a2e8a552fe70a1b360a63671a49 Mon Sep 17 00:00:00 2001 +From f3605931aaefc4f9aeb3e85eda16b7aa5efea0b2 Mon Sep 17 00:00:00 2001 From: Dominic Hargreaves Date: Thu, 22 Dec 2011 22:30:53 +0000 Subject: Fix POD formatting in Term-Cap and Pod-Parser diff -Nru perl-5.14.2/debian/patches/fixes/digest_eval_hole.diff perl-5.14.3/debian/patches/fixes/digest_eval_hole.diff --- perl-5.14.2/debian/patches/fixes/digest_eval_hole.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/digest_eval_hole.diff 1970-01-01 02:00:00.000000000 +0200 @@ -1,61 +0,0 @@ -From b5c60bab0c725bc714fa521569e812b14f14125a Mon Sep 17 00:00:00 2001 -From: "Michael G. Schwern" -Date: Mon, 3 Oct 2011 19:05:29 +0100 -Subject: Close the eval "require $module" security hole in - Digest->new($algorithm) - -Also the filter was incomplete. - -Bug-Debian: http://bugs.debian.org/644108 - -Patch-Name: fixes/digest_eval_hole.diff ---- - cpan/Digest/Digest.pm | 6 ++++-- - cpan/Digest/t/security.t | 14 ++++++++++++++ - 2 files changed, 18 insertions(+), 2 deletions(-) - create mode 100644 cpan/Digest/t/security.t - -diff --git a/cpan/Digest/Digest.pm b/cpan/Digest/Digest.pm -index 384dfc8..d714434 100644 ---- a/cpan/Digest/Digest.pm -+++ b/cpan/Digest/Digest.pm -@@ -24,7 +24,7 @@ sub new - shift; # class ignored - my $algorithm = shift; - my $impl = $MMAP{$algorithm} || do { -- $algorithm =~ s/\W+//; -+ $algorithm =~ s/\W+//g; - "Digest::$algorithm"; - }; - $impl = [$impl] unless ref($impl); -@@ -35,7 +35,9 @@ sub new - ($class, @args) = @$class if ref($class); - no strict 'refs'; - unless (exists ${"$class\::"}{"VERSION"}) { -- eval "require $class"; -+ my $pm_file = $class . ".pm"; -+ $pm_file =~ s{::}{/}g; -+ eval { require $pm_file }; - if ($@) { - $err ||= $@; - next; -diff --git a/cpan/Digest/t/security.t b/cpan/Digest/t/security.t -new file mode 100644 -index 0000000..5cba122 ---- /dev/null -+++ b/cpan/Digest/t/security.t -@@ -0,0 +1,14 @@ -+#!/usr/bin/env perl -+ -+# Digest->new() had an exploitable eval -+ -+use strict; -+use warnings; -+ -+use Test::More tests => 1; -+ -+use Digest; -+ -+$LOL::PWNED = 0; -+eval { Digest->new(q[MD;5;$LOL::PWNED = 42]) }; -+is $LOL::PWNED, 0; diff -Nru perl-5.14.2/debian/patches/fixes/document_makemaker_ccflags.diff perl-5.14.3/debian/patches/fixes/document_makemaker_ccflags.diff --- perl-5.14.2/debian/patches/fixes/document_makemaker_ccflags.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/document_makemaker_ccflags.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 08babb19bc2ff52c6d2b3d921d7a18b5857fdd8f Mon Sep 17 00:00:00 2001 +From 05db01c349f202d1717586593ce256c57cf3b963 Mon Sep 17 00:00:00 2001 From: Niko Tyni Date: Mon, 30 May 2011 22:54:24 +0300 Subject: Document that CCFLAGS should include $Config{ccflags} diff -Nru perl-5.14.2/debian/patches/fixes/extutils-cbuilder-cflags.diff perl-5.14.3/debian/patches/fixes/extutils-cbuilder-cflags.diff --- perl-5.14.2/debian/patches/fixes/extutils-cbuilder-cflags.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/extutils-cbuilder-cflags.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 5ce0d0e0957c3e9ead5a0d000eb8c14845278f5e Mon Sep 17 00:00:00 2001 +From 0f35e2ffc92e8286ebb9f9e50bf746289c22c441 Mon Sep 17 00:00:00 2001 From: Niko Tyni Date: Thu, 28 Apr 2011 09:18:54 +0300 Subject: Append CFLAGS and LDFLAGS to their Config.pm counterparts in diff -Nru perl-5.14.2/debian/patches/fixes/fsf_postal_address.diff perl-5.14.3/debian/patches/fixes/fsf_postal_address.diff --- perl-5.14.2/debian/patches/fixes/fsf_postal_address.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/fsf_postal_address.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 9e12dd1ed9997bd04e6d8cf8ed6b87269c2bcf8c Mon Sep 17 00:00:00 2001 +From 5fc40728f6c644a2f1f58b754f80eda7ae02cddc Mon Sep 17 00:00:00 2001 From: Dominic Hargreaves Date: Thu, 24 Nov 2011 16:08:04 +0000 Subject: Update references to the FSF's postal address diff -Nru perl-5.14.2/debian/patches/fixes/h2ph-multiarch.diff perl-5.14.3/debian/patches/fixes/h2ph-multiarch.diff --- perl-5.14.2/debian/patches/fixes/h2ph-multiarch.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/h2ph-multiarch.diff 1970-01-01 02:00:00.000000000 +0200 @@ -1,69 +0,0 @@ -From 4663b055dd2ef96bc70cb1293d4e47a7bda29e56 Mon Sep 17 00:00:00 2001 -From: Niko Tyni -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 - 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 file 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 -Nru perl-5.14.2/debian/patches/fixes/hurd-ccflags.diff perl-5.14.3/debian/patches/fixes/hurd-ccflags.diff --- perl-5.14.2/debian/patches/fixes/hurd-ccflags.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/hurd-ccflags.diff 1970-01-01 02:00:00.000000000 +0200 @@ -1,30 +0,0 @@ -From 8a086cda54234450ec68e0e9b2d5f3b0e983cec1 Mon Sep 17 00:00:00 2001 -From: Samuel Thibault -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 file changed, 1 insertion(+), 1 deletion(-) - -diff --git a/hints/gnu.sh b/hints/gnu.sh -index 2cfce54..c1ba2db 100644 ---- a/hints/gnu.sh -+++ b/hints/gnu.sh -@@ -19,7 +19,7 @@ lddlflags='-shared' - ccdlflags='-Wl,-E' - - # Debian bug #258618 --ccflags='-D_GNU_SOURCE' -+ccflags="-D_GNU_SOURCE $ccflags" - - # The following routines are only available as stubs in GNU libc. - # XXX remove this once metaconf detects the GNU libc stubs. diff -Nru perl-5.14.2/debian/patches/fixes/hurd-hints.diff perl-5.14.3/debian/patches/fixes/hurd-hints.diff --- perl-5.14.2/debian/patches/fixes/hurd-hints.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/hurd-hints.diff 1970-01-01 02:00:00.000000000 +0200 @@ -1,48 +0,0 @@ -From 7d819801557c814bbd6d2eb357c0ab3ed2b35922 Mon Sep 17 00:00:00 2001 -From: Pino Toscano -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(+) - 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 -Nru perl-5.14.2/debian/patches/fixes/hurd-largefile.diff perl-5.14.3/debian/patches/fixes/hurd-largefile.diff --- perl-5.14.2/debian/patches/fixes/hurd-largefile.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/hurd-largefile.diff 1970-01-01 02:00:00.000000000 +0200 @@ -1,54 +0,0 @@ -From 1971bffd69270a658346321bb045e8bcbffd2af0 Mon Sep 17 00:00:00 2001 -From: Pino Toscano -Date: Tue, 1 Nov 2011 18:37:19 +0000 -Subject: enable LFS on GNU/Hurd - -at the moment, perl is compiled on GNU/Hurd without large file support. -This, other than the lacking of support for files > 2 GB, causes the -failure in the t/op/stat.t test. -The failure in stat.t happens because of the following: when filtering -devices in /dev/* using grep {} with -b/-c, stat fails for large -devices such as /dev/hdX blocks, or /dev/zero chars (this latter case -should be an Hurd-specific issue, but shouldn't matter for this case), -hence the counts done with grep {} and the ones done filtering the -output of `ls' don't match. - -The attached patch enables the LFS using the same way used on linux.sh; -about t/op/lfs.t, it gets skipped at the "kernel/fs not configured to -use large files?" check, although it correctly detects sparse files and -(at least by looking at the disk usage) allocates the 5GB (or so) file -created with system() in that test. - -Bug-Debian: http://bugs.debian.org/645790 -Bug: https://rt.perl.org/rt3/Public/Bug/Display.html?id=103014 -Origin: http://perl5.git.perl.org/perl.git/commit/1fda587de9a7b85b90f9599b4b746d258afa2e6c - -Patch-Name: fixes/hurd-largefile.diff ---- - hints/gnu.sh | 13 +++++++++++++ - 1 file changed, 13 insertions(+) - -diff --git a/hints/gnu.sh b/hints/gnu.sh -index f075642..4233371 100644 ---- a/hints/gnu.sh -+++ b/hints/gnu.sh -@@ -33,6 +33,19 @@ ccdlflags='-Wl,-E' - # Debian bug #258618 - ccflags="-D_GNU_SOURCE $ccflags" - -+cat > UU/uselargefiles.cbu <<'EOCBU' -+# This script UU/uselargefiles.cbu will get 'called-back' by Configure -+# after it has prompted the user for whether to use large files. -+case "$uselargefiles" in -+''|$define|true|[yY]*) -+# Keep this in the left margin. -+ccflags_uselargefiles="-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64" -+ -+ ccflags="$ccflags $ccflags_uselargefiles" -+ ;; -+esac -+EOCBU -+ - # The following routines are only available as stubs in GNU libc. - # XXX remove this once metaconf detects the GNU libc stubs. - d_msgctl='undef' diff -Nru perl-5.14.2/debian/patches/fixes/hurd-ndbm.diff perl-5.14.3/debian/patches/fixes/hurd-ndbm.diff --- perl-5.14.2/debian/patches/fixes/hurd-ndbm.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/hurd-ndbm.diff 1970-01-01 02:00:00.000000000 +0200 @@ -1,48 +0,0 @@ -From d03efbd04445db7e9853ef46a56b990ced9ed4cf Mon Sep 17 00:00:00 2001 -From: Pino Toscano -Date: Mon, 31 Oct 2011 19:21:27 +0000 -Subject: Add GNU/Hurd hints for NDBM_File - -currently, there are few tests failing because of a broken NDBM module; -using the same hints as used on Linux (given that apparently the cause -is the same) makes the following tests pass: - t/op/dbm.t - cpan/autodie/t/dbmopen.t - cpan/Memoize/t/errors.t - cpan/Memoize/t/tie_ndbm.t - ext/NDBM_File/t/ndbm.t - lib/AnyDBM_File.t - -Dominic Hargreaves adds: Note that the original git commit log [what -you see above] lists some tests which aren't affected in blead. - -Bug-Debian: http://bugs.debian.org/645989 -Bug: https://rt.perl.org/rt3/Public/Bug/Display.html?id=102680 -Origin: http://perl5.git.perl.org/perl.git/commit/f0d0a205cc02c769ca48d6df00f3eea304ff91d8 - -Patch-Name: fixes/hurd-ndbm.diff ---- - MANIFEST | 1 + - ext/NDBM_File/hints/gnu.pl | 1 + - 2 files changed, 2 insertions(+) - create mode 100644 ext/NDBM_File/hints/gnu.pl - -diff --git a/MANIFEST b/MANIFEST -index ed6e37e..9ae00dc 100644 ---- a/MANIFEST -+++ b/MANIFEST -@@ -3461,6 +3461,7 @@ ext/NDBM_File/hints/dec_osf.pl Hint for NDBM_File for named architecture - ext/NDBM_File/hints/dynixptx.pl Hint for NDBM_File for named architecture - ext/NDBM_File/hints/gnukfreebsd.pl Hint for NDBM_File for named architecture - ext/NDBM_File/hints/gnuknetbsd.pl Hint for NDBM_File for named architecture -+ext/NDBM_File/hints/gnu.pl Hint for NDBM_File for named architecture - ext/NDBM_File/hints/linux.pl Hint for NDBM_File for named architecture - ext/NDBM_File/hints/sco.pl Hint for NDBM_File for named architecture - ext/NDBM_File/hints/solaris.pl Hint for NDBM_File for named architecture -diff --git a/ext/NDBM_File/hints/gnu.pl b/ext/NDBM_File/hints/gnu.pl -new file mode 100644 -index 0000000..db63567 ---- /dev/null -+++ b/ext/NDBM_File/hints/gnu.pl -@@ -0,0 +1 @@ -+do './hints/linux.pl' or die $@; diff -Nru perl-5.14.2/debian/patches/fixes/hurd_skip_itimer_virtual.diff perl-5.14.3/debian/patches/fixes/hurd_skip_itimer_virtual.diff --- perl-5.14.2/debian/patches/fixes/hurd_skip_itimer_virtual.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/hurd_skip_itimer_virtual.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 5d0f379161363f8f9a5aad7701b9140b64af414a Mon Sep 17 00:00:00 2001 +From f3865cbb1dcfbca494830db4c2af36d1c45aa80e Mon Sep 17 00:00:00 2001 From: Dominic Hargreaves Date: Sun, 27 Nov 2011 15:42:07 +0000 Subject: Skip interval timer tests in Time::HiRes on GNU/Hurd diff -Nru perl-5.14.2/debian/patches/fixes/index-tainting.diff perl-5.14.3/debian/patches/fixes/index-tainting.diff --- perl-5.14.2/debian/patches/fixes/index-tainting.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/index-tainting.diff 1970-01-01 02:00:00.000000000 +0200 @@ -1,73 +0,0 @@ -From de648e4d81d745012f724f5d2ee6bf1f83cc55ca Mon Sep 17 00:00:00 2001 -From: David Mitchell -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 -Nru perl-5.14.2/debian/patches/fixes/ipc_open3.diff perl-5.14.3/debian/patches/fixes/ipc_open3.diff --- perl-5.14.2/debian/patches/fixes/ipc_open3.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/ipc_open3.diff 1970-01-01 02:00:00.000000000 +0200 @@ -1,38 +0,0 @@ -From 5e7b5cf45e085503003bc8b37a85c3b889be9131 Mon Sep 17 00:00:00 2001 -From: Salvador Fandino -Date: Wed, 27 Jul 2011 09:20:29 -0700 -Subject: IPC::Open3::open3(..., '-') broken - -IPC::Open3::open3($in, $out, $err, '-') is broken in 5.14.1 - -Because the old "return 0" used to return to user code now is wrapped inside and eval block. - -This patch solves the problem. - -Bug-Debian: http://bugs.debian.org/683894 -Bug: https://rt.perl.org/rt3//Public/Bug/Display.html?id=114454 -Patch-Name: fixes/ipc_open3.diff ---- - ext/IPC-Open3/lib/IPC/Open3.pm | 5 ++++- - 1 file changed, 4 insertions(+), 1 deletion(-) - -diff --git a/ext/IPC-Open3/lib/IPC/Open3.pm b/ext/IPC-Open3/lib/IPC/Open3.pm -index 7015d27..e238528 100644 ---- a/ext/IPC-Open3/lib/IPC/Open3.pm -+++ b/ext/IPC-Open3/lib/IPC/Open3.pm -@@ -284,11 +284,14 @@ sub _open3 { - } else { - xopen \*STDERR, ">&STDOUT" if fileno(STDERR) != fileno(STDOUT); - } -- return 0 if ($cmd[0] eq '-'); -+ return 1 if ($cmd[0] eq '-'); - exec @cmd or do { - local($")=(" "); - croak "$Me: exec of @cmd failed"; - }; -+ } and do { -+ close $stat_w; -+ return 0; - }; - - my $bang = 0+$!; diff -Nru perl-5.14.2/debian/patches/fixes/kfreebsd-overrides.diff perl-5.14.3/debian/patches/fixes/kfreebsd-overrides.diff --- perl-5.14.2/debian/patches/fixes/kfreebsd-overrides.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/kfreebsd-overrides.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 51233d46ac437fd272fcf3db0dc79e3700954a41 Mon Sep 17 00:00:00 2001 +From 373d52155b6f07b64a7c5667b87cbba91e99c0a4 Mon Sep 17 00:00:00 2001 From: Niko Tyni Date: Wed, 17 Oct 2012 12:56:43 -0400 Subject: Remove unnecessary overrides in gnukfreebsd and gnuknetbsd hints. diff -Nru perl-5.14.2/debian/patches/fixes/manpage_name_CPAN.diff perl-5.14.3/debian/patches/fixes/manpage_name_CPAN.diff --- perl-5.14.2/debian/patches/fixes/manpage_name_CPAN.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/manpage_name_CPAN.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 3eb30aea4c6f6bc768c4b5495503c4fe70b07f57 Mon Sep 17 00:00:00 2001 +From 851f93ff865054514c014e3f029cbd90aaac2dd5 Mon Sep 17 00:00:00 2001 From: Dominic Hargreaves Date: Tue, 20 Dec 2011 22:19:45 +0000 Subject: cpan/CPAN: add NAME headings in modules with POD diff -Nru perl-5.14.2/debian/patches/fixes/manpage_name_CPANPLUS.diff perl-5.14.3/debian/patches/fixes/manpage_name_CPANPLUS.diff --- perl-5.14.2/debian/patches/fixes/manpage_name_CPANPLUS.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/manpage_name_CPANPLUS.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From b7d282c97c13cc8ca6d42abffe2581a5f5bd76da Mon Sep 17 00:00:00 2001 +From 6b8776770ff491bdfd0bafda6ceeaf0d6eb77a1e Mon Sep 17 00:00:00 2001 From: Dominic Hargreaves Date: Tue, 20 Dec 2011 23:26:04 +0000 Subject: cpan/CPANPLUS: add NAME headings in modules with POD diff -Nru perl-5.14.2/debian/patches/fixes/manpage_name_Term-UI.diff perl-5.14.3/debian/patches/fixes/manpage_name_Term-UI.diff --- perl-5.14.2/debian/patches/fixes/manpage_name_Term-UI.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/manpage_name_Term-UI.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From f2ed9951530731ba8ced728a3b26a2a75e6d8bd4 Mon Sep 17 00:00:00 2001 +From 619b7494abdff1b79beea6928b9ed2bbf486d3c3 Mon Sep 17 00:00:00 2001 From: Dominic Hargreaves Date: Tue, 20 Dec 2011 23:30:04 +0000 Subject: cpan/Term-UI: add NAME headings in modules with POD diff -Nru perl-5.14.2/debian/patches/fixes/manpage_name_Test-Harness.diff perl-5.14.3/debian/patches/fixes/manpage_name_Test-Harness.diff --- perl-5.14.2/debian/patches/fixes/manpage_name_Test-Harness.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/manpage_name_Test-Harness.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 599f9ae1b160d1e190b1047d08a7ac7dfb8fcc99 Mon Sep 17 00:00:00 2001 +From 85e4e89b917fd4c2e983962e5ef76d5e91517f0b Mon Sep 17 00:00:00 2001 From: Dominic Hargreaves Date: Tue, 20 Dec 2011 23:28:18 +0000 Subject: cpan/Test-Harness: add NAME headings in modules with POD diff -Nru perl-5.14.2/debian/patches/fixes/module-build-home-directory.diff perl-5.14.3/debian/patches/fixes/module-build-home-directory.diff --- perl-5.14.2/debian/patches/fixes/module-build-home-directory.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/module-build-home-directory.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From ecbdb7718c5f13068bf844ec63c60cacaf0f89de Mon Sep 17 00:00:00 2001 +From 20e485a68c4e193c204751a0fb8c57b1490aa7ef Mon Sep 17 00:00:00 2001 From: Dominic Hargreaves Date: Mon, 2 May 2011 10:35:04 +0100 Subject: Fix failing tilde test when run under a UID without a passwd entry diff -Nru perl-5.14.2/debian/patches/fixes/net_smtp_docs.diff perl-5.14.3/debian/patches/fixes/net_smtp_docs.diff --- perl-5.14.2/debian/patches/fixes/net_smtp_docs.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/net_smtp_docs.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From ab32eba7fcc45d864c22e8f4ee02e0a6712070e0 Mon Sep 17 00:00:00 2001 +From f652d25567e5062607457748d1ee3f82d13ba018 Mon Sep 17 00:00:00 2001 From: Brendan O'Dea Date: Thu, 20 Sep 2007 19:47:14 +1000 Subject: Document the Net::SMTP 'Port' option diff -Nru perl-5.14.2/debian/patches/fixes/path_max_fallback.diff perl-5.14.3/debian/patches/fixes/path_max_fallback.diff --- perl-5.14.2/debian/patches/fixes/path_max_fallback.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/path_max_fallback.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 2facef4b0bee8ac0ccd433ec9905d999cf6c65e3 Mon Sep 17 00:00:00 2001 +From 8ed61fd3011cf6ad9e04c7e1311144ad16215abf Mon Sep 17 00:00:00 2001 From: Dominic Hargreaves Date: Fri, 3 Feb 2012 19:35:36 +0000 Subject: Don't use _POSIX_PATH_MAX as a fallback PATH_MAX diff -Nru perl-5.14.2/debian/patches/fixes/perlcheat-update.diff perl-5.14.3/debian/patches/fixes/perlcheat-update.diff --- perl-5.14.2/debian/patches/fixes/perlcheat-update.diff 2012-11-04 12:37:32.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/perlcheat-update.diff 1970-01-01 02:00:00.000000000 +0200 @@ -1,148 +0,0 @@ -From 41a55c909a7df9ee1d986a010351d23e19b39bba Mon Sep 17 00:00:00 2001 -From: "H.Merijn Brand" -Date: Tue, 14 Jun 2011 20:12:01 +0200 -Subject: Update PerlCheat to 5.14 - -Origin: upstream, http://perl5.git.perl.org/perl.git/commit/ab0ae0ad72e5601626d0b408edd884d7bd14d7dd -Bug-Debian: http://bugs.debian.org/691112 -Patch-Name: fixes/perlcheat-update.diff - -See the discussion at - http://www.nntp.perl.org/group/perl.perl5.porters/2011/06/msg173391.html ---- - pod/perlcheat.pod | 118 +++++++++++++++++++++++++++-------------------------- - 1 file changed, 60 insertions(+), 58 deletions(-) - -diff --git a/pod/perlcheat.pod b/pod/perlcheat.pod -index d210fa0..deee2fe 100644 ---- a/pod/perlcheat.pod -+++ b/pod/perlcheat.pod -@@ -10,68 +10,70 @@ already be overwhelming. - - =head2 The sheet - -- CONTEXTS SIGILS ARRAYS HASHES -- void $scalar whole: @array %hash -- scalar @array slice: @array[0, 2] @hash{'a', 'b'} -- list %hash element: $array[0] $hash{'a'} -- &sub -- *glob SCALAR VALUES -- number, string, reference, glob, undef -+ CONTEXTS SIGILS ref ARRAYS HASHES -+ void $scalar SCALAR @array %hash -+ scalar @array ARRAY @array[0, 2] @hash{'a', 'b'} -+ list %hash HASH $array[0] $hash{'a'} -+ &sub CODE -+ *glob GLOB SCALAR VALUES -+ FORMAT number, string, ref, glob, undef - REFERENCES -- \ references $$foo[1] aka $foo->[1] -- $@%&* dereference $$foo{bar} aka $foo->{bar} -- [] anon. arrayref ${$$foo[1]}[2] aka $foo->[1]->[2] -- {} anon. hashref ${$$foo[1]}[2] aka $foo->[1][2] -- \() list of refs -- NUMBERS vs STRINGS LINKS -- OPERATOR PRECEDENCE = = perl.plover.com -- -> + . search.cpan.org -- ++ -- == != eq ne cpan.org -- ** < > <= >= lt gt le ge pm.org -- ! ~ \ u+ u- <=> cmp tpj.com -- =~ !~ perldoc.com -- * / % x SYNTAX -- + - . for (LIST) { }, for (a;b;c) { } -- << >> while ( ) { }, until ( ) { } -- named uops if ( ) { } elsif ( ) { } else { } -- < > <= >= lt gt le ge unless ( ) { } elsif ( ) { } else { } -- == != <=> eq ne cmp ~~ for equals foreach (ALWAYS) -+ \ reference $$foo[1] aka $foo->[1] -+ $@%&* dereference $$foo{bar} aka $foo->{bar} -+ [] anon. arrayref ${$$foo[1]}[2] aka $foo->[1]->[2] -+ {} anon. hashref ${$$foo[1]}[2] aka $foo->[1][2] -+ \() list of refs -+ NUMBERS vs STRINGS LINKS -+ OPERATOR PRECEDENCE = = perldoc.perl.org -+ -> + . search.cpan.org -+ ++ -- == != eq ne cpan.org -+ ** < > <= >= lt gt le ge pm.org -+ ! ~ \ u+ u- <=> cmp p3rl.org -+ =~ !~ perlmonks.org -+ * / % x SYNTAX -+ + - . foreach (LIST) { } for (a;b;c) { } -+ << >> while (e) { } until (e) { } -+ named uops if (e) { } elsif (e) { } else { } -+ < > <= >= lt gt le ge unless (e) { } elsif (e) { } else { } -+ == != <=> eq ne cmp ~~ given (e) { when (e) {} default {} } - & -- | ^ REGEX METACHARS REGEX MODIFIERS -- && ^ string begin /i case insens. -- || // $ str. end (before \n) /m line based ^$ -- .. ... + one or more /s . includes \n -- ?: * zero or more /x ign. wh.space -- = += -= *= etc. ? zero or one /g global -- , => {3,7} repeat in range /o cmpl pat. once -- list ops () capture -- not (?:) no capture REGEX CHARCLASSES -- and [] character class . == [^\n] -- or xor | alternation \s == whitespace -- \b word boundary \w == word characters -- \z string end \d == digits -- DO \S, \W and \D negate -- use strict; DON'T -- use warnings; "$foo" LINKS -- my $var; $$variable_name perl.com -- open() or die $!; `$userinput` use.perl.org -- use Modules; /$userinput/ perl.apache.org -- -+ | ^ REGEX METACHARS REGEX MODIFIERS -+ && ^ string begin /i case insensitive -+ || // $ str end (bfr \n) /m line based ^$ -+ .. ... + one or more /s . includes \n -+ ?: * zero or more /x ignore wh.space -+ = += -= *= etc ? zero or one /p preserve -+ , => {3,7} repeat in range /a ASCII /aa safe -+ list ops | alternation /l locale /d dual -+ not [] character class /u Unicode -+ and \b word boundary /e evaluate /ee rpts -+ or xor \z string end /g global -+ () capture /o compile pat once -+ DEBUG (?:p) no capture -+ -MO=Deparse (?#t) comment REGEX CHARCLASSES -+ -MO=Terse (?=p) ZW pos ahead . [^\n] -+ -D## (?!p) ZW neg ahead \s whitespace -+ -d:Trace (?<=p) ZW pos behind \K \w word chars -+ (?p) no backtrack \pP named property -+ perl -V:ivsize (?|p|p)branch reset \h horiz.wh.space -+ (?&NM) cap to name \R linebreak -+ \S \W \D \H negate - FUNCTION RETURN LISTS - stat localtime caller SPECIAL VARIABLES -- 0 dev 0 second 0 package $_ default variable -- 1 ino 1 minute 1 filename $0 program name -- 2 mode 2 hour 2 line $/ input separator -- 3 nlink 3 day 3 subroutine $\ output separator -- 4 uid 4 month-1 4 hasargs $| autoflush -- 5 gid 5 year-1900 5 wantarray $! sys/libcall error -- 6 rdev 6 weekday 6 evaltext $@ eval error -- 7 size 7 yearday 7 is_require $$ process ID -- 8 atime 8 is_dst 8 hints $. line number -- 9 mtime 9 bitmask @ARGV command line args -- 10 ctime just use @INC include paths -- 11 blksz POSIX:: 3..9 only @_ subroutine args -- 12 blcks strftime! with EXPR %ENV environment -+ 0 dev 0 second 0 package $_ default variable -+ 1 ino 1 minute 1 filename $0 program name -+ 2 mode 2 hour 2 line $/ input separator -+ 3 nlink 3 day 3 subroutine $\ output separator -+ 4 uid 4 month-1 4 hasargs $| autoflush -+ 5 gid 5 year-1900 5 wantarray $! sys/libcall error -+ 6 rdev 6 weekday 6 evaltext $@ eval error -+ 7 size 7 yearday 7 is_require $$ process ID -+ 8 atime 8 is_dst 8 hints $. line number -+ 9 mtime 9 bitmask @ARGV command line args -+ 10 ctime 10 hinthash @INC include paths -+ 11 blksz 3..10 only @_ subroutine args -+ 12 blcks with EXPR %ENV environment - - =head1 ACKNOWLEDGEMENTS - diff -Nru perl-5.14.2/debian/patches/fixes/pod_fixes.diff perl-5.14.3/debian/patches/fixes/pod_fixes.diff --- perl-5.14.2/debian/patches/fixes/pod_fixes.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/pod_fixes.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 85ec2ed71d958da0b63cc0ea9d6f6e13d1462a06 Mon Sep 17 00:00:00 2001 +From 442e0f50e0d83c3bc15e7830c9e816e99870f199 Mon Sep 17 00:00:00 2001 From: Keith Thompson Date: Fri, 29 Jul 2011 17:17:00 -0700 Subject: Fix typos in several pod/perl*.pod files diff -Nru perl-5.14.2/debian/patches/fixes/podlators_ae_ligature_fallback.diff perl-5.14.3/debian/patches/fixes/podlators_ae_ligature_fallback.diff --- perl-5.14.2/debian/patches/fixes/podlators_ae_ligature_fallback.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/podlators_ae_ligature_fallback.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 6a3c8709435f35899e9ab98a2422b6f66fe1b413 Mon Sep 17 00:00:00 2001 +From cd156843c64ca1c8386012662d209d9b2008a4c1 Mon Sep 17 00:00:00 2001 From: Russ Allbery Date: Tue, 20 Dec 2011 17:13:29 -0800 Subject: Fix the ASCII fallback string for AE diff -Nru perl-5.14.2/debian/patches/fixes/propagate_tainted_errors.patch perl-5.14.3/debian/patches/fixes/propagate_tainted_errors.patch --- perl-5.14.2/debian/patches/fixes/propagate_tainted_errors.patch 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/propagate_tainted_errors.patch 1970-01-01 02:00:00.000000000 +0200 @@ -1,57 +0,0 @@ -From 7f3693fe4834750cb1aa82b7f9c7b9e55ba8e1ba Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Sun, 11 Mar 2012 14:38:57 +1100 -Subject: properly propagate tainted errors - -Backport af89892ed and 05a1a0145d by Tony Cook to 5.14 - -Bug: https://rt.perl.org/rt3/Public/Bug/Display.html?id=111654 -Bug-Debian: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=663158 - -Patch-Name: fixes/propagate_tainted_errors.patch ---- - pp_sys.c | 2 +- - t/op/taint.t | 10 ++++++++-- - 2 files changed, 9 insertions(+), 3 deletions(-) - -diff --git a/pp_sys.c b/pp_sys.c -index 3c42133..fbf1124 100644 ---- a/pp_sys.c -+++ b/pp_sys.c -@@ -497,7 +497,7 @@ PP(pp_die) - } - } - } -- else if (SvPOK(ERRSV) && SvCUR(ERRSV)) { -+ else if (SvPV_const(ERRSV, len), len) { - exsv = sv_mortalcopy(ERRSV); - sv_catpvs(exsv, "\t...propagated"); - } -diff --git a/t/op/taint.t b/t/op/taint.t -index a300b9b..3a2b5d9 100644 ---- a/t/op/taint.t -+++ b/t/op/taint.t -@@ -17,7 +17,7 @@ BEGIN { - use strict; - use Config; - --plan tests => 778; -+plan tests => 779; - - $| = 1; - -@@ -2156,7 +2156,13 @@ end - ok(!tainted "", "tainting still works after index() of the constant"); - } - -- -+{ # 111654 -+ eval { -+ eval { die "Test\n".substr($ENV{PATH}, 0, 0); }; -+ die; -+ }; -+ like($@, qr/^Test\n\t\.\.\.propagated at /, "error should be propagated"); -+} - - # This may bomb out with the alarm signal so keep it last - SKIP: { diff -Nru perl-5.14.2/debian/patches/fixes/reading-glob-copy-handle.diff perl-5.14.3/debian/patches/fixes/reading-glob-copy-handle.diff --- perl-5.14.2/debian/patches/fixes/reading-glob-copy-handle.diff 2012-11-04 12:37:32.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/reading-glob-copy-handle.diff 1970-01-01 02:00:00.000000000 +0200 @@ -1,84 +0,0 @@ -From 79336c812d09ba475bff661f849514b3876a73dd Mon Sep 17 00:00:00 2001 -From: Father Chrysostomos -Date: Sun, 5 Jun 2011 22:37:54 -0700 -Subject: <$fh> hangs on a glob copy -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Opening a file handle to \$glob causes assertion failures -(under debugging) or hangs or other erratic behaviour without -debugging. This might even crash in some cases. - -It never really worked properly, but it didn’t start hanging -apparently until 5.12.2 and 5.14.0. - -Bug: http://rt.perl.org/rt3/Public/Bug/Display.html?id=92258 -Bug-Debian: http://bugs.debian.org/629363 -Origin: upstream, http://perl5.git.perl.org/perl.git/commit/fd1564b91b0e38f6c270a1bb7d144762ab1aea5c -Patch-Name: fixes/reading-glob-copy-handle.diff ---- - ext/PerlIO-scalar/scalar.xs | 13 ++++++++++--- - t/io/perlio.t | 8 +++++++- - 2 files changed, 17 insertions(+), 4 deletions(-) - -diff --git a/ext/PerlIO-scalar/scalar.xs b/ext/PerlIO-scalar/scalar.xs -index de98738..e0f75ac 100644 ---- a/ext/PerlIO-scalar/scalar.xs -+++ b/ext/PerlIO-scalar/scalar.xs -@@ -240,9 +240,13 @@ PerlIOScalar_get_cnt(pTHX_ PerlIO * f) - { - if (PerlIOBase(f)->flags & PERLIO_F_CANREAD) { - PerlIOScalar *s = PerlIOSelf(f, PerlIOScalar); -+ STRLEN len; - SvGETMAGIC(s->var); -- if (SvCUR(s->var) > (STRLEN) s->posn) -- return SvCUR(s->var) - (STRLEN)s->posn; -+ if (isGV_with_GP(s->var)) -+ (void)SvPV(s->var,len); -+ else len = SvCUR(s->var); -+ if (len > (STRLEN) s->posn) -+ return len - (STRLEN)s->posn; - else - return 0; - } -@@ -264,9 +268,12 @@ void - PerlIOScalar_set_ptrcnt(pTHX_ PerlIO * f, STDCHAR * ptr, SSize_t cnt) - { - PerlIOScalar *s = PerlIOSelf(f, PerlIOScalar); -+ STRLEN len; - PERL_UNUSED_ARG(ptr); - SvGETMAGIC(s->var); -- s->posn = SvCUR(s->var) - cnt; -+ if (isGV_with_GP(s->var)) (void)SvPV(s->var,len); -+ else len = SvCUR(s->var); -+ s->posn = len - cnt; - } - - PerlIO * -diff --git a/t/io/perlio.t b/t/io/perlio.t -index 1a330f4..a65b0d3 100644 ---- a/t/io/perlio.t -+++ b/t/io/perlio.t -@@ -6,7 +6,7 @@ BEGIN { - skip_all_without_perlio(); - } - --plan tests => 42; -+plan tests => 44; - - use_ok('PerlIO'); - -@@ -191,6 +191,12 @@ close ($perlio); - close ($no_perlio); - } - -+{ # [perl #92258] -+ open my $fh, "<", \(my $f = *f); -+ is join("", <$fh>), '*main::f', 'reading from a glob copy'; -+ is ref \$f, 'GLOB', 'the glob copy is unaffected'; -+} -+ - } - - diff -Nru perl-5.14.2/debian/patches/fixes/regexp-matching-fold.diff perl-5.14.3/debian/patches/fixes/regexp-matching-fold.diff --- perl-5.14.2/debian/patches/fixes/regexp-matching-fold.diff 2012-11-04 12:37:32.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/regexp-matching-fold.diff 1970-01-01 02:00:00.000000000 +0200 @@ -1,51 +0,0 @@ -From df7aadd27f9aa2fcd9467d1a2c6f02ddf97a84b9 Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Thu, 13 Oct 2011 19:56:45 -0600 -Subject: regexec.c: Fix "\x{FB01}\x{FB00}" =~ /ff/i - -Only the first character of the string was being checked when scanning -for the beginning position of the pattern match. - -This was so wrong, it looks like it has to be a regression. I -experimented a little and did not find any. I believe (but am not -certain) that a multi-char fold has to be involved. The the handling of -these was so broken before 5.14 that there very well may not be a -regression. - -Bug-Debian: http://bugs.debian.org/690976 -Origin: upstream, http://perl5.git.perl.org/perl.git/commit/399fb9c0594c29de7dc8815c6596bd6a67ddc9e6 -Patch-Name: fixes/regexp-matching-fold.diff ---- - regexec.c | 3 ++- - t/re/re_tests | 6 ++++++ - 2 files changed, 8 insertions(+), 1 deletion(-) - -diff --git a/regexec.c b/regexec.c -index 2354be1..021ab8e 100644 ---- a/regexec.c -+++ b/regexec.c -@@ -1507,7 +1507,8 @@ S_find_byclass(pTHX_ regexp * prog, const regnode *c, char *s, - ? utf8_length((U8 *) pat_string, (U8 *) pat_end) - : ln; - -- e = HOP3c(strend, -((I32)lnc), s); -+ /* Set the end position to the final character available */ -+ e = HOP3c(strend, -1, s); - - if (!reginfo && e < s) { - e = s; /* Due to minlen logic of intuit() */ -diff --git a/t/re/re_tests b/t/re/re_tests -index 35a7220..ae12452 100644 ---- a/t/re/re_tests -+++ b/t/re/re_tests -@@ -1522,4 +1522,10 @@ abc\N{def - c - \\N{NAME} must be resolved by the lexer - # See [perl #89750]. This makes sure that the simple fold gets generated - # in that case, to DF. - /[^\x{1E9E}]/i \x{DF} n - - -+ -+/ff/i \x{FB00}\x{FB01} y $& \x{FB00} -+/ff/i \x{FB01}\x{FB00} y $& \x{FB00} -+/fi/i \x{FB01}\x{FB00} y $& \x{FB01} -+/fi/i \x{FB00}\x{FB01} y $& \x{FB01} -+ - # vim: softtabstop=0 noexpandtab diff -Nru perl-5.14.2/debian/patches/fixes/regexp-matching-opposite-case.diff perl-5.14.3/debian/patches/fixes/regexp-matching-opposite-case.diff --- perl-5.14.2/debian/patches/fixes/regexp-matching-opposite-case.diff 2012-11-04 12:37:32.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/regexp-matching-opposite-case.diff 1970-01-01 02:00:00.000000000 +0200 @@ -1,132 +0,0 @@ -From 39d47b454e4e0498e35ba00a9d928d87348c8304 Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Thu, 27 Oct 2011 09:39:11 -0600 -Subject: /[[:lower:]]/i matches upper case - -This bug is a regression in 5.14, in which /[[:lower:]]/i and -/[[:upper:]]/i no longer matched the opposite case. - -The fix is to have these use a different table under /i matching, that -includes the correct /i code points. These tables were already -available, just unused. - -Bug: http://rt.perl.org/rt3/Public/Bug/Display.html?id=101970 -Bug-Debian: http://bugs.debian.org/690979 -Origin: upstream, http://perl5.git.perl.org/perl.git/commit/dc91d5ae29f578629526894098163d30c2d3a951 -Patch-Name: fixes/regexp-matching-opposite-case.diff ---- - regcomp.c | 51 ++++++++++++++++++++++++++++++++------------------- - t/re/re_tests | 4 ++++ - 2 files changed, 36 insertions(+), 19 deletions(-) - -diff --git a/regcomp.c b/regcomp.c -index c1c2c3b..b186c8d 100644 ---- a/regcomp.c -+++ b/regcomp.c -@@ -9199,7 +9199,7 @@ S_checkposixcc(pTHX_ RExC_state_t *pRExC_state) - } - } - --/* No locale test, and always Unicode semantics */ -+/* No locale test, and always Unicode semantics, no ignore-case differences */ - #define _C_C_T_NOLOC_(NAME,TEST,WORD) \ - ANYOF_##NAME: \ - for (value = 0; value < 256; value++) \ -@@ -9219,8 +9219,11 @@ case ANYOF_N##NAME: \ - /* Like the above, but there are differences if we are in uni-8-bit or not, so - * there are two tests passed in, to use depending on that. There aren't any - * cases where the label is different from the name, so no need for that -- * parameter */ --#define _C_C_T_(NAME, TEST_8, TEST_7, WORD) \ -+ * parameter. -+ * Sets 'what' to WORD which is the property name for non-bitmap code points; -+ * But, uses FOLD_WORD instead if /i has been selected, to allow a different -+ * property name */ -+#define _C_C_T_(NAME, TEST_8, TEST_7, WORD, FOLD_WORD) \ - ANYOF_##NAME: \ - if (LOC) ANYOF_CLASS_SET(ret, ANYOF_##NAME); \ - else if (UNI_SEMANTICS) { \ -@@ -9237,7 +9240,12 @@ ANYOF_##NAME: \ - } \ - } \ - yesno = '+'; \ -- what = WORD; \ -+ if (FOLD) { \ -+ what = FOLD_WORD; \ -+ } \ -+ else { \ -+ what = WORD; \ -+ } \ - break; \ - case ANYOF_N##NAME: \ - if (LOC) ANYOF_CLASS_SET(ret, ANYOF_N##NAME); \ -@@ -9269,7 +9277,12 @@ case ANYOF_N##NAME: \ - } \ - } \ - yesno = '!'; \ -- what = WORD; \ -+ if (FOLD) { \ -+ what = FOLD_WORD; \ -+ } \ -+ else { \ -+ what = WORD; \ -+ } \ - break - - STATIC U8 -@@ -9827,20 +9840,20 @@ parseit: - * --jhi */ - switch ((I32)namedclass) { - -- case _C_C_T_(ALNUMC, isALNUMC_L1, isALNUMC, "XPosixAlnum"); -- case _C_C_T_(ALPHA, isALPHA_L1, isALPHA, "XPosixAlpha"); -- case _C_C_T_(BLANK, isBLANK_L1, isBLANK, "XPosixBlank"); -- case _C_C_T_(CNTRL, isCNTRL_L1, isCNTRL, "XPosixCntrl"); -- case _C_C_T_(GRAPH, isGRAPH_L1, isGRAPH, "XPosixGraph"); -- case _C_C_T_(LOWER, isLOWER_L1, isLOWER, "XPosixLower"); -- case _C_C_T_(PRINT, isPRINT_L1, isPRINT, "XPosixPrint"); -- case _C_C_T_(PSXSPC, isPSXSPC_L1, isPSXSPC, "XPosixSpace"); -- case _C_C_T_(PUNCT, isPUNCT_L1, isPUNCT, "XPosixPunct"); -- case _C_C_T_(UPPER, isUPPER_L1, isUPPER, "XPosixUpper"); -+ case _C_C_T_(ALNUMC, isALNUMC_L1, isALNUMC, "XPosixAlnum", "XPosixAlnum"); -+ case _C_C_T_(ALPHA, isALPHA_L1, isALPHA, "XPosixAlpha", "XPosixAlpha"); -+ case _C_C_T_(BLANK, isBLANK_L1, isBLANK, "XPosixBlank", "XPosixBlank"); -+ case _C_C_T_(CNTRL, isCNTRL_L1, isCNTRL, "XPosixCntrl", "XPosixCntrl"); -+ case _C_C_T_(GRAPH, isGRAPH_L1, isGRAPH, "XPosixGraph", "XPosixGraph"); -+ case _C_C_T_(LOWER, isLOWER_L1, isLOWER, "XPosixLower", "__XPosixLower_i"); -+ case _C_C_T_(PRINT, isPRINT_L1, isPRINT, "XPosixPrint", "XPosixPrint"); -+ case _C_C_T_(PSXSPC, isPSXSPC_L1, isPSXSPC, "XPosixSpace", "XPosixSpace"); -+ case _C_C_T_(PUNCT, isPUNCT_L1, isPUNCT, "XPosixPunct", "XPosixPunct"); -+ case _C_C_T_(UPPER, isUPPER_L1, isUPPER, "XPosixUpper", "__XPosixUpper_i"); - /* \s, \w match all unicode if utf8. */ -- case _C_C_T_(SPACE, isSPACE_L1, isSPACE, "SpacePerl"); -- case _C_C_T_(ALNUM, isWORDCHAR_L1, isALNUM, "Word"); -- case _C_C_T_(XDIGIT, isXDIGIT_L1, isXDIGIT, "XPosixXDigit"); -+ case _C_C_T_(SPACE, isSPACE_L1, isSPACE, "SpacePerl", "SpacePerl"); -+ case _C_C_T_(ALNUM, isWORDCHAR_L1, isALNUM, "Word", "Word"); -+ case _C_C_T_(XDIGIT, isXDIGIT_L1, isXDIGIT, "XPosixXDigit", "XPosixXDigit"); - case _C_C_T_NOLOC_(VERTWS, is_VERTWS_latin1(&value), "VertSpace"); - case _C_C_T_NOLOC_(HORIZWS, is_HORIZWS_latin1(&value), "HorizSpace"); - case ANYOF_ASCII: -@@ -9906,7 +9919,7 @@ parseit: - } - if (what && ! (AT_LEAST_ASCII_RESTRICTED)) { - /* Strings such as "+utf8::isWord\n" */ -- Perl_sv_catpvf(aTHX_ listsv, "%cutf8::Is%s\n", yesno, what); -+ Perl_sv_catpvf(aTHX_ listsv, "%cutf8::%s\n", yesno, what); - } - - continue; -diff --git a/t/re/re_tests b/t/re/re_tests -index ae12452..144cf1e 100644 ---- a/t/re/re_tests -+++ b/t/re/re_tests -@@ -1528,4 +1528,8 @@ abc\N{def - c - \\N{NAME} must be resolved by the lexer - /fi/i \x{FB01}\x{FB00} y $& \x{FB01} - /fi/i \x{FB00}\x{FB01} y $& \x{FB01} - -+# [perl #101970] -+/[[:lower:]]/i \x{100} y $& \x{100} -+/[[:upper:]]/i \x{101} y $& \x{101} -+ - # vim: softtabstop=0 noexpandtab diff -Nru perl-5.14.2/debian/patches/fixes/regexp-matching-starter.diff perl-5.14.3/debian/patches/fixes/regexp-matching-starter.diff --- perl-5.14.2/debian/patches/fixes/regexp-matching-starter.diff 2012-11-04 12:37:32.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/regexp-matching-starter.diff 1970-01-01 02:00:00.000000000 +0200 @@ -1,58 +0,0 @@ -From 9dc7c3307242fe74116b62a2cc55a63544131a2d Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Tue, 1 Nov 2011 17:57:15 -0600 -Subject: Regression with /i, latin1 chars. - -The root cause of this bug is that it was assuming that a string was in -utf8 when it wasn't, and so was thinking that a byte was a starter byte -that wasn't, so was skipping ahead based on that starter byte. - -Bug: http://rt.perl.org/rt3/Public/Bug/Display.html?id=101710 -Bug-Debian: http://bugs.debian.org/690975 -Origin: upstream, http://perl5.git.perl.org/perl.git/commit/6e634c54a0f90c8878c8086142fe3451f8970a9e -Patch-Name: fixes/regexp-matching-starter.diff ---- - regexec.c | 2 +- - t/re/pat.t | 9 ++++++++- - 2 files changed, 9 insertions(+), 2 deletions(-) - -diff --git a/regexec.c b/regexec.c -index 0dc093f..2354be1 100644 ---- a/regexec.c -+++ b/regexec.c -@@ -1521,7 +1521,7 @@ S_find_byclass(pTHX_ regexp * prog, const regnode *c, char *s, - { - goto got_it; - } -- s += UTF8SKIP(s); -+ s += (utf8_target) ? UTF8SKIP(s) : 1; - } - break; - case BOUNDL: -diff --git a/t/re/pat.t b/t/re/pat.t -index 4ef9663..4eb05c6 100644 ---- a/t/re/pat.t -+++ b/t/re/pat.t -@@ -21,7 +21,7 @@ BEGIN { - require './test.pl'; - } - --plan tests => 451; # Update this when adding/deleting tests. -+plan tests => 452; # Update this when adding/deleting tests. - - run_tests() unless caller; - -@@ -1167,6 +1167,13 @@ sub run_tests { - is($got,$want,'RT #84294: check that "ab" =~ /((\w+)(?{ push @got, $2 })){2}/ leaves @got in the correct state'); - } - -+ -+ { # [perl #101710] -+ my $pat = "b"; -+ utf8::upgrade($pat); -+ like("\xffb", qr/$pat/i, "/i: utf8 pattern, non-utf8 string, latin1-char preceding matching char in string"); -+ } -+ - } # End of sub run_tests - - 1; diff -Nru perl-5.14.2/debian/patches/fixes/respect_umask.diff perl-5.14.3/debian/patches/fixes/respect_umask.diff --- perl-5.14.2/debian/patches/fixes/respect_umask.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/respect_umask.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 0d1ab4f799eb14d5488fcc959f4a6bdec548b370 Mon Sep 17 00:00:00 2001 +From e8bb2707572dc1dfdb40aad2fac8a951b2226e3c Mon Sep 17 00:00:00 2001 From: Brendan O'Dea Date: Tue, 8 Mar 2005 19:30:38 +1100 Subject: Respect umask during installation diff -Nru perl-5.14.2/debian/patches/fixes/smartmatch-rhs-precedence.diff perl-5.14.3/debian/patches/fixes/smartmatch-rhs-precedence.diff --- perl-5.14.2/debian/patches/fixes/smartmatch-rhs-precedence.diff 2012-11-04 12:37:32.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/smartmatch-rhs-precedence.diff 1970-01-01 02:00:00.000000000 +0200 @@ -1,51 +0,0 @@ -From 0d0e8db75c2c00e8863043c3efeaedff4fd62aa4 Mon Sep 17 00:00:00 2001 -From: Leon Timmermans -Date: Mon, 23 Jan 2012 02:01:00 +0100 -Subject: Enforce Any ~~ Object smartmatch precedence - -Origin: upstream, http://perl5.git.perl.org/perl.git/commit/011be0badf32a8d73f13b6565fbd8c398f8ab27e -Bug-Debian: http://bugs.debian.org/691102 -Patch-Name: fixes/smartmatch-rhs-precedence.diff - -See the related discussion at - http://www.nntp.perl.org/group/perl.perl5.porters/2011/07/msg174260.html ---- - pp_ctl.c | 2 +- - t/op/smartmatch.t | 4 +--- - 2 files changed, 2 insertions(+), 4 deletions(-) - -diff --git a/pp_ctl.c b/pp_ctl.c -index 7c4651c..cbeeeee 100644 ---- a/pp_ctl.c -+++ b/pp_ctl.c -@@ -4374,7 +4374,7 @@ S_do_smartmatch(pTHX_ HV *seen_this, HV *seen_other, const bool copied) - DEBUG_M(Perl_deb(aTHX_ " applying rule Any-Object\n")); - DEBUG_M(Perl_deb(aTHX_ " attempting overload\n")); - -- tmpsv = amagic_call(d, e, smart_amg, 0); -+ tmpsv = amagic_call(d, e, smart_amg, AMGf_noleft); - if (tmpsv) { - SPAGAIN; - (void)POPs; -diff --git a/t/op/smartmatch.t b/t/op/smartmatch.t -index da4840e..79c9847 100644 ---- a/t/op/smartmatch.t -+++ b/t/op/smartmatch.t -@@ -73,7 +73,7 @@ my %keyandmore = map { $_ => 0 } @keyandmore; - my %fooormore = map { $_ => 0 } @fooormore; - - # Load and run the tests --plan tests => 351; -+plan tests => 349; - - while () { - SKIP: { -@@ -223,8 +223,6 @@ __DATA__ - @ "object" $str_obj - @ FALSE $str_obj - # Those will treat the $str_obj as a string because of fallback: --! $ov_obj $str_obj -- $ov_obj_2 $str_obj - - # object (overloaded or not) ~~ Any - $obj qr/NoOverload/ diff -Nru perl-5.14.2/debian/patches/fixes/socket_cache_propagate.diff perl-5.14.3/debian/patches/fixes/socket_cache_propagate.diff --- perl-5.14.2/debian/patches/fixes/socket_cache_propagate.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/socket_cache_propagate.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From 579ea4ac39abad6b36924f7b515e846f61d3185a Mon Sep 17 00:00:00 2001 +From 8cafb9cd9197ec51685a7144000e9f1dc56f7c55 Mon Sep 17 00:00:00 2001 From: Daniel Kahn Gillmor Date: Fri, 17 Feb 2012 14:29:14 -0800 Subject: sockdomain and socktype undef on newly accepted sockets @@ -34,10 +34,10 @@ create mode 100644 dist/IO/t/cachepropagate-unix.t diff --git a/MANIFEST b/MANIFEST -index 9ae00dc..c426b9e 100644 +index c834b79..05751c8 100644 --- a/MANIFEST +++ b/MANIFEST -@@ -3007,6 +3007,9 @@ dist/IO/Makefile.PL IO extension makefile writer +@@ -3008,6 +3008,9 @@ dist/IO/Makefile.PL IO extension makefile writer dist/IO/poll.c IO poll() emulation using select() dist/IO/poll.h IO poll() emulation using select() dist/IO/README IO extension maintenance notice @@ -48,7 +48,7 @@ dist/IO/t/io_dir.t See if directory-related methods from IO work dist/IO/t/io_dup.t See if dup()-related methods from IO work diff --git a/META.yml b/META.yml -index 4097dbc..0a0a1e7 100644 +index 6e872e0..8dc55b4 100644 --- a/META.yml +++ b/META.yml @@ -72,6 +72,9 @@ no_index: diff -Nru perl-5.14.2/debian/patches/fixes/string_repeat_overrun.diff perl-5.14.3/debian/patches/fixes/string_repeat_overrun.diff --- perl-5.14.2/debian/patches/fixes/string_repeat_overrun.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/string_repeat_overrun.diff 1970-01-01 02:00:00.000000000 +0200 @@ -1,35 +0,0 @@ -From a62ad82c162c6e8152d22f237baa809caac15e6f Mon Sep 17 00:00:00 2001 -From: Andy Dougherty -Date: Thu, 27 Sep 2012 09:52:18 -0400 -Subject: avoid calling memset with a negative count - -Poorly written perl code that allows an attacker to specify the count to -perl's 'x' string repeat operator can already cause a memory exhaustion -denial-of-service attack. A flaw in versions of perl before 5.15.5 can -escalate that into a heap buffer overrun; coupled with versions of glibc -before 2.16, it possibly allows the execution of arbitrary code. - -The flaw addressed to this commit has been assigned identifier -CVE-2012-5195. - -Origin: upstream, http://perl5.git.perl.org/perl.git/commit/b675304e3fdbcce3ef853b06b6ebe870d99faa7e -Bug-Debian: http://bugs.debian.org/689314 -Patch-Name: fixes/string_repeat_overrun.diff ---- - util.c | 3 +++ - 1 file changed, 3 insertions(+) - -diff --git a/util.c b/util.c -index 0ea39c6..230211e 100644 ---- a/util.c -+++ b/util.c -@@ -3319,6 +3319,9 @@ Perl_repeatcpy(register char *to, register const char *from, I32 len, register I - { - PERL_ARGS_ASSERT_REPEATCPY; - -+ if (count < 0) -+ Perl_croak_nocontext("%s",PL_memory_wrap); -+ - if (len == 1) - memset(to, *from, count); - else if (count) { diff -Nru perl-5.14.2/debian/patches/fixes/sysconf.t-posix.diff perl-5.14.3/debian/patches/fixes/sysconf.t-posix.diff --- perl-5.14.2/debian/patches/fixes/sysconf.t-posix.diff 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/sysconf.t-posix.diff 1970-01-01 02:00:00.000000000 +0200 @@ -1,44 +0,0 @@ -From 793297f0d9aee2dafc4e13301fedf792545d93a8 Mon Sep 17 00:00:00 2001 -From: Pino Toscano -Date: Mon, 31 Oct 2011 21:37:04 +0000 -Subject: Fix hang in ext/POSIX/t/sysconf.t on GNU/Hurd - -while compiling perl 5.14.2 on GNU/Hurd, I ran into what it seems a -undefined POSIX behaviour in ext/POSIX/t/sysconf.t. - - my $fd = POSIX::open($fifo, O_RDWR) - or skip("could not open $fifo ($!)", 3 * @path_consts_fifo); - -according to the POSIX open()[1] about O_RDWR, - The result is undefined if this flag is applied to a FIFO. -.... which is actually our case. -Apparently Linux and *FreeBSD (and maybe also OSes) accept this -behaviour, but on GNU/Hurd this causes the open() call to block -undefinitely. Given there's nothing done with the FIFO if not querying -{,f}pathconf() values, the proposed solution I attached is to change -the opening mode to "O_RDONLY | O_NONBLOCK". - -[1] http://pubs.opengroup.org/onlinepubs/9699919799/functions/open.html - -Bug-Debian: http://bugs.debian.org/646016 -Bug: https://rt.perl.org/rt3/Public/Bug/Display.html?id=102888 -Origin: http://perl5.git.perl.org/perl.git/commit/80401853b1ceb0e04f1ea56f572e1ac37deb1515 - -Patch-Name: fixes/sysconf.t-posix.diff ---- - ext/POSIX/t/sysconf.t | 2 +- - 1 file changed, 1 insertion(+), 1 deletion(-) - -diff --git a/ext/POSIX/t/sysconf.t b/ext/POSIX/t/sysconf.t -index 2dc9762..4a03217 100644 ---- a/ext/POSIX/t/sysconf.t -+++ b/ext/POSIX/t/sysconf.t -@@ -130,7 +130,7 @@ SKIP: { - or skip("could not create fifo $fifo ($!)", 2 * 3 * @path_consts_fifo); - - SKIP: { -- my $fd = POSIX::open($fifo, O_RDWR) -+ my $fd = POSIX::open($fifo, O_RDONLY | O_NONBLOCK) - or skip("could not open $fifo ($!)", 3 * @path_consts_fifo); - - for my $constant (@path_consts_fifo) { diff -Nru perl-5.14.2/debian/patches/fixes/sys-syslog-socket-timeout-kfreebsd.patch perl-5.14.3/debian/patches/fixes/sys-syslog-socket-timeout-kfreebsd.patch --- perl-5.14.2/debian/patches/fixes/sys-syslog-socket-timeout-kfreebsd.patch 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/sys-syslog-socket-timeout-kfreebsd.patch 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From dc9a1cb04538896ed655e75bc4bc1061268898e6 Mon Sep 17 00:00:00 2001 +From a21993000b203359107642e317fa6e14c5b1fe5e Mon Sep 17 00:00:00 2001 From: Niko Tyni Date: Wed, 3 Aug 2011 22:36:24 +0300 Subject: Use a socket timeout on GNU/kFreeBSD to catch ICMP port unreachable diff -Nru perl-5.14.2/debian/patches/fixes/tainted-smartmatch.diff perl-5.14.3/debian/patches/fixes/tainted-smartmatch.diff --- perl-5.14.2/debian/patches/fixes/tainted-smartmatch.diff 2012-11-04 12:37:32.000000000 +0200 +++ perl-5.14.3/debian/patches/fixes/tainted-smartmatch.diff 2012-11-04 19:25:16.000000000 +0200 @@ -1,4 +1,4 @@ -From bbcc2ed685e887c153554b86f2bbbd53e7e9b06d Mon Sep 17 00:00:00 2001 +From 868e23579e8a6b1d767055456c5734bb9bed8fca Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Tue, 20 Sep 2011 08:55:09 -0700 Subject: $tainted ~~ [...] failing @@ -72,10 +72,10 @@ 5 files changed, 15 insertions(+), 9 deletions(-) diff --git a/embed.fnc b/embed.fnc -index bce167e..e508212 100644 +index c23c020..de0e81e 100644 --- a/embed.fnc +++ b/embed.fnc -@@ -1739,7 +1739,8 @@ sR |I32 |run_user_filter|int idx|NN SV *buf_sv|int maxlen +@@ -1741,7 +1741,8 @@ sR |I32 |run_user_filter|int idx|NN SV *buf_sv|int maxlen sR |PMOP* |make_matcher |NN REGEXP* re sR |bool |matcher_matches_sv|NN PMOP* matcher|NN SV* sv s |void |destroy_matcher|NN PMOP* matcher @@ -86,10 +86,10 @@ #if defined(PERL_IN_PP_HOT_C) diff --git a/embed.h b/embed.h -index 04b32d1..b2876f4 100644 +index 675ab74..8f7d1c7 100644 --- a/embed.h +++ b/embed.h -@@ -1382,7 +1382,7 @@ +@@ -1383,7 +1383,7 @@ # if defined(PERL_IN_PP_CTL_C) #define check_type_and_open(a) S_check_type_and_open(aTHX_ a) #define destroy_matcher(a) S_destroy_matcher(aTHX_ a) @@ -99,7 +99,7 @@ #define doeval(a,b,c,d) S_doeval(aTHX_ a,b,c,d) #define dofindlabel(a,b,c,d) S_dofindlabel(aTHX_ a,b,c,d) diff --git a/pp_ctl.c b/pp_ctl.c -index 60bc30d..7c4651c 100644 +index 06d9124..cbeeeee 100644 --- a/pp_ctl.c +++ b/pp_ctl.c @@ -4339,14 +4339,14 @@ S_destroy_matcher(pTHX_ PMOP *matcher) @@ -147,10 +147,10 @@ DEBUG_M(Perl_deb(aTHX_ " recursion finished\n")); if (SvTRUEx(POPs)) diff --git a/proto.h b/proto.h -index 0b46a79..666e0d6 100644 +index cc001e6..c46124d 100644 --- a/proto.h +++ b/proto.h -@@ -5696,7 +5696,7 @@ STATIC void S_destroy_matcher(pTHX_ PMOP* matcher) +@@ -5701,7 +5701,7 @@ STATIC void S_destroy_matcher(pTHX_ PMOP* matcher) #define PERL_ARGS_ASSERT_DESTROY_MATCHER \ assert(matcher) diff -Nru perl-5.14.2/debian/patches/series perl-5.14.3/debian/patches/series --- perl-5.14.2/debian/patches/series 2012-11-04 09:43:03.000000000 +0200 +++ perl-5.14.3/debian/patches/series 2012-11-04 19:25:16.000000000 +0200 @@ -23,23 +23,15 @@ 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 fixes/document_makemaker_ccflags.diff fixes/sys-syslog-socket-timeout-kfreebsd.patch -fixes/hurd-hints.diff fixes/pod_fixes.diff debian/find_html2text.diff -fixes/digest_eval_hole.diff -fixes/hurd-ndbm.diff -fixes/sysconf.t-posix.diff -fixes/hurd-largefile.diff debian/hurd_test_todo_syslog.diff fixes/hurd_skip_itimer_virtual.diff debian/hurd_test_skip_sigdispatch.diff @@ -56,17 +48,8 @@ fixes/cgi_no_shellwords_pl.diff fixes/path_max_fallback.diff debian/makemaker-pasthru.diff -fixes/propagate_tainted_errors.patch debian/perl5db-x-terminal-emulator.patch fixes/socket_cache_propagate.diff -fixes/ipc_open3.diff -fixes/string_repeat_overrun.diff debian/cpan-missing-site-dirs.diff fixes/kfreebsd-overrides.diff fixes/tainted-smartmatch.diff -fixes/regexp-matching-starter.diff -fixes/regexp-matching-fold.diff -fixes/regexp-matching-opposite-case.diff -fixes/reading-glob-copy-handle.diff -fixes/smartmatch-rhs-precedence.diff -fixes/perlcheat-update.diff diff -Nru perl-5.14.2/debian/released-versions perl-5.14.3/debian/released-versions --- perl-5.14.2/debian/released-versions 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/released-versions 2012-11-04 19:26:50.000000000 +0200 @@ -14,3 +14,4 @@ 5.12.3 5.12.4 5.14.2 +5.14.3 diff -Nru perl-5.14.2/debian/t/control.t perl-5.14.3/debian/t/control.t --- perl-5.14.2/debian/t/control.t 2012-11-04 09:43:01.000000000 +0200 +++ perl-5.14.3/debian/t/control.t 2012-11-04 19:26:50.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use lib "dist/Module-CoreList/lib"; -# Copyright 2011 Niko Tyni +# Copyright 2011-2012 Niko Tyni # # This program is free software; you can redistribute it and/or modify # it under the same terms as Perl itself. @@ -46,6 +46,11 @@ "libautodie-perl" => { "2.1001" => "2.10.01", }, + # 2.74 is the first CPAN version that knows about 5.14.3 + # 2.49.04 is the backport in 5.14.3 core + "libmodule-corelist-perl" => { + "2.49_04" => "2.74", + }, ); # list special cases where a Breaks entry doesn't need to imply diff -Nru perl-5.14.2/dist/Module-CoreList/lib/Module/CoreList.pm perl-5.14.3/dist/Module-CoreList/lib/Module/CoreList.pm --- perl-5.14.2/dist/Module-CoreList/lib/Module/CoreList.pm 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/dist/Module-CoreList/lib/Module/CoreList.pm 2012-10-12 09:37:42.000000000 +0300 @@ -2,7 +2,7 @@ use strict; use vars qw/$VERSION %released %version %families %upstream %bug_tracker %deprecated/; -$VERSION = '2.49_02'; +$VERSION = '2.49_04'; =head1 NAME @@ -171,7 +171,7 @@ 5.9.0, 5.9.1, 5.9.2, 5.9.3, 5.9.4, 5.9.5, 5.10.0, 5.10.1, 5.11.0, 5.11.1, 5.11.2, 5.11.3, 5.11.4, 5.11.5, 5.12.0, 5.12.1, 5.12.2, 5.12.3, 5.13.0, 5.13.1, 5.13.2, 5.13.3, 5.13.4, 5.13.5, 5.13.6, 5.13.7, 5.13.8, 5.13.9, -5.13.10, 5.13.11, 5.14.0, 5.14.1 and 5.14.2 releases of perl. +5.13.10, 5.13.11, 5.14.0, 5.14.1, 5.14.2 and 5.14.3 releases of perl. =head1 HISTORY @@ -350,6 +350,7 @@ 5.014000 => '2011-05-14', 5.014001 => '2011-06-16', 5.014002 => '2011-09-26', + 5.014003 => '2012-10-12', ); for my $version ( sort { $a <=> $b } keys %released ) { @@ -25672,6 +25673,660 @@ 'warnings' => '1.12', 'warnings::register' => '1.02', }, + 5.014003 => { + 'AnyDBM_File' => '1.00', + 'App::Cpan' => '1.5701', + 'App::Prove' => '3.23', + 'App::Prove::State' => '3.23', + 'App::Prove::State::Result'=> '3.23', + 'App::Prove::State::Result::Test'=> '3.23', + 'Archive::Extract' => '0.48', + 'Archive::Tar' => '1.76', + 'Archive::Tar::Constant'=> '1.76', + 'Archive::Tar::File' => '1.76', + 'Attribute::Handlers' => '0.89', + 'AutoLoader' => '5.71', + 'AutoSplit' => '1.06', + 'B' => '1.29', + 'B::Concise' => '0.83', + 'B::Debug' => '1.16', + 'B::Deparse' => '1.04', + 'B::Lint' => '1.13', + 'B::Lint::Debug' => '1.12', + 'B::Showlex' => '1.03', + 'B::Terse' => '1.05', + 'B::Xref' => '1.02', + 'Benchmark' => '1.12', + 'CGI' => '3.52', + 'CGI::Apache' => '1.01', + 'CGI::Carp' => '3.51', + 'CGI::Cookie' => '1.30', + 'CGI::Fast' => '1.08', + 'CGI::Pretty' => '3.46', + 'CGI::Push' => '1.05', + 'CGI::Switch' => '1.01', + 'CGI::Util' => '3.51', + 'CPAN' => '1.9600_01', + 'CPAN::Author' => '5.5001', + 'CPAN::Bundle' => '5.5', + 'CPAN::CacheMgr' => '5.5001', + 'CPAN::Complete' => '5.5', + 'CPAN::Debug' => '5.5001', + 'CPAN::DeferredCode' => '5.50', + 'CPAN::Distribution' => '1.9602_01', + 'CPAN::Distroprefs' => '6', + 'CPAN::Distrostatus' => '5.5', + 'CPAN::Exception::RecursiveDependency'=> '5.5', + 'CPAN::Exception::blocked_urllist'=> '1.001', + 'CPAN::Exception::yaml_not_installed'=> '5.5', + 'CPAN::FTP' => '5.5005', + 'CPAN::FTP::netrc' => '1.01', + 'CPAN::FirstTime' => '5.5303', + 'CPAN::HTTP::Client' => '1.9600', + 'CPAN::HTTP::Credentials'=> '1.9600', + 'CPAN::HandleConfig' => '5.5003', + 'CPAN::Index' => '1.9600', + 'CPAN::InfoObj' => '5.5', + 'CPAN::Kwalify' => '5.50', + 'CPAN::LWP::UserAgent' => '1.9600', + 'CPAN::Meta' => '2.110440', + 'CPAN::Meta::Converter' => '2.110440', + 'CPAN::Meta::Feature' => '2.110440', + 'CPAN::Meta::History' => '2.110440', + 'CPAN::Meta::Prereqs' => '2.110440', + 'CPAN::Meta::Spec' => '2.110440', + 'CPAN::Meta::Validator' => '2.110440', + 'CPAN::Meta::YAML' => '0.003', + 'CPAN::Mirrors' => '1.9600', + 'CPAN::Module' => '5.5001', + 'CPAN::Nox' => '5.50', + 'CPAN::Prompt' => '5.5', + 'CPAN::Queue' => '5.5001', + 'CPAN::Shell' => '5.5002', + 'CPAN::Tarzip' => '5.5011', + 'CPAN::URL' => '5.5', + 'CPAN::Version' => '5.5001', + 'CPANPLUS' => '0.9103', + 'CPANPLUS::Backend' => undef, + 'CPANPLUS::Backend::RV' => undef, + 'CPANPLUS::Config' => undef, + 'CPANPLUS::Configure' => undef, + 'CPANPLUS::Configure::Setup'=> undef, + 'CPANPLUS::Dist' => undef, + 'CPANPLUS::Dist::Autobundle'=> undef, + 'CPANPLUS::Dist::Base' => undef, + 'CPANPLUS::Dist::Build' => '0.54', + 'CPANPLUS::Dist::Build::Constants'=> '0.54', + 'CPANPLUS::Dist::MM' => undef, + 'CPANPLUS::Dist::Sample'=> undef, + 'CPANPLUS::Error' => undef, + 'CPANPLUS::Internals' => '0.9103', + 'CPANPLUS::Internals::Constants'=> undef, + 'CPANPLUS::Internals::Constants::Report'=> undef, + 'CPANPLUS::Internals::Extract'=> undef, + 'CPANPLUS::Internals::Fetch'=> undef, + 'CPANPLUS::Internals::Report'=> undef, + 'CPANPLUS::Internals::Search'=> undef, + 'CPANPLUS::Internals::Source'=> undef, + 'CPANPLUS::Internals::Source::Memory'=> undef, + 'CPANPLUS::Internals::Source::SQLite'=> undef, + 'CPANPLUS::Internals::Source::SQLite::Tie'=> undef, + 'CPANPLUS::Internals::Utils'=> undef, + 'CPANPLUS::Internals::Utils::Autoflush'=> undef, + 'CPANPLUS::Module' => undef, + 'CPANPLUS::Module::Author'=> undef, + 'CPANPLUS::Module::Author::Fake'=> undef, + 'CPANPLUS::Module::Checksums'=> undef, + 'CPANPLUS::Module::Fake'=> undef, + 'CPANPLUS::Module::Signature'=> undef, + 'CPANPLUS::Selfupdate' => undef, + 'CPANPLUS::Shell' => undef, + 'CPANPLUS::Shell::Classic'=> '0.0562', + 'CPANPLUS::Shell::Default'=> '0.9103', + 'CPANPLUS::Shell::Default::Plugins::CustomSource'=> undef, + 'CPANPLUS::Shell::Default::Plugins::Remote'=> undef, + 'CPANPLUS::Shell::Default::Plugins::Source'=> undef, + 'Carp' => '1.20', + 'Carp::Heavy' => '1.20', + 'Class::Struct' => '0.63', + 'Compress::Raw::Bzip2' => '2.033', + 'Compress::Raw::Zlib' => '2.033', + 'Compress::Zlib' => '2.033', + 'Config' => undef, + 'Config::Extensions' => '0.01', + 'Cwd' => '3.36', + 'DB' => '1.03', + 'DBM_Filter' => '0.04', + 'DBM_Filter::compress' => '0.02', + 'DBM_Filter::encode' => '0.02', + 'DBM_Filter::int32' => '0.02', + 'DBM_Filter::null' => '0.02', + 'DBM_Filter::utf8' => '0.02', + 'DB_File' => '1.821', + 'Data::Dumper' => '2.130_02', + 'Devel::DProf' => '20110228.00', + 'Devel::DProf::dprof::V'=> undef, + 'Devel::InnerPackage' => '0.3', + 'Devel::PPPort' => '3.19', + 'Devel::Peek' => '1.07', + 'Devel::SelfStubber' => '1.05', + 'Digest' => '1.16_01', + 'Digest::MD5' => '2.51', + 'Digest::SHA' => '5.61', + 'Digest::base' => '1.16', + 'Digest::file' => '1.16', + 'DirHandle' => '1.04', + 'Dumpvalue' => '1.16', + 'DynaLoader' => '1.13', + 'Encode' => '2.42_01', + 'Encode::Alias' => '2.13', + 'Encode::Byte' => '2.04', + 'Encode::CJKConstants' => '2.02', + 'Encode::CN' => '2.03', + 'Encode::CN::HZ' => '2.05', + 'Encode::Config' => '2.05', + 'Encode::EBCDIC' => '2.02', + 'Encode::Encoder' => '2.01', + 'Encode::Encoding' => '2.05', + 'Encode::GSM0338' => '2.01', + 'Encode::Guess' => '2.04', + 'Encode::JP' => '2.04', + 'Encode::JP::H2Z' => '2.02', + 'Encode::JP::JIS7' => '2.04', + 'Encode::KR' => '2.03', + 'Encode::KR::2022_KR' => '2.02', + 'Encode::MIME::Header' => '2.13', + 'Encode::MIME::Header::ISO_2022_JP'=> '1.03', + 'Encode::MIME::Name' => '1.01', + 'Encode::Symbol' => '2.02', + 'Encode::TW' => '2.03', + 'Encode::Unicode' => '2.07', + 'Encode::Unicode::UTF7' => '2.05', + 'English' => '1.04', + 'Env' => '1.02', + 'Errno' => '1.13', + 'Exporter' => '5.64_03', + 'Exporter::Heavy' => '5.64_03', + 'ExtUtils::CBuilder' => '0.280203', + 'ExtUtils::CBuilder::Base'=> '0.280203', + 'ExtUtils::CBuilder::Platform::Unix'=> '0.280203', + 'ExtUtils::CBuilder::Platform::VMS'=> '0.280203', + 'ExtUtils::CBuilder::Platform::Windows'=> '0.280203', + 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280203', + 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280203', + 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280203', + 'ExtUtils::CBuilder::Platform::aix'=> '0.280203', + 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280203', + 'ExtUtils::CBuilder::Platform::darwin'=> '0.280203', + 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280203', + 'ExtUtils::CBuilder::Platform::os2'=> '0.280203', + 'ExtUtils::Command' => '1.17', + 'ExtUtils::Command::MM' => '6.57_05', + 'ExtUtils::Constant' => '0.23', + 'ExtUtils::Constant::Base'=> '0.05', + 'ExtUtils::Constant::ProxySubs'=> '0.08', + 'ExtUtils::Constant::Utils'=> '0.03', + 'ExtUtils::Constant::XS'=> '0.03', + 'ExtUtils::Embed' => '1.30', + 'ExtUtils::Install' => '1.56', + 'ExtUtils::Installed' => '1.999_001', + 'ExtUtils::Liblist' => '6.57_05', + 'ExtUtils::Liblist::Kid'=> '6.5705', + 'ExtUtils::MM' => '6.57_05', + 'ExtUtils::MM_AIX' => '6.57_05', + 'ExtUtils::MM_Any' => '6.57_05', + 'ExtUtils::MM_BeOS' => '6.57_05', + 'ExtUtils::MM_Cygwin' => '6.57_05', + 'ExtUtils::MM_DOS' => '6.5705', + 'ExtUtils::MM_Darwin' => '6.57_05', + 'ExtUtils::MM_MacOS' => '6.5705', + 'ExtUtils::MM_NW5' => '6.57_05', + 'ExtUtils::MM_OS2' => '6.57_05', + 'ExtUtils::MM_QNX' => '6.57_05', + 'ExtUtils::MM_UWIN' => '6.5705', + 'ExtUtils::MM_Unix' => '6.57_05', + 'ExtUtils::MM_VMS' => '6.57_05', + 'ExtUtils::MM_VOS' => '6.57_05', + 'ExtUtils::MM_Win32' => '6.57_05', + 'ExtUtils::MM_Win95' => '6.57_05', + 'ExtUtils::MY' => '6.5705', + 'ExtUtils::MakeMaker' => '6.57_05', + 'ExtUtils::MakeMaker::Config'=> '6.57_05', + 'ExtUtils::MakeMaker::YAML'=> '1.44', + 'ExtUtils::Manifest' => '1.58', + 'ExtUtils::Miniperl' => undef, + 'ExtUtils::Mkbootstrap' => '6.57_05', + 'ExtUtils::Mksymlists' => '6.57_05', + 'ExtUtils::Packlist' => '1.44', + 'ExtUtils::ParseXS' => '2.2210', + 'ExtUtils::XSSymSet' => '1.2', + 'ExtUtils::testlib' => '6.5705', + 'Fatal' => '2.1001', + 'Fcntl' => '1.11', + 'File::Basename' => '2.82', + 'File::CheckTree' => '4.41', + 'File::Compare' => '1.1006', + 'File::Copy' => '2.21', + 'File::DosGlob' => '1.04', + 'File::Fetch' => '0.32', + 'File::Find' => '1.19', + 'File::Glob' => '1.13', + 'File::GlobMapper' => '1.000', + 'File::Path' => '2.08_01', + 'File::Spec' => '3.33', + 'File::Spec::Cygwin' => '3.33', + 'File::Spec::Epoc' => '3.33', + 'File::Spec::Functions' => '3.33', + 'File::Spec::Mac' => '3.34', + 'File::Spec::OS2' => '3.33', + 'File::Spec::Unix' => '3.33', + 'File::Spec::VMS' => '3.34', + 'File::Spec::Win32' => '3.33', + 'File::Temp' => '0.22', + 'File::stat' => '1.05', + 'FileCache' => '1.08', + 'FileHandle' => '2.02', + 'Filter::Simple' => '0.86', + 'Filter::Util::Call' => '1.08', + 'FindBin' => '1.50', + 'GDBM_File' => '1.14', + 'Getopt::Long' => '2.38', + 'Getopt::Std' => '1.06', + 'HTTP::Tiny' => '0.012', + 'Hash::Util' => '0.11', + 'Hash::Util::FieldHash' => '1.09', + 'I18N::Collate' => '1.02', + 'I18N::LangTags' => '0.35_01', + 'I18N::LangTags::Detect'=> '1.05', + 'I18N::LangTags::List' => '0.35_01', + 'I18N::Langinfo' => '0.08', + 'IO' => '1.25_04', + 'IO::Compress::Adapter::Bzip2'=> '2.033', + 'IO::Compress::Adapter::Deflate'=> '2.033', + 'IO::Compress::Adapter::Identity'=> '2.033', + 'IO::Compress::Base' => '2.033', + 'IO::Compress::Base::Common'=> '2.033', + 'IO::Compress::Bzip2' => '2.033', + 'IO::Compress::Deflate' => '2.033', + 'IO::Compress::Gzip' => '2.033', + 'IO::Compress::Gzip::Constants'=> '2.033', + 'IO::Compress::RawDeflate'=> '2.033', + 'IO::Compress::Zip' => '2.033', + 'IO::Compress::Zip::Constants'=> '2.033', + 'IO::Compress::Zlib::Constants'=> '2.033', + 'IO::Compress::Zlib::Extra'=> '2.033', + 'IO::Dir' => '1.08', + 'IO::File' => '1.15', + 'IO::Handle' => '1.31', + 'IO::Pipe' => '1.14', + 'IO::Poll' => '0.08', + 'IO::Seekable' => '1.10', + 'IO::Select' => '1.20', + 'IO::Socket' => '1.32', + 'IO::Socket::INET' => '1.31', + 'IO::Socket::UNIX' => '1.23', + 'IO::Uncompress::Adapter::Bunzip2'=> '2.033', + 'IO::Uncompress::Adapter::Identity'=> '2.033', + 'IO::Uncompress::Adapter::Inflate'=> '2.033', + 'IO::Uncompress::AnyInflate'=> '2.033', + 'IO::Uncompress::AnyUncompress'=> '2.033', + 'IO::Uncompress::Base' => '2.033', + 'IO::Uncompress::Bunzip2'=> '2.033', + 'IO::Uncompress::Gunzip'=> '2.033', + 'IO::Uncompress::Inflate'=> '2.033', + 'IO::Uncompress::RawInflate'=> '2.033', + 'IO::Uncompress::Unzip' => '2.033', + 'IO::Zlib' => '1.10', + 'IPC::Cmd' => '0.70', + 'IPC::Msg' => '2.03', + 'IPC::Open2' => '1.03', + 'IPC::Open3' => '1.09_01', + 'IPC::Semaphore' => '2.03', + 'IPC::SharedMem' => '2.03', + 'IPC::SysV' => '2.03', + 'JSON::PP' => '2.27105', + 'JSON::PP::Boolean' => undef, + 'List::Util' => '1.23', + 'List::Util::PP' => '1.23', + 'List::Util::XS' => '1.23', + 'Locale::Codes' => '3.16', + 'Locale::Codes::Country'=> '3.16', + 'Locale::Codes::Currency'=> '3.16', + 'Locale::Codes::Language'=> '3.16', + 'Locale::Codes::Script' => '3.16', + 'Locale::Constants' => '3.16', + 'Locale::Country' => '3.16', + 'Locale::Currency' => '3.16', + 'Locale::Language' => '3.16', + 'Locale::Maketext' => '1.19', + 'Locale::Maketext::Guts'=> '1.17', + 'Locale::Maketext::GutsLoader'=> '1.17', + 'Locale::Maketext::Simple'=> '0.21', + 'Locale::Script' => '3.16', + 'Log::Message' => '0.04', + 'Log::Message::Config' => '0.04', + 'Log::Message::Handlers'=> '0.04', + 'Log::Message::Item' => '0.04', + 'Log::Message::Simple' => '0.08', + 'MIME::Base64' => '3.13', + 'MIME::QuotedPrint' => '3.13', + 'Math::BigFloat' => '1.993', + 'Math::BigFloat::Trace' => '0.01', + 'Math::BigInt' => '1.994', + 'Math::BigInt::Calc' => '1.993', + 'Math::BigInt::CalcEmu' => '1.993', + 'Math::BigInt::FastCalc'=> '0.28', + 'Math::BigInt::Trace' => '0.01', + 'Math::BigRat' => '0.26_02', + 'Math::Complex' => '1.56', + 'Math::Trig' => '1.2', + 'Memoize' => '1.02', + 'Memoize::AnyDBM_File' => '1.02', + 'Memoize::Expire' => '1.02', + 'Memoize::ExpireFile' => '1.02', + 'Memoize::ExpireTest' => '1.02', + 'Memoize::NDBM_File' => '1.02', + 'Memoize::SDBM_File' => '1.02', + 'Memoize::Storable' => '1.02', + 'Module::Build' => '0.3800', + 'Module::Build::Base' => '0.3800', + 'Module::Build::Compat' => '0.3800', + 'Module::Build::Config' => '0.3800', + 'Module::Build::ConfigData'=> undef, + 'Module::Build::Cookbook'=> '0.3800', + 'Module::Build::Dumper' => '0.3800', + 'Module::Build::ModuleInfo'=> '0.3800', + 'Module::Build::Notes' => '0.3800', + 'Module::Build::PPMMaker'=> '0.3800', + 'Module::Build::Platform::Amiga'=> '0.3800', + 'Module::Build::Platform::Default'=> '0.3800', + 'Module::Build::Platform::EBCDIC'=> '0.3800', + 'Module::Build::Platform::MPEiX'=> '0.3800', + 'Module::Build::Platform::MacOS'=> '0.3800', + 'Module::Build::Platform::RiscOS'=> '0.3800', + 'Module::Build::Platform::Unix'=> '0.3800', + 'Module::Build::Platform::VMS'=> '0.3800', + 'Module::Build::Platform::VOS'=> '0.3800', + 'Module::Build::Platform::Windows'=> '0.3800', + 'Module::Build::Platform::aix'=> '0.3800', + 'Module::Build::Platform::cygwin'=> '0.3800', + 'Module::Build::Platform::darwin'=> '0.3800', + 'Module::Build::Platform::os2'=> '0.3800', + 'Module::Build::PodParser'=> '0.3800', + 'Module::Build::Version'=> '0.87', + 'Module::Build::YAML' => '1.41', + 'Module::CoreList' => '2.49_04', + 'Module::Load' => '0.18', + 'Module::Load::Conditional'=> '0.44', + 'Module::Loaded' => '0.06', + 'Module::Metadata' => '1.000004', + 'Module::Pluggable' => '3.9', + 'Module::Pluggable::Object'=> '3.9', + 'Moped::Msg' => '0.01', + 'NDBM_File' => '1.12', + 'NEXT' => '0.65', + 'Net::Cmd' => '2.29', + 'Net::Config' => '1.11', + 'Net::Domain' => '2.20', + 'Net::FTP' => '2.77', + 'Net::FTP::A' => '1.18', + 'Net::FTP::E' => '0.01', + 'Net::FTP::I' => '1.12', + 'Net::FTP::L' => '0.01', + 'Net::FTP::dataconn' => '0.11', + 'Net::NNTP' => '2.24', + 'Net::Netrc' => '2.12', + 'Net::POP3' => '2.29', + 'Net::Ping' => '2.38', + 'Net::SMTP' => '2.31', + 'Net::Time' => '2.10', + 'Net::hostent' => '1.01', + 'Net::netent' => '1.00', + 'Net::protoent' => '1.00', + 'Net::servent' => '1.01', + 'O' => '1.01', + 'ODBM_File' => '1.10', + 'Object::Accessor' => '0.38', + 'Opcode' => '1.18', + 'POSIX' => '1.24', + 'Package::Constants' => '0.02', + 'Params::Check' => '0.28', + 'Parse::CPAN::Meta' => '1.4401', + 'Perl::OSType' => '1.002', + 'PerlIO' => '1.07', + 'PerlIO::encoding' => '0.14', + 'PerlIO::scalar' => '0.11_01', + 'PerlIO::via' => '0.11', + 'PerlIO::via::QuotedPrint'=> '0.06', + 'Pod::Checker' => '1.45', + 'Pod::Escapes' => '1.04', + 'Pod::Find' => '1.35', + 'Pod::Functions' => '1.04', + 'Pod::Html' => '1.11', + 'Pod::InputObjects' => '1.31', + 'Pod::LaTeX' => '0.59', + 'Pod::Man' => '2.25', + 'Pod::ParseLink' => '1.10', + 'Pod::ParseUtils' => '1.36', + 'Pod::Parser' => '1.37', + 'Pod::Perldoc' => '3.15_04', + 'Pod::Perldoc::BaseTo' => undef, + 'Pod::Perldoc::GetOptsOO'=> undef, + 'Pod::Perldoc::ToChecker'=> undef, + 'Pod::Perldoc::ToMan' => undef, + 'Pod::Perldoc::ToNroff' => undef, + 'Pod::Perldoc::ToPod' => undef, + 'Pod::Perldoc::ToRtf' => undef, + 'Pod::Perldoc::ToText' => undef, + 'Pod::Perldoc::ToTk' => undef, + 'Pod::Perldoc::ToXml' => undef, + 'Pod::PlainText' => '2.04', + 'Pod::Select' => '1.36', + 'Pod::Simple' => '3.16', + 'Pod::Simple::BlackBox' => '3.16', + 'Pod::Simple::Checker' => '3.16', + 'Pod::Simple::Debug' => '3.16', + 'Pod::Simple::DumpAsText'=> '3.16', + 'Pod::Simple::DumpAsXML'=> '3.16', + 'Pod::Simple::HTML' => '3.16', + 'Pod::Simple::HTMLBatch'=> '3.16', + 'Pod::Simple::HTMLLegacy'=> '5.01', + 'Pod::Simple::LinkSection'=> '3.16', + 'Pod::Simple::Methody' => '3.16', + 'Pod::Simple::Progress' => '3.16', + 'Pod::Simple::PullParser'=> '3.16', + 'Pod::Simple::PullParserEndToken'=> '3.16', + 'Pod::Simple::PullParserStartToken'=> '3.16', + 'Pod::Simple::PullParserTextToken'=> '3.16', + 'Pod::Simple::PullParserToken'=> '3.16', + 'Pod::Simple::RTF' => '3.16', + 'Pod::Simple::Search' => '3.16', + 'Pod::Simple::SimpleTree'=> '3.16', + 'Pod::Simple::Text' => '3.16', + 'Pod::Simple::TextContent'=> '3.16', + 'Pod::Simple::TiedOutFH'=> '3.16', + 'Pod::Simple::Transcode'=> '3.16', + 'Pod::Simple::TranscodeDumb'=> '3.16', + 'Pod::Simple::TranscodeSmart'=> '3.16', + 'Pod::Simple::XHTML' => '3.16', + 'Pod::Simple::XMLOutStream'=> '3.16', + 'Pod::Text' => '3.15', + 'Pod::Text::Color' => '2.06', + 'Pod::Text::Overstrike' => '2.04', + 'Pod::Text::Termcap' => '2.06', + 'Pod::Usage' => '1.36', + 'SDBM_File' => '1.09', + 'Safe' => '2.29', + 'Scalar::Util' => '1.23', + 'Scalar::Util::PP' => '1.23', + 'Search::Dict' => '1.03', + 'SelectSaver' => '1.02', + 'SelfLoader' => '1.18', + 'Shell' => '0.72_01', + 'Socket' => '1.94', + 'Storable' => '2.27', + 'Symbol' => '1.07', + 'Sys::Hostname' => '1.16', + 'Sys::Syslog' => '0.27', + 'Sys::Syslog::win32::Win32'=> undef, + 'TAP::Base' => '3.23', + 'TAP::Formatter::Base' => '3.23', + 'TAP::Formatter::Color' => '3.23', + 'TAP::Formatter::Console'=> '3.23', + 'TAP::Formatter::Console::ParallelSession'=> '3.23', + 'TAP::Formatter::Console::Session'=> '3.23', + 'TAP::Formatter::File' => '3.23', + 'TAP::Formatter::File::Session'=> '3.23', + 'TAP::Formatter::Session'=> '3.23', + 'TAP::Harness' => '3.23', + 'TAP::Object' => '3.23', + 'TAP::Parser' => '3.23', + 'TAP::Parser::Aggregator'=> '3.23', + 'TAP::Parser::Grammar' => '3.23', + 'TAP::Parser::Iterator' => '3.23', + 'TAP::Parser::Iterator::Array'=> '3.23', + 'TAP::Parser::Iterator::Process'=> '3.23', + 'TAP::Parser::Iterator::Stream'=> '3.23', + 'TAP::Parser::IteratorFactory'=> '3.23', + 'TAP::Parser::Multiplexer'=> '3.23', + 'TAP::Parser::Result' => '3.23', + 'TAP::Parser::Result::Bailout'=> '3.23', + 'TAP::Parser::Result::Comment'=> '3.23', + 'TAP::Parser::Result::Plan'=> '3.23', + 'TAP::Parser::Result::Pragma'=> '3.23', + 'TAP::Parser::Result::Test'=> '3.23', + 'TAP::Parser::Result::Unknown'=> '3.23', + 'TAP::Parser::Result::Version'=> '3.23', + 'TAP::Parser::Result::YAML'=> '3.23', + 'TAP::Parser::ResultFactory'=> '3.23', + 'TAP::Parser::Scheduler'=> '3.23', + 'TAP::Parser::Scheduler::Job'=> '3.23', + 'TAP::Parser::Scheduler::Spinner'=> '3.23', + 'TAP::Parser::Source' => '3.23', + 'TAP::Parser::SourceHandler'=> '3.23', + 'TAP::Parser::SourceHandler::Executable'=> '3.23', + 'TAP::Parser::SourceHandler::File'=> '3.23', + 'TAP::Parser::SourceHandler::Handle'=> '3.23', + 'TAP::Parser::SourceHandler::Perl'=> '3.23', + 'TAP::Parser::SourceHandler::RawTAP'=> '3.23', + 'TAP::Parser::Utils' => '3.23', + 'TAP::Parser::YAMLish::Reader'=> '3.23', + 'TAP::Parser::YAMLish::Writer'=> '3.23', + 'Term::ANSIColor' => '3.00', + 'Term::Cap' => '1.12', + 'Term::Complete' => '1.402', + 'Term::ReadLine' => '1.07', + 'Term::UI' => '0.26', + 'Term::UI::History' => undef, + 'Test' => '1.25_02', + 'Test::Builder' => '0.98', + 'Test::Builder::Module' => '0.98', + 'Test::Builder::Tester' => '1.22', + 'Test::Builder::Tester::Color'=> '1.22', + 'Test::Harness' => '3.23', + 'Test::More' => '0.98', + 'Test::Simple' => '0.98', + 'Text::Abbrev' => '1.01', + 'Text::Balanced' => '2.02', + 'Text::ParseWords' => '3.27', + 'Text::Soundex' => '3.03_01', + 'Text::Tabs' => '2009.0305', + 'Text::Wrap' => '2009.0305', + 'Thread' => '3.02', + 'Thread::Queue' => '2.12', + 'Thread::Semaphore' => '2.12', + 'Tie::Array' => '1.04', + 'Tie::File' => '0.97_02', + 'Tie::Handle' => '4.2', + 'Tie::Hash' => '1.04', + 'Tie::Hash::NamedCapture'=> '0.08', + 'Tie::Memoize' => '1.1', + 'Tie::RefHash' => '1.39', + 'Tie::Scalar' => '1.02', + 'Tie::StdHandle' => '4.2', + 'Tie::SubstrHash' => '1.00', + 'Time::HiRes' => '1.9721_01', + 'Time::Local' => '1.2000', + 'Time::Piece' => '1.20_01', + 'Time::Piece::Seconds' => undef, + 'Time::Seconds' => undef, + 'Time::gmtime' => '1.03', + 'Time::localtime' => '1.02', + 'Time::tm' => '1.00', + 'UNIVERSAL' => '1.08', + 'Unicode' => '6.0.0', + 'Unicode::Collate' => '0.73', + 'Unicode::Collate::CJK::Big5'=> '0.65', + 'Unicode::Collate::CJK::GB2312'=> '0.65', + 'Unicode::Collate::CJK::JISX0208'=> '0.64', + 'Unicode::Collate::CJK::Korean'=> '0.66', + 'Unicode::Collate::CJK::Pinyin'=> '0.65', + 'Unicode::Collate::CJK::Stroke'=> '0.65', + 'Unicode::Collate::Locale'=> '0.73', + 'Unicode::Normalize' => '1.10', + 'Unicode::UCD' => '0.32', + 'User::grent' => '1.01', + 'User::pwent' => '1.00', + 'VMS::DCLsym' => '1.05', + 'VMS::Filespec' => '1.12', + 'VMS::Stdio' => '2.4', + 'Version::Requirements' => '0.101020', + 'Win32' => '0.44', + 'Win32API::File' => '0.1101', + 'Win32API::File::ExtUtils::Myconst2perl'=> '1', + 'Win32CORE' => '0.02', + 'XS::APItest' => '0.28', + 'XS::Typemap' => '0.05', + 'XSLoader' => '0.13', + 'XSLoader::XSLoader' => '0.13', + 'attributes' => '0.14', + 'autodie' => '2.1001', + 'autodie::exception' => '2.1001', + 'autodie::exception::system'=> '2.1001', + 'autodie::hints' => '2.1001', + 'autouse' => '1.06', + 'base' => '2.16', + 'bigint' => '0.27', + 'bignum' => '0.27', + 'bigrat' => '0.28', + 'blib' => '1.06', + 'bytes' => '1.04', + 'charnames' => '1.18', + 'constant' => '1.21', + 'deprecate' => '0.02', + 'diagnostics' => '1.22', + 'encoding' => '2.6_01', + 'encoding::warnings' => '0.11', + 'feature' => '1.20', + 'fields' => '2.15', + 'filetest' => '1.02', + 'if' => '0.0601', + 'inc::latest' => '0.3800', + 'integer' => '1.00', + 'less' => '0.03', + 'lib' => '0.63', + 'locale' => '1.00', + 'mro' => '1.07', + 'open' => '1.08', + 'ops' => '1.02', + 'overload' => '1.13', + 'overload::numbers' => undef, + 'overloading' => '0.01', + 'parent' => '0.225', + 're' => '0.18', + 'sigtrap' => '1.05', + 'sort' => '2.01', + 'strict' => '1.04', + 'subs' => '1.00', + 'threads' => '1.83', + 'threads::shared' => '1.37', + 'utf8' => '1.09', + 'vars' => '1.02', + 'version' => '0.88', + 'vmsish' => '1.02', + 'warnings' => '1.12', + 'warnings::register' => '1.02', + }, ); %deprecated = ( @@ -25783,6 +26438,9 @@ 5.014002 => { 'Shell' => '1', }, + 5.014003 => { + 'Shell' => '1', + }, ); %upstream = ( diff -Nru perl-5.14.2/embed.fnc perl-5.14.3/embed.fnc --- perl-5.14.2/embed.fnc 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/embed.fnc 2012-10-11 21:17:19.000000000 +0300 @@ -1665,6 +1665,8 @@ s |void |forbid_setid |const char flag|const bool suidscript s |void |incpush |NN const char *const dir|STRLEN len \ |U32 flags +s |SV* |mayberelocate |NN const char *const dir|STRLEN len \ + |U32 flags s |void |incpush_use_sep|NN const char *p|STRLEN len|U32 flags s |void |init_interp s |void |init_ids diff -Nru perl-5.14.2/embed.h perl-5.14.3/embed.h --- perl-5.14.2/embed.h 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/embed.h 2012-10-11 21:17:19.000000000 +0300 @@ -1367,6 +1367,7 @@ #define init_perllib() S_init_perllib(aTHX) #define init_postdump_symbols(a,b,c) S_init_postdump_symbols(aTHX_ a,b,c) #define init_predump_symbols() S_init_predump_symbols(aTHX) +#define mayberelocate(a,b,c) S_mayberelocate(aTHX_ a,b,c) #define my_exit_jump() S_my_exit_jump(aTHX) #define nuke_stacks() S_nuke_stacks(aTHX) #define open_script(a,b,c,d) S_open_script(aTHX_ a,b,c,d) diff -Nru perl-5.14.2/epoc/config.sh perl-5.14.3/epoc/config.sh --- perl-5.14.2/epoc/config.sh 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/epoc/config.sh 2012-10-11 21:17:19.000000000 +0300 @@ -33,8 +33,8 @@ apisubversion='' apiversion='' ar='arm-epoc-pe-ar' -archlib='/usr/lib/perl/5.14.2/epoc' -archlibexp='/usr/lib/perl/5.14.2/epoc' +archlib='/usr/lib/perl/5.14.3/epoc' +archlibexp='/usr/lib/perl/5.14.3/epoc' archname64='' archname='epoc' archobjs='epoc.o epocish.o epoc_stubs.o' @@ -766,8 +766,8 @@ pr='' prefix='' prefixexp='' -privlib='/usr/lib/perl/5.14.2' -privlibexp='/usr/lib/perl/5.14.2' +privlib='/usr/lib/perl/5.14.3' +privlibexp='/usr/lib/perl/5.14.3' procselfexe='' prototype='define' ptrsize='4' @@ -826,11 +826,11 @@ sig_num_init='0, 0' sig_size='1' signal_t='void' -sitearch='/usr/lib/perl/site_perl/5.14.2/epoc' -sitearchexp='/usr/lib/perl/site_perl/5.14.2/epoc' -sitelib='/usr/lib/perl/site_perl/5.14.2/' +sitearch='/usr/lib/perl/site_perl/5.14.3/epoc' +sitearchexp='/usr/lib/perl/site_perl/5.14.3/epoc' +sitelib='/usr/lib/perl/site_perl/5.14.3/' sitelib_stem='/usr/lib/perl/site_perl' -sitelibexp='/usr/lib/perl/site_perl/5.14.2/' +sitelibexp='/usr/lib/perl/site_perl/5.14.3/' siteprefix='' siteprefixexp='' sizesize='4' @@ -914,7 +914,7 @@ vendorlibexp='' vendorprefix='' vendorprefixexp='' -version='5.14.2' +version='5.14.3' versiononly='undef' vi='' voidflags='15' @@ -938,7 +938,7 @@ config_arg11='' PERL_REVISION=5 PERL_VERSION=14 -PERL_SUBVERSION=2 +PERL_SUBVERSION=3 PERL_API_REVISION=5 PERL_API_VERSION=14 PERL_API_SUBVERSION=0 @@ -1047,7 +1047,7 @@ vendorlibexp='' vendorprefix='' vendorprefixexp='' -version='5.14.2' +version='5.14.3' vi='' voidflags='15' xlibpth='' @@ -1070,7 +1070,7 @@ config_arg11='' PERL_REVISION=5 PERL_VERSION=14 -PERL_SUBVERSION=2 +PERL_SUBVERSION=3 PERL_API_REVISION=5 PERL_API_VERSION=14 PERL_API_SUBVERSION=0 @@ -1171,16 +1171,16 @@ d_perl_otherlibdirs='undef' nvsize='16' issymlink='' -installarchlib='/home/of/PERL/perl/lib/5.14.2/epoc' +installarchlib='/home/of/PERL/perl/lib/5.14.3/epoc' installbin='/home/of/PERL/System/Programs/' installman1dir='/home/of/PERL/man1' installman3dir='/home/of/PERL/man3' installprefix='' installprefixexp='' -installprivlib='/home/of/PERL/perl/lib/5.14.2/' +installprivlib='/home/of/PERL/perl/lib/5.14.3/' installscript='/home/of/PERL/bin/' -installsitearch='/home/of/PERL/site/lib/site_perl/5.14.2/epoc' -installsitelib='/home/of/PERL/perl/lib/site_perl/5.14.2' +installsitearch='/home/of/PERL/site/lib/site_perl/5.14.3/epoc' +installsitelib='/home/of/PERL/perl/lib/site_perl/5.14.3' installstyle='' installusrbinperl='undef' installvendorlib='' diff -Nru perl-5.14.2/epoc/createpkg.pl perl-5.14.3/epoc/createpkg.pl --- perl-5.14.2/epoc/createpkg.pl 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/epoc/createpkg.pl 2012-10-11 21:17:19.000000000 +0300 @@ -3,7 +3,7 @@ use File::Find; use Cwd; -$VERSION="5.14.2"; +$VERSION="5.14.3"; $EPOC_VERSION=1; diff -Nru perl-5.14.2/ext/IPC-Open3/lib/IPC/Open3.pm perl-5.14.3/ext/IPC-Open3/lib/IPC/Open3.pm --- perl-5.14.2/ext/IPC-Open3/lib/IPC/Open3.pm 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/ext/IPC-Open3/lib/IPC/Open3.pm 2012-10-11 21:17:21.000000000 +0300 @@ -9,7 +9,7 @@ use Carp; use Symbol qw(gensym qualify); -$VERSION = 1.09; +$VERSION = 1.09_01; @ISA = qw(Exporter); @EXPORT = qw(open3); @@ -284,11 +284,14 @@ } else { xopen \*STDERR, ">&STDOUT" if fileno(STDERR) != fileno(STDOUT); } - return 0 if ($cmd[0] eq '-'); + return 1 if ($cmd[0] eq '-'); exec @cmd or do { local($")=(" "); croak "$Me: exec of @cmd failed"; }; + } and do { + close $stat_w; + return 0; }; my $bang = 0+$!; diff -Nru perl-5.14.2/ext/NDBM_File/hints/gnu.pl perl-5.14.3/ext/NDBM_File/hints/gnu.pl --- perl-5.14.2/ext/NDBM_File/hints/gnu.pl 1970-01-01 02:00:00.000000000 +0200 +++ perl-5.14.3/ext/NDBM_File/hints/gnu.pl 2012-10-11 21:17:21.000000000 +0300 @@ -0,0 +1 @@ +do './hints/linux.pl' or die $@; diff -Nru perl-5.14.2/ext/ODBM_File/hints/gnu.pl perl-5.14.3/ext/ODBM_File/hints/gnu.pl --- perl-5.14.2/ext/ODBM_File/hints/gnu.pl 1970-01-01 02:00:00.000000000 +0200 +++ perl-5.14.3/ext/ODBM_File/hints/gnu.pl 2012-10-11 21:17:21.000000000 +0300 @@ -0,0 +1 @@ +do './hints/linux.pl' or die $@; diff -Nru perl-5.14.2/ext/PerlIO-scalar/scalar.xs perl-5.14.3/ext/PerlIO-scalar/scalar.xs --- perl-5.14.2/ext/PerlIO-scalar/scalar.xs 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/ext/PerlIO-scalar/scalar.xs 2012-10-11 21:17:21.000000000 +0300 @@ -240,9 +240,13 @@ { if (PerlIOBase(f)->flags & PERLIO_F_CANREAD) { PerlIOScalar *s = PerlIOSelf(f, PerlIOScalar); + STRLEN len; SvGETMAGIC(s->var); - if (SvCUR(s->var) > (STRLEN) s->posn) - return SvCUR(s->var) - (STRLEN)s->posn; + if (isGV_with_GP(s->var)) + (void)SvPV(s->var,len); + else len = SvCUR(s->var); + if (len > (STRLEN) s->posn) + return len - (STRLEN)s->posn; else return 0; } @@ -264,9 +268,12 @@ PerlIOScalar_set_ptrcnt(pTHX_ PerlIO * f, STDCHAR * ptr, SSize_t cnt) { PerlIOScalar *s = PerlIOSelf(f, PerlIOScalar); + STRLEN len; PERL_UNUSED_ARG(ptr); SvGETMAGIC(s->var); - s->posn = SvCUR(s->var) - cnt; + if (isGV_with_GP(s->var)) (void)SvPV(s->var,len); + else len = SvCUR(s->var); + s->posn = len - cnt; } PerlIO * diff -Nru perl-5.14.2/ext/POSIX/t/sysconf.t perl-5.14.3/ext/POSIX/t/sysconf.t --- perl-5.14.2/ext/POSIX/t/sysconf.t 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/ext/POSIX/t/sysconf.t 2012-10-11 21:17:21.000000000 +0300 @@ -130,7 +130,7 @@ or skip("could not create fifo $fifo ($!)", 2 * 3 * @path_consts_fifo); SKIP: { - my $fd = POSIX::open($fifo, O_RDWR) + my $fd = POSIX::open($fifo, O_RDONLY | O_NONBLOCK) or skip("could not open $fifo ($!)", 3 * @path_consts_fifo); for my $constant (@path_consts_fifo) { diff -Nru perl-5.14.2/hints/catamount.sh perl-5.14.3/hints/catamount.sh --- perl-5.14.2/hints/catamount.sh 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/hints/catamount.sh 2012-10-11 21:17:28.000000000 +0300 @@ -31,11 +31,11 @@ # mkdir -p /opt/perl-catamount # mkdir -p /opt/perl-catamount/include # mkdir -p /opt/perl-catamount/lib -# mkdir -p /opt/perl-catamount/lib/perl5/5.14.2 +# mkdir -p /opt/perl-catamount/lib/perl5/5.14.3 # mkdir -p /opt/perl-catamount/bin # cp *.h /opt/perl-catamount/include # cp libperl.a /opt/perl-catamount/lib -# cp -pr lib/* /opt/perl-catamount/lib/perl5/5.14.2 +# cp -pr lib/* /opt/perl-catamount/lib/perl5/5.14.3 # cp miniperl perl run.sh cc.sh /opt/perl-catamount/lib # # With the headers and the libperl.a you can embed Perl to your Catamount diff -Nru perl-5.14.2/hints/freebsd.sh perl-5.14.3/hints/freebsd.sh --- perl-5.14.2/hints/freebsd.sh 2011-09-19 16:18:22.000000000 +0300 +++ perl-5.14.3/hints/freebsd.sh 2012-10-11 21:17:28.000000000 +0300 @@ -110,7 +110,8 @@ case "$osvers" in 0.*|1.0*) ;; -1*|2*) cccdlflags='-DPIC -fpic' +1.*|2.*) + cccdlflags='-DPIC -fpic' lddlflags="-Bshareable $lddlflags" ;; @@ -140,7 +141,7 @@ esac case "$osvers" in -0*|1*|2*|3*) ;; +0.*|1.*|2.*|3.*) ;; *) ccflags="${ccflags} -DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H" @@ -195,7 +196,7 @@ $define|true|[yY]*) lc_r=`/sbin/ldconfig -r|grep ':-lc_r'|awk '{print $NF}'|sed -n '$p'` case "$osvers" in - 0*|1*|2.0*|2.1*) cat <&4 + 0.*|1.*|2.0*|2.1*) cat <&4 I did not know that FreeBSD $osvers supports POSIX threads. Feel free to tell perlbug@perl.org otherwise. diff -Nru perl-5.14.2/hints/gnu.sh perl-5.14.3/hints/gnu.sh --- perl-5.14.2/hints/gnu.sh 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/hints/gnu.sh 2012-10-11 21:17:28.000000000 +0300 @@ -8,10 +8,22 @@ 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' @@ -19,7 +31,20 @@ ccdlflags='-Wl,-E' # Debian bug #258618 -ccflags='-D_GNU_SOURCE' +ccflags="-D_GNU_SOURCE $ccflags" + +cat > UU/uselargefiles.cbu <<'EOCBU' +# This script UU/uselargefiles.cbu will get 'called-back' by Configure +# after it has prompted the user for whether to use large files. +case "$uselargefiles" in +''|$define|true|[yY]*) +# Keep this in the left margin. +ccflags_uselargefiles="-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64" + + ccflags="$ccflags $ccflags_uselargefiles" + ;; +esac +EOCBU # The following routines are only available as stubs in GNU libc. # XXX remove this once metaconf detects the GNU libc stubs. diff -Nru perl-5.14.2/hints/linux.sh perl-5.14.3/hints/linux.sh --- perl-5.14.2/hints/linux.sh 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/hints/linux.sh 2012-10-11 21:17:28.000000000 +0300 @@ -18,6 +18,9 @@ # No version of Linux supports setuid scripts. d_suidsafe='undef' +# No version of Linux needs libutil for perl. +i_libutil='undef' + # Debian and Red Hat, and perhaps other vendors, provide both runtime and # development packages for some libraries. The runtime packages contain shared # libraries with version information in their names (e.g., libgdbm.so.1.7.3); @@ -160,10 +163,18 @@ # This unconditionally uses gcc because even if the user is using another # compiler, we still need to find the math library and friends, and I don't # know how other compilers will cope with that situation. +# Morever, if the user has their own gcc earlier in $PATH than the system gcc, +# we don't want its libraries. So we try to prefer the system gcc # Still, as an escape hatch, allow Configure command line overrides to # plibpth to bypass this check. +if [ -x /usr/bin/gcc ] ; then + gcc=/usr/bin/gcc +else + gcc=gcc +fi + case "$plibpth" in -'') plibpth=`gcc -print-search-dirs | grep libraries | +'') 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 diff -Nru perl-5.14.2/hints/netbsd.sh perl-5.14.3/hints/netbsd.sh --- perl-5.14.2/hints/netbsd.sh 2011-09-19 16:18:22.000000000 +0300 +++ perl-5.14.3/hints/netbsd.sh 2012-10-11 21:17:28.000000000 +0300 @@ -89,7 +89,7 @@ ;; esac case "$osvers" in -0.9*|1.*|2.*|3.*|4.*|5.*) +0.9*|1.*|2.*|3.*|4.*|5.*|6.*) d_getprotoent_r="$undef" d_getprotobyname_r="$undef" d_getprotobynumber_r="$undef" diff -Nru perl-5.14.2/INSTALL perl-5.14.3/INSTALL --- perl-5.14.2/INSTALL 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/INSTALL 2012-10-11 21:16:44.000000000 +0300 @@ -530,9 +530,9 @@ =item Directories for the perl distribution -By default, Configure will use the following directories for 5.14.2. +By default, Configure will use the following directories for 5.14.3. $version is the full perl version number, including subversion, e.g. -5.14.2 or 5.9.5, and $archname is a string like sun4-sunos, +5.14.3 or 5.9.5, and $archname is a string like sun4-sunos, determined by Configure. The full definitions of all Configure variables are in the file Porting/Glossary. @@ -2374,9 +2374,9 @@ libraries after 5.6.0, but not for executables. TODO?) One convenient way to do this is by using a separate prefix for each version, such as - sh Configure -Dprefix=/opt/perl5.14.2 + sh Configure -Dprefix=/opt/perl5.14.3 -and adding /opt/perl5.14.2/bin to the shell PATH variable. Such users +and adding /opt/perl5.14.3/bin to the shell PATH variable. Such users may also wish to add a symbolic link /usr/local/bin/perl so that scripts can still start with #!/usr/local/bin/perl. @@ -2391,11 +2391,11 @@ =head2 Upgrading from 5.13.11 or earlier -B Perl modules having binary parts (meaning that a C compiler is used) will have to be recompiled to be -used with 5.14.2. If you find you do need to rebuild an extension with -5.14.2, you may safely do so without disturbing the older +used with 5.14.3. If you find you do need to rebuild an extension with +5.14.3, you may safely do so without disturbing the older installations. (See L<"Coexistence with earlier versions of perl 5"> above.) diff -Nru perl-5.14.2/lib/locale.t perl-5.14.3/lib/locale.t --- perl-5.14.2/lib/locale.t 2011-09-19 16:18:22.000000000 +0300 +++ perl-5.14.3/lib/locale.t 2012-10-11 21:17:29.000000000 +0300 @@ -460,7 +460,7 @@ if ($v >= 8 and $v < 10) { debug "# Skipping eu_ES, be_BY locales -- buggy in Darwin\n"; @Locale = grep ! m/^(eu_ES(?:\..*)?|be_BY\.CP1131)$/, @Locale; - } elsif ($v < 12) { + } elsif ($v < 13) { debug "# Skipping be_BY locales -- buggy in Darwin\n"; @Locale = grep ! m/^be_BY\.CP1131$/, @Locale; } diff -Nru perl-5.14.2/Makefile.SH perl-5.14.3/Makefile.SH --- perl-5.14.2/Makefile.SH 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/Makefile.SH 2012-10-11 21:16:44.000000000 +0300 @@ -462,7 +462,7 @@ ndt_obj = $(obj0) $(obj1) $(obj2) $(obj3) $(ARCHOBJS) obj = $(ndt_obj) $(DTRACE_O) -perltoc_pod_prereqs = extra.pods pod/perl5142delta.pod pod/perlapi.pod pod/perlintern.pod pod/perlmodlib.pod pod/perluniprops.pod +perltoc_pod_prereqs = extra.pods pod/perl5143delta.pod pod/perlapi.pod pod/perlintern.pod pod/perlmodlib.pod pod/perluniprops.pod generated_pods = pod/perltoc.pod $(perltoc_pod_prereqs) Icwd = -Idist/Cwd -Idist/Cwd/lib @@ -1020,8 +1020,8 @@ pod/perlmodlib.pod: $(MINIPERL_EXE) pod/perlmodlib.PL MANIFEST $(MINIPERL) $(Icwd) pod/perlmodlib.PL -q -pod/perl5142delta.pod: pod/perldelta.pod - $(LNS) perldelta.pod pod/perl5142delta.pod +pod/perl5143delta.pod: pod/perldelta.pod + $(LNS) perldelta.pod pod/perl5143delta.pod extra.pods: $(MINIPERL_EXE) -@test ! -f extra.pods || rm -f `cat extra.pods` diff -Nru perl-5.14.2/MANIFEST perl-5.14.3/MANIFEST --- perl-5.14.2/MANIFEST 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/MANIFEST 2012-10-11 21:16:44.000000000 +0300 @@ -759,6 +759,7 @@ cpan/Digest/t/base.t See if Digest extensions work cpan/Digest/t/digest.t See if Digest extensions work cpan/Digest/t/file.t See if Digest extensions work +cpan/Digest/t/security.t See if Digest extensions work cpan/Encode/AUTHORS List of authors cpan/Encode/bin/enc2xs Encode module generator cpan/Encode/bin/piconv iconv by perl @@ -3461,6 +3462,7 @@ ext/NDBM_File/hints/dynixptx.pl Hint for NDBM_File for named architecture ext/NDBM_File/hints/gnukfreebsd.pl Hint for NDBM_File for named architecture ext/NDBM_File/hints/gnuknetbsd.pl Hint for NDBM_File for named architecture +ext/NDBM_File/hints/gnu.pl Hint for NDBM_File for named architecture ext/NDBM_File/hints/linux.pl Hint for NDBM_File for named architecture ext/NDBM_File/hints/sco.pl Hint for NDBM_File for named architecture ext/NDBM_File/hints/solaris.pl Hint for NDBM_File for named architecture @@ -3474,6 +3476,7 @@ ext/ODBM_File/hints/dec_osf.pl Hint for ODBM_File for named architecture ext/ODBM_File/hints/gnukfreebsd.pl Hint for NDBM_File for named architecture ext/ODBM_File/hints/gnuknetbsd.pl Hint for NDBM_File for named architecture +ext/ODBM_File/hints/gnu.pl Hint for ODBM_File for named architecture ext/ODBM_File/hints/hpux.pl Hint for ODBM_File for named architecture ext/ODBM_File/hints/linux.pl Hint for NDBM_File for named architecture ext/ODBM_File/hints/sco.pl Hint for ODBM_File for named architecture @@ -4321,6 +4324,7 @@ pod/perl5139delta.pod Perl changes in version 5.13.9 pod/perl5140delta.pod Perl changes in version 5.14.0 pod/perl5141delta.pod Perl changes in version 5.14.1 +pod/perl5142delta.pod Perl changes in version 5.14.2 pod/perl561delta.pod Perl changes in version 5.6.1 pod/perl56delta.pod Perl changes in version 5.6 pod/perl570delta.pod Perl changes in version 5.7.0 diff -Nru perl-5.14.2/META.yml perl-5.14.3/META.yml --- perl-5.14.2/META.yml 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/META.yml 2012-10-11 21:16:44.000000000 +0300 @@ -1,5 +1,5 @@ name: perl -version: 5.014002 +version: 5.014003 abstract: The Perl 5 language interpreter author: perl5-porters@perl.org license: perl diff -Nru perl-5.14.2/NetWare/config_H.wc perl-5.14.3/NetWare/config_H.wc --- perl-5.14.2/NetWare/config_H.wc 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/NetWare/config_H.wc 2012-10-11 21:16:44.000000000 +0300 @@ -1048,7 +1048,7 @@ * This symbol contains the ~name expanded version of ARCHLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define ARCHLIB "c:\\perl\\5.14.2\\lib\\NetWare-x86-multi-thread" /**/ +#define ARCHLIB "c:\\perl\\5.14.3\\lib\\NetWare-x86-multi-thread" /**/ /*#define ARCHLIB_EXP "" /**/ /* ARCHNAME: @@ -1079,8 +1079,8 @@ * This symbol is the filename expanded version of the BIN symbol, for * programs that do not want to deal with that at run-time. */ -#define BIN "c:\\perl\\5.14.2\\bin\\NetWare-x86-multi-thread" /**/ -#define BIN_EXP "c:\\perl\\5.14.2\\bin\\NetWare-x86-multi-thread" /**/ +#define BIN "c:\\perl\\5.14.3\\bin\\NetWare-x86-multi-thread" /**/ +#define BIN_EXP "c:\\perl\\5.14.3\\bin\\NetWare-x86-multi-thread" /**/ /* BYTEORDER: * This symbol holds the hexadecimal constant defined in byteorder, @@ -3063,7 +3063,7 @@ * This symbol contains the ~name expanded version of SITEARCH, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define SITEARCH "c:\\perl\\site\\5.14.2\\lib\\NetWare-x86-multi-thread" /**/ +#define SITEARCH "c:\\perl\\site\\5.14.3\\lib\\NetWare-x86-multi-thread" /**/ /*#define SITEARCH_EXP "" /**/ /* SITELIB: @@ -3086,7 +3086,7 @@ * removed. The elements in inc_version_list (inc_version_list.U) can * be tacked onto this variable to generate a list of directories to search. */ -#define SITELIB "c:\\perl\\site\\5.14.2\\lib" /**/ +#define SITELIB "c:\\perl\\site\\5.14.3\\lib" /**/ /*#define SITELIB_EXP "" /**/ #define SITELIB_STEM "" /**/ diff -Nru perl-5.14.2/NetWare/Makefile perl-5.14.3/NetWare/Makefile --- perl-5.14.2/NetWare/Makefile 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/NetWare/Makefile 2012-10-11 21:16:44.000000000 +0300 @@ -86,7 +86,7 @@ # Here comes the CW tools - TO BE FILLED TO BUILD WITH CW - -MODULE_DESC = "Perl 5.14.2 for NetWare" +MODULE_DESC = "Perl 5.14.3 for NetWare" CCTYPE = CodeWarrior C_COMPILER = mwccnlm -c CPP_COMPILER = mwccnlm @@ -464,7 +464,7 @@ # versioned installation can be obtained by setting INST_TOP above to a # path that includes an arbitrary version string. # -INST_VER = \5.14.2 +INST_VER = \5.14.3 # # Comment this out if you DON'T want your perl installation to have diff -Nru perl-5.14.2/op.c perl-5.14.3/op.c --- perl-5.14.2/op.c 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/op.c 2012-10-11 21:17:30.000000000 +0300 @@ -7780,8 +7780,11 @@ 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 -Nru perl-5.14.2/patchlevel.h perl-5.14.3/patchlevel.h --- perl-5.14.2/patchlevel.h 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/patchlevel.h 2012-10-11 21:17:33.000000000 +0300 @@ -15,7 +15,7 @@ #define PERL_REVISION 5 /* age */ #define PERL_VERSION 14 /* epoch */ -#define PERL_SUBVERSION 2 /* generation */ +#define PERL_SUBVERSION 3 /* generation */ /* The following numbers describe the earliest compatible version of Perl ("compatibility" here being defined as sufficient binary/API diff -Nru perl-5.14.2/perl.c perl-5.14.3/perl.c --- perl-5.14.2/perl.c 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/perl.c 2012-10-11 21:17:33.000000000 +0300 @@ -2,7 +2,7 @@ /* perl.c * * Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 - * 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 + * 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012 * by Larry Wall and others * * You may distribute under the terms of either the GNU General Public @@ -1980,10 +1980,19 @@ } } + /* Set $^X early so that it can be used for relocatable paths in @INC */ + /* and for SITELIB_EXP in USE_SITECUSTOMIZE */ + assert (!PL_tainted); + TAINT; + S_set_caret_X(aTHX); + TAINT_NOT; + #if defined(USE_SITECUSTOMIZE) if (!minus_f) { /* The games with local $! are to avoid setting errno if there is no - sitecustomize script. */ + sitecustomize script. "q%c...%c", 0, ..., 0 becomes "q\0...\0", + ie a q() operator with a NUL byte as a the delimiter. This avoids + problems with pathnames containing (say) ' */ # ifdef PERL_IS_MINIPERL AV *const inc = GvAV(PL_incgv); SV **const inc0 = inc ? av_fetch(inc, 0, FALSE) : NULL; @@ -1991,14 +2000,24 @@ 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)); + "BEGIN { do {local $!; -f q%c%"SVf"/buildcustomize.pl%c} && do q%c%"SVf"/buildcustomize.pl%c }", + 0, *inc0, 0, + 0, *inc0, 0)); } # else /* SITELIB_EXP is a function call on Win32. */ - const char *const sitelib = SITELIB_EXP; + const char *const raw_sitelib = SITELIB_EXP; + /* process .../.. if PERL_RELOCATABLE_INC is defined */ + SV *sitelib_sv = mayberelocate(raw_sitelib, strlen(raw_sitelib), + INCPUSH_CAN_RELOCATE); + const char *const sitelib = SvPVX(sitelib_sv); (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)); + "BEGIN { do {local $!; -f q%c%s/sitecustomize.pl%c} && do q%c%s/sitecustomize.pl%c }", + 0, sitelib, 0, + 0, sitelib, 0)); + assert (SvREFCNT(sitelib_sv) == 1); + SvREFCNT_dec(sitelib_sv); # endif } #endif @@ -2017,11 +2036,7 @@ scriptname = "-"; } - /* Set $^X early so that it can be used for relocatable paths in @INC */ assert (!PL_tainted); - TAINT; - S_set_caret_X(aTHX); - TAINT_NOT; init_perllib(); { @@ -3322,7 +3337,7 @@ #endif PerlIO_printf(PerlIO_stdout(), - "\n\nCopyright 1987-2011, Larry Wall\n"); + "\n\nCopyright 1987-2012, Larry Wall\n"); #ifdef MSDOS PerlIO_printf(PerlIO_stdout(), "\nMS-DOS port Copyright (c) 1989, 1990, Diomidis Spinellis\n"); @@ -4384,45 +4399,15 @@ } #endif -STATIC void -S_incpush(pTHX_ const char *const dir, STRLEN len, U32 flags) +STATIC SV * +S_mayberelocate(pTHX_ const char *const dir, STRLEN len, U32 flags) { - dVAR; -#ifndef PERL_IS_MINIPERL - const U8 using_sub_dirs - = (U8)flags & (INCPUSH_ADD_VERSIONED_SUB_DIRS - |INCPUSH_ADD_ARCHONLY_SUB_DIRS|INCPUSH_ADD_OLD_VERS); - const U8 add_versioned_sub_dirs - = (U8)flags & INCPUSH_ADD_VERSIONED_SUB_DIRS; - const U8 add_archonly_sub_dirs - = (U8)flags & INCPUSH_ADD_ARCHONLY_SUB_DIRS; -#ifdef PERL_INC_VERSION_LIST - const U8 addoldvers = (U8)flags & INCPUSH_ADD_OLD_VERS; -#endif -#endif const U8 canrelocate = (U8)flags & INCPUSH_CAN_RELOCATE; - const U8 unshift = (U8)flags & INCPUSH_UNSHIFT; - const U8 push_basedir = (flags & INCPUSH_NOT_BASEDIR) ? 0 : 1; - AV *const inc = GvAVn(PL_incgv); + SV *libdir; - PERL_ARGS_ASSERT_INCPUSH; + PERL_ARGS_ASSERT_MAYBERELOCATE; assert(len > 0); - /* Could remove this vestigial extra block, if we don't mind a lot of - re-indenting diff noise. */ - { - SV *libdir; - /* Change 20189146be79a0596543441fa369c6bf7f85103f, to fix RT#6665, - arranged to unshift #! line -I onto the front of @INC. However, - -I can add version and architecture specific libraries, and they - need to go first. The old code assumed that it was always - pushing. Hence to make it work, need to push the architecture - (etc) libraries onto a temporary array, then "unshift" that onto - the front of @INC. */ -#ifndef PERL_IS_MINIPERL - AV *const av = (using_sub_dirs) ? (unshift ? newAV() : inc) : NULL; -#endif - if (len) { /* I am not convinced that this is valid when PERLLIB_MANGLE is defined to so something (in os2/os2.c), but the code has been @@ -4548,6 +4533,50 @@ } #endif } + return libdir; + +} + +STATIC void +S_incpush(pTHX_ const char *const dir, STRLEN len, U32 flags) +{ + dVAR; +#ifndef PERL_IS_MINIPERL + const U8 using_sub_dirs + = (U8)flags & (INCPUSH_ADD_VERSIONED_SUB_DIRS + |INCPUSH_ADD_ARCHONLY_SUB_DIRS|INCPUSH_ADD_OLD_VERS); + const U8 add_versioned_sub_dirs + = (U8)flags & INCPUSH_ADD_VERSIONED_SUB_DIRS; + const U8 add_archonly_sub_dirs + = (U8)flags & INCPUSH_ADD_ARCHONLY_SUB_DIRS; +#ifdef PERL_INC_VERSION_LIST + const U8 addoldvers = (U8)flags & INCPUSH_ADD_OLD_VERS; +#endif +#endif + const U8 unshift = (U8)flags & INCPUSH_UNSHIFT; + const U8 push_basedir = (flags & INCPUSH_NOT_BASEDIR) ? 0 : 1; + AV *const inc = GvAVn(PL_incgv); + + PERL_ARGS_ASSERT_INCPUSH; + assert(len > 0); + + /* Could remove this vestigial extra block, if we don't mind a lot of + re-indenting diff noise. */ + { + SV *libdir; + /* Change 20189146be79a0596543441fa369c6bf7f85103f, to fix RT#6665, + arranged to unshift #! line -I onto the front of @INC. However, + -I can add version and architecture specific libraries, and they + need to go first. The old code assumed that it was always + pushing. Hence to make it work, need to push the architecture + (etc) libraries onto a temporary array, then "unshift" that onto + the front of @INC. */ +#ifndef PERL_IS_MINIPERL + AV *const av = (using_sub_dirs) ? (unshift ? newAV() : inc) : NULL; +#endif + + libdir = mayberelocate(dir, len, flags); + #ifndef PERL_IS_MINIPERL /* * BEFORE pushing libdir onto @INC we may first push version- and diff -Nru perl-5.14.2/plan9/config.plan9 perl-5.14.3/plan9/config.plan9 --- perl-5.14.2/plan9/config.plan9 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/plan9/config.plan9 2012-10-11 21:17:33.000000000 +0300 @@ -3385,8 +3385,8 @@ * This symbol contains the ~name expanded version of PRIVLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define PRIVLIB "/sys/lib/perl/5.14.2" /**/ -#define PRIVLIB_EXP "/sys/lib/perl/5.14.2" /**/ +#define PRIVLIB "/sys/lib/perl/5.14.3" /**/ +#define PRIVLIB_EXP "/sys/lib/perl/5.14.3" /**/ /* PTRSIZE: * This symbol contains the size of a pointer, so that the C preprocessor @@ -3513,9 +3513,9 @@ * removed. The elements in inc_version_list (inc_version_list.U) can * be tacked onto this variable to generate a list of directories to search. */ -#define SITELIB "/sys/lib/perl/5.14.2/site_perl" /**/ -#define SITELIB_EXP "/sys/lib/perl/5.14.2/site_perl" /**/ -#define SITELIB_STEM "/sys/lib/perl/5.14.2/site_perl" /**/ +#define SITELIB "/sys/lib/perl/5.14.3/site_perl" /**/ +#define SITELIB_EXP "/sys/lib/perl/5.14.3/site_perl" /**/ +#define SITELIB_STEM "/sys/lib/perl/5.14.3/site_perl" /**/ /* Size_t_size: * This symbol holds the size of a Size_t in bytes. diff -Nru perl-5.14.2/plan9/config_sh.sample perl-5.14.3/plan9/config_sh.sample --- perl-5.14.2/plan9/config_sh.sample 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/plan9/config_sh.sample 2012-10-11 21:17:34.000000000 +0300 @@ -36,8 +36,8 @@ api_version='14' api_versionstring='5.14.0' ar='ar' -archlib='/sys/lib/perl5/5.14.2/386' -archlibexp='/sys/lib/perl5/5.14.2/386' +archlib='/sys/lib/perl5/5.14.3/386' +archlibexp='/sys/lib/perl5/5.14.3/386' archname64='' archname='386' archobjs='' @@ -718,17 +718,17 @@ inc_version_list_init='0' incpath='' inews='' -installarchlib='/sys/lib/perl/5.14.2/386' +installarchlib='/sys/lib/perl/5.14.3/386' installbin='/usr/bin' installman1dir='/sys/man/1pub' installman3dir='/sys/man/2pub' installprefix='/usr' installprefixexp='/usr' -installprivlib='/sys/lib/perl/5.14.2' +installprivlib='/sys/lib/perl/5.14.3' installscript='/usr/bin' -installsitearch='/sys/lib/perl/5.14.2/site_perl/386' +installsitearch='/sys/lib/perl/5.14.3/site_perl/386' installsitebin='/usr/bin' -installsitelib='/sys/lib/perl/5.14.2/site_perl' +installsitelib='/sys/lib/perl/5.14.3/site_perl' installstyle='lib/perl5' installusrbinperl='undef' installvendorarch='' @@ -848,8 +848,8 @@ pr='' prefix='/usr' prefixexp='/usr' -privlib='/sys/lib/perl/5.14.2' -privlibexp='/sys/lib/perl/5.14.2' +privlib='/sys/lib/perl/5.14.3' +privlibexp='/sys/lib/perl/5.14.3' procselfexe='' prototype='define' ptrsize='4' @@ -914,13 +914,13 @@ 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, 0' sig_size='50' signal_t='void' -sitearch='/sys/lib/perl/5.14.2/site_perl/386' +sitearch='/sys/lib/perl/5.14.3/site_perl/386' sitearchexp='/sys/lib/perl/site_perl/386' sitebin='/usr/bin' sitebinexp='/usr/bin' -sitelib='/sys/lib/perl/5.14.2/site_perl' -sitelib_stem='/sys/lib/perl/5.14.2/site_perl' -sitelibexp='/sys/lib/perl/5.14.2/site_perl' +sitelib='/sys/lib/perl/5.14.3/site_perl' +sitelib_stem='/sys/lib/perl/5.14.3/site_perl' +sitelibexp='/sys/lib/perl/5.14.3/site_perl' siteprefix='/usr' siteprefixexp='/usr' sizesize='4' @@ -951,7 +951,7 @@ strerror_r_proto='0' strings='/sys/include/ape/string.h' submit='' -subversion='2' +subversion='3' sysman='/sys/man/1pub' tail='' tar='' @@ -1029,8 +1029,8 @@ vendorlibexp='' vendorprefix='' vendorprefixexp='' -version='5.14.2' -version_patchlevel_string='version 14 subversion 2' +version='5.14.3' +version_patchlevel_string='version 14 subversion 3' versiononly='undef' vi='' voidflags='15' @@ -1045,7 +1045,7 @@ config_argc=0 PERL_REVISION=5 PERL_VERSION=14 -PERL_SUBVERSION=2 +PERL_SUBVERSION=3 PERL_API_REVISION=5 PERL_API_VERSION=14 PERL_API_SUBVERSION=0 diff -Nru perl-5.14.2/pod/perl5142delta.pod perl-5.14.3/pod/perl5142delta.pod --- perl-5.14.2/pod/perl5142delta.pod 1970-01-01 02:00:00.000000000 +0200 +++ perl-5.14.3/pod/perl5142delta.pod 2012-10-11 21:17:37.000000000 +0300 @@ -0,0 +1,242 @@ +=encoding utf8 + +=head1 NAME + +perl5142delta - what is new for perl v5.14.2 + +=head1 DESCRIPTION + +This document describes differences between the 5.14.1 release and +the 5.14.2 release. + +If you are upgrading from an earlier release such as 5.14.0, first read +L, which describes differences between 5.14.0 and +5.14.1. + +=head1 Core Enhancements + +No changes since 5.14.0. + +=head1 Security + +=head2 C memory error with GLOB_ALTDIRFUNC (CVE-2011-2728). + +Calling C with the unsupported flag GLOB_ALTDIRFUNC would +cause an access violation / segfault. A Perl program that accepts a flags value from +an external source could expose itself to denial of service or arbitrary code +execution attacks. There are no known exploits in the wild. The problem has been +corrected by explicitly disabling all unsupported flags and setting unused function +pointers to null. Bug reported by Clément Lecigne. + +=head2 C decode_xs n-byte heap-overflow (CVE-2011-2939) + +A bug in C could, on certain inputs, cause the heap to overflow. +This problem has been corrected. Bug reported by Robert Zacek. + +=head1 Incompatible Changes + +There are no changes intentionally incompatible with 5.14.0. If any +exist, they are bugs and reports are welcome. + +=head1 Deprecations + +There have been no deprecations since 5.14.0. + +=head1 Modules and Pragmata + +=head2 New Modules and Pragmata + +None + +=head2 Updated Modules and Pragmata + +=over 4 + +=item * + +L has been upgraded from version 1.9600 to version 1.9600_01. + +L has been upgraded from version 1.9602 to 1.9602_01. + +Backported bugfixes from CPAN version 1.9800. Ensures proper +detection of C prerequisites from CPAN Meta files +in the case where C is true. [rt.cpan.org #68835] + +Also ensures that C is only checked in META files, +not MYMETA files, so protect against MYMETA generation that drops +C. + +=item * + +L has been upgraded from version 2.42 to 2.42_01. + +See L. + +=item * + +L has been upgraded from version 1.12 to version 1.13. + +See L. + +=item * + +L has been upgraded from version 0.11 to 0.11_01. + +It fixes a problem with C<< open my $fh, ">", \$scalar >> not working if +C<$scalar> is a copy-on-write scalar. + +=back + +=head2 Removed Modules and Pragmata + +None + +=head1 Platform Support + +=head2 New Platforms + +None + +=head2 Discontinued Platforms + +None + +=head2 Platform-Specific Notes + +=over 4 + +=item HP-UX PA-RISC/64 now supports gcc-4.x + +A fix to correct the socketsize now makes the test suite pass on HP-UX +PA-RISC for 64bitall builds. + +=item Building on OS X 10.7 Lion and Xcode 4 works again + +The build system has been updated to work with the build tools under Mac OS X +10.7. + +=back + +=head1 Bug Fixes + +=over 4 + +=item * + +In @INC filters (subroutines returned by subroutines in @INC), $_ used to +misbehave: If returned from a subroutine, it would not be copied, but the +variable itself would be returned; and freeing $_ (e.g., with C) +would cause perl to crash. This has been fixed [perl #91880]. + +=item * + +Perl 5.10.0 introduced some faulty logic that made "U*" in the middle of +a pack template equivalent to "U0" if the input string was empty. This has +been fixed [perl #90160]. + +=item * + +C no longer leaks memory when called from the DB package if +C<@DB::args> was assigned to after the first call to C. L +was triggering this bug [perl #97010]. + +=item * + +C had a nasty bug that would modify copy-on-write scalars' +string buffers in place (i.e., skipping the copy). This could result in +hashes having two elements with the same key [perl #91834]. + +=item * + +Localising a tied variable used to make it read-only if it contained a +copy-on-write string. + +=item * + +Elements of restricted hashes (see the L pragma) containing +copy-on-write values couldn't be deleted, nor could such hashes be cleared +(C<%hash = ()>). + +=item * + +Locking a hash element that is a glob copy no longer causes subsequent +assignment to it to corrupt the glob. + +=item * + +A panic involving the combination of the regular expression modifiers +C introduced in 5.14.0 and the C<\b> escape sequence has been +fixed [perl #95964]. + +=back + +=head1 Known Problems + +This is a list of some significant unfixed bugs, which are regressions +from 5.12.0. + +=over 4 + +=item * + +C is broken. + +Since perl 5.14.0, building with C<-DPERL_GLOBAL_STRUCT> hasn't been +possible. This means that perl currently doesn't work on any platforms that +require it to be built this way, including Symbian. + +While C now works again on recent development versions of +perl, it actually working on Symbian again hasn't been verified. + +We'd be very interested in hearing from anyone working with Perl on Symbian. + +=back + +=head1 Acknowledgements + +Perl 5.14.2 represents approximately three months of development since +Perl 5.14.1 and contains approximately 1200 lines of changes +across 61 files from 9 authors. + +Perl continues to flourish into its third decade thanks to a vibrant +community of users and developers. The following people are known to +have contributed the improvements that became Perl 5.14.2: + +Craig A. Berry, David Golden, Father Chrysostomos, Florian Ragwitz, H.Merijn +Brand, Karl Williamson, Nicholas Clark, Pau Amma and Ricardo Signes. + +=head1 Reporting Bugs + +If you find what you think is a bug, you might check the articles +recently posted to the comp.lang.perl.misc newsgroup and the perl +bug database at http://rt.perl.org/perlbug/ . There may also be +information at http://www.perl.org/ , the Perl Home Page. + +If you believe you have an unreported bug, please run the L +program included with your release. Be sure to trim your bug down +to a tiny but sufficient test case. Your bug report, along with the +output of C, will be sent off to perlbug@perl.org to be +analysed by the Perl porting team. + +If the bug you are reporting has security implications, which make it +inappropriate to send to a publicly archived mailing list, then please send +it to perl5-security-report@perl.org. This points to a closed subscription +unarchived mailing list, which includes all the core committers, who be able +to help assess the impact of issues, figure out a resolution, and help +co-ordinate the release of patches to mitigate or fix the problem across all +platforms on which Perl is supported. Please only use this address for +security issues in the Perl core, not for modules independently +distributed on CPAN. + +=head1 SEE ALSO + +The F file for an explanation of how to view exhaustive details +on what changed. + +The F file for how to build Perl. + +The F file for general stuff. + +The F and F files for copyright information. + +=cut diff -Nru perl-5.14.2/pod/perlcheat.pod perl-5.14.3/pod/perlcheat.pod --- perl-5.14.2/pod/perlcheat.pod 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/pod/perlcheat.pod 2012-10-11 21:17:37.000000000 +0300 @@ -10,68 +10,70 @@ =head2 The sheet - CONTEXTS SIGILS ARRAYS HASHES - void $scalar whole: @array %hash - scalar @array slice: @array[0, 2] @hash{'a', 'b'} - list %hash element: $array[0] $hash{'a'} - &sub - *glob SCALAR VALUES - number, string, reference, glob, undef + CONTEXTS SIGILS ref ARRAYS HASHES + void $scalar SCALAR @array %hash + scalar @array ARRAY @array[0, 2] @hash{'a', 'b'} + list %hash HASH $array[0] $hash{'a'} + &sub CODE + *glob GLOB SCALAR VALUES + FORMAT number, string, ref, glob, undef REFERENCES - \ references $$foo[1] aka $foo->[1] - $@%&* dereference $$foo{bar} aka $foo->{bar} - [] anon. arrayref ${$$foo[1]}[2] aka $foo->[1]->[2] - {} anon. hashref ${$$foo[1]}[2] aka $foo->[1][2] - \() list of refs - NUMBERS vs STRINGS LINKS - OPERATOR PRECEDENCE = = perl.plover.com - -> + . search.cpan.org - ++ -- == != eq ne cpan.org - ** < > <= >= lt gt le ge pm.org - ! ~ \ u+ u- <=> cmp tpj.com - =~ !~ perldoc.com - * / % x SYNTAX - + - . for (LIST) { }, for (a;b;c) { } - << >> while ( ) { }, until ( ) { } - named uops if ( ) { } elsif ( ) { } else { } - < > <= >= lt gt le ge unless ( ) { } elsif ( ) { } else { } - == != <=> eq ne cmp ~~ for equals foreach (ALWAYS) + \ reference $$foo[1] aka $foo->[1] + $@%&* dereference $$foo{bar} aka $foo->{bar} + [] anon. arrayref ${$$foo[1]}[2] aka $foo->[1]->[2] + {} anon. hashref ${$$foo[1]}[2] aka $foo->[1][2] + \() list of refs + NUMBERS vs STRINGS LINKS + OPERATOR PRECEDENCE = = perldoc.perl.org + -> + . search.cpan.org + ++ -- == != eq ne cpan.org + ** < > <= >= lt gt le ge pm.org + ! ~ \ u+ u- <=> cmp p3rl.org + =~ !~ perlmonks.org + * / % x SYNTAX + + - . foreach (LIST) { } for (a;b;c) { } + << >> while (e) { } until (e) { } + named uops if (e) { } elsif (e) { } else { } + < > <= >= lt gt le ge unless (e) { } elsif (e) { } else { } + == != <=> eq ne cmp ~~ given (e) { when (e) {} default {} } & - | ^ REGEX METACHARS REGEX MODIFIERS - && ^ string begin /i case insens. - || // $ str. end (before \n) /m line based ^$ - .. ... + one or more /s . includes \n - ?: * zero or more /x ign. wh.space - = += -= *= etc. ? zero or one /g global - , => {3,7} repeat in range /o cmpl pat. once - list ops () capture - not (?:) no capture REGEX CHARCLASSES - and [] character class . == [^\n] - or xor | alternation \s == whitespace - \b word boundary \w == word characters - \z string end \d == digits - DO \S, \W and \D negate - use strict; DON'T - use warnings; "$foo" LINKS - my $var; $$variable_name perl.com - open() or die $!; `$userinput` use.perl.org - use Modules; /$userinput/ perl.apache.org - + | ^ REGEX METACHARS REGEX MODIFIERS + && ^ string begin /i case insensitive + || // $ str end (bfr \n) /m line based ^$ + .. ... + one or more /s . includes \n + ?: * zero or more /x ignore wh.space + = += -= *= etc ? zero or one /p preserve + , => {3,7} repeat in range /a ASCII /aa safe + list ops | alternation /l locale /d dual + not [] character class /u Unicode + and \b word boundary /e evaluate /ee rpts + or xor \z string end /g global + () capture /o compile pat once + DEBUG (?:p) no capture + -MO=Deparse (?#t) comment REGEX CHARCLASSES + -MO=Terse (?=p) ZW pos ahead . [^\n] + -D## (?!p) ZW neg ahead \s whitespace + -d:Trace (?<=p) ZW pos behind \K \w word chars + (?p) no backtrack \pP named property + perl -V:ivsize (?|p|p)branch reset \h horiz.wh.space + (?&NM) cap to name \R linebreak + \S \W \D \H negate FUNCTION RETURN LISTS stat localtime caller SPECIAL VARIABLES - 0 dev 0 second 0 package $_ default variable - 1 ino 1 minute 1 filename $0 program name - 2 mode 2 hour 2 line $/ input separator - 3 nlink 3 day 3 subroutine $\ output separator - 4 uid 4 month-1 4 hasargs $| autoflush - 5 gid 5 year-1900 5 wantarray $! sys/libcall error - 6 rdev 6 weekday 6 evaltext $@ eval error - 7 size 7 yearday 7 is_require $$ process ID - 8 atime 8 is_dst 8 hints $. line number - 9 mtime 9 bitmask @ARGV command line args - 10 ctime just use @INC include paths - 11 blksz POSIX:: 3..9 only @_ subroutine args - 12 blcks strftime! with EXPR %ENV environment + 0 dev 0 second 0 package $_ default variable + 1 ino 1 minute 1 filename $0 program name + 2 mode 2 hour 2 line $/ input separator + 3 nlink 3 day 3 subroutine $\ output separator + 4 uid 4 month-1 4 hasargs $| autoflush + 5 gid 5 year-1900 5 wantarray $! sys/libcall error + 6 rdev 6 weekday 6 evaltext $@ eval error + 7 size 7 yearday 7 is_require $$ process ID + 8 atime 8 is_dst 8 hints $. line number + 9 mtime 9 bitmask @ARGV command line args + 10 ctime 10 hinthash @INC include paths + 11 blksz 3..10 only @_ subroutine args + 12 blcks with EXPR %ENV environment =head1 ACKNOWLEDGEMENTS diff -Nru perl-5.14.2/pod/perldelta.pod perl-5.14.3/pod/perldelta.pod --- perl-5.14.2/pod/perldelta.pod 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/pod/perldelta.pod 2012-10-12 09:40:25.000000000 +0300 @@ -2,16 +2,16 @@ =head1 NAME -perldelta - what is new for perl v5.14.2 +perldelta - what is new for perl v5.14.3 =head1 DESCRIPTION -This document describes differences between the 5.14.1 release and -the 5.14.2 release. +This document describes differences between the 5.14.2 release and +the 5.14.3 release. -If you are upgrading from an earlier release such as 5.14.0, first read -L, which describes differences between 5.14.0 and -5.14.1. +If you are upgrading from an earlier release such as 5.12.0, first read +L, which describes differences between 5.12.0 and +5.14.0. =head1 Core Enhancements @@ -19,19 +19,26 @@ =head1 Security -=head2 C memory error with GLOB_ALTDIRFUNC (CVE-2011-2728). +=head2 C unsafe use of eval (CVE-2011-3597) -Calling C with the unsupported flag GLOB_ALTDIRFUNC would -cause an access violation / segfault. A Perl program that accepts a flags value from -an external source could expose itself to denial of service or arbitrary code -execution attacks. There are no known exploits in the wild. The problem has been -corrected by explicitly disabling all unsupported flags and setting unused function -pointers to null. Bug reported by Clément Lecigne. +The Cnew()> function did not properly sanitize input before +using it in an eval() call, which could lead to the injection of arbitrary +Perl code. -=head2 C decode_xs n-byte heap-overflow (CVE-2011-2939) +In order to exploit this flaw, the attacker would need to be able to set +the algorithm name used, or be able to execute arbitrary Perl code already. -A bug in C could, on certain inputs, cause the heap to overflow. -This problem has been corrected. Bug reported by Robert Zacek. +This problem has been fixed. + +=head2 Heap buffer overrun in 'x' string repeat operator (CVE-2012-5195) + +Poorly written perl code that allows an attacker to specify the count to +perl's 'x' string repeat operator can already cause a memory exhaustion +denial-of-service attack. A flaw in versions of perl before 5.15.5 can +escalate that into a heap buffer overrun; coupled with versions of glibc +before 2.16, it possibly allows the execution of arbitrary code. + +This problem has been fixed. =head1 Incompatible Changes @@ -54,36 +61,30 @@ =item * -L has been upgraded from version 1.9600 to version 1.9600_01. - -L has been upgraded from version 1.9602 to 1.9602_01. +L was updated to fix a bug in which opening a filehandle to +a glob copy caused assertion failures (under debugging) or hangs or other +erratic behaviour without debugging. -Backported bugfixes from CPAN version 1.9800. Ensures proper -detection of C prerequisites from CPAN Meta files -in the case where C is true. [rt.cpan.org #68835] +=item * -Also ensures that C is only checked in META files, -not MYMETA files, so protect against MYMETA generation that drops -C. +L and L were updated to allow building on GNU/Hurd. =item * -L has been upgraded from version 2.42 to 2.42_01. - -See L. +L has been updated to fix a regression introduced in perl +5.12, which broke C. +[perl #95748] =item * -L has been upgraded from version 1.12 to version 1.13. +L has been upgraded from version 1.16 to 1.16_01. See L. =item * -L has been upgraded from version 0.11 to 0.11_01. - -It fixes a problem with C<< open my $fh, ">", \$scalar >> not working if -C<$scalar> is a copy-on-write scalar. +L has been updated to version 2.49_04 to add data for +this release. =back @@ -91,6 +92,39 @@ None +=head1 Documentation + +=head2 New Documentation + +None + +=head2 Changes to Existing Documentation + +=head3 L + +=over 4 + +=item * + +L was updated to 5.14. + +=back + +=head1 Configuration and Compilation + +=over 4 + +=item * + +h2ph was updated to search correctly gcc include directories on platforms +such as Debian with multi-architecture support. + +=item * + +In Configure, the test for procselfexe was refactored into a loop. + +=back + =head1 Platform Support =head2 New Platforms @@ -105,105 +139,120 @@ =over 4 -=item HP-UX PA-RISC/64 now supports gcc-4.x +=item FreeBSD -A fix to correct the socketsize now makes the test suite pass on HP-UX -PA-RISC for 64bitall builds. +The FreeBSD hints file was corrected to be compatible with FreeBSD 10.0. -=item Building on OS X 10.7 Lion and Xcode 4 works again +=item Solaris and NetBSD -The build system has been updated to work with the build tools under Mac OS X -10.7. +Configure was updated for "procselfexe" support on Solaris and NetBSD. -=back +=item HP-UX -=head1 Bug Fixes +README.hpux was updated to note the existence of a broken header in +HP-UX 11.00. -=over 4 +=item Linux -=item * +libutil is no longer used when compiling on Linux platforms, which avoids +warnings being emitted. -In @INC filters (subroutines returned by subroutines in @INC), $_ used to -misbehave: If returned from a subroutine, it would not be copied, but the -variable itself would be returned; and freeing $_ (e.g., with C) -would cause perl to crash. This has been fixed [perl #91880]. +The system gcc (rather than any other gcc which might be in the compiling +user's path) is now used when searching for libraries such as C<-lm>. -=item * +=item Mac OS X -Perl 5.10.0 introduced some faulty logic that made "U*" in the middle of -a pack template equivalent to "U0" if the input string was empty. This has -been fixed [perl #90160]. +The locale tests were updated to reflect the behaviour of locales in +Mountain Lion. -=item * +=item GNU/Hurd -C no longer leaks memory when called from the DB package if -C<@DB::args> was assigned to after the first call to C. L -was triggering this bug [perl #97010]. +Various build and test fixes were included for GNU/Hurd. -=item * +LFS support was enabled in GNU/Hurd. -C had a nasty bug that would modify copy-on-write scalars' -string buffers in place (i.e., skipping the copy). This could result in -hashes having two elements with the same key [perl #91834]. +=item NetBSD -=item * +The NetBSD hints file was corrected to be compatible with NetBSD 6.* -Localising a tied variable used to make it read-only if it contained a -copy-on-write string. +=back -=item * +=head1 Bug Fixes -Elements of restricted hashes (see the L pragma) containing -copy-on-write values couldn't be deleted, nor could such hashes be cleared -(C<%hash = ()>). +=over 4 =item * -Locking a hash element that is a glob copy no longer causes subsequent -assignment to it to corrupt the glob. +A regression has been fixed that was introduced in 5.14, in C +regular expression matching, in which a match improperly fails if the +pattern is in UTF-8, the target string is not, and a Latin-1 character +precedes a character in the string that should match the pattern. [perl +#101710] =item * -A panic involving the combination of the regular expression modifiers -C introduced in 5.14.0 and the C<\b> escape sequence has been -fixed [perl #95964]. +In case-insensitive regular expression pattern matching, no longer on +UTF-8 encoded strings does the scan for the start of match only look at +the first possible position. This caused matches such as +C<"f\x{FB00}" =~ /ff/i> to fail. -=back +=item * -=head1 Known Problems +The sitecustomize support was made relocatableinc aware, so that +-Dusesitecustomize and -Duserelocatableinc may be used together. -This is a list of some significant unfixed bugs, which are regressions -from 5.12.0. +=item * -=over 4 +The smartmatch operator (C<~~>) was changed so that the right-hand side +takes precedence during C operations. =item * -C is broken. +A bug has been fixed in the tainting support, in which an C +operation on a tainted constant would cause all other constants to become +tainted. [perl #64804] -Since perl 5.14.0, building with C<-DPERL_GLOBAL_STRUCT> hasn't been -possible. This means that perl currently doesn't work on any platforms that -require it to be built this way, including Symbian. +=item * + +A regression has been fixed that was introduced in perl 5.12, whereby +tainting errors were not correctly propagated through C. +[perl #111654] -While C now works again on recent development versions of -perl, it actually working on Symbian again hasn't been verified. +=item * -We'd be very interested in hearing from anyone working with Perl on Symbian. +A regression has been fixed that was introduced in perl 5.14, in which +C and C no longer matched the opposite case. +[perl #101970] =back =head1 Acknowledgements -Perl 5.14.2 represents approximately three months of development since -Perl 5.14.1 and contains approximately 1200 lines of changes -across 61 files from 9 authors. - -Perl continues to flourish into its third decade thanks to a vibrant -community of users and developers. The following people are known to -have contributed the improvements that became Perl 5.14.2: +Perl 5.14.3 represents approximately 12 months of development since Perl 5.14.2 +and contains approximately 2,300 lines of changes across 64 files from 22 +authors. + +Perl continues to flourish into its third decade thanks to a vibrant community +of users and developers. The following people are known to have contributed the +improvements that became Perl 5.14.3: + +Abigail, Andy Dougherty, Carl Hayter, Chris 'BinGOs' Williams, Dave Rolsky, +David Mitchell, Dominic Hargreaves, Father Chrysostomos, Florian Ragwitz, +H.Merijn Brand, Jilles Tjoelker, Karl Williamson, Leon Timmermans, Michael G +Schwern, Nicholas Clark, Niko Tyni, Pino Toscano, Ricardo Signes, Salvador +Fandiño, Samuel Thibault, Steve Hay, Tony Cook. + +The list above is almost certainly incomplete as it is automatically generated +from version control history. In particular, it does not include the names of +the (very much appreciated) contributors who reported issues to the Perl bug +tracker. + +Many of the changes included in this version originated in the CPAN modules +included in Perl's core. We're grateful to the entire CPAN community for +helping Perl to flourish. -Craig A. Berry, David Golden, Father Chrysostomos, Florian Ragwitz, H.Merijn -Brand, Karl Williamson, Nicholas Clark, Pau Amma and Ricardo Signes. +For a more complete list of all of Perl's historical contributors, please see +the F file in the Perl source distribution. =head1 Reporting Bugs diff -Nru perl-5.14.2/pod/perlhist.pod perl-5.14.3/pod/perlhist.pod --- perl-5.14.2/pod/perlhist.pod 2011-09-26 13:04:50.000000000 +0300 +++ perl-5.14.3/pod/perlhist.pod 2012-10-12 09:40:25.000000000 +0300 @@ -30,12 +30,16 @@ Michael Schwern, Rafael Garcia-Suarez, Nicholas Clark, Richard Clamp, Leon Brocard, Dave Mitchell, Jesse Vincent, Ricardo Signes, Steve Hay, Matt S Trout, David Golden, Florian Ragwitz, Tatsuhiko Miyagawa, -Chris C Williams, Zefram and Ævar Arnfjörð Bjarmason. +Chris C Williams, Zefram, Ævar Arnfjörð Bjarmason, Stevan +Little, Dave Rolsky, Max Maischein, Abigail, Jesse Luehrs, Tony Cook +and Dominic Hargreaves. =head2 PUMPKIN? [from Porting/pumpkin.pod in the Perl source code distribution] +=for disclaimer orking cows is hazardous, and not legal in all jurisdictions + Chip Salzenberg gets credit for that, with a nod to his cow orker, David Croy. We had passed around various names (baton, token, hot potato) but none caught on. Then, Chip asked: @@ -44,7 +48,7 @@ Who has the patch pumpkin? -To explain: David Croy once told me once that at a previous job, +To explain: David Croy once told me that at a previous job, there was one tape drive and multiple systems that used it for backups. But instead of some high-tech exclusion software, they used a low-tech method to prevent multiple simultaneous backups: a stuffed pumpkin. @@ -431,13 +435,15 @@ Jesse 5.12.1-RC2 2010-May-13 The 5.12 maintenance track 5.12.1-RC1 2010-May-09 - 5.12.1 2010-May-16 + 5.12.1 2010-May-16 5.12.2-RC2 2010-Aug-31 5.12.2 2010-Sep-06 Ricardo 5.12.3-RC1 2011-Jan-09 Ricardo 5.12.3-RC2 2011-Jan-14 Ricardo 5.12.3-RC3 2011-Jan-17 Ricardo 5.12.3 2011-Jan-21 + Leon 5.12.4-RC1 2011-Jun-08 + Leon 5.12.4 2011-Jun-20 Leon 5.13.0 2010-Apr-20 The 5.13 development track Ricardo 5.13.1 2010-May-20 @@ -459,7 +465,30 @@ Jesse 5.14.1 2011-Jun-16 Florian 5.14.2-RC1 2011-Sep-19 5.14.2 2011-Sep-26 + Dominic 5.14.3 2012-Oct-12 + David G 5.15.0 2011-Jun-20 The 5.15 development track + Zefram 5.15.1 2011-Jul-20 + Ricardo 5.15.2 2011-Aug-20 + Stevan 5.15.3 2011-Sep-20 + Florian 5.15.4 2011-Oct-20 + Steve 5.15.5 2011-Nov-20 + Dave R 5.15.6 2011-Dec-20 + BinGOs 5.15.7 2012-Jan-20 + Max M 5.15.8 2012-Feb-20 + Abigail 5.15.9 2012-Mar-20 + Ricardo 5.16.0-RC0 2012-May-10 + Ricardo 5.16.0-RC1 2012-May-14 + Ricardo 5.16.0-RC2 2012-May-15 + + Ricardo 5.16.0 2012-May-20 The 5.16 maintenance track + Ricardo 5.16.1 2012-Aug-08 + + Zefram 5.17.0 2012-May-26 The 5.17 development track + Jesse L 5.17.1 2012-Jun-20 + TonyC 5.17.2 2012-Jul-20 + Steve 5.17.3 2012-Aug-20 + Florian 5.17.4 2012-Sep-20 =head2 SELECTED RELEASE SIZES @@ -537,6 +566,8 @@ 5.12.1 5000 100 1146 121 15283 2178 6407 1846 5354 169 5.12.2 5003 100 1146 121 15404 2178 6413 1846 5376 170 5.12.3 5004 100 1146 121 15529 2180 6417 1848 5391 171 + 5.14.0 5328 104 1100 114 17779 2479 7697 2130 5871 188 + 5.16.0 5562 109 1077 80 20504 2702 8750 2375 4815 152 The "core"..."doc" mean the following files from the Perl source code distribution. The glob notation ** means recursively, (.) means @@ -647,7 +678,7 @@ apollo - - - - - - - - 0 1 beos 1 1 1 1 1 1 1 1 1 1 Configure 256 1 256 1 264 1 264 1 270 1 - cygwin32 24 5 24 5 24 5 24 5 24 5 + cygwin32 24 5 24 5 24 5 24 5 24 5 djgpp 14 5 14 5 14 5 14 5 15 5 eg 86 65 86 65 86 65 86 65 86 65 emacs 262 2 262 2 262 2 262 2 274 2 @@ -812,32 +843,32 @@ ====================================================================== - 5.12.2 5.12.3 + 5.12.2 5.12.3 5.14.0 5.16.0 - apollo 0 3 0 3 - beos 4 4 4 4 - Configure 536 1 536 1 - Cross 118 15 118 15 - djgpp 17 7 17 7 - emacs 402 4 402 4 - epoc 31 8 31 8 - h2pl 12 15 12 15 - hints 368 97 368 97 - mad 174 8 174 8 - mpeix 45 6 45 6 - NetWare 466 61 466 61 - os2 507 70 507 70 - plan9 316 17 316 17 - Porting 750 54 750 54 - qnx 1 4 1 4 - symbian 288 54 288 54 - utils 269 27 269 27 - uts 8 3 8 3 - vmesa 21 4 21 4 - vms 646 18 644 18 - vos 16 8 16 8 - win32 1841 73 1841 73 - x2p 345 19 345 19 + apollo 0 3 0 3 - - - - + beos 4 4 4 4 5 4 5 4 + Configure 536 1 536 1 539 1 547 1 + Cross 118 15 118 15 118 15 118 15 + djgpp 17 7 17 7 18 7 18 7 + emacs 402 4 402 4 - - - - + epoc 31 8 31 8 32 8 30 8 + h2pl 12 15 12 15 15 15 15 15 + hints 368 97 368 97 370 96 371 96 + mad 174 8 174 8 176 8 176 8 + mpeix 45 6 45 6 46 6 46 6 + NetWare 466 61 466 61 473 61 472 61 + os2 507 70 507 70 518 70 519 70 + plan9 316 17 316 17 319 17 319 17 + Porting 750 54 750 54 855 60 1093 69 + qnx 1 4 1 4 2 4 2 4 + symbian 288 54 288 54 292 54 292 54 + utils 269 27 269 27 249 29 245 30 + uts 8 3 8 3 9 3 9 3 + vmesa 21 4 21 4 22 4 22 4 + vms 646 18 644 18 639 17 571 15 + vos 16 8 16 8 17 8 9 7 + win32 1841 73 1841 73 1833 72 1655 67 + x2p 345 19 345 19 346 19 345 19 =head2 SELECTED PATCH SIZES @@ -910,7 +941,7 @@ In more modern times, named releases don't come as often, and as progress can be followed (nearly) instantly (with rsync, and since late 2008, git) patches between versions are no longer provided. However, that doesn't -keep us from calculating how large a patch could have been. Which is +keep us from calculating how large a patch could have been. Which is shown in the table below. Unless noted otherwise, the size mentioned is the patch to bring version x.y.z to x.y.z+1. @@ -944,7 +975,7 @@ Jarkko Hietaniemi >. Thanks to the collective memory of the Perlfolk. In addition to the -Keepers of the Pumpkin also Alan Champion, Mark Dominus, +Keepers of the Pumpkin also Alan Champion, Mark Dominus, Andreas KE<0xf6>nig, John Macdonald, Matthias Neeracher, Jeff Okamoto, Michael Peppler, Randal Schwartz, and Paul D. Smith sent corrections and additions. Abigail added file and patch size data for the 5.6.0 - 5.10 diff -Nru perl-5.14.2/pod/perl.pod perl-5.14.3/pod/perl.pod --- perl-5.14.2/pod/perl.pod 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/pod/perl.pod 2012-10-11 21:17:36.000000000 +0300 @@ -162,6 +162,7 @@ perlhist Perl history records perldelta Perl changes since previous version + perl5142delta Perl changes in version 5.14.2 perl5141delta Perl changes in version 5.14.1 perl5140delta Perl changes in version 5.14.0 perl51311delta Perl changes in version 5.13.11 diff -Nru perl-5.14.2/pod.lst perl-5.14.3/pod.lst --- perl-5.14.2/pod.lst 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/pod.lst 2012-10-11 21:17:34.000000000 +0300 @@ -141,7 +141,8 @@ perlhist Perl history records D perldelta Perl changes since previous version -d perl5142delta Perl changes in version 5.14.2 +d perl5143delta Perl changes in version 5.14.3 + perl5142delta Perl changes in version 5.14.2 perl5141delta Perl changes in version 5.14.1 perl5140delta Perl changes in version 5.14.0 perl51311delta Perl changes in version 5.13.11 diff -Nru perl-5.14.2/Porting/checkAUTHORS.pl perl-5.14.3/Porting/checkAUTHORS.pl --- perl-5.14.2/Porting/checkAUTHORS.pl 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/Porting/checkAUTHORS.pl 2012-10-11 21:16:45.000000000 +0300 @@ -1,6 +1,7 @@ #!/usr/bin/perl -w use strict; -my ($committer, $patch, $author, $date); +my ($committer, $patch, $author); +use utf8; use Getopt::Long; use Text::Wrap; $Text::Wrap::columns = 80; @@ -83,9 +84,9 @@ sub list_authors { my ($patchers, $authors) = @_; binmode(STDOUT, ":utf8"); - print "$_\n" for sort { lc $a cmp lc $b } + print wrap '', '', join(', ', sort { lc $a cmp lc $b } map { $authors->{$_} } - keys %$patchers; + keys %$patchers) . ".\n"; } sub parse_commits_from_stdin { @@ -93,10 +94,10 @@ for (@lines) { next if m/^$/; next if m/^(\S*?)^Merge:/ism; # skip merge commits - if (m/^(.*?)^Author:\s*(.*?)^AuthorDate:\s*(.*?)^Commit:\s*(.*?)^(.*)$/gism) { + if (m/^(.*?)^Author:\s*(.*?)^AuthorDate:\s*.*?^Commit:\s*(.*?)^(.*)$/gism) { # new patch - ( $patch, $author, $date, $committer ) = ( $1, $2, $3, $4 ); + ( $patch, $author, $committer ) = ( $1, $2, $3 ); chomp($author); unless ($author) { die $_ } chomp($committer); @@ -212,7 +213,7 @@ my (%count, %raw); foreach my $filename (@authors) { open FH, "<$filename" or die "Can't open $filename: $!"; - binmode FH, ':encoding(ISO-8859-1)'; + binmode FH, ':encoding(UTF-8)'; while () { next if /^\#/; next if /^-- /; @@ -222,7 +223,7 @@ $name =~ s/\s*\z//; $raw{$email} = $name; $count{$email}++; - } elsif (/^([-A-Za-z0-9 .\'--]+)[\t\n]/) { + } elsif (/^([-A-Za-z0-9 .\'À-ÖØöø-ÿ]+)[\t\n]/) { # Name only $untraced{$1}++; @@ -328,7 +329,21 @@ sub _raw_address { my $addr = shift; my $real_name; - if ( $addr =~ /<.*>/ ) { + if ($addr =~ /(?:\\?")?\s*\(via RT\) $/p) { + my $name = ${^PREMATCH}; + $addr = 'perlbug-followup@perl.org'; + # + # Try to find the author + # + while (my ($email, $author_name) = each %authors) { + if ($name eq $author_name) { + $addr = $email; + $real_name = $name; + last; + } + } + } + elsif ( $addr =~ /<.*>/ ) { $addr =~ s/^\s*(.*)\s*<\s*(.*?)\s*>.*$/$2/; $real_name = $1; } @@ -386,6 +401,7 @@ demerphq demerphq\100gmail.com + yves.orton\100de.mci.com + yves.orton\100mciworldcom.de ++ yves.orton\100booking.com + demerphq\100dromedary.booking.com + demerphq\100gemini.(none) + demerphq\100camel.booking.com @@ -449,6 +465,16 @@ sky sky\100nanisky.com + artur\100contiller.se + arthur\100contiller.se +smueller 7k8lrvf02\100sneakemail.com ++ kjx9zthh3001\100sneakemail.com ++ dtr8sin02\100sneakemail.com ++ rt8363b02\100sneakemail.com ++ o6hhmk002\100sneakemail.com ++ smueller\100cpan.org ++ l2ot9pa02\100sneakemail.com ++ wyp3rlx02\100sneakemail.com ++ 0mgwtfbbq\100sneakemail.com ++ xyey9001\100sneakemail.com steveh steve.m.hay\100googlemail.com + stevehay\100planit.com + steve.hay\100uk.radan.com @@ -464,16 +490,8 @@ # Mere mortals. # \043####\100juerd.nl juerd\100cpan.org ++ juerd\100c3.convolution.nl + juerd\100convolution.nl -7k8lrvf02\100sneakemail.com kjx9zthh3001\100sneakemail.com -+ dtr8sin02\100sneakemail.com -+ rt8363b02\100sneakemail.com -+ o6hhmk002\100sneakemail.com -+ smueller\100cpan.org -+ l2ot9pa02\100sneakemail.com -+ wyp3rlx02\100sneakemail.com -+ 0mgwtfbbq\100sneakemail.com -+ xyey9001\100sneakemail.com a.r.ferreira\100gmail.com aferreira\100shopzilla.com abe\100ztreet.demon.nl abeltje\100cpan.org abela\100hsc.fr abela\100geneanet.org @@ -532,10 +550,12 @@ bert\100alum.mit.edu bert\100genscan.com bigbang7\100gmail.com ddascalescu+github\100gmail.com blgl\100stacken.kth.se blgl\100hagernas.com ++ 2bfjdsla52kztwejndzdstsxl9athp\100gmail.com brian.d.foy\100gmail.com bdfoy\100cpan.org BQW10602\100nifty.com sadahiro\100cpan.org chromatic\100wgz.org chromatic\100rmci.net +claes\100surfar.nu claes\100versed.se clintp\100geeksalad.org cpierce1\100ford.com clkao\100clkao.org clkao\100bestpractical.com corion\100corion.net corion\100cpan.org @@ -560,6 +580,8 @@ david\100kineticode.com david\100wheeler.com + david\100wheeler.net dennis\100booking.com dennis\100camel.ams6.corp.booking.com ++ dennis.kaarsemaker\100booking.com ++ dennis\100kaarsemaker.net dev-perl\100pimb.org knew-p5p\100pimb.org + lists-p5p\100pimb.org djberg86\100attbi.com djberg96\100attbi.com @@ -598,6 +620,7 @@ hio\100ymir.co.jp hio\100hio.jp hops\100sco.com hops\100scoot.pdev.sco.com +ian.goodacre\100xtra.co.nz ian\100debian.lan ingo_weinhold\100gmx.de bonefish\100cs.tu-berlin.de james\100mastros.biz theorb\100desert-island.me.uk @@ -632,10 +655,12 @@ joseph\100cscaper.com joseph\1005sigma.com joshua\100rodd.us jrodd\100pbs.org jtobey\100john-edwin-tobey.org jtobey\100user1.channel1.com -jpeacock\100rowman.com john.peacock\100havurah-software.org +jpeacock\100messagesystems.com john.peacock\100havurah-software.org + jpeacock\100havurah-software.org + jpeacock\100dsl092-147-156.wdc1.dsl.speakeasy.net + jpeacock\100jpeacock-hp.doesntexist.org ++ jpeacock\100cpan.org ++ jpeacock\100rowman.com jql\100accessone.com jql\100jql.accessone.com jsm28\100hermes.cam.ac.uk jsm28\100cam.ac.uk @@ -644,9 +669,12 @@ + kane\100xs4all.nl + jos\100dwim.org + jib\100ripe.net +keith.s.thompson\100gmail.com kst\100mib.org ken\100mathforum.org kenahoo\100gmail.com + ken.williams\100thomsonreuters.com kroepke\100dolphin-services.de kay\100dolphin-services.de +kst\100mib.org kst\100cts.com ++ kst\100SDSC.EDU kstar\100wolfetech.com kstar\100cpan.org + kurt_starsinic\100ml.com + kstar\100www.chapin.edu @@ -667,6 +695,8 @@ lutherh\100stratcom.com lutherh\100infinet.com mab\100wdl.loral.com markb\100rdcf.sm.unisys.com marcel\100codewerk.com gr\100univie.ac.at +marcgreen\100cpan.org marcgreen\100wpi.edu +markleightonfisher\100gmail.com fisherm\100tce.com mark.p.lutz\100boeing.com tecmpl1\100triton.ca.boeing.com marnix\100gmail.com pttesac!marnix!vanam marty+p5p\100kasei.com marty\100martian.org @@ -710,6 +740,10 @@ joshua.pritikin\100db.com joshua\100paloalto.com +litt\100acm.org tlhackque\100yahoo.com + +meyering@asic.sc.ti.com jim\100meyering.net + okamoto\100corp.hp.com okamoto\100hpcc123.corp.hp.com orwant\100oreilly.com orwant\100media.mit.edu @@ -784,7 +818,8 @@ rootbeer\100teleport.com rootbeer\100redcat.com + tomphoenix\100unknown rurban\100x-ray.at rurban\100cpan.org - ++ rurban\100cpanel.net +sartak\100bestpractical.com sartak\100gmail.com sadinoff\100olf.com danny-cpan\100sadinoff.com schubiger\100cpan.org steven\100accognoscere.org + sts\100accognoscere.org @@ -800,7 +835,11 @@ + schwab\100ls5.informatik.uni-dortmund.de sebastien\100aperghis.net maddingue\100free.fr + saper\100cpan.org -shlomif\100vipe.technion.ac.il shlomif\100iglu.org.il +shigeya\100wide.ad.jp shigeya\100foretune.co.jp +shlomif\100cpan.org shlomif\100vipe.technion.ac.il ++ shlomif\100iglu.org.il ++ shlomif+processed-by-perl\100gmail.com ++ shlomif\100shlomifish.org simon\100simon-cozens.org simon\100pembro4.pmb.ox.ac.uk + simon\100brecon.co.uk + simon\100othersideofthe.earth.li @@ -823,6 +862,7 @@ + spidb\100cpan.org + spider.boardman\100orb.nashua.nh.us + root\100peano.zk3.dec.com +spiros\100lokku.com s.denaxas\100gmail.com spp\100ds.net spp\100psa.pencom.com + spp\100psasolar.colltech.com + spp\100spotter.yi.org @@ -831,6 +871,7 @@ + properler\100freesurf.fr + stef\100francenet.fr sthoenna\100efn.org ysth\100raven.shiftboard.com +sisyphus1\100optusnet.com.au sisyphus\100cpan.org tassilo.parseval\100post.rwth-aachen.de tassilo.von.parseval\100rwth-aachen.de tchrist\100perl.com tchrist\100mox.perl.com @@ -856,3 +897,5 @@ + wolfgang.laun\100thalesgroup.com + wolfgang.laun\100gmail.com yath\100yath.de yath-perlbug\100yath.de + +jkeen@verizon.net jkeenan@cpan.org diff -Nru perl-5.14.2/Porting/config_H perl-5.14.3/Porting/config_H --- perl-5.14.2/Porting/config_H 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/Porting/config_H 2012-10-11 21:16:45.000000000 +0300 @@ -960,8 +960,8 @@ * This symbol contains the ~name expanded version of ARCHLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define ARCHLIB "/pro/lib/perl5/5.14.2/i686-linux-64int-ld" /**/ -#define ARCHLIB_EXP "/pro/lib/perl5/5.14.2/i686-linux-64int-ld" /**/ +#define ARCHLIB "/pro/lib/perl5/5.14.3/i686-linux-64int-ld" /**/ +#define ARCHLIB_EXP "/pro/lib/perl5/5.14.3/i686-linux-64int-ld" /**/ /* ARCHNAME: * This symbol holds a string representing the architecture name. @@ -2068,8 +2068,8 @@ * This symbol contains the ~name expanded version of PRIVLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define PRIVLIB "/pro/lib/perl5/5.14.2" /**/ -#define PRIVLIB_EXP "/pro/lib/perl5/5.14.2" /**/ +#define PRIVLIB "/pro/lib/perl5/5.14.3" /**/ +#define PRIVLIB_EXP "/pro/lib/perl5/5.14.3" /**/ /* PTRSIZE: * This symbol contains the size of a pointer, so that the C preprocessor @@ -2119,8 +2119,8 @@ * This symbol contains the ~name expanded version of SITEARCH, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define SITEARCH "/pro/lib/perl5/site_perl/5.14.2/i686-linux-64int-ld" /**/ -#define SITEARCH_EXP "/pro/lib/perl5/site_perl/5.14.2/i686-linux-64int-ld" /**/ +#define SITEARCH "/pro/lib/perl5/site_perl/5.14.3/i686-linux-64int-ld" /**/ +#define SITEARCH_EXP "/pro/lib/perl5/site_perl/5.14.3/i686-linux-64int-ld" /**/ /* SITELIB: * This symbol contains the name of the private library for this package. @@ -2142,8 +2142,8 @@ * removed. The elements in inc_version_list (inc_version_list.U) can * be tacked onto this variable to generate a list of directories to search. */ -#define SITELIB "/pro/lib/perl5/site_perl/5.14.2" /**/ -#define SITELIB_EXP "/pro/lib/perl5/site_perl/5.14.2" /**/ +#define SITELIB "/pro/lib/perl5/site_perl/5.14.3" /**/ +#define SITELIB_EXP "/pro/lib/perl5/site_perl/5.14.3" /**/ #define SITELIB_STEM "/pro/lib/perl5/site_perl" /**/ /* SSize_t: @@ -4363,7 +4363,7 @@ * script to make sure (one hopes) that it runs with perl and not * some shell. */ -#define STARTPERL "#!/pro/bin/perl5.14.2" /**/ +#define STARTPERL "#!/pro/bin/perl5.14.3" /**/ /* HAS_STDIO_STREAM_ARRAY: * This symbol, if defined, tells that there is an array diff -Nru perl-5.14.2/Porting/config.sh perl-5.14.3/Porting/config.sh --- perl-5.14.2/Porting/config.sh 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/Porting/config.sh 2012-10-11 21:16:45.000000000 +0300 @@ -49,8 +49,8 @@ api_version='14' api_versionstring='5.14.0' ar='ar' -archlib='/opt/perl/lib/5.14.2/i686-linux-64int' -archlibexp='/opt/perl/lib/5.14.2/i686-linux-64int' +archlib='/opt/perl/lib/5.14.3/i686-linux-64int' +archlibexp='/opt/perl/lib/5.14.3/i686-linux-64int' archname64='64int' archname='i686-linux-64int' archobjs='' @@ -742,7 +742,7 @@ incpath='' inews='' initialinstalllocation='/opt/perl/bin' -installarchlib='/opt/perl/lib/5.14.2/i686-linux-64int' +installarchlib='/opt/perl/lib/5.14.3/i686-linux-64int' installbin='/opt/perl/bin' installhtml1dir='' installhtml3dir='' @@ -750,13 +750,13 @@ installman3dir='/opt/perl/man/man3' installprefix='/opt/perl' installprefixexp='/opt/perl' -installprivlib='/opt/perl/lib/5.14.2' +installprivlib='/opt/perl/lib/5.14.3' installscript='/opt/perl/bin' -installsitearch='/opt/perl/lib/site_perl/5.14.2/i686-linux-64int' +installsitearch='/opt/perl/lib/site_perl/5.14.3/i686-linux-64int' installsitebin='/opt/perl/bin' installsitehtml1dir='' installsitehtml3dir='' -installsitelib='/opt/perl/lib/site_perl/5.14.2' +installsitelib='/opt/perl/lib/site_perl/5.14.3' installsiteman1dir='/opt/perl/man/man1' installsiteman3dir='/opt/perl/man/man3' installsitescript='/opt/perl/bin' @@ -879,7 +879,7 @@ perl_static_inline='static __inline__' perladmin='yourname@yourhost.yourplace.com' perllibs='-lnsl -ldl -lm -lcrypt -lutil -lc' -perlpath='/opt/perl/bin/perl5.14.2' +perlpath='/opt/perl/bin/perl5.14.3' pg='pg' phostname='' pidtype='pid_t' @@ -888,8 +888,8 @@ pr='' prefix='/opt/perl' prefixexp='/opt/perl' -privlib='/opt/perl/lib/5.14.2' -privlibexp='/opt/perl/lib/5.14.2' +privlib='/opt/perl/lib/5.14.3' +privlibexp='/opt/perl/lib/5.14.3' procselfexe='"/proc/self/exe"' prototype='define' ptrsize='4' @@ -955,17 +955,17 @@ 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='/opt/perl/lib/site_perl/5.14.2/i686-linux-64int' -sitearchexp='/opt/perl/lib/site_perl/5.14.2/i686-linux-64int' +sitearch='/opt/perl/lib/site_perl/5.14.3/i686-linux-64int' +sitearchexp='/opt/perl/lib/site_perl/5.14.3/i686-linux-64int' sitebin='/opt/perl/bin' sitebinexp='/opt/perl/bin' sitehtml1dir='' sitehtml1direxp='' sitehtml3dir='' sitehtml3direxp='' -sitelib='/opt/perl/lib/site_perl/5.14.2' +sitelib='/opt/perl/lib/site_perl/5.14.3' sitelib_stem='/opt/perl/lib/site_perl' -sitelibexp='/opt/perl/lib/site_perl/5.14.2' +sitelibexp='/opt/perl/lib/site_perl/5.14.3' siteman1dir='/opt/perl/man/man1' siteman1direxp='/opt/perl/man/man1' siteman3dir='/opt/perl/man/man3' @@ -989,7 +989,7 @@ srandom_r_proto='0' src='.' ssizetype='ssize_t' -startperl='#!/opt/perl/bin/perl5.14.2' +startperl='#!/opt/perl/bin/perl5.14.3' startsh='#!/bin/sh' static_ext=' ' stdchar='char' @@ -1002,7 +1002,7 @@ strerror_r_proto='0' strings='/usr/include/string.h' submit='' -subversion='2' +subversion='3' sysman='/usr/share/man/man1' tail='' tar='' @@ -1090,8 +1090,8 @@ vendorprefixexp='' vendorscript='' vendorscriptexp='' -version='5.14.2' -version_patchlevel_string='version 14 subversion 2' +version='5.14.3' +version_patchlevel_string='version 14 subversion 3' versiononly='define' vi='' voidflags='15' @@ -1115,7 +1115,7 @@ config_arg9='-dE' PERL_REVISION=5 PERL_VERSION=14 -PERL_SUBVERSION=2 +PERL_SUBVERSION=3 PERL_API_REVISION=5 PERL_API_VERSION=14 PERL_API_SUBVERSION=0 diff -Nru perl-5.14.2/pp_ctl.c perl-5.14.3/pp_ctl.c --- perl-5.14.2/pp_ctl.c 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/pp_ctl.c 2012-10-11 21:17:40.000000000 +0300 @@ -4374,7 +4374,7 @@ DEBUG_M(Perl_deb(aTHX_ " applying rule Any-Object\n")); DEBUG_M(Perl_deb(aTHX_ " attempting overload\n")); - tmpsv = amagic_call(d, e, smart_amg, 0); + tmpsv = amagic_call(d, e, smart_amg, AMGf_noleft); if (tmpsv) { SPAGAIN; (void)POPs; diff -Nru perl-5.14.2/pp_sys.c perl-5.14.3/pp_sys.c --- perl-5.14.2/pp_sys.c 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/pp_sys.c 2012-10-11 21:17:41.000000000 +0300 @@ -497,7 +497,7 @@ } } } - else if (SvPOK(ERRSV) && SvCUR(ERRSV)) { + else if (SvPV_const(ERRSV, len), len) { exsv = sv_mortalcopy(ERRSV); sv_catpvs(exsv, "\t...propagated"); } diff -Nru perl-5.14.2/proto.h perl-5.14.3/proto.h --- perl-5.14.2/proto.h 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/proto.h 2012-10-11 21:17:41.000000000 +0300 @@ -5638,6 +5638,11 @@ assert(argv) STATIC void S_init_predump_symbols(pTHX); +STATIC SV* S_mayberelocate(pTHX_ const char *const dir, STRLEN len, U32 flags) + __attribute__nonnull__(pTHX_1); +#define PERL_ARGS_ASSERT_MAYBERELOCATE \ + assert(dir) + STATIC void S_my_exit_jump(pTHX) __attribute__noreturn__; diff -Nru perl-5.14.2/README.haiku perl-5.14.3/README.haiku --- perl-5.14.2/README.haiku 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/README.haiku 2012-10-11 21:16:45.000000000 +0300 @@ -22,9 +22,9 @@ Make perl executable and create a symlink for libperl: chmod a+x /boot/common/bin/perl - cd /boot/common/lib; ln -s perl5/5.14.2/BePC-haiku/CORE/libperl.so . + cd /boot/common/lib; ln -s perl5/5.14.3/BePC-haiku/CORE/libperl.so . -Replace C<5.14.2> with your respective version of Perl. +Replace C<5.14.3> with your respective version of Perl. =head1 KNOWN PROBLEMS diff -Nru perl-5.14.2/README.hpux perl-5.14.3/README.hpux --- perl-5.14.2/README.hpux 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/README.hpux 2012-10-11 21:16:45.000000000 +0300 @@ -634,6 +634,27 @@ Whether you are using NIS does not matter. Amazingly enough, the same bug also affects Solaris. +=head1 error: pasting ")" and "l" does not give a valid preprocessing token + +There seems to be a broken system header file in HP-UX 11.00 that +breaks perl building in 32bit mode with GNU gcc-4.x causing this +error. The same file for HP-UX 11.11 (even though the file is older) +does not show this failure, and has the correct definition, so the +best fix is to patch the header to match: + + --- /usr/include/inttypes.h 2001-04-20 18:42:14 +0200 + +++ /usr/include/inttypes.h 2000-11-14 09:00:00 +0200 + @@ -72,7 +72,7 @@ + #define UINT32_C(__c) __CONCAT_U__(__c) + #else /* __LP64 */ + #define INT32_C(__c) __CONCAT__(__c,l) + -#define UINT32_C(__c) __CONCAT__(__CONCAT_U__(__c),l) + +#define UINT32_C(__c) __CONCAT__(__c,ul) + #endif /* __LP64 */ + + #define INT64_C(__c) __CONCAT_L__(__c,l) + + =head1 Miscellaneous HP-UX 11 Y2K patch "Y2K-1100 B.11.00.B0125 HP-UX Core OS Year 2000 @@ -650,8 +671,4 @@ With much assistance regarding shared libraries from Marc Sabatella. -=head1 DATE - -Version 0.8.3: 2008-06-24 - =cut diff -Nru perl-5.14.2/README.os2 perl-5.14.3/README.os2 --- perl-5.14.2/README.os2 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/README.os2 2012-10-11 21:16:45.000000000 +0300 @@ -618,7 +618,7 @@ =item Additional Perl modules - unzip perl_ste.zip -d f:/perllib/lib/site_perl/5.14.2/ + unzip perl_ste.zip -d f:/perllib/lib/site_perl/5.14.3/ Same remark as above applies. Additionally, if this directory is not one of directories on @INC (and @INC is influenced by C), you diff -Nru perl-5.14.2/README.vms perl-5.14.3/README.vms --- perl-5.14.2/README.vms 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/README.vms 2012-10-11 21:16:45.000000000 +0300 @@ -154,12 +154,12 @@ provided with previous versions of Perl, do I use the ODS-2 compatibility qualifier. Instead, use a command like the following: - vmstar -xvf perl-5^.14^.2.tar + vmstar -xvf perl-5^.14^.3.tar Then rename the top-level source directory like so: - set security/protection=(o:rwed) perl-5^.14^.2.dir - rename perl-5^.14^.2.dir perl-5_14_2.dir + set security/protection=(o:rwed) perl-5^.14^.3.dir + rename perl-5^.14^.3.dir perl-5_14_3.dir The reason for this last step is that while filenames with multiple dots are generally supported by Perl on VMS, I names with multiple diff -Nru perl-5.14.2/regcomp.c perl-5.14.3/regcomp.c --- perl-5.14.2/regcomp.c 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/regcomp.c 2012-10-11 21:17:42.000000000 +0300 @@ -9199,7 +9199,7 @@ } } -/* No locale test, and always Unicode semantics */ +/* No locale test, and always Unicode semantics, no ignore-case differences */ #define _C_C_T_NOLOC_(NAME,TEST,WORD) \ ANYOF_##NAME: \ for (value = 0; value < 256; value++) \ @@ -9219,8 +9219,11 @@ /* Like the above, but there are differences if we are in uni-8-bit or not, so * there are two tests passed in, to use depending on that. There aren't any * cases where the label is different from the name, so no need for that - * parameter */ -#define _C_C_T_(NAME, TEST_8, TEST_7, WORD) \ + * parameter. + * Sets 'what' to WORD which is the property name for non-bitmap code points; + * But, uses FOLD_WORD instead if /i has been selected, to allow a different + * property name */ +#define _C_C_T_(NAME, TEST_8, TEST_7, WORD, FOLD_WORD) \ ANYOF_##NAME: \ if (LOC) ANYOF_CLASS_SET(ret, ANYOF_##NAME); \ else if (UNI_SEMANTICS) { \ @@ -9237,7 +9240,12 @@ } \ } \ yesno = '+'; \ - what = WORD; \ + if (FOLD) { \ + what = FOLD_WORD; \ + } \ + else { \ + what = WORD; \ + } \ break; \ case ANYOF_N##NAME: \ if (LOC) ANYOF_CLASS_SET(ret, ANYOF_N##NAME); \ @@ -9269,7 +9277,12 @@ } \ } \ yesno = '!'; \ - what = WORD; \ + if (FOLD) { \ + what = FOLD_WORD; \ + } \ + else { \ + what = WORD; \ + } \ break STATIC U8 @@ -9827,20 +9840,20 @@ * --jhi */ switch ((I32)namedclass) { - case _C_C_T_(ALNUMC, isALNUMC_L1, isALNUMC, "XPosixAlnum"); - case _C_C_T_(ALPHA, isALPHA_L1, isALPHA, "XPosixAlpha"); - case _C_C_T_(BLANK, isBLANK_L1, isBLANK, "XPosixBlank"); - case _C_C_T_(CNTRL, isCNTRL_L1, isCNTRL, "XPosixCntrl"); - case _C_C_T_(GRAPH, isGRAPH_L1, isGRAPH, "XPosixGraph"); - case _C_C_T_(LOWER, isLOWER_L1, isLOWER, "XPosixLower"); - case _C_C_T_(PRINT, isPRINT_L1, isPRINT, "XPosixPrint"); - case _C_C_T_(PSXSPC, isPSXSPC_L1, isPSXSPC, "XPosixSpace"); - case _C_C_T_(PUNCT, isPUNCT_L1, isPUNCT, "XPosixPunct"); - case _C_C_T_(UPPER, isUPPER_L1, isUPPER, "XPosixUpper"); + case _C_C_T_(ALNUMC, isALNUMC_L1, isALNUMC, "XPosixAlnum", "XPosixAlnum"); + case _C_C_T_(ALPHA, isALPHA_L1, isALPHA, "XPosixAlpha", "XPosixAlpha"); + case _C_C_T_(BLANK, isBLANK_L1, isBLANK, "XPosixBlank", "XPosixBlank"); + case _C_C_T_(CNTRL, isCNTRL_L1, isCNTRL, "XPosixCntrl", "XPosixCntrl"); + case _C_C_T_(GRAPH, isGRAPH_L1, isGRAPH, "XPosixGraph", "XPosixGraph"); + case _C_C_T_(LOWER, isLOWER_L1, isLOWER, "XPosixLower", "__XPosixLower_i"); + case _C_C_T_(PRINT, isPRINT_L1, isPRINT, "XPosixPrint", "XPosixPrint"); + case _C_C_T_(PSXSPC, isPSXSPC_L1, isPSXSPC, "XPosixSpace", "XPosixSpace"); + case _C_C_T_(PUNCT, isPUNCT_L1, isPUNCT, "XPosixPunct", "XPosixPunct"); + case _C_C_T_(UPPER, isUPPER_L1, isUPPER, "XPosixUpper", "__XPosixUpper_i"); /* \s, \w match all unicode if utf8. */ - case _C_C_T_(SPACE, isSPACE_L1, isSPACE, "SpacePerl"); - case _C_C_T_(ALNUM, isWORDCHAR_L1, isALNUM, "Word"); - case _C_C_T_(XDIGIT, isXDIGIT_L1, isXDIGIT, "XPosixXDigit"); + case _C_C_T_(SPACE, isSPACE_L1, isSPACE, "SpacePerl", "SpacePerl"); + case _C_C_T_(ALNUM, isWORDCHAR_L1, isALNUM, "Word", "Word"); + case _C_C_T_(XDIGIT, isXDIGIT_L1, isXDIGIT, "XPosixXDigit", "XPosixXDigit"); case _C_C_T_NOLOC_(VERTWS, is_VERTWS_latin1(&value), "VertSpace"); case _C_C_T_NOLOC_(HORIZWS, is_HORIZWS_latin1(&value), "HorizSpace"); case ANYOF_ASCII: @@ -9906,7 +9919,7 @@ } if (what && ! (AT_LEAST_ASCII_RESTRICTED)) { /* Strings such as "+utf8::isWord\n" */ - Perl_sv_catpvf(aTHX_ listsv, "%cutf8::Is%s\n", yesno, what); + Perl_sv_catpvf(aTHX_ listsv, "%cutf8::%s\n", yesno, what); } continue; diff -Nru perl-5.14.2/regexec.c perl-5.14.3/regexec.c --- perl-5.14.2/regexec.c 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/regexec.c 2012-10-11 21:17:42.000000000 +0300 @@ -1507,7 +1507,8 @@ ? utf8_length((U8 *) pat_string, (U8 *) pat_end) : ln; - e = HOP3c(strend, -((I32)lnc), s); + /* Set the end position to the final character available */ + e = HOP3c(strend, -1, s); if (!reginfo && e < s) { e = s; /* Due to minlen logic of intuit() */ @@ -1521,7 +1522,7 @@ { goto got_it; } - s += UTF8SKIP(s); + s += (utf8_target) ? UTF8SKIP(s) : 1; } break; case BOUNDL: diff -Nru perl-5.14.2/t/io/perlio.t perl-5.14.3/t/io/perlio.t --- perl-5.14.2/t/io/perlio.t 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/t/io/perlio.t 2012-10-11 21:17:44.000000000 +0300 @@ -6,7 +6,7 @@ skip_all_without_perlio(); } -plan tests => 42; +plan tests => 44; use_ok('PerlIO'); @@ -191,6 +191,12 @@ close ($no_perlio); } +{ # [perl #92258] + open my $fh, "<", \(my $f = *f); + is join("", <$fh>), '*main::f', 'reading from a glob copy'; + is ref \$f, 'GLOB', 'the glob copy is unaffected'; +} + } diff -Nru perl-5.14.2/t/op/smartmatch.t perl-5.14.3/t/op/smartmatch.t --- perl-5.14.2/t/op/smartmatch.t 2011-09-19 16:18:22.000000000 +0300 +++ perl-5.14.3/t/op/smartmatch.t 2012-10-11 21:17:45.000000000 +0300 @@ -73,7 +73,7 @@ my %fooormore = map { $_ => 0 } @fooormore; # Load and run the tests -plan tests => 351; +plan tests => 349; while () { SKIP: { @@ -223,8 +223,6 @@ @ "object" $str_obj @ FALSE $str_obj # Those will treat the $str_obj as a string because of fallback: -! $ov_obj $str_obj - $ov_obj_2 $str_obj # object (overloaded or not) ~~ Any $obj qr/NoOverload/ diff -Nru perl-5.14.2/t/op/taint.t perl-5.14.3/t/op/taint.t --- perl-5.14.2/t/op/taint.t 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/t/op/taint.t 2012-10-11 21:17:45.000000000 +0300 @@ -17,7 +17,7 @@ use strict; use Config; -plan tests => 774; +plan tests => 779; $| = 1; @@ -2144,6 +2144,26 @@ 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"); +} + +{ # 111654 + eval { + eval { die "Test\n".substr($ENV{PATH}, 0, 0); }; + die; + }; + like($@, qr/^Test\n\t\.\.\.propagated at /, "error should be propagated"); +} + # This may bomb out with the alarm signal so keep it last SKIP: { skip "No alarm()" unless $Config{d_alarm}; diff -Nru perl-5.14.2/t/re/pat.t perl-5.14.3/t/re/pat.t --- perl-5.14.2/t/re/pat.t 2011-09-19 16:18:22.000000000 +0300 +++ perl-5.14.3/t/re/pat.t 2012-10-11 21:17:45.000000000 +0300 @@ -21,7 +21,7 @@ require './test.pl'; } -plan tests => 451; # Update this when adding/deleting tests. +plan tests => 452; # Update this when adding/deleting tests. run_tests() unless caller; @@ -1167,6 +1167,13 @@ is($got,$want,'RT #84294: check that "ab" =~ /((\w+)(?{ push @got, $2 })){2}/ leaves @got in the correct state'); } + + { # [perl #101710] + my $pat = "b"; + utf8::upgrade($pat); + like("\xffb", qr/$pat/i, "/i: utf8 pattern, non-utf8 string, latin1-char preceding matching char in string"); + } + } # End of sub run_tests 1; diff -Nru perl-5.14.2/t/re/re_tests perl-5.14.3/t/re/re_tests --- perl-5.14.2/t/re/re_tests 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/t/re/re_tests 2012-10-11 21:17:45.000000000 +0300 @@ -1522,4 +1522,14 @@ # See [perl #89750]. This makes sure that the simple fold gets generated # in that case, to DF. /[^\x{1E9E}]/i \x{DF} n - - + +/ff/i \x{FB00}\x{FB01} y $& \x{FB00} +/ff/i \x{FB01}\x{FB00} y $& \x{FB00} +/fi/i \x{FB01}\x{FB00} y $& \x{FB01} +/fi/i \x{FB00}\x{FB01} y $& \x{FB01} + +# [perl #101970] +/[[:lower:]]/i \x{100} y $& \x{100} +/[[:upper:]]/i \x{101} y $& \x{101} + # vim: softtabstop=0 noexpandtab diff -Nru perl-5.14.2/util.c perl-5.14.3/util.c --- perl-5.14.2/util.c 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/util.c 2012-10-11 21:17:50.000000000 +0300 @@ -3319,6 +3319,9 @@ { PERL_ARGS_ASSERT_REPEATCPY; + if (count < 0) + Perl_croak_nocontext("%s",PL_memory_wrap); + if (len == 1) memset(to, *from, count); else if (count) { diff -Nru perl-5.14.2/utils/h2ph.PL perl-5.14.3/utils/h2ph.PL --- perl-5.14.2/utils/h2ph.PL 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/utils/h2ph.PL 2012-10-11 21:17:50.000000000 +0300 @@ -761,16 +761,8 @@ # 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 -Nru perl-5.14.2/vms/descrip_mms.template perl-5.14.3/vms/descrip_mms.template --- perl-5.14.2/vms/descrip_mms.template 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/vms/descrip_mms.template 2012-10-11 21:17:50.000000000 +0300 @@ -403,23 +403,23 @@ pod3 = [.lib.pods]perl5130delta.pod [.lib.pods]perl51310delta.pod [.lib.pods]perl51311delta.pod [.lib.pods]perl5131delta.pod [.lib.pods]perl5132delta.pod pod4 = [.lib.pods]perl5133delta.pod [.lib.pods]perl5134delta.pod [.lib.pods]perl5135delta.pod [.lib.pods]perl5136delta.pod [.lib.pods]perl5137delta.pod pod5 = [.lib.pods]perl5138delta.pod [.lib.pods]perl5139delta.pod [.lib.pods]perl5140delta.pod [.lib.pods]perl5141delta.pod [.lib.pods]perl5142delta.pod -pod6 = [.lib.pods]perl561delta.pod [.lib.pods]perl56delta.pod [.lib.pods]perl570delta.pod [.lib.pods]perl571delta.pod [.lib.pods]perl572delta.pod -pod7 = [.lib.pods]perl573delta.pod [.lib.pods]perl581delta.pod [.lib.pods]perl582delta.pod [.lib.pods]perl583delta.pod [.lib.pods]perl584delta.pod -pod8 = [.lib.pods]perl585delta.pod [.lib.pods]perl586delta.pod [.lib.pods]perl587delta.pod [.lib.pods]perl588delta.pod [.lib.pods]perl589delta.pod -pod9 = [.lib.pods]perl58delta.pod [.lib.pods]perl590delta.pod [.lib.pods]perl591delta.pod [.lib.pods]perl592delta.pod [.lib.pods]perl593delta.pod -pod10 = [.lib.pods]perl594delta.pod [.lib.pods]perl595delta.pod [.lib.pods]perlaix.pod [.lib.pods]perlamiga.pod [.lib.pods]perlapi.pod -pod11 = [.lib.pods]perlapio.pod [.lib.pods]perlartistic.pod [.lib.pods]perlbeos.pod [.lib.pods]perlbook.pod [.lib.pods]perlboot.pod [.lib.pods]perlbot.pod -pod12 = [.lib.pods]perlbs2000.pod [.lib.pods]perlcall.pod [.lib.pods]perlce.pod [.lib.pods]perlcheat.pod [.lib.pods]perlclib.pod [.lib.pods]perlcn.pod -pod13 = [.lib.pods]perlcommunity.pod [.lib.pods]perlcompile.pod [.lib.pods]perlcygwin.pod [.lib.pods]perldata.pod [.lib.pods]perldbmfilter.pod -pod14 = [.lib.pods]perldebguts.pod [.lib.pods]perldebtut.pod [.lib.pods]perldebug.pod [.lib.pods]perldelta.pod [.lib.pods]perldgux.pod -pod15 = [.lib.pods]perldiag.pod [.lib.pods]perldoc.pod [.lib.pods]perldos.pod [.lib.pods]perldsc.pod [.lib.pods]perlebcdic.pod [.lib.pods]perlembed.pod -pod16 = [.lib.pods]perlepoc.pod [.lib.pods]perlfaq.pod [.lib.pods]perlfaq1.pod [.lib.pods]perlfaq2.pod [.lib.pods]perlfaq3.pod [.lib.pods]perlfaq4.pod -pod17 = [.lib.pods]perlfaq5.pod [.lib.pods]perlfaq6.pod [.lib.pods]perlfaq7.pod [.lib.pods]perlfaq8.pod [.lib.pods]perlfaq9.pod [.lib.pods]perlfilter.pod -pod18 = [.lib.pods]perlfork.pod [.lib.pods]perlform.pod [.lib.pods]perlfreebsd.pod [.lib.pods]perlfunc.pod [.lib.pods]perlgit.pod [.lib.pods]perlglossary.pod -pod19 = [.lib.pods]perlgpl.pod [.lib.pods]perlguts.pod [.lib.pods]perlhack.pod [.lib.pods]perlhacktips.pod [.lib.pods]perlhacktut.pod -pod20 = [.lib.pods]perlhaiku.pod [.lib.pods]perlhist.pod [.lib.pods]perlhpux.pod [.lib.pods]perlhurd.pod [.lib.pods]perlintern.pod [.lib.pods]perlinterp.pod -pod21 = [.lib.pods]perlintro.pod [.lib.pods]perliol.pod [.lib.pods]perlipc.pod [.lib.pods]perlirix.pod [.lib.pods]perljp.pod [.lib.pods]perlko.pod -pod22 = [.lib.pods]perllexwarn.pod [.lib.pods]perllinux.pod [.lib.pods]perllocale.pod [.lib.pods]perllol.pod [.lib.pods]perlmacos.pod +pod6 = [.lib.pods]perl5143delta.pod [.lib.pods]perl561delta.pod [.lib.pods]perl56delta.pod [.lib.pods]perl570delta.pod [.lib.pods]perl571delta.pod +pod7 = [.lib.pods]perl572delta.pod [.lib.pods]perl573delta.pod [.lib.pods]perl581delta.pod [.lib.pods]perl582delta.pod [.lib.pods]perl583delta.pod +pod8 = [.lib.pods]perl584delta.pod [.lib.pods]perl585delta.pod [.lib.pods]perl586delta.pod [.lib.pods]perl587delta.pod [.lib.pods]perl588delta.pod +pod9 = [.lib.pods]perl589delta.pod [.lib.pods]perl58delta.pod [.lib.pods]perl590delta.pod [.lib.pods]perl591delta.pod [.lib.pods]perl592delta.pod +pod10 = [.lib.pods]perl593delta.pod [.lib.pods]perl594delta.pod [.lib.pods]perl595delta.pod [.lib.pods]perlaix.pod [.lib.pods]perlamiga.pod +pod11 = [.lib.pods]perlapi.pod [.lib.pods]perlapio.pod [.lib.pods]perlartistic.pod [.lib.pods]perlbeos.pod [.lib.pods]perlbook.pod [.lib.pods]perlboot.pod +pod12 = [.lib.pods]perlbot.pod [.lib.pods]perlbs2000.pod [.lib.pods]perlcall.pod [.lib.pods]perlce.pod [.lib.pods]perlcheat.pod [.lib.pods]perlclib.pod +pod13 = [.lib.pods]perlcn.pod [.lib.pods]perlcommunity.pod [.lib.pods]perlcompile.pod [.lib.pods]perlcygwin.pod [.lib.pods]perldata.pod +pod14 = [.lib.pods]perldbmfilter.pod [.lib.pods]perldebguts.pod [.lib.pods]perldebtut.pod [.lib.pods]perldebug.pod [.lib.pods]perldelta.pod +pod15 = [.lib.pods]perldgux.pod [.lib.pods]perldiag.pod [.lib.pods]perldoc.pod [.lib.pods]perldos.pod [.lib.pods]perldsc.pod [.lib.pods]perlebcdic.pod +pod16 = [.lib.pods]perlembed.pod [.lib.pods]perlepoc.pod [.lib.pods]perlfaq.pod [.lib.pods]perlfaq1.pod [.lib.pods]perlfaq2.pod [.lib.pods]perlfaq3.pod +pod17 = [.lib.pods]perlfaq4.pod [.lib.pods]perlfaq5.pod [.lib.pods]perlfaq6.pod [.lib.pods]perlfaq7.pod [.lib.pods]perlfaq8.pod [.lib.pods]perlfaq9.pod +pod18 = [.lib.pods]perlfilter.pod [.lib.pods]perlfork.pod [.lib.pods]perlform.pod [.lib.pods]perlfreebsd.pod [.lib.pods]perlfunc.pod [.lib.pods]perlgit.pod +pod19 = [.lib.pods]perlglossary.pod [.lib.pods]perlgpl.pod [.lib.pods]perlguts.pod [.lib.pods]perlhack.pod [.lib.pods]perlhacktips.pod +pod20 = [.lib.pods]perlhacktut.pod [.lib.pods]perlhaiku.pod [.lib.pods]perlhist.pod [.lib.pods]perlhpux.pod [.lib.pods]perlhurd.pod [.lib.pods]perlintern.pod +pod21 = [.lib.pods]perlinterp.pod [.lib.pods]perlintro.pod [.lib.pods]perliol.pod [.lib.pods]perlipc.pod [.lib.pods]perlirix.pod [.lib.pods]perljp.pod +pod22 = [.lib.pods]perlko.pod [.lib.pods]perllexwarn.pod [.lib.pods]perllinux.pod [.lib.pods]perllocale.pod [.lib.pods]perllol.pod [.lib.pods]perlmacos.pod pod23 = [.lib.pods]perlmacosx.pod [.lib.pods]perlmod.pod [.lib.pods]perlmodinstall.pod [.lib.pods]perlmodlib.pod [.lib.pods]perlmodstyle.pod pod24 = [.lib.pods]perlmpeix.pod [.lib.pods]perlmroapi.pod [.lib.pods]perlnetware.pod [.lib.pods]perlnewmod.pod [.lib.pods]perlnumber.pod pod25 = [.lib.pods]perlobj.pod [.lib.pods]perlop.pod [.lib.pods]perlopenbsd.pod [.lib.pods]perlopentut.pod [.lib.pods]perlos2.pod [.lib.pods]perlos390.pod @@ -435,7 +435,7 @@ pod35 = [.lib.pods]perlvos.pod [.lib.pods]perlwin32.pod [.lib.pods]perlxs.pod [.lib.pods]perlxstut.pod pod = $(pod0) $(pod1) $(pod2) $(pod3) $(pod4) $(pod5) $(pod6) $(pod7) $(pod8) $(pod9) $(pod10) $(pod11) $(pod12) $(pod13) $(pod14) $(pod15) $(pod16) $(pod17) $(pod18) $(pod19) $(pod20) $(pod21) $(pod22) $(pod23) $(pod24) $(pod25) $(pod26) $(pod27) $(pod28) $(pod29) $(pod30) $(pod31) $(pod32) $(pod33) $(pod34) $(pod35) -PERLDELTA_CURRENT = [.pod]perl5142delta.pod +PERLDELTA_CURRENT = [.pod]perl5143delta.pod $(PERLDELTA_CURRENT) : [.pod]perldelta.pod Copy/NoConfirm/Log $(MMS$SOURCE) $(MMS$TARGET) @@ -823,6 +823,10 @@ @ If F$Search("[.lib]pods.dir").eqs."" Then Create/Directory [.lib.pods] Copy/NoConfirm/Log $(MMS$SOURCE) [.lib.pods] +[.lib.pods]perl5143delta.pod : [.pod]perl5143delta.pod + @ If F$Search("[.lib]pods.dir").eqs."" Then Create/Directory [.lib.pods] + Copy/NoConfirm/Log $(MMS$SOURCE) [.lib.pods] + [.lib.pods]perl561delta.pod : [.pod]perl561delta.pod @ If F$Search("[.lib]pods.dir").eqs."" Then Create/Directory [.lib.pods] Copy/NoConfirm/Log $(MMS$SOURCE) [.lib.pods] diff -Nru perl-5.14.2/win32/Makefile perl-5.14.3/win32/Makefile --- perl-5.14.2/win32/Makefile 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/win32/Makefile 2012-10-11 21:17:50.000000000 +0300 @@ -37,7 +37,7 @@ # versioned installation can be obtained by setting INST_TOP above to a # path that includes an arbitrary version string. # -#INST_VER = \5.14.2 +#INST_VER = \5.14.3 # # Comment this out if you DON'T want your perl installation to have @@ -1069,7 +1069,7 @@ copy ..\README.vmesa ..\pod\perlvmesa.pod copy ..\README.vos ..\pod\perlvos.pod copy ..\README.win32 ..\pod\perlwin32.pod - copy ..\pod\perldelta.pod ..\pod\perl5142delta.pod + copy ..\pod\perldelta.pod ..\pod\perl5143delta.pod cd ..\win32 $(PERLEXE) $(PL2BAT) $(UTILS) $(PERLEXE) $(ICWD) ..\autodoc.pl .. @@ -1162,7 +1162,7 @@ -if exist $(LIBDIR)\XS rmdir /s /q $(LIBDIR)\XS -if exist $(LIBDIR)\Win32API rmdir /s /q $(LIBDIR)\Win32API -cd $(PODDIR) && del /f *.html *.bat \ - perl5142delta.pod perlaix.pod perlamiga.pod perlapi.pod \ + perl5143delta.pod perlaix.pod perlamiga.pod perlapi.pod \ perlbeos.pod perlbs2000.pod perlce.pod perlcn.pod \ perlcygwin.pod perldgux.pod perldos.pod perlepoc.pod \ perlfreebsd.pod perlhaiku.pod perlhpux.pod perlhurd.pod \ diff -Nru perl-5.14.2/win32/Makefile.ce perl-5.14.3/win32/Makefile.ce --- perl-5.14.2/win32/Makefile.ce 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/win32/Makefile.ce 2012-10-11 21:17:50.000000000 +0300 @@ -6,7 +6,7 @@ SRCDIR = .. PV = 59 -INST_VER = 5.14.2 +INST_VER = 5.14.3 # INSTALL_ROOT specifies a path where this perl will be installed on CE device INSTALL_ROOT=/netzwerk/sprache/perl diff -Nru perl-5.14.2/win32/makefile.mk perl-5.14.3/win32/makefile.mk --- perl-5.14.2/win32/makefile.mk 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/win32/makefile.mk 2012-10-11 21:17:58.000000000 +0300 @@ -39,7 +39,7 @@ # versioned installation can be obtained by setting INST_TOP above to a # path that includes an arbitrary version string. # -#INST_VER *= \5.14.2 +#INST_VER *= \5.14.3 # # Comment this out if you DON'T want your perl installation to have @@ -1456,7 +1456,7 @@ copy ..\README.vmesa ..\pod\perlvmesa.pod copy ..\README.vos ..\pod\perlvos.pod copy ..\README.win32 ..\pod\perlwin32.pod - copy ..\pod\perldelta.pod ..\pod\perl5142delta.pod + copy ..\pod\perldelta.pod ..\pod\perl5143delta.pod $(PERLEXE) $(PL2BAT) $(UTILS) $(PERLEXE) $(ICWD) ..\autodoc.pl .. $(PERLEXE) $(ICWD) ..\pod\perlmodlib.pl -q @@ -1548,7 +1548,7 @@ -if exist $(LIBDIR)\XS rmdir /s /q $(LIBDIR)\XS -if exist $(LIBDIR)\Win32API rmdir /s /q $(LIBDIR)\Win32API -cd $(PODDIR) && del /f *.html *.bat \ - perl5142delta.pod perlaix.pod perlamiga.pod perlapi.pod \ + perl5143delta.pod perlaix.pod perlamiga.pod perlapi.pod \ perlbeos.pod perlbs2000.pod perlce.pod perlcn.pod \ perlcygwin.pod perldgux.pod perldos.pod perlepoc.pod \ perlfreebsd.pod perlhaiku.pod perlhpux.pod perlhurd.pod \ diff -Nru perl-5.14.2/win32/pod.mak perl-5.14.3/win32/pod.mak --- perl-5.14.2/win32/pod.mak 2011-09-26 12:44:34.000000000 +0300 +++ perl-5.14.3/win32/pod.mak 2012-10-11 21:17:58.000000000 +0300 @@ -46,6 +46,7 @@ perl5140delta.pod \ perl5141delta.pod \ perl5142delta.pod \ + perl5143delta.pod \ perl561delta.pod \ perl56delta.pod \ perl570delta.pod \ @@ -203,6 +204,7 @@ perl5140delta.man \ perl5141delta.man \ perl5142delta.man \ + perl5143delta.man \ perl561delta.man \ perl56delta.man \ perl570delta.man \ @@ -360,6 +362,7 @@ perl5140delta.html \ perl5141delta.html \ perl5142delta.html \ + perl5143delta.html \ perl561delta.html \ perl56delta.html \ perl570delta.html \ @@ -517,6 +520,7 @@ perl5140delta.tex \ perl5141delta.tex \ perl5142delta.tex \ + perl5143delta.tex \ perl561delta.tex \ perl56delta.tex \ perl570delta.tex \