# ChangeLog for dev-lang/perl
# Copyright 1999-2014 Gentoo Foundation; Distributed under the GPL v2
-# $Header: /var/cvsroot/gentoo-x86/dev-lang/perl/ChangeLog,v 1.456 2014/11/08 22:43:08 dilfridge Exp $
+# $Header: /var/cvsroot/gentoo-x86/dev-lang/perl/ChangeLog,v 1.457 2014/11/28 23:21:51 dilfridge Exp $
+
+ 28 Nov 2014; Andreas K. Huettel <dilfridge@gentoo.org>
+ -files/perl-5.8.7-MakeMaker-RUNPATH.patch,
+ -files/perl-5.8.8-CAN-2005-0448-rmtree-2.patch,
+ -files/perl-5.8.8-CVE-2008-1927.patch,
+ -files/perl-5.8.8-USE_MM_LD_RUN_PATH.patch,
+ -files/perl-5.8.8-asm-page-h-compile-failure.patch,
+ -files/perl-5.8.8-ccld-cflags.patch, -files/perl-5.8.8-cplusplus.patch,
+ -files/perl-5.8.8-darwin-cc-ld.patch,
+ -files/perl-5.8.8-dragonfly-clean.patch, -files/perl-5.8.8-fbsdhints.patch,
+ -files/perl-5.8.8-fix_file_path_chdir.patch,
+ -files/perl-5.8.8-gcc42-command-line.patch, -files/perl-5.8.8-lib32.patch,
+ -files/perl-5.8.8-lib64.patch, -files/perl-5.8.8-libnet-hostname.patch,
+ -files/perl-5.8.8-links.patch, -files/perl-5.8.8-makedepend-syntax.patch,
+ -files/perl-5.8.8-perlcc.patch, -files/perl-5.8.8-reorder-INC.patch,
+ -files/perl-5.8.8-solaris-relocation.patch,
+ -files/perl-5.8.8-solaris11.patch, -files/perl-5.8.8-usr-local.patch,
+ -files/perl-5.8.8-utf8-boundary.patch,
+ -files/perl-5.10.1-cleanup-paths.patch, -files/perl-5.10.1-hpux.patch,
+ -files/perl-5.12.3-aix-soname.patch, -files/perl-5.12.3-interix.patch,
+ -files/perl-5.12.3-mint.patch, -files/perl-5.12.5-rehash-5.12.5.patch,
+ -files/perl-5.14.1-cleanup-paths.patch,
+ -files/perl-fix_h2ph_include_quote.patch, -files/perl-h2ph-ansi-header.patch,
+ -files/perl-hppa-pa7200-configure.patch, -files/perl-noksh.patch,
+ -files/perl-perldoc-emptydirs.patch, -files/perl-picdl.patch,
+ -files/perl-prelink-lpthread.patch, -files/perl-regexp-nossp.patch:
+ Remove unused patches (well, actually, all of them... :)
08 Nov 2014; Andreas K. Huettel <dilfridge@gentoo.org>
-files/eblits/src_configure-v50160001.eblit,
AUX eblits/src_install-v50160001.eblit 2122 SHA256 64a8d7bcfd7757e8f15c28f4457240390f5f0ffff3c8c72c3e01a2612b668cec SHA512 ecea3ae0006fa2b009c15cf7ceca989058738e2e893b053dc0bf904ce17443b7d21ed033f09997535fd86da608d1c95d1b93a55268c06cf164d7894a71616e2c WHIRLPOOL a9c5531a799a3054ff3fd9add4e81e818f6f4d01d4826728274a15d98cee2a20188dee906f565ce4b413813068db4ac347ef7b717cd4b9526f54ba208c309491
AUX eblits/src_prepare-v50160001.eblit 2114 SHA256 dc803c75ffa7194149d7891c90cbdcd56e634afa6d0988db52242c27a6e1df3e SHA512 e6a32a3fd4b1b35ea146aefb67df74517304237d3fede12feaf52a1eed5880c2c15ad3b6bf2eb5bd153c60df5d6e9da583408d469d9014299dd4704e9a65d3db WHIRLPOOL b93e03c60c76a34da9d783bd88b2e0ec6c34c9a3a291973ad856180f4ed7b88ccbdd57fb95227c809c27a8a7537c67bf5ed573f5d7eba35b147ba26242438313
AUX eblits/src_test-v50160001.eblit 503 SHA256 35a8a1a6f89e351e4587c82ef3c30699f8a37d78570e28510c5e02bc9e352198 SHA512 09c6f1b253119d0ad7f7d698c37d9d1979a67a2866c72677177c47d9e7c413a7588e2e531bb1e9790ce49add618b768a7fa271e05171a3ce73fa4433034f91f7 WHIRLPOOL 9aae83a23fc6246d26729ad940a7a13bb89e3b2223581e34000f8a93470455bc8ca5b71ae47bf5e6809544793fe21f7207beca3681990c849838497f32f08b51
-AUX perl-5.10.1-cleanup-paths.patch 2368 SHA256 90738b47513eed34789ab506a023ca88be841a9a64127d201c4eebe85b63f443 SHA512 47246aa49f8baeab315bf06e64bddce98778fc9fcceddc0dd974604e1d6cb00a3a48bc08243a3edd2ccedf452bafd522e31e4469e672470c996da16efea85c4a WHIRLPOOL 9abc97d16322927f2e8b71d13f78edaca9e0b3838e2cd695fa2773ce6f7c3d6ce0d30bb81e34824294545df8a444772339f279ae2a556db2add9547b9cd7d065
-AUX perl-5.10.1-hpux.patch 1042 SHA256 3288b1b8a3d09d078c6c8453ebde7fdea15b0c39be016141c7278502a91dc26f SHA512 dbb3fadf45463c4aa2fc7333167369f8dd6506e4d45a39f7fa0c651ded185b866b289abaf38555ca559ab93b80ec4d666959cdfb76380a965a6b65bea5cb3df5 WHIRLPOOL c128d8baa440b0fc4ed0454b3b54f02a2525ae383b12daa6f5794d051a17637827219429650cdb2cb62f5972cc27818bae301b3d5f6aa5f11de90a5e77ca635d
-AUX perl-5.12.3-aix-soname.patch 2190 SHA256 ad3722c4535268e75208fcd569f4a9aee9672c2bae5017317a72a62948a89f98 SHA512 91543e9481ea143f2957f14497cd25ef6e3ef5d347d9eb3a2ddaaa4209fb866a12288d0685d6a32e452ddf32878872b2207ae1abe5a49400ad16ad466e8d5031 WHIRLPOOL 69c6b53010c60597011927437db15fd7756bec1b2f01a76442b02b21a46be6b75163423e9d666f23f995c0965607edc981fd28570b145d901e5028774fdb61c1
-AUX perl-5.12.3-interix.patch 690 SHA256 e2ae4b8067b3e98db1bf63b71e0f5f703c82b25883be03592bf1d74396409e14 SHA512 ae306dc130b5e3e4c4354fcd7be09581972d927e3c6dd2bcc08e5db92b1443b2bcb473ef646952175fa169203ef5312604521bcbfc06fdd46d73c350f0bc4f38 WHIRLPOOL 04dfa0c275f3f40f3f5045c6683b38e84ec5e1c7c66a9a934a91d4392c546b93fd3704f7b5e500c67ccdf6c2d6af0c4a3766f7c6017175fe1b0608348da16a02
-AUX perl-5.12.3-mint.patch 9700 SHA256 181ba1b71a1bcc2d74e2047a710965caf1ff8e29d395c018211d2dc75a6bc0e3 SHA512 ab8c8f1359c14b23c3fc66f131a8b7240257d7a12d8756b456982557a363165a0392b012d50cf980a6d711e705ac444822fcf964ee191d157aa5d5219b0aa94f WHIRLPOOL 7ee69fe3516c3187b73a4deac092703414e73b3b916479b28319f7fb9b357bd4034cc4928de44c4f1c3c7ce533f6117e8bfab31a7b1f3219abe8decf57ccdb6c
-AUX perl-5.12.5-rehash-5.12.5.patch 5535 SHA256 ac073dda4da957538f4204ed0b92d9895fa675e82fa1cd69fde5391089afd9fc SHA512 2ec63c9deb9bf7e4fdf005208b06c03159aa992f4855d62b11a1e64ea9fffdf4d083a3c70bfc6fbb0e4e39d3eea772ed25ddd0a17a7b2133d6f5d1d2cfaa051c WHIRLPOOL 810bbdc3db2e964b71617a7506c371384429d0d732386623877218765f3be6e48e7d73786d234c1aadb76e1fffb63169bbacefb0cd94d751b7acdd293faaa169
-AUX perl-5.14.1-cleanup-paths.patch 2375 SHA256 e8f55b3f863a3502f7bebe3d059f822680378ebf83f58ddd51df19294e82a60e SHA512 0dcdba3b2bcbdc3110a59cef260b68e9f93ee47c5b9e6dd07b1f26b4606f3a4b678d5512051f7feea769283c98dd35c0d12e0510c621dd62eeda0da4b06ac81a WHIRLPOOL aae9147be2aae74df7719794feee0ab9883d6e2bcf5f26eeb9efa06cb1a4d75f6bb68dc52800b1b41a6406f52a3a1b59eb4b2205f7b2d07940cc82590d677660
-AUX perl-5.8.7-MakeMaker-RUNPATH.patch 859 SHA256 3d327c525e0cf57899eca48d417fa4363f40da9b0d6b70b61e951521749047ab SHA512 6d7d612c205d19a6b76ab245927a470aa20ef5871fc6f5933c935a3d148bf4fca29ec899869e989b4e7654d7372ab4ba62d2c9b035eb8a089adf10f6fb4d64b4 WHIRLPOOL fc18bd262a27ed7bb1084d34666a074c65aa225c7fe8c7c13fb20dc74b2d89486f691d7d8429d4a31bc24f111fb279bd606808fd5b03aa7f8944986745530db1
-AUX perl-5.8.8-CAN-2005-0448-rmtree-2.patch 8187 SHA256 def78de69a0ef27204dfc1f5f39fcd4da1b38327f446e4dca1d37b9890b338e4 SHA512 6d3ce0cfa07221a35b320d4345a12dac2023fa4d42153e8caf964877398a1357309016e4d3d85ae6413c39034408176429d30228fb131a21d2677ccde030dc2f WHIRLPOOL 9749b52d426d0bb45b5a1710dfb2847b3a3864d6b1d494ec7bccf53f20a10323b23201f5f00d43f886eef688352d4bf6b83c1a7045a447619a65fe1cd425a340
-AUX perl-5.8.8-CVE-2008-1927.patch 8129 SHA256 614ebf7a0885fb5f7203627a3051f4df8fee2988d6bfec5a3d8fe70d97f9e45b SHA512 0d117eaa19d64d0f6e2a494bf53bd120a0926ece6660affa14e27036329c64b4b907c673c32b715cc70db31cfb45d920e1ea2de65dc64c0c717b979235b50170 WHIRLPOOL e76d8e638229c075b0b010ae71a109372b2775560b37427a712aa7d35e05ce845ffe0621f872873f7c289a77154c69a8870b2d85617c963e71d0433fe540268c
-AUX perl-5.8.8-USE_MM_LD_RUN_PATH.patch 4963 SHA256 49527cd4272ba177b39562363bf34ec6c7b6e709ee6ac770b7fccc302d18b459 SHA512 f03c343ec11d6ac03352d4c90c93e36542187d6dee3a847826920c78219e67871c611fe33ee869ac4a864e1569eda249ec47794a6b0649376af364a8302171f0 WHIRLPOOL d8553d77fdd3ec70b69c4e23fd765aa46021658bee4b4a8d5b65e71dc2ba987fb0aecb092b28eb4105a578fdc8ade25e47bee016315ec5ad0bca91d3e07e0f3c
-AUX perl-5.8.8-asm-page-h-compile-failure.patch 384 SHA256 b6be7b879d07a0f5a80ec775ce122d84a126a860471ccd86e4f32cbc2c90f704 SHA512 816f2b0e7be3dd0690148560579db97977432e61f5d11b606605b7e8eca3a4207e07486a5801c85cd55f489c470fe0a139798c7a78fcbb7af28476c783e0ffad WHIRLPOOL 5829a70fab015515572eb0be71f01dd7d2fbb233ec55e878e9a85bcb71b47a094a830c84f665745cbe31c16b83643ce103420cd06b63ef14548e59a0dc65ca8b
-AUX perl-5.8.8-ccld-cflags.patch 1103 SHA256 c154c64b6566914ff6c77afdb298c6f18d24f030fe9b121d55cb2b687cd385ed SHA512 996a333acd560a37faa7b0cc6e0baf7908925db5587fba976b8119044220d47bd36f16cc8c29cd4435030e688718129bdeb611fb07ed7ce2465e70b42368eb8b WHIRLPOOL 4b0e379f0851f00fc015ec8cea84e2083b9d349050a34d0f227dc15ec919988749f04b5361323e6047b47a4d6d5abe6f80379a77e1c6b3834633aa9340d9f80a
-AUX perl-5.8.8-cplusplus.patch 854 SHA256 ea1368e609b0d992b6cd5f92c327768d8c61ca2096826f26af2576263efb8a89 SHA512 b984551cab20a93fd08589138d6eb8ff1aed11eea002806ee426ed84510ef925ccb64dd4851962a157a4b909805895ba97b265a7663b66a5fe2736e7702a4a40 WHIRLPOOL 398a6df1049bccbb6619e3ed04125a6aed06fe5a1a26a48c5a68cf889a35db6b02a2dd76462b56e1fd91369478f5e85e2c97baeb7b9dd66ff1834ebac504a67f
-AUX perl-5.8.8-darwin-cc-ld.patch 546 SHA256 c4cb8915fd8117badf53fb9fab03821a0b31a58fb9a273f33e129b4fd5362570 SHA512 c71b0edac5443dc5f92bd9bee3364555b2e3a6e42e786f0f7ada0e1cb0f59fefc5ee2bbcee44bca3bb381f022d4aee7954cbc0545740b7b989499ef8ee7d16a6 WHIRLPOOL 63a79e6a363cae6f39255dfdff9f7eefe0274834ae7c7d28269e928ba9c101ab60449fe51583027361a1fb66d92a3cd4df80409cd72736d7785bc17a9ec98419
-AUX perl-5.8.8-dragonfly-clean.patch 5211 SHA256 08b22fe26695f6f7f7d21ca2628954eded91205b64450e24d0b295eb75952b6c SHA512 6c23a81f70276cb2cede65eec9202962681db6f626d2c3787ca40028a64417c2c5026bc4f6117ce5966c4733f8d8660af262b62c2c223662b903f119f2b9c916 WHIRLPOOL 51352eb13a3566b182ec0e2c130fcfe55baf53f46c855828f54bebfed861e8c0834ba50ae2458e08c377c6870f2cac4795ed2f5628f377814bd9e8a79ac720d9
-AUX perl-5.8.8-fbsdhints.patch 1984 SHA256 98ff829c9544e7edb329974b883f98b1391a5bb0e071edbb5e96feeba2c066c8 SHA512 c54468a4c8cb8950f796b2a51c036b7ca36c6ef4a542d4934170b27bda3399809cc71220766adf0e74e739170da82a4c1d995c86ed76becc8e1ffbf4b636e135 WHIRLPOOL fbf98d22ee127439e6a6ad2526055e2227b8c268c7d4bf92c170d8613f696e7fa095556063981679e0a2bdf7bfdc0d46a3840845d9d46bdb2f7fa5d4c43b0de4
-AUX perl-5.8.8-fix_file_path_chdir.patch 2195 SHA256 192883bb78ce487cc27e0158d7fb17837c45ae7a88091eb7bbf228888dff95c1 SHA512 b275aacec455964082691acb4c82f5c59e7aa71322354e623384de3e73ed1b322405521b434484c88f9ba489a8364ae6dfbdf6b41ee7a32218b171ef4da60d90 WHIRLPOOL ce869a168dd4abee7bd8e02659c06ecce524d706e313258fd3760c97c40f14205d5f4ce109a900b43593b14004eb6e37519576ba9f2e0de51cd50f1d5c294284
-AUX perl-5.8.8-gcc42-command-line.patch 497 SHA256 946d02284221bc3615e1f03afda1735e6da0296b03315e2a644bd784ad6f76d1 SHA512 f8416031cf8ec05bb96f7044de0cdc624b0bb0d0a066cb85511f7ace9812a709505f1bc7df9c4a97bdc6700151b0564e6f9e33f1378c67aa5307529bc2cd8cf3 WHIRLPOOL 3bf1846037ad879b4f9033ffe3ff623c45c75ef88157f260992c424d5eec035746a85bc93aeb74d57f9e40459e396f72c1d450f64214583b4a171cf4306d318d
-AUX perl-5.8.8-lib32.patch 2880 SHA256 90f9dd366ac931ac8baef61b1c8cdab4c80009554919c212b169fd37268ddf23 SHA512 7252f9a592d0d07e18f876e291a0177dd73218a4bcce7a06aefb7c785e56a9771aed548f2229cd2b5fad9736559d2b5469d9befc67bd37fac895213169719329 WHIRLPOOL 1b77a3e43bfad0738d0de1265bbb2b426fd6c1bbfcb61bb4a098b032ff0d71c8e27e776edf6cd7dac907da0da9fc67752ff5f095eab30065a13808bd3a7776e5
-AUX perl-5.8.8-lib64.patch 2880 SHA256 d2005cd1d57852a87f6060627c88eaab56534bcc8f922567e250ea79d2f6552d SHA512 9e1799541bf7a91c1d3ed0f556726c50798b1156cc9a45d56e86716e4074e3464b3f48dd6bb4ba16f81e7488e3cb9c205a92aabf1be5e85e2526c9b88e9b18de WHIRLPOOL 66cc945ca051845b8947f22337551e352f0af60972b07667ce0e974736743659463257f01a5b75f185f60f5147cd142e6363df9d3a1dad93bee64a220b1cefe3
-AUX perl-5.8.8-libnet-hostname.patch 664 SHA256 486d779faa86ae275e8800d83bd67329634b2782de6908512b6bf8380d389a96 SHA512 3208887564d7734f32583b0af33747820a55ef1fb5034c4d5eef15a12edfd5384290d3b1375409d47571c536ca6ce6204cd8b07952c8c950ca170974badbe820 WHIRLPOOL e67f806dc68a56a7987d4468f862429902b2c88c9096f43a13af3476bb1a06d08802d1096bde7cdac2316ee9d0e8b23b90be689cc998baee304ab30b81c8c1df
-AUX perl-5.8.8-links.patch 2925 SHA256 aeecee505f05ab0d7336142119f7a3e6d061b8fd2c7bbf9bd88cfb0421323bea SHA512 736dba3e3d21ecf2e6aa2c8e7a4c524da4975025fff5006298fc3685984f61de4329ce59de391ebc7f3650c867df2ff1ce92c01134c4731e6b099eccf51f1b2f WHIRLPOOL 5f70c1a9c0fafc7cf4f4f69f1918c52f561af1fbf08541fac35a8433b31a2f4198d497cbbda7851066402c9505ed4d8d882dfe254de4c8621a74a1a75d5d0612
-AUX perl-5.8.8-makedepend-syntax.patch 341 SHA256 f4ff3678b992774552d9ebc9ca7f3da1ae0144077eb52365e96ddbd0ba9c2606 SHA512 655646a9f349a84286de13eb8048253ac007d876b1d4d1a4be6c8949e155872fc7f52896aa354528118df0a89f2332186f19c473de9b89e8b8d63071a18dd478 WHIRLPOOL 392a80a0af0a79823b7599c9e68c51b57ec2fb67af09d11eaf07c3b6f77e5242c61a857cf35718c0c00bb965e280f9b9162e10a56cbaa68368d1fd912be7702c
-AUX perl-5.8.8-perlcc.patch 559 SHA256 7c212d320ec34cf8d0d5443ce5fad5c94a9fa9075462d54ddd8cc5716a2f2aa9 SHA512 bd1b578b45304203bd2be0703e179cd229b17020be86520ec079b5045c233c469aa4f7653620ac501be6a32bfb0a5d0eebd665b27a2d77aca08f5713e26ecca3 WHIRLPOOL ae0cd9f42fe47185d9d8ab2c747bdfe9530d50c7af6cd7ab6c08540cd7ac2433374396f440fa9423d09e2286bac5a6276f5d6896f57781ce4fb665fa06d22cc7
-AUX perl-5.8.8-reorder-INC.patch 3046 SHA256 136ca6c6cfaa3467f6a164f26b34ff06cc55823ca5723118764589cc15d37aed SHA512 f4795edbb738c26b5c63268a3392e93842a1cb06868293bfa16016c2b4e5b78a2029a1d0d6a64bf6f6e76e67565832eff9e37214296b03fdd2ad9cced3e935f9 WHIRLPOOL 6ee2367f5d7b4f344dd3099c8c7869788ea408cd3f6986ef22d8fec73a1489de509a715e6ef1b4f0128315c0f27e106e01b08f74f266ce5adebfadede1711243
-AUX perl-5.8.8-solaris-relocation.patch 526 SHA256 0bf483a1dd8f8572917bf1bd36f45c78d34b818ff0d0177d5f09ca4ab648dea5 SHA512 4436baf03973e8b795ce3e1b1dfd62cfbb59a874a311bc0bb0b8098c8d335f70987ef184cf0d798d837ca567553c7208541c1bf8211d60740c04bf71ec5653b9 WHIRLPOOL 0746481bd285df0b221adc883d8c62b86a422a0d0146358f38ee8adffdf5c5fc20f0dbe54ea9308fee66af890e3c92ebee970ab231df3ff55a5b30a7f3b526bd
-AUX perl-5.8.8-solaris11.patch 301 SHA256 300b48858b019797aac8154036aeb537a4058baf265597682a8aadac805991e1 SHA512 c0fd6ae3f312892e7cbfea41271db6d9e84c3aaa4e485743a62a6d0d281aefcc544fd3ed9d0a9f4ebb66a8cef9f3e38526a9a571a7acef2f5b4224441f0f8fcd WHIRLPOOL c841961b1d1375e938f23fe0a689b7f9bf0364e3b98210165989f4b4e30ab821d519c0db1149d67e86c9c870d9263ff869f59c34034a9bdbd215fa610e2f6fc8
-AUX perl-5.8.8-usr-local.patch 775 SHA256 c9cf8a318bb4b13088201ae8044fbab857918e23f517e2e8d2ee2b425940cb6e SHA512 8d17288a9ed9a4b3c7c5c3cdcecd989cc596fd8451e64268bdb36ba8a72780ba8bcfa537b30bc8b15fa0ab3be15117d1f9e331f00db9745fe3650391bce58a1a WHIRLPOOL e60a36a0873e0100c7094f69a181cb409f9a55dc5d4d8859cb3b9ca983e1c242ef47e2446950f3bedab725f558c43b9ba0fa529ffc635e540fd4a30da3cffd68
-AUX perl-5.8.8-utf8-boundary.patch 1866 SHA256 62848b35ed88c7d3a1a836903707b467e421321810e18792da41b28f9e7124a1 SHA512 12a1771259e81dff10553ce58ce8398f704b4dc70bf7c8584e971e33bc950a504a8ca60b521eba6f22262f3b3f0147ba00a266f13a412839f032af0b69a87810 WHIRLPOOL a73dd3f56ad31c6ccdef9cdae0af84c5dc6dca2167668c8d7bf12212f492c04913bf9cf6e14b58a90a58cb25ec15b75a361447af030a4daf49ad77ae939a4faf
-AUX perl-fix_h2ph_include_quote.patch 2462 SHA256 bfe3ebd7e119ebf5e11dc00e55773732f483e740e153dff267dd5ca12affc432 SHA512 8e709d95513fe248ed2d4a0483e4ecf9011c5dd5c77f95009c00c4d26aec25c93ad62939f522bd79020b7e72c94fd8daad327592502369a8b5d27ae0ceed1329 WHIRLPOOL b78e7486e2389209f546f562cb2073c36250a7401b8cfd094ebde336860cfe206f91053d4af94e4b981889511ac282ac1119d9638606a565e47241bbfe606cf2
-AUX perl-h2ph-ansi-header.patch 446 SHA256 dc28a8ccba56e0aa5e01b0ecf68a163ebfb9460917d201f1f6d9a1efef06c788 SHA512 4859af132e2ff7b6c840c61201458fc3bfaee518993f42fdaddccae2cf07a94808183a7c8cffb9deab7e9f15c8241ff4afc3fc8c8817db84b5577831709ab385 WHIRLPOOL 2af68cd9ee1f8c0e3b90418a25a67960f92b7a775efa6eba771c27fd39dbd3b3537e7bf0077293a107e9dbf1678f377d782da73bbe97b90f623e4dee45fb1061
-AUX perl-hppa-pa7200-configure.patch 446 SHA256 4fe6a010dbdc39325f4003e7ccd02cb7996b4a99b64ab0fa8b12d6fe67f87a31 SHA512 5a1bdf849694ea8faf8fc3e7b29d1c908203fb389fa37e5fdeae1a610798031db4549254a90b7a050d0831265a45d605a59bfa14192f1924be7193610931e1e3 WHIRLPOOL be47a74d31258dc2dd524fe26d75edef1eaabc7119e965696ed26e72b9048191b374f21379e6d9b24ad64bdea133e22efa46438536049b5ce6822565c951e8af
-AUX perl-noksh.patch 611 SHA256 0861f7f54c184e99a0ffeebeab9420d969d2002f921bc3fb14841a1e24be1f5e SHA512 42f121522a9ad327c65649489fc975ab0e84ca37851ea3b905582c32bf54627d2bf3fffc7450811b9e9b8a7349c4e7547e37c0b4a38a417e6a6d7fa4e687f17e WHIRLPOOL abcd5c1eb9c0be25ecb742d4103b17b8c71f826373b3dbc6572a129a68042895c6c3a546c88206887c99fe848493344194b81c322d4229f0ee6e926c59ba7b75
-AUX perl-perldoc-emptydirs.patch 489 SHA256 e8c52d67793f0a5ae0aee52a3b9db2b348a1303b57069d6f82c4bb499f45ee2f SHA512 9d55750fceb9dbb774a5e7772898d6d97c8b54bbdba6cb0b8d26bab8c1085de344d963efe464ed8a4d0092cec91b12e6a0bae3a92200442c24c08f7cd4df3f20 WHIRLPOOL 76305e28c3696a388a40ba988184e097f56dba071cfbab9ab0bcfaaa2c6a90f5c51c0ea809dd1d995050caf9085875ca562960e09852b243b4bcff40733a85c7
-AUX perl-picdl.patch 250 SHA256 fdbe94e869457b7e62bdc76b82a13ecd6e500c223d609b1767285190efd63cfa SHA512 0493c583b3e7e324f91906ae9280145601642dba6c1c400f3d5df4e054e6aefa023d6c1823ee8cdbb7169fe5e1a932c091326e949e49ea252ccb409dd6a7fbe3 WHIRLPOOL 2fd61e6cbb9b0db012922a2dc8047b5962804b0e0ca41110915f8014f165009671f14619fdd955c95c811b29dc26d6fc49a736d5a20e668e099b7495c28b34d5
-AUX perl-prelink-lpthread.patch 476 SHA256 289d0bdd08105e7fdf1c2d683d76a0cdcd009998f3ecd84f3a75cf79ab84e7a0 SHA512 7a46c4f4c2577d08ca0db27103adca0f0db00010080e499e1231f3785505a8c99b590160bba650a2ef95246f3acfdedcb4003f297f23c1599399b938196c51e2 WHIRLPOOL 8fef3e142467c5be840faed23e38013c9b541844326bcb9972245938bf34a123cdee1fbbae8a3a2c1a90eae6fdf2cb079deb2a0b8bbcd98616c1962a3d5daeff
-AUX perl-regexp-nossp.patch 460 SHA256 e2d923711bb856b3c7f790dbc1cd1f468d647c1e50a3ff8a18745023c73b3e36 SHA512 78162aaf02125dcb7fa302edf2c34a1defa836a6e7635f843781b200d50e8bd4d519d1926ae4ff98cd9e3aaa6624b73901b3b6e54cb8ff3522557bd51fed630a WHIRLPOOL 1e205551058916f8495b37a4b1c6d28eba42a72874b2977f678bd5e9756e6d6ade5fdb7d666ef68570b91be906262353f01015dbf3a726f1f5d1564b945e72b6
DIST perl-5.18.2-patches-2.tar.bz2 17153 SHA256 2d203611d9df9d63ed972a37db4927e5d04e80f1abd9724519ac9fc6600d7dbb SHA512 9efacaa44447dc605e69dd68886b41a263726158e98cdb9293678a77311eb197fbc86591db6209ad4614e8a8491758fa24f10c189e5a75dc8ec8c9a1335cafbc WHIRLPOOL 4d69c24e773b51a62e4a223a6846698b207a4ee71f16e58692634a750f25372e602c6902d3ec9859ec21fbf32acdef12817eb1ff285cdba37c404636ced16332
DIST perl-5.18.2.tar.bz2 14058513 SHA256 06a0cd490be36d829606aa41d8c9c4c72ae70542f8d4f23ec554335b3d9e2746 SHA512 7129f56b33724a49498af22977e9e995791c8de736b204124e21d170f1a7419e7b8c6dbc57d76216e4aebcb4b42e61c4075f96ebf06a13523287966222527535 WHIRLPOOL 2acee8f9d7ee5b9f265c6cee625d67efb9ddad7164787faa8cb50707cc53914fb78420e1450e85180fb093804ae84cb301dd274aa4412f4b899aacf1f15bd0cb
DIST perl-5.20.1-patches-1.tar.xz 13704 SHA256 56fb83302de7a662b5c437ef060f74dc74f1b8e13c183222182d62537e13607d SHA512 46e51a3ae72591d595ed659002f33d111fa7346fe5c51fdabd4e55c789411150ee7eccac209f6203c64cef0fc3cbf31201c9a1e9ba361f1c5bb75192e6938590 WHIRLPOOL 8ccc43f7138a3c9a52204fe36d88a04fb1b39e05cb4fde6c2bd0a1e31cda47034a5d3dc5ea48fbbbf592e1c922436526c69cb9e8aaf5a74193aa30e7e1626a81
DIST perl-5.20.1.tar.bz2 13676155 SHA256 ede5ded37e7fb6139b04728cfca826f17076f9888dbfd100a56834dbeb04657c SHA512 b070b66800d86357df9fc4b2323d0bd97cc5ba6f92a26991d4c41ba58c94386bde91f9c2bff19920647375116e8642360eda8e6cc753cc451c110c3bf9576787 WHIRLPOOL 359e13613826c7c76844bbb32be453aad4103d382a99cb8df0f25c6ec3e68a16962b891c72478d2803adc4573aff161405ddf3274dfe1c23236037ac23e7fc3a
EBUILD perl-5.18.2-r2.ebuild 4420 SHA256 0a3b8a311f46b1a479086ed69927926b2cc19bfb934d72db0f3ee8520d073063 SHA512 40ebcd9b995760d8ae4d4338260060e373a2b21ea707f3d70f48211264f495e847319594d3934aad4c799eaa12fd3e23fa607ee2e9bcec2483d84b431ddc1ca6 WHIRLPOOL c3646cca5909ead59a79172ddd4c0bfecaf94abec4f2b4345e32d9b87ab3e3cb5c001e4c95e939a6844a6a3f4a80a202cf76698609918125b6bab29a00b643ce
EBUILD perl-5.20.1-r2.ebuild 4229 SHA256 930699e89290ef11ae08e5ef4fb3d748c18bf459a442568b447614b461ae9f6a SHA512 05f81ac4e234fbe313e4cd10f130197afd071bb79bc03a2be922a76627424455232db657650e51c96d714231f675822727032930101ffd729086ee251e54aee9 WHIRLPOOL 2fb6d9d143fcf7b1d4267e2fbcdfa1ad47d5ee620f51ab85efa8aa1879ca2aabf1257f5215ca9738d0b0b91d3f39ea6c27d9534c751abd6b6acb1cb966b53403
-MISC ChangeLog 84698 SHA256 2ccd4b325be6ca4edbc18cb525709167ea004c930d936f54027b6213f46b5413 SHA512 4b73f2725b8737e78f6239e5c26f2dd9e4e29da4c46091931a9e1a22967ae48d98f49beba7b7828f71198f53bb2ec3fda2f113ccdb52edbef4b4d7a0a7b91277 WHIRLPOOL 5578af0f2c256e6e68b9536d8928640936b15dadd723142ac35193e0dbfb9f1931638a68bf726cc035af0b44152be2448a2f090eaebfaaea557ab75d74b98ba9
+MISC ChangeLog 86290 SHA256 6238cb578158d35aed25a1aa77024d471e0f1df607ddce307f131eaef83f5cd7 SHA512 39a12634d2f7c9ebf5467a18a8969d7e9caa4922dda327274eb8ca608edd532639f55078d0b11ebd44c61998835072177178aef442c09cf96a4a86a5986a8c95 WHIRLPOOL 68ad2deabd0c048682883e7f33e7bd2a74e9bb7054a1ff63473b3676023547ab50684d8379a3edff4e0fb8d57497adeccdf6331955830404bc1adc2dc851e986
MISC metadata.xml 257 SHA256 94d99e58fcedfe7951797e5cbd70790c21b87c1e07a7003f650632bb0a4f2300 SHA512 caf80fd9d8931ab6d476afc21fcc840894cdb4cf548d196958321a0ba09ab83ff98de3f8b5f01701f8101fd0ec0fcfc35ae6e572aa8ef499b106c3ac8cabb769 WHIRLPOOL 7793b51d68b2c56ff1d6029be61fc41007af60c7143e8d82d87891e2863c1978c92d2bc13a0266e4506b69c0012a8555d27ce05061e4ce8c656b32e937badeae
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v2.0
-iQJ8BAEBCABmBQJUXpx9XxSAAAAAAC4AKGlzc3Vlci1mcHJAbm90YXRpb25zLm9w
+iQJ8BAEBCABmBQJUeQOVXxSAAAAAAC4AKGlzc3Vlci1mcHJAbm90YXRpb25zLm9w
ZW5wZ3AuZmlmdGhob3JzZW1hbi5uZXQwNzlCRDk4QzA4RENBRkYzQUEwRjQzMDlF
-QkU2QTMzNkJFMTkwMzlDAAoJEOvmoza+GQOctbcP/Rvb4uangWpxXUZv/f8DUttr
-xyWQ4UOgTb1OnVPujEIwJE1U1vq0FDJOGnpPz3HnT32k8CZQLE6mfFwQbMamb6tE
-yhYanos/puT/hVEw0C8d6DcwSB0r2It8/ecNixGbN0Zx6ZyHniakIvK0oh6TptKk
-xNDO0Qkx8um3x9JTK2490WzsWtlirDMmw5N6jcWV60F76sA74EwRTZnRv5nDiy2+
-iayeFLcN0akG2WBxmTM8bDAfWu/frvMkshDDuSVOqQY6ruc1bRxnnbgxnWhky5J8
-s5BHmlglCNcvmd5/aQIEWGHy3LuSac5BAB78noc89UeLhgkhXksIvDZbu6wmZ9I7
-0Bmrwc9PRn1hdhKFWC577TJlO0QpYJRKcqeQM5pGjDvPxq4fl35+BkdAJ2YpCxhk
-2rBllF0ERmswNxhuKtKH7//UryIXy3+Nbf4iH5WRuUY2fNB9T21CZ3T3GJIVFfIR
-pwR5NLO1beC5h7YD4sTFlODtFG4PnIE5QDX5N8Bhkz4x2ZypccnQTbBdXRLFcDzt
-3nKQ7beb0hc1OyF4p6AT2BLlfyJ5vpQNl0Vr/1QsCW2B7wvAfygrC9BM+sq+/mx5
-Eqluk/9omHkIMYpUpCpae9oMzeTneMkG0C/44s18JsBuxdLCiDfVnHuuI4C0D8lg
-9745xdBisZamg9xyMp8d
-=g21L
+QkU2QTMzNkJFMTkwMzlDAAoJEOvmoza+GQOcDTgQAJArhwR9Ig6MuwI8rcR0XsIW
++OR91FqUiJ8hginuvyO0FcOgBUAARPPLXBvRpltGV3od4cPdtG07H6bIz+KUgbU9
+vtY09bJ5HT00lcdtud2RD449uQxoC2x0bSReymXj47aCRiEQd3N2yeQGcAVyleoI
+VGcxvseIIa/kZV/4tygUPC++1hC+u0v1K3Y4mr997dP8tArHD7gU9z7d1ThmXyFd
+0gY50i5MrWSoLkKalvrOQTgV/Lx+gjpYg5qqgcFFYYzzRkLRuOlksqKwSaaHZETS
+dP8xU00nL92SQHbrWuyhzqkQ726HZPhDZMLiUuOpd+wrzKoMywJ/TOmxAaYmXLOL
+0xQQqFvaHgdaI85ZRW4T9gU4Y49Nna3sL+txKWLebQLnJUAsU3LSzwRId+nXOvOf
+JpdK0C13i8t4GteACg1D50njH4wa1aIm/2d7oxMMw4VE4t45Iph3IXbBzui4blSl
+l8SKyPDc83ztFWVcErw8jBwtjmuzyWqHzaewAgroyRUDnLIK/BW52PTO/m1sSsH/
++crlssNy6xmxdSs4rSPsIUIGljk0xEPIspwj9Ogun8qr1476nVVRpT9tlfxVqNVT
++i/yDCH3kA5jwIkdzbZFGReYaQOGAxo4bgKwf6wTxnZGErtf1YEkkU9Lu5A53R8q
+iDNHMiV/YF6T2NoEbScs
+=wCCG
-----END PGP SIGNATURE-----
+++ /dev/null
-cut the crap of inventing paths, or adding search paths that we don't use
-
---- Configure
-+++ Configure
-@@ -102,28 +102,6 @@
- fi
- fi
-
--: Proper PATH setting
--paths='/bin /usr/bin /usr/local/bin /usr/ucb /usr/local /usr/lbin'
--paths="$paths /opt/bin /opt/local/bin /opt/local /opt/lbin"
--paths="$paths /usr/5bin /etc /usr/gnu/bin /usr/new /usr/new/bin /usr/nbin"
--paths="$paths /opt/gnu/bin /opt/new /opt/new/bin /opt/nbin"
--paths="$paths /sys5.3/bin /sys5.3/usr/bin /bsd4.3/bin /bsd4.3/usr/ucb"
--paths="$paths /bsd4.3/usr/bin /usr/bsd /bsd43/bin /opt/ansic/bin /usr/ccs/bin"
--paths="$paths /etc /usr/lib /usr/ucblib /lib /usr/ccs/lib"
--paths="$paths /sbin /usr/sbin /usr/libexec"
--paths="$paths /system/gnu_library/bin"
--
--for p in $paths
--do
-- case "$p_$PATH$p_" in
-- *$p_$p$p_*) ;;
-- *) test -d $p && PATH=$PATH$p_$p ;;
-- esac
--done
--
--PATH=.$p_$PATH
--export PATH
--
- : shall we be using ksh?
- inksh=''
- needksh=''
-@@ -8282,66 +8260,6 @@
- ;;
- esac
-
--# How will the perl executable find the installed shared $libperl?
--# Add $xxx to ccdlflags.
--# If we can't figure out a command-line option, use $shrpenv to
--# set env LD_RUN_PATH. The main perl makefile uses this.
--shrpdir=$archlibexp/CORE
--xxx=''
--tmp_shrpenv=''
--if "$useshrplib"; then
-- case "$osname" in
-- aix)
-- # We'll set it in Makefile.SH...
-- ;;
-- solaris)
-- xxx="-R $shrpdir"
-- ;;
-- freebsd|netbsd|openbsd|interix|dragonfly)
-- xxx="-Wl,-R$shrpdir"
-- ;;
-- bsdos|linux|irix*|dec_osf|gnu*)
-- xxx="-Wl,-rpath,$shrpdir"
-- ;;
-- next)
-- # next doesn't like the default...
-- ;;
-- beos)
-- # beos doesn't like the default, either.
-- ;;
-- haiku)
-- # Haiku doesn't like the default, either.
-- ;;
-- hpux*)
-- # hpux doesn't like the default, either.
-- tmp_shrpenv="env LDOPTS=\"+s +b${shrpdir}\""
-- ;;
-- cygwin)
-- # cygwin needs only ldlibpth
-- ;;
-- *)
-- tmp_shrpenv="env LD_RUN_PATH=$shrpdir"
-- ;;
-- esac
-- case "$xxx" in
-- '') ;;
-- *)
-- # Only add $xxx if it isn't already in ccdlflags.
-- case " $ccdlflags " in
-- *" $xxx "*) ;;
-- *) ccdlflags="$ccdlflags $xxx"
-- cat <<EOM >&4
--
--Adding $xxx to the flags
--passed to $ld so that the perl executable will find the
--installed shared $libperl.
--
--EOM
-- ;;
-- esac
-- ;;
-- esac
--fi
- # Fix ccdlflags in AIX for building external extensions.
- # (For building Perl itself bare -bE:perl.exp is needed,
- # Makefile.SH takes care of this.)
+++ /dev/null
-# do not assume '.' being in PATH on hpux,
-# use 'gcc' as linker, link with '-lm'.
-
---- hints/hpux.sh
-+++ hints/hpux.sh
-@@ -190,7 +190,7 @@
- $define|true|[Yy])
- echo '#include <stdio.h>\nint main(){long l;printf("%d\\n",sizeof(l));}'>try.c
- $cc -o try $ccflags $ldflags try.c
-- if [ "`try`" = "8" ]; then
-+ if [ "`./try`" = "8" ]; then
- case "$use64bitall" in
- $define|true|[Yy]) ;;
- *) cat <<EOM >&4
-@@ -338,7 +338,7 @@
- } /* main */
- EOF
- $cc -o try $ccflags $ldflags try.c
-- maxdsiz=`try`
-+ maxdsiz=`./try`
- rm -f try try.c core
- if [ $maxdsiz -le 64 ]; then
- # 64 Mb is probably not enough to optimize toke.c
-@@ -363,11 +363,12 @@
- "") optimize="-g -O" ;;
- *O[3456789]*) optimize=`echo "$optimize" | sed -e 's/O[3-9]/O2/'` ;;
- esac
-- #ld="$cc"
-- ld=/usr/bin/ld
-+ ld="$cc"
-+ #ld=/usr/bin/ld
- cccdlflags='-fPIC'
-- #lddlflags='-shared'
-- lddlflags='-b'
-+ lddlflags='-shared'
-+ #lddlflags='-b'
-+ libs='-lm'
- case "$optimize" in
- *-g*-O*|*-O*-g*)
- # gcc without gas will not accept -g
+++ /dev/null
-1) Match "powerpc-ibm-aix5.3.0.0-gcc" as gcc too.
-
-2) Creating shared library on aix with full soname support, following
-http://lists.gnu.org/archive/html/libtool/2011-01/msg00023.html
-http://lists.gnu.org/archive/html/libtool/2011-02/msg00000.html
-
-Once there is an agreement on that, this patch basically is designed
-for upstream perl to be applied when their soname would change anyway.
-However, there is 'strip' being used, and I don't know yet what to
-use instead in cross-aix setups with recent binutils.
-
---- Makefile.SH
-+++ Makefile.SH
-@@ -92,12 +92,12 @@
- ;;
- aix*)
- case "$cc" in
-- gcc*)
-- shrpldflags="-shared -Wl,-H512 -Wl,-T512 -Wl,-bhalt:4 -Wl,-bM:SRE -Wl,-bE:perl.exp"
-+ *gcc*)
-+ shrpldflags="-shared -Wl,-H512 -Wl,-T512 -Wl,-bhalt:4 -Wl,-bE:perl.exp"
- case "$osvers" in
-- 3*) shrpldflags="$shrpldflags -e _nostart"
-+ 3*) shrpldflags="$shrpldflags -Wl,-bM:SRE -e _nostart"
- ;;
-- *) shrpldflags="$shrpldflags -Wl,-bnoentry"
-+ *) shrpldflags="$shrpldflags -Wl,-G -Wl,-bernotok -Wl,-bnoentry"
- ;;
- esac
- shrpldflags="$shrpldflags $ldflags $perllibs $cryptlib"
-@@ -105,11 +105,11 @@
- linklibperl_nonshr='-lperl_nonshr'
- ;;
- *)
-- shrpldflags="-H512 -T512 -bhalt:4 -bM:SRE -bE:perl.exp"
-+ shrpldflags="-H512 -T512 -bhalt:4 -bE:perl.exp"
- case "$osvers" in
-- 3*) shrpldflags="$shrpldflags -e _nostart"
-+ 3*) shrpldflags="$shrpldflags -bM:SRE -e _nostart"
- ;;
-- *) shrpldflags="$shrpldflags -b noentry"
-+ *) shrpldflags="$shrpldflags -G -bernotok -b noentry"
- ;;
- esac
- shrpldflags="$shrpldflags $ldflags $perllibs $cryptlib"
-@@ -763,11 +763,19 @@
- !NO!SUBS!
- case "$osname" in
- aix)
-- $spitshell >>$Makefile <<'!NO!SUBS!'
-- rm -f libperl$(OBJ_EXT)
-- mv $@ libperl$(OBJ_EXT)
-- $(AR) qv $(LIBPERL) libperl$(OBJ_EXT)
--!NO!SUBS!
-+ bits=32
-+ if test X"$use64bitall" = Xdefine; then bits=64; fi
-+ $spitshell >>$Makefile <<!GROK!THIS!
-+ rm -f shr.imp shr.o
-+ mv \$@ shr.o
-+ strip -e shr.o
-+ ( echo '#! libperl.so.${revision}.${patchlevel}(shr.o)' \\
-+ ; echo '# ${bits}' \\
-+ ; grep -v '^#!' perl.exp \\
-+ ) > shr.imp
-+ \$(AR) qv \$@ shr.imp shr.o
-+ rm -f shr.imp shr.o
-+!GROK!THIS!
- ;;
- esac
- ;;
+++ /dev/null
-reported: http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2011-04/msg01014.html
-
-diff -ru perl-5.12.3.orig/hints/interix.sh perl-5.12.3/hints/interix.sh
---- perl-5.12.3.orig/hints/interix.sh 2011-04-27 08:34:00 +0200
-+++ perl-5.12.3/hints/interix.sh 2011-04-27 08:53:46 +0200
-@@ -6,14 +6,13 @@
- cc='gcc'
- cccdlflags="-DPIC $cccdlflags"
- ccdlflags='-Wl,-E'
--ccflags="-D_ALL_SOURCE $ccflags"
--d_poll="$undef"
- ld='gcc'
- lddlflags="-shared $lddlflags"
- rpathflag='-Wl,-R'
- sharpbang='#!'
- usemymalloc='false'
- usenm='false'
-+firstmakefile=GNUmakefile
-
- # This script UU/usethreads.cbu will get 'called-back' by Configure
- # after it has prompted the user for whether to use threads.
+++ /dev/null
-http://rt.perl.org/rt3/Ticket/Display.html?id=89502
-
---- perl-5.12.3/Configure 2011-02-21 09:18:09.000000000 +0000
-+++ perl-5.12.3/Configure 2011-02-21 09:38:49.000000000 +0000
-@@ -1275,6 +1275,9 @@
- elif test -n "$DJGPP"; then
- : DOS DJGPP
- _exe=".exe"
-+elif test -f "/kern/cookiejar"; then
-+: MiNT
-+ _exe=""
- elif test -d c:/. -o -n "$is_os2" ; then
- : OS/2 or cygwin
- _exe=".exe"
-@@ -1402,7 +1405,7 @@
- xcat=/bin/cat
- test -f $xcat$_exe || xcat=/usr/bin/cat
- if test ! -f $xcat$_exe; then
-- for p in `echo $PATH | sed -e "s/$p_/ /g"` $paths; do
-+ for p in `echo $PATH | sed -e 's/$p_/ /g'` $paths; do
- if test -f $p/cat$_exe; then
- xcat=$p/cat
- break
---- perl-5.12.3/ext/DynaLoader/dl_dld.xs 2010-11-21 21:40:55.000000000 +0000
-+++ perl-5.12.3/ext/DynaLoader/dl_dld.xs 2011-02-21 09:38:51.000000000 +0000
-@@ -116,6 +116,18 @@
- goto haverror;
- }
-
-+ DLDEBUG(1,PerlIO_printf(Perl_debug_log, "dld_link(libm.a)\n"));
-+ if (dlderr = dld_link("/usr/lib/libm.a")) {
-+ SaveError(aTHX_ "dld_link(libm.a): %s", dld_strerror(dlderr));
-+ goto haverror;
-+ }
-+
-+ DLDEBUG(1,PerlIO_printf(Perl_debug_log, "dld_link(libc.a)\n"));
-+ if (dlderr = dld_link("/usr/lib/libc.a")) {
-+ SaveError(aTHX_ "dld_link(libc.a): %s", dld_strerror(dlderr));
-+ goto haverror;
-+ }
-+
- max = AvFILL(dl_resolve_using);
- for (x = 0; x <= max; x++) {
- char *sym = SvPVX(*av_fetch(dl_resolve_using, x, 0));
---- perl-5.12.3/malloc.c 2011-01-09 20:20:57.000000000 +0000
-+++ perl-5.12.3/malloc.c 2011-02-21 09:38:51.000000000 +0000
-@@ -264,7 +264,7 @@
- #define MIN_BUC_POW2 (sizeof(void*) > 4 ? 3 : 2) /* Allow for 4-byte arena. */
- #define MIN_BUCKET (MIN_BUC_POW2 * BUCKETS_PER_POW2)
-
--#if !(defined(I286) || defined(atarist))
-+#if !defined(I286)
- /* take 2k unless the block is bigger than that */
- # define LOG_OF_MIN_ARENA 11
- #else
-@@ -551,8 +551,8 @@
- */
- #define u_short unsigned short
-
--/* 286 and atarist like big chunks, which gives too much overhead. */
--#if (defined(RCHECK) || defined(I286) || defined(atarist)) && defined(PACK_MALLOC)
-+/* 286 like big chunks, which gives too much overhead. */
-+#if (defined(RCHECK) || defined(I286)) && defined(PACK_MALLOC)
- # undef PACK_MALLOC
- #endif
-
-@@ -1734,16 +1734,14 @@
- /* Second, check alignment. */
- slack = 0;
-
--#if !defined(atarist) /* on the atari we dont have to worry about this */
--# ifndef I286 /* The sbrk(0) call on the I286 always returns the next segment */
-+#ifndef I286 /* The sbrk(0) call on the I286 always returns the next segment */
- /* WANTED_ALIGNMENT may be more than NEEDED_ALIGNMENT, but this may
- improve performance of memory access. */
- if (PTR2UV(cp) & (WANTED_ALIGNMENT - 1)) { /* Not aligned. */
- slack = WANTED_ALIGNMENT - (PTR2UV(cp) & (WANTED_ALIGNMENT - 1));
- add += slack;
- }
--# endif
--#endif /* !atarist */
-+#endif
-
- if (add) {
- DEBUG_m(PerlIO_printf(Perl_debug_log,
---- perl-5.12.3/miniperlmain.c 2011-01-09 20:20:57.000000000 +0000
-+++ perl-5.12.3/miniperlmain.c 2011-02-21 09:38:49.000000000 +0000
-@@ -45,7 +45,7 @@
- #if defined (atarist)
- /* The Atari operating system doesn't have a dynamic stack. The
- stack size is determined from this value. */
--long _stksize = 64 * 1024;
-+long _stksize = 256 * 1024;
- #endif
-
- #if defined(PERL_GLOBAL_STRUCT_PRIVATE)
---- perl-5.12.3/os2/perlrexx.c 2010-11-21 21:40:56.000000000 +0000
-+++ perl-5.12.3/os2/perlrexx.c 2011-02-21 09:42:49.000000000 +0000
-@@ -38,7 +38,7 @@
- #if defined (atarist)
- /* The Atari operating system doesn't have a dynamic stack. The
- stack size is determined from this value. */
--long _stksize = 64 * 1024;
-+long _stksize = 256 * 1024;
- #endif
-
- /* Register any extra external extensions */
---- perl-5.12.3/perl.c 2011-02-21 09:17:19.000000000 +0000
-+++ perl-5.12.3/perl.c 2011-02-21 09:38:50.000000000 +0000
-@@ -3272,10 +3272,6 @@
- "\n\nOS/2 port Copyright (c) 1990, 1991, Raymond Chen, Kai Uwe Rommel\n"
- "Version 5 port Copyright (c) 1994-2002, Andreas Kaiser, Ilya Zakharevich\n");
- #endif
--#ifdef atarist
-- PerlIO_printf(PerlIO_stdout(),
-- "atariST series port, ++jrb bammi@cadence.com\n");
--#endif
- #ifdef __BEOS__
- PerlIO_printf(PerlIO_stdout(),
- "BeOS port Copyright Tom Spindler, 1997-1999\n");
---- perl-5.12.3/perl.h 2011-01-09 20:20:57.000000000 +0000
-+++ perl-5.12.3/perl.h 2011-02-21 09:38:50.000000000 +0000
-@@ -497,7 +497,7 @@
- */
-
- /* define this once if either system, instead of cluttering up the src */
--#if defined(MSDOS) || defined(atarist) || defined(WIN32) || defined(NETWARE)
-+#if defined(MSDOS) || defined(WIN32) || defined(NETWARE)
- #define DOSISH 1
- #endif
-
---- perl-5.12.3/perlio.c 2009-04-14 23:47:25.000000000 +0000
-+++ perl-5.12.3/perlio.c 2010-03-23 18:36:15.000000000 +0000
-@@ -135,17 +135,6 @@
- * This used to be contents of do_binmode in doio.c
- */
- #ifdef DOSISH
--# if defined(atarist)
-- PERL_UNUSED_ARG(iotype);
-- if (!fflush(fp)) {
-- if (mode & O_BINARY)
-- ((FILE *) fp)->_flag |= _IOBIN;
-- else
-- ((FILE *) fp)->_flag &= ~_IOBIN;
-- return 1;
-- }
-- return 0;
--# else
- dTHX;
- PERL_UNUSED_ARG(iotype);
- #ifdef NETWARE
-@@ -153,7 +142,7 @@
- #else
- if (PerlLIO_setmode(fileno(fp), mode) != -1) {
- #endif
--# if defined(WIN32) && defined(__BORLANDC__)
-+# if defined(WIN32) && defined(__BORLANDC__)
- /*
- * The translation mode of the stream is maintained independent
- of
-@@ -169,12 +158,11 @@
- fp->flags |= _F_BIN;
- else
- fp->flags &= ~_F_BIN;
--# endif
-+# endif
- return 1;
- }
- else
- return 0;
--# endif
- #else
- # if defined(USEMYBINMODE)
- dTHX;
---- perl-5.12.3/pp_sys.c 2011-01-09 20:20:58.000000000 +0000
-+++ perl-5.12.3/pp_sys.c 2011-02-21 09:38:50.000000000 +0000
-@@ -3308,14 +3308,6 @@
- RETPUSHNO;
- }
-
--#if defined(atarist) /* this will work with atariST. Configure will
-- make guesses for other systems. */
--# define FILE_base(f) ((f)->_base)
--# define FILE_ptr(f) ((f)->_ptr)
--# define FILE_cnt(f) ((f)->_cnt)
--# define FILE_bufsiz(f) ((f)->_cnt + ((f)->_ptr - (f)->_base))
--#endif
--
- PP(pp_fttext)
- {
- dVAR;
-@@ -5567,30 +5559,6 @@
- case 8:
- retval = syscall(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7]);
- break;
--#ifdef atarist
-- case 9:
-- retval = syscall(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8]);
-- break;
-- case 10:
-- retval = syscall(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9]);
-- break;
-- case 11:
-- retval = syscall(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
-- a[10]);
-- break;
-- case 12:
-- retval = syscall(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
-- a[10],a[11]);
-- break;
-- case 13:
-- retval = syscall(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
-- a[10],a[11],a[12]);
-- break;
-- case 14:
-- retval = syscall(a[0],a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],
-- a[10],a[11],a[12],a[13]);
-- break;
--#endif /* atarist */
- }
- SP = ORIGMARK;
- PUSHi(retval);
---- perl-5.12.3/util.c 2011-01-09 20:20:58.000000000 +0000
-+++ perl-5.12.3/util.c 2011-02-21 09:38:51.000000000 +0000
-@@ -2545,7 +2545,7 @@
- return PerlIO_fdopen(p[This], mode);
- }
- #else
--#if defined(atarist) || defined(EPOC)
-+#if defined(EPOC)
- FILE *popen();
- PerlIO *
- Perl_my_popen(pTHX_ const char *cmd, const char *mode)
-@@ -2994,7 +2994,7 @@
- }
- #endif
-
--#if defined(atarist) || defined(OS2) || defined(EPOC)
-+#if defined(OS2) || defined(EPOC)
- int pclose();
- #ifdef HAS_FORK
- int /* Cannot prototype with I32
-@@ -3111,7 +3111,7 @@
- I32 len = 0;
- int retval;
- char *bufend;
--#if defined(DOSISH) && !defined(OS2) && !defined(atarist)
-+#if defined(DOSISH) && !defined(OS2)
- # define SEARCH_EXTS ".bat", ".cmd", NULL
- # define MAX_EXT_LEN 4
- #endif
-@@ -3234,28 +3234,25 @@
-
- bufend = s + strlen(s);
- while (s < bufend) {
--#if defined(atarist) || defined(DOSISH)
-+#if defined(DOSISH)
- for (len = 0; *s
--# ifdef atarist
-- && *s != ','
--# endif
- && *s != ';'; len++, s++) {
- if (len < sizeof tmpbuf)
- tmpbuf[len] = *s;
- }
- if (len < sizeof tmpbuf)
- tmpbuf[len] = '\0';
--#else /* ! (atarist || DOSISH) */
-+#else /* ! (DOSISH) */
- s = delimcpy(tmpbuf, tmpbuf + sizeof tmpbuf, s, bufend,
- ':',
- &len);
--#endif /* ! (atarist || DOSISH) */
-+#endif /* ! (DOSISH) */
- if (s < bufend)
- s++;
- if (len + 1 + strlen(scriptname) + MAX_EXT_LEN >= sizeof tmpbuf)
- continue; /* don't search dir with too-long name */
- if (len
--# if defined(atarist) || defined(DOSISH)
-+# if defined(DOSISH)
- && tmpbuf[len - 1] != '/'
- && tmpbuf[len - 1] != '\\'
- # endif
---- perl-5.12.3/hints/freemint.sh 2011-01-09 20:20:58.000000000 +0000
-+++ perl-5.12.3/hints/freemint.sh 2011-02-21 09:38:51.000000000 +0000
-@@ -0,0 +1,34 @@
-+# hints/freemint.sh
-+#
-+# talk to guido@freemint.de if you want to change this file.
-+# Please read the README.mint file.
-+#
-+# misc stuff
-+
-+archname="m68k-freemint"
-+
-+cccdlflags=' '; # avoid -fPIC
-+ccdlflags="-Wl,-whole-archive -lgcc -lpthread -Wl,-no-whole-archive"
-+
-+# libs
-+libpth="$prefix/lib /usr/local/lib /usr/lib"
-+glibpth="$libpth"
-+xlibpth="$libpth"
-+
-+ccflags="$ccflags -D_GNU_SOURCE"
-+libswanted='m dld'
-+dl_src='dl_dld.xs'
-+dlext='o'
-+lddlflags='-r'
-+ldflags='-static'
-+so='none'
-+useshrplib='false'
-+
-+#sbrk() returns -1 (failure) somewhere in lib/unicore/mktables at
-+#around 14M, so we need to use system malloc() as our sbrk()
-+malloc_cflags='ccflags="-DUSE_PERL_SBRK -DPERL_SBRK_VIA_MALLOC $ccflags"'
-+
-+# Locales aren't feeling well. We crash if -Ox used.
-+locale_cflags='optimize="-O0"'
-+LC_ALL=C; export LC_ALL;
-+LANG=C; export LANG;
+++ /dev/null
-From f2a571dae7d70f7e3b59022834d8003ecd2df884 Mon Sep 17 00:00:00 2001
-From: Yves Orton <demerphq@gmail.com>
-Date: Tue, 12 Feb 2013 10:53:05 +0100
-Subject: [PATCH] Prevent premature hsplit() calls, and only trigger REHASH
- after hsplit()
-
-Triggering a hsplit due to long chain length allows an attacker
-to create a carefully chosen set of keys which can cause the hash
-to use 2 * (2**32) * sizeof(void *) bytes ram. AKA a DOS via memory
-exhaustion. Doing so also takes non trivial time.
-
-Eliminating this check, and only inspecting chain length after a
-normal hsplit() (triggered when keys>buckets) prevents the attack
-entirely, and makes such attacks relatively benign.
-
-(cherry picked from commit f1220d61455253b170e81427c9d0357831ca0fac)
----
- ext/Hash-Util-FieldHash/t/10_hash.t | 18 ++++++++++++++++--
- hv.c | 26 ++++++--------------------
- t/op/hash.t | 20 +++++++++++++++++---
- 3 files changed, 39 insertions(+), 25 deletions(-)
-
-diff --git a/ext/Hash-Util-FieldHash/t/10_hash.t b/ext/Hash-Util-FieldHash/t/10_hash.t
-index 2cfb4e8..d58f053 100644
---- a/ext/Hash-Util-FieldHash/t/10_hash.t
-+++ b/ext/Hash-Util-FieldHash/t/10_hash.t
-@@ -38,15 +38,29 @@ use constant START => "a";
-
- # some initial hash data
- fieldhash my %h2;
--%h2 = map {$_ => 1} 'a'..'cc';
-+my $counter= "a";
-+$h2{$counter++}++ while $counter ne 'cd';
-
- ok (!Internals::HvREHASH(%h2),
- "starting with pre-populated non-pathological hash (rehash flag if off)");
-
- my @keys = get_keys(\%h2);
-+my $buckets= buckets(\%h2);
- $h2{$_}++ for @keys;
-+$h2{$counter++}++ while buckets(\%h2) == $buckets; # force a split
- ok (Internals::HvREHASH(%h2),
-- scalar(@keys) . " colliding into the same bucket keys are triggering rehash");
-+ scalar(@keys) . " colliding into the same bucket keys are triggering rehash after split");
-+
-+# returns the number of buckets in a hash
-+sub buckets {
-+ my $hr = shift;
-+ my $keys_buckets= scalar(%$hr);
-+ if ($keys_buckets=~m!/([0-9]+)\z!) {
-+ return 0+$1;
-+ } else {
-+ return 8;
-+ }
-+}
-
- sub get_keys {
- my $hr = shift;
-diff --git a/hv.c b/hv.c
-index 89c6456..8659678 100644
---- a/hv.c
-+++ b/hv.c
-@@ -35,7 +35,8 @@ holds the key and hash value.
- #define PERL_HASH_INTERNAL_ACCESS
- #include "perl.h"
-
--#define HV_MAX_LENGTH_BEFORE_SPLIT 14
-+#define HV_MAX_LENGTH_BEFORE_REHASH 14
-+#define SHOULD_DO_HSPLIT(xhv) ((xhv)->xhv_keys > (xhv)->xhv_max) /* HvTOTALKEYS(hv) > HvMAX(hv) */
-
- static const char S_strtab_error[]
- = "Cannot modify shared string table in hv_%s";
-@@ -818,23 +819,8 @@ Perl_hv_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen,
- xhv->xhv_keys++; /* HvTOTALKEYS(hv)++ */
- if (!counter) { /* initial entry? */
- xhv->xhv_fill++; /* HvFILL(hv)++ */
-- } else if (xhv->xhv_keys > (IV)xhv->xhv_max) {
-+ } else if ( SHOULD_DO_HSPLIT(xhv) ) {
- hsplit(hv);
-- } else if(!HvREHASH(hv)) {
-- U32 n_links = 1;
--
-- while ((counter = HeNEXT(counter)))
-- n_links++;
--
-- if (n_links > HV_MAX_LENGTH_BEFORE_SPLIT) {
-- /* Use only the old HvKEYS(hv) > HvMAX(hv) condition to limit
-- bucket splits on a rehashed hash, as we're not going to
-- split it again, and if someone is lucky (evil) enough to
-- get all the keys in one list they could exhaust our memory
-- as we repeatedly double the number of buckets on every
-- entry. Linear search feels a less worse thing to do. */
-- hsplit(hv);
-- }
- }
- }
-
-@@ -1180,7 +1166,7 @@ S_hsplit(pTHX_ HV *hv)
-
-
- /* Pick your policy for "hashing isn't working" here: */
-- if (longest_chain <= HV_MAX_LENGTH_BEFORE_SPLIT /* split worked? */
-+ if (longest_chain <= HV_MAX_LENGTH_BEFORE_REHASH /* split worked? */
- || HvREHASH(hv)) {
- return;
- }
-@@ -2551,8 +2537,8 @@ S_share_hek_flags(pTHX_ const char *str, I32 len, register U32 hash, int flags)
- xhv->xhv_keys++; /* HvTOTALKEYS(hv)++ */
- if (!next) { /* initial entry? */
- xhv->xhv_fill++; /* HvFILL(hv)++ */
-- } else if (xhv->xhv_keys > (IV)xhv->xhv_max /* HvKEYS(hv) > HvMAX(hv) */) {
-- hsplit(PL_strtab);
-+ } else if ( SHOULD_DO_HSPLIT(xhv) ) {
-+ hsplit(PL_strtab);
- }
- }
-
-diff --git a/t/op/hash.t b/t/op/hash.t
-index 9bde518..45eb782 100644
---- a/t/op/hash.t
-+++ b/t/op/hash.t
-@@ -39,22 +39,36 @@ use constant THRESHOLD => 14;
- use constant START => "a";
-
- # some initial hash data
--my %h2 = map {$_ => 1} 'a'..'cc';
-+my %h2;
-+my $counter= "a";
-+$h2{$counter++}++ while $counter ne 'cd';
-
- ok (!Internals::HvREHASH(%h2),
- "starting with pre-populated non-pathological hash (rehash flag if off)");
-
- my @keys = get_keys(\%h2);
-+my $buckets= buckets(\%h2);
- $h2{$_}++ for @keys;
-+$h2{$counter++}++ while buckets(\%h2) == $buckets; # force a split
- ok (Internals::HvREHASH(%h2),
-- scalar(@keys) . " colliding into the same bucket keys are triggering rehash");
-+ scalar(@keys) . " colliding into the same bucket keys are triggering rehash after split");
-+
-+# returns the number of buckets in a hash
-+sub buckets {
-+ my $hr = shift;
-+ my $keys_buckets= scalar(%$hr);
-+ if ($keys_buckets=~m!/([0-9]+)\z!) {
-+ return 0+$1;
-+ } else {
-+ return 8;
-+ }
-+}
-
- sub get_keys {
- my $hr = shift;
-
- # the minimum of bits required to mount the attack on a hash
- my $min_bits = log(THRESHOLD)/log(2);
--
- # if the hash has already been populated with a significant amount
- # of entries the number of mask bits can be higher
- my $keys = scalar keys %$hr;
---
-1.8.1.3
-
+++ /dev/null
-cut the crap of inventing paths, or adding search paths that we don't use
-
---- Configure
-+++ Configure
-@@ -105,28 +105,6 @@
- fi
- fi
-
--: Proper PATH setting
--paths='/bin /usr/bin /usr/local/bin /usr/ucb /usr/local /usr/lbin'
--paths="$paths /opt/bin /opt/local/bin /opt/local /opt/lbin"
--paths="$paths /usr/5bin /etc /usr/gnu/bin /usr/new /usr/new/bin /usr/nbin"
--paths="$paths /opt/gnu/bin /opt/new /opt/new/bin /opt/nbin"
--paths="$paths /sys5.3/bin /sys5.3/usr/bin /bsd4.3/bin /bsd4.3/usr/ucb"
--paths="$paths /bsd4.3/usr/bin /usr/bsd /bsd43/bin /opt/ansic/bin /usr/ccs/bin"
--paths="$paths /etc /usr/lib /usr/ucblib /lib /usr/ccs/lib"
--paths="$paths /sbin /usr/sbin /usr/libexec"
--paths="$paths /system/gnu_library/bin"
--
--for p in $paths
--do
-- case "$p_$PATH$p_" in
-- *$p_$p$p_*) ;;
-- *) test -d $p && PATH=$PATH$p_$p ;;
-- esac
--done
--
--PATH=.$p_$PATH
--export PATH
--
- : shall we be using ksh?
- inksh=''
- needksh=''
-@@ -8287,66 +8265,6 @@
- ;;
- esac
-
--# How will the perl executable find the installed shared $libperl?
--# Add $xxx to ccdlflags.
--# If we can't figure out a command-line option, use $shrpenv to
--# set env LD_RUN_PATH. The main perl makefile uses this.
--shrpdir=$archlibexp/CORE
--xxx=''
--tmp_shrpenv=''
--if "$useshrplib"; then
-- case "$osname" in
-- aix)
-- # We'll set it in Makefile.SH...
-- ;;
-- solaris)
-- xxx="-R $shrpdir"
-- ;;
-- freebsd|mirbsd|netbsd|openbsd|interix|dragonfly)
-- xxx="-Wl,-R$shrpdir"
-- ;;
-- bsdos|linux|irix*|dec_osf|gnu*)
-- xxx="-Wl,-rpath,$shrpdir"
-- ;;
-- next)
-- # next doesn't like the default...
-- ;;
-- beos)
-- # beos doesn't like the default, either.
-- ;;
-- haiku)
-- # Haiku doesn't like the default, either.
-- ;;
-- hpux*)
-- # hpux doesn't like the default, either.
-- tmp_shrpenv="env LDOPTS=\"+s +b${shrpdir}\""
-- ;;
-- cygwin)
-- # cygwin needs only ldlibpth
-- ;;
-- *)
-- tmp_shrpenv="env LD_RUN_PATH=$shrpdir"
-- ;;
-- esac
-- case "$xxx" in
-- '') ;;
-- *)
-- # Only add $xxx if it isn't already in ccdlflags.
-- case " $ccdlflags " in
-- *" $xxx "*) ;;
-- *) ccdlflags="$ccdlflags $xxx"
-- cat <<EOM >&4
--
--Adding $xxx to the flags
--passed to $ld so that the perl executable will find the
--installed shared $libperl.
--
--EOM
-- ;;
-- esac
-- ;;
-- esac
--fi
- # Fix ccdlflags in AIX for building external extensions.
- # (For building Perl itself bare -bE:perl.exp is needed,
- # Makefile.SH takes care of this.)
+++ /dev/null
-Bug #105054.
-
-We do not want the build root in the linked perl module's RUNPATH, so strip
-paths containing PORTAGE_TMPDIR if its set.
-
---- perl-5.8.7/lib/ExtUtils/MM_Unix.pm 2005-09-10 14:06:59.000000000 +0200
-+++ perl-5.8.7.az/lib/ExtUtils/MM_Unix.pm 2005-09-10 15:25:52.000000000 +0200
-@@ -1915,6 +1915,13 @@
- # LD_RUN_PATH now computed by ExtUtils::Liblist
- ($self->{EXTRALIBS}, $self->{BSLOADLIBS},
- $self->{LDLOADLIBS}, $self->{LD_RUN_PATH}) = @libs;
-+ # We do not want the build root in RPATH
-+ if (exists $ENV{PORTAGE_TMPDIR}) {
-+ # If we have PORTAGE_TMPDIR set, strip that, as just testing for
-+ # /usr and /opt might not be sufficient
-+ $self->{LD_RUN_PATH} = join ':', grep !/^\Q$ENV{PORTAGE_TMPDIR}/,
-+ split /:/, $self->{LD_RUN_PATH};
-+ }
- last;
- }
- }
+++ /dev/null
-SECURITY [CAN-2005-0448]:
-
-Rewrite File::Path::rmtree to avoid race condition which allows an
-attacker with write permission on directories in the tree being
-removed to make files setuid or to remove arbitrary files (see
-http://bugs.debian.org/286905 and http://bugs.debian.org/286922).
-
-Revised for 5.8.8-7etch6 to avoid failure when rmtree removes the
-current directory.
-
-diff --git a/lib/File/Path.pm b/lib/File/Path.pm
-index 2e41ff3..fd32b96 100644
---- a/lib/File/Path.pm
-+++ b/lib/File/Path.pm
-@@ -72,33 +72,17 @@ or C<unlink> to remove it, or that it's skipping it.
-
- =item *
-
--a boolean value, which if TRUE will cause C<rmtree> to
--skip any files to which you do not have delete access
--(if running under VMS) or write access (if running
--under another OS). This will change in the future when
--a criterion for 'delete permission' under OSs other
--than VMS is settled. (defaults to FALSE)
-+a boolean value, which if FALSE (the default for non-root users) will
-+cause C<rmtree> to adjust the mode of directories (if required) prior
-+to attempting to remove the contents. Note that on interruption or
-+failure of C<rmtree>, directories may be left with more permissive
-+modes for the owner.
-
- =back
-
- It returns the number of files successfully deleted. Symlinks are
- simply deleted and not followed.
-
--B<NOTE:> There are race conditions internal to the implementation of
--C<rmtree> making it unsafe to use on directory trees which may be
--altered or moved while C<rmtree> is running, and in particular on any
--directory trees with any path components or subdirectories potentially
--writable by untrusted users.
--
--Additionally, if the third parameter is not TRUE and C<rmtree> is
--interrupted, it may leave files and directories with permissions altered
--to allow deletion (and older versions of this module would even set
--files and directories to world-read/writable!)
--
--Note also that the occurrence of errors in C<rmtree> can be determined I<only>
--by trapping diagnostic messages using C<$SIG{__WARN__}>; it is not apparent
--from the return value.
--
- =head1 DIAGNOSTICS
-
- =over 4
-@@ -172,111 +156,127 @@ sub mkpath {
- @created;
- }
-
--sub rmtree {
-- my($roots, $verbose, $safe) = @_;
-- my(@files);
-- my($count) = 0;
-- $verbose ||= 0;
-- $safe ||= 0;
-+sub _rmtree;
-+sub _rmtree
-+{
-+ my ($path, $prefix, $up, $up_dev, $up_ino, $verbose, $safe) = @_;
-+ my $up_name = $up eq '..' ? 'parent' : 'initial';
-+
-+ my ($dev, $ino) = lstat $path or return 0;
-+ unless (-d _)
-+ {
-+ print "unlink $prefix$path\n" if $verbose;
-+ unless (unlink $path)
-+ {
-+ carp "Can't remove file $prefix$path ($!)";
-+ return 0;
-+ }
-
-- if ( defined($roots) && length($roots) ) {
-- $roots = [$roots] unless ref $roots;
-+ return 1;
- }
-- else {
-- carp "No root path(s) specified\n";
-- return 0;
-+
-+ unless (chdir $path)
-+ {
-+ carp "Can't chdir to $prefix$path ($!)";
-+ return 0;
- }
-
-- my($root);
-- foreach $root (@{$roots}) {
-- if ($Is_MacOS) {
-- $root = ":$root" if $root !~ /:/;
-- $root =~ s#([^:])\z#$1:#;
-- } else {
-- $root =~ s#/\z##;
-- }
-- (undef, undef, my $rp) = lstat $root or next;
-- $rp &= 07777; # don't forget setuid, setgid, sticky bits
-- if ( -d _ ) {
-- # notabene: 0700 is for making readable in the first place,
-- # it's also intended to change it to writable in case we have
-- # to recurse in which case we are better than rm -rf for
-- # subtrees with strange permissions
-- chmod($rp | 0700, ($Is_VMS ? VMS::Filespec::fileify($root) : $root))
-- or carp "Can't make directory $root read+writeable: $!"
-- unless $safe;
--
-- if (opendir my $d, $root) {
-- no strict 'refs';
-- if (!defined ${"\cTAINT"} or ${"\cTAINT"}) {
-- # Blindly untaint dir names
-- @files = map { /^(.*)$/s ; $1 } readdir $d;
-- } else {
-- @files = readdir $d;
-- }
-- closedir $d;
-- }
-- else {
-- carp "Can't read $root: $!";
-- @files = ();
-- }
-+ # avoid a race condition where a directory may be replaced by a
-+ # symlink between the lstat and the chdir
-+ my ($new_dev, $new_ino, $perm) = stat '.';
-+ unless ("$new_dev:$new_ino" eq "$dev:$ino")
-+ {
-+ croak "Directory $prefix$path changed before chdir, aborting";
-+ }
-
-- # Deleting large numbers of files from VMS Files-11 filesystems
-- # is faster if done in reverse ASCIIbetical order
-- @files = reverse @files if $Is_VMS;
-- ($root = VMS::Filespec::unixify($root)) =~ s#\.dir\z## if $Is_VMS;
-- if ($Is_MacOS) {
-- @files = map("$root$_", @files);
-- } else {
-- @files = map("$root/$_", grep $_!~/^\.{1,2}\z/s,@files);
-- }
-- $count += rmtree(\@files,$verbose,$safe);
-- if ($safe &&
-- ($Is_VMS ? !&VMS::Filespec::candelete($root) : !-w $root)) {
-- print "skipped $root\n" if $verbose;
-- next;
-- }
-- chmod $rp | 0700, $root
-- or carp "Can't make directory $root writeable: $!"
-- if $force_writeable;
-- print "rmdir $root\n" if $verbose;
-- if (rmdir $root) {
-- ++$count;
-- }
-- else {
-- carp "Can't remove directory $root: $!";
-- chmod($rp, ($Is_VMS ? VMS::Filespec::fileify($root) : $root))
-- or carp("and can't restore permissions to "
-- . sprintf("0%o",$rp) . "\n");
-- }
-- }
-- else {
-- if ($safe &&
-- ($Is_VMS ? !&VMS::Filespec::candelete($root)
-- : !(-l $root || -w $root)))
-- {
-- print "skipped $root\n" if $verbose;
-- next;
-- }
-- chmod $rp | 0600, $root
-- or carp "Can't make file $root writeable: $!"
-- if $force_writeable;
-- print "unlink $root\n" if $verbose;
-- # delete all versions under VMS
-- for (;;) {
-- unless (unlink $root) {
-- carp "Can't unlink file $root: $!";
-- if ($force_writeable) {
-- chmod $rp, $root
-- or carp("and can't restore permissions to "
-- . sprintf("0%o",$rp) . "\n");
-- }
-- last;
-- }
-- ++$count;
-- last unless $Is_VMS && lstat $root;
-- }
-+ $perm &= 07777;
-+ my $nperm = $perm | 0700;
-+ unless ($safe or $nperm == $perm or chmod $nperm, '.')
-+ {
-+ carp "Can't make directory $prefix$path read+writeable ($!)";
-+ $nperm = $perm;
-+ }
-+
-+ my $count = 0;
-+ if (opendir my $dir, '.')
-+ {
-+ my $entry;
-+ while (defined ($entry = readdir $dir))
-+ {
-+ next if $entry =~ /^\.\.?$/;
-+ $entry =~ /^(.*)$/s; $entry = $1; # untaint
-+ $count += _rmtree $entry, "$prefix$path/", '..', $dev, $ino,
-+ $verbose, $safe;
- }
-+
-+ closedir $dir;
-+ }
-+
-+ # restore directory permissions if required (in case the rmdir
-+ # below fails) now, while we're still in the directory and may do
-+ # so without a race via '.'
-+ unless ($nperm == $perm or chmod $perm, '.')
-+ {
-+ carp "Can't restore permissions on directory $prefix$path ($!)";
-+ }
-+
-+ # don't leave the caller in an unexpected directory
-+ unless (chdir $up)
-+ {
-+ croak "Can't return to $up_name directory from $prefix$path ($!)";
-+ }
-+
-+ # ensure that a chdir .. didn't take us somewhere other than
-+ # where we expected (see CVE-2002-0435)
-+ unless (($new_dev, $new_ino) = stat '.'
-+ and "$new_dev:$new_ino" eq "$up_dev:$up_ino")
-+ {
-+ croak "\u$up_name directory changed since entering $prefix$path";
-+ }
-+
-+ print "rmdir $prefix$path\n" if $verbose;
-+ if (rmdir $path)
-+ {
-+ $count++;
-+ }
-+ else
-+ {
-+ carp "Can't remove directory $prefix$path ($!)";
-+ }
-+
-+ return $count;
-+}
-+
-+sub rmtree
-+{
-+ my ($p, $verbose, $safe) = @_;
-+ $p = [] unless defined $p and length $p;
-+ $p = [ $p ] unless ref $p;
-+ my @paths = grep defined && length, @$p;
-+
-+ # default to "unsafe" for non-root (will chmod dirs)
-+ $safe = $> ? 0 : 1 unless defined $safe;
-+
-+ unless (@paths)
-+ {
-+ carp "No root path(s) specified";
-+ return;
-+ }
-+
-+ opendir my $oldpwd, '.' or do {
-+ carp "Can't fetch initial working directory";
-+ return;
-+ };
-+
-+ my ($dev, $ino) = stat '.' or do {
-+ carp "Can't stat initial working directory";
-+ return;
-+ };
-+
-+ my $count = 0;
-+ for my $path (@paths)
-+ {
-+ $count += _rmtree $path, '', $oldpwd, $dev, $ino, $verbose, $safe;
- }
-
- $count;
+++ /dev/null
-Fix a double free / segfault with utf8 regexps
-Debian #454792
-[rt.cpan.org #48156]
-[rt.cpan.org #40641]
-upstream change 29204
-
-UTF8_ALLOW_DEFAULT definition in utf8.h picked from upstream change 27688
-
-diff --git a/embed.fnc b/embed.fnc
-index edfbc0e..26524c7 100644
---- a/embed.fnc
-+++ b/embed.fnc
-@@ -1168,6 +1168,7 @@ Es |void |reguni |NN const struct RExC_state_t *state|UV uv|NN char *s|NN STRLE
- Es |regnode*|regclass |NN struct RExC_state_t *state
- ERs |I32 |regcurly |NN const char *
- Es |regnode*|reg_node |NN struct RExC_state_t *state|U8 op
-+Es |UV |reg_recode |const char value|NULLOK SV **encp
- Es |regnode*|regpiece |NN struct RExC_state_t *state|NN I32 *flagp
- Es |void |reginsert |NN struct RExC_state_t *state|U8 op|NN regnode *opnd
- Es |void |regoptail |NN struct RExC_state_t *state|NN regnode *p|NN regnode *val
-diff --git a/embed.h b/embed.h
-index 2b38fd5..372b04f 100644
---- a/embed.h
-+++ b/embed.h
-@@ -1234,6 +1234,7 @@
- #define regclass S_regclass
- #define regcurly S_regcurly
- #define reg_node S_reg_node
-+#define reg_recode S_reg_recode
- #define regpiece S_regpiece
- #define reginsert S_reginsert
- #define regoptail S_regoptail
-@@ -3277,6 +3278,7 @@
- #define regclass(a) S_regclass(aTHX_ a)
- #define regcurly(a) S_regcurly(aTHX_ a)
- #define reg_node(a,b) S_reg_node(aTHX_ a,b)
-+#define reg_recode(a,b) S_reg_recode(aTHX_ a,b)
- #define regpiece(a,b) S_regpiece(aTHX_ a,b)
- #define reginsert(a,b,c) S_reginsert(aTHX_ a,b,c)
- #define regoptail(a,b,c) S_regoptail(aTHX_ a,b,c)
-diff --git a/pod/perldiag.pod b/pod/perldiag.pod
-index 9b3134c..7d95216 100644
---- a/pod/perldiag.pod
-+++ b/pod/perldiag.pod
-@@ -1900,6 +1900,15 @@ recognized by Perl or by a user-supplied handler. See L<attributes>.
- (W printf) Perl does not understand the given format conversion. See
- L<perlfunc/sprintf>.
-
-+=item Invalid escape in the specified encoding in regex; marked by <-- HERE in m/%s/
-+
-+(W regexp) The numeric escape (for example C<\xHH>) of value < 256
-+didn't correspond to a single character through the conversion
-+from the encoding specified by the encoding pragma.
-+The escape was replaced with REPLACEMENT CHARACTER (U+FFFD) instead.
-+The <-- HERE shows in the regular expression about where the
-+escape was discovered.
-+
- =item Invalid [] range "%s" in regex; marked by <-- HERE in m/%s/
-
- (F) The range specified in a character class had a minimum character
-diff --git a/proto.h b/proto.h
-index 6d185dd..ef6c0cf 100644
---- a/proto.h
-+++ b/proto.h
-@@ -1748,6 +1748,7 @@ STATIC I32 S_regcurly(pTHX_ const char *)
- __attribute__warn_unused_result__;
-
- STATIC regnode* S_reg_node(pTHX_ struct RExC_state_t *state, U8 op);
-+STATIC UV S_reg_recode(pTHX_ const char value, SV **encp);
- STATIC regnode* S_regpiece(pTHX_ struct RExC_state_t *state, I32 *flagp);
- STATIC void S_reginsert(pTHX_ struct RExC_state_t *state, U8 op, regnode *opnd);
- STATIC void S_regoptail(pTHX_ struct RExC_state_t *state, regnode *p, regnode *val);
-diff --git a/regcomp.c b/regcomp.c
-index 928cf39..98d48dd 100644
---- a/regcomp.c
-+++ b/regcomp.c
-@@ -2791,6 +2791,39 @@ S_regpiece(pTHX_ RExC_state_t *pRExC_state, I32 *flagp)
- }
-
- /*
-+ * reg_recode
-+ *
-+ * It returns the code point in utf8 for the value in *encp.
-+ * value: a code value in the source encoding
-+ * encp: a pointer to an Encode object
-+ *
-+ * If the result from Encode is not a single character,
-+ * it returns U+FFFD (Replacement character) and sets *encp to NULL.
-+ */
-+STATIC UV
-+S_reg_recode(pTHX_ const char value, SV **encp)
-+{
-+ STRLEN numlen = 1;
-+ SV * const sv = sv_2mortal(newSVpvn(&value, numlen));
-+ const char * const s = encp && *encp ? sv_recode_to_utf8(sv, *encp)
-+ : SvPVX(sv);
-+ const STRLEN newlen = SvCUR(sv);
-+ UV uv = UNICODE_REPLACEMENT;
-+
-+ if (newlen)
-+ uv = SvUTF8(sv)
-+ ? utf8n_to_uvchr((U8*)s, newlen, &numlen, UTF8_ALLOW_DEFAULT)
-+ : *(U8*)s;
-+
-+ if (!newlen || numlen != newlen) {
-+ uv = UNICODE_REPLACEMENT;
-+ if (encp)
-+ *encp = NULL;
-+ }
-+ return uv;
-+}
-+
-+/*
- - regatom - the lowest level
- *
- * Optimization: gobbles an entire sequence of ordinary characters so that
-@@ -3182,6 +3215,8 @@ tryagain:
- ender = grok_hex(p, &numlen, &flags, NULL);
- p += numlen;
- }
-+ if (PL_encoding && ender < 0x100)
-+ goto recode_encoding;
- break;
- case 'c':
- p++;
-@@ -3201,6 +3236,17 @@ tryagain:
- --p;
- goto loopdone;
- }
-+ if (PL_encoding && ender < 0x100)
-+ goto recode_encoding;
-+ break;
-+ recode_encoding:
-+ {
-+ SV* enc = PL_encoding;
-+ ender = reg_recode((const char)(U8)ender, &enc);
-+ if (!enc && SIZE_ONLY && ckWARN(WARN_REGEXP))
-+ vWARN(p, "Invalid escape in the specified encoding");
-+ RExC_utf8 = 1;
-+ }
- break;
- case '\0':
- if (p >= RExC_end)
-@@ -3331,32 +3377,6 @@ tryagain:
- break;
- }
-
-- /* If the encoding pragma is in effect recode the text of
-- * any EXACT-kind nodes. */
-- if (PL_encoding && PL_regkind[(U8)OP(ret)] == EXACT) {
-- STRLEN oldlen = STR_LEN(ret);
-- SV *sv = sv_2mortal(newSVpvn(STRING(ret), oldlen));
--
-- if (RExC_utf8)
-- SvUTF8_on(sv);
-- if (sv_utf8_downgrade(sv, TRUE)) {
-- const char * const s = sv_recode_to_utf8(sv, PL_encoding);
-- const STRLEN newlen = SvCUR(sv);
--
-- if (SvUTF8(sv))
-- RExC_utf8 = 1;
-- if (!SIZE_ONLY) {
-- DEBUG_r(PerlIO_printf(Perl_debug_log, "recode %*s to %*s\n",
-- (int)oldlen, STRING(ret),
-- (int)newlen, s));
-- Copy(s, STRING(ret), newlen, char);
-- STR_LEN(ret) += newlen - oldlen;
-- RExC_emit += STR_SZ(newlen) - STR_SZ(oldlen);
-- } else
-- RExC_size += STR_SZ(newlen) - STR_SZ(oldlen);
-- }
-- }
--
- return(ret);
- }
-
-@@ -3734,6 +3754,8 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state)
- value = grok_hex(RExC_parse, &numlen, &flags, NULL);
- RExC_parse += numlen;
- }
-+ if (PL_encoding && value < 0x100)
-+ goto recode_encoding;
- break;
- case 'c':
- value = UCHARAT(RExC_parse++);
-@@ -3741,13 +3763,24 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state)
- break;
- case '0': case '1': case '2': case '3': case '4':
- case '5': case '6': case '7': case '8': case '9':
-- {
-- I32 flags = 0;
-- numlen = 3;
-- value = grok_oct(--RExC_parse, &numlen, &flags, NULL);
-- RExC_parse += numlen;
-- break;
-- }
-+ {
-+ I32 flags = 0;
-+ numlen = 3;
-+ value = grok_oct(--RExC_parse, &numlen, &flags, NULL);
-+ RExC_parse += numlen;
-+ if (PL_encoding && value < 0x100)
-+ goto recode_encoding;
-+ break;
-+ }
-+ recode_encoding:
-+ {
-+ SV* enc = PL_encoding;
-+ value = reg_recode((const char)(U8)value, &enc);
-+ if (!enc && SIZE_ONLY && ckWARN(WARN_REGEXP))
-+ vWARN(RExC_parse,
-+ "Invalid escape in the specified encoding");
-+ break;
-+ }
- default:
- if (!SIZE_ONLY && isALPHA(value) && ckWARN(WARN_REGEXP))
- vWARN2(RExC_parse,
-diff --git a/t/uni/tr_utf8.t b/t/uni/tr_utf8.t
-index 606a84a..354156a 100755
---- a/t/uni/tr_utf8.t
-+++ b/t/uni/tr_utf8.t
-@@ -31,7 +31,7 @@ BEGIN {
- }
-
- use strict;
--use Test::More tests => 7;
-+use Test::More tests => 8;
-
- use encoding 'utf8';
-
-@@ -67,4 +67,12 @@ is($str, $hiragana, "s/// # hiragana -> katakana");
- $line =~ tr/bcdeghijklmnprstvwxyz$02578/בצדעגהיײקלמנפּרסטװשכיזשױתײחא/;
- is($line, "aבצדעfגהיײקלמנoפqּרסuטװשכיזש1ױ34ת6ײח9", "[perl #16843]");
- }
-+
-+{
-+ # [perl #40641]
-+ my $str = qq/Gebääääääääääääääääääääude/;
-+ my $reg = qr/Gebääääääääääääääääääääude/;
-+ ok($str =~ /$reg/, "[perl #40641]");
-+}
-+
- __END__
-diff --git a/utf8.h b/utf8.h
-index 6d63897..3800866 100644
---- a/utf8.h
-+++ b/utf8.h
-@@ -198,6 +198,8 @@ encoded character.
- UTF8_ALLOW_SURROGATE|UTF8_ALLOW_FFFF)
- #define UTF8_ALLOW_ANY 0x00FF
- #define UTF8_CHECK_ONLY 0x0200
-+#define UTF8_ALLOW_DEFAULT (ckWARN(WARN_UTF8) ? 0 : \
-+ UTF8_ALLOW_ANYUV)
-
- #define UNICODE_SURROGATE_FIRST 0xD800
- #define UNICODE_SURROGATE_LAST 0xDFFF
+++ /dev/null
-diff -Naurp perl-5.8.8-orig/lib/ExtUtils/Liblist.pm perl-5.8.8/lib/ExtUtils/Liblist.pm
---- perl-5.8.8-orig/lib/ExtUtils/Liblist.pm 2003-04-07 14:58:17.000000000 -0400
-+++ perl-5.8.8/lib/ExtUtils/Liblist.pm 2006-02-07 09:57:04.000000000 -0500
-@@ -87,6 +87,11 @@ libraries. LD_RUN_PATH is a colon separ
- in LDLOADLIBS. It is passed as an environment variable to the process
- that links the shared library.
-
-+The Red Hat extension: This generation of LD_RUN_PATH is disabled by default.
-+To use the generated LD_RUN_PATH for all links, set the USE_MM_LD_RUN_PATH
-+MakeMaker object attribute / argument, (or set the $USE_MM_LD_RUN_PATH
-+environment variable).
-+
- =head2 BSLOADLIBS
-
- List of those libraries that are needed but can be linked in
-diff -Naurp perl-5.8.8-orig/lib/ExtUtils/MM_Unix.pm perl-5.8.8/lib/ExtUtils/MM_Unix.pm
---- perl-5.8.8-orig/lib/ExtUtils/MM_Unix.pm 2005-05-21 05:42:56.000000000 -0400
-+++ perl-5.8.8/lib/ExtUtils/MM_Unix.pm 2006-02-07 09:56:08.000000000 -0500
-@@ -941,7 +941,7 @@ $(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $
- }
-
- my $ld_run_path_shell = "";
-- if ($self->{LD_RUN_PATH} ne "") {
-+ if (($self->{LD_RUN_PATH} ne "") && ($self->{USE_MM_LD_RUN_PATH})) {
- $ld_run_path_shell = 'LD_RUN_PATH="$(LD_RUN_PATH)" ';
- }
-
-diff -Naurp perl-5.8.8-orig/lib/ExtUtils/MakeMaker.pm perl-5.8.8/lib/ExtUtils/MakeMaker.pm
---- perl-5.8.8-orig/lib/ExtUtils/MakeMaker.pm 2005-10-21 10:11:04.000000000 -0400
-+++ perl-5.8.8/lib/ExtUtils/MakeMaker.pm 2006-02-07 09:55:03.000000000 -0500
-@@ -233,7 +233,7 @@ sub full_setup {
- PERL_SRC PERM_RW PERM_RWX
- PL_FILES PM PM_FILTER PMLIBDIRS POLLUTE PPM_INSTALL_EXEC
- PPM_INSTALL_SCRIPT PREREQ_FATAL PREREQ_PM PREREQ_PRINT PRINT_PREREQ
-- SIGN SKIP TYPEMAPS VERSION VERSION_FROM XS XSOPT XSPROTOARG
-+ SKIP TYPEMAPS USE_MM_LD_RUN_PATH VERSION VERSION_FROM XS XSOPT XSPROTOARG
- XS_VERSION clean depend dist dynamic_lib linkext macro realclean
- tool_autosplit
-
-@@ -371,6 +371,26 @@ sub new {
- exit 0;
- }
-
-+ # USE_MM_LD_RUN_PATH - borrowed from RedHat to disable automatic RPATH generation
-+ if ( ( ! $self->{USE_MM_LD_RUN_PATH} )
-+ &&( ("@ARGV" =~ /\bUSE_MM_LD_RUN_PATH(=([01]))?\b/)
-+ ||( exists( $ENV{USE_MM_LD_RUN_PATH} )
-+ &&( $ENV{USE_MM_LD_RUN_PATH} =~ /([01])?$/ )
-+ )
-+ )
-+ )
-+ {
-+ my $v = $1;
-+ if( $v )
-+ {
-+ $v = ($v=~/=([01])$/)[0];
-+ }else
-+ {
-+ $v = 1;
-+ };
-+ $self->{USE_MM_LD_RUN_PATH}=$v;
-+ };
-+
- print STDOUT "MakeMaker (v$VERSION)\n" if $Verbose;
- if (-f "MANIFEST" && ! -f "Makefile"){
- check_manifest();
-@@ -2057,6 +2077,44 @@ precedence. A typemap in the current di
- precedence, even if it isn't listed in TYPEMAPS. The default system
- typemap has lowest precedence.
-
-+=item USE_MM_LD_RUN_PATH
-+
-+boolean
-+This feature is borrowed from Red Hat to deal with RPATH issues.
-+Please see bug 81745 - http://bugs.gentoo.org/81745 - for more
-+information.
-+
-+The Red Hat perl MakeMaker distribution differs from the standard
-+upstream release in that it disables use of the MakeMaker generated
-+LD_RUN_PATH by default, UNLESS this attribute is specified , or the
-+USE_MM_LD_RUN_PATH environment variable is set during the MakeMaker run.
-+
-+The upstream MakeMaker will set the ld(1) environment variable LD_RUN_PATH
-+to the concatenation of every -L ld(1) option directory in which a -l ld(1)
-+option library is found, which is used as the ld(1) -rpath option if none
-+is specified. This means that, if your application builds shared libraries
-+and your MakeMaker application links to them, that the absolute paths of the
-+libraries in the build tree will be inserted into the RPATH header of all
-+MakeMaker generated binaries, and that such binaries will be unable to link
-+to these libraries if they do not still reside in the build tree directories
-+(unlikely) or in the system library directories (/lib or /usr/lib), regardless
-+of any LD_LIBRARY_PATH setting. So if you specified -L../mylib -lmylib , and
-+your 'libmylib.so' gets installed into /some_directory_other_than_usr_lib,
-+your MakeMaker application will be unable to link to it, even if LD_LIBRARY_PATH
-+is set to include /some_directory_other_than_usr_lib, because RPATH overrides
-+LD_LIBRARY_PATH.
-+
-+So for Red Hat MakeMaker builds LD_RUN_PATH is NOT generated by default for
-+every link. You can still use explicit -rpath ld options or the LD_RUN_PATH
-+environment variable during the build to generate an RPATH for the binaries.
-+
-+You can set the USE_MM_LD_RUN_PATH attribute to 1 on the MakeMaker command
-+line or in the WriteMakefile arguments to enable generation of LD_RUN_PATH
-+for every link command.
-+
-+USE_MM_LD_RUN_PATH will default to 1 (LD_RUN_PATH will be used) IF the
-+$USE_MM_LD_RUN_PATH environment variable is set during a MakeMaker run.
-+
- =item VENDORPREFIX
-
- Like PERLPREFIX, but only for the vendor install locations.
+++ /dev/null
---- perl-5.8.8/ext/IPC/SysV/SysV.xs.no_asm_page_h 2001-06-30 14:46:07.000000000 -0400
-+++ perl-5.8.8/ext/IPC/SysV/SysV.xs 2006-06-02 17:37:22.000000000 -0400
-@@ -3,9 +3,6 @@
- #include "XSUB.h"
-
- #include <sys/types.h>
--#ifdef __linux__
--# include <asm/page.h>
--#endif
- #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
- #ifndef HAS_SEM
- # include <sys/ipc.h>
+++ /dev/null
---- Configure.orig 2009-11-04 11:09:08.934965499 +0100
-+++ Configure 2009-11-04 11:13:19.055305854 +0100
-@@ -7617,7 +7617,7 @@
- cat <<EOM
- You appear to have ELF support. I'll use $cc to build dynamic libraries.
- EOM
-- dflt="$cc"
-+ dflt="$cc $optimize"
- else
- echo "I'll use ld to build dynamic libraries."
- dflt='ld'
---- Makefile.SH.orig 2009-11-04 15:34:22.643322823 +0100
-+++ Makefile.SH 2009-11-04 15:34:30.110147884 +0100
-@@ -201,7 +201,7 @@
- LD = $ld
-
- LDFLAGS = $ldflags
--CLDFLAGS = $ldflags
-+CLDFLAGS = \$(OPTIMIZE) $ldflags
-
- mallocsrc = $mallocsrc
- mallocobj = $mallocobj
---- x2p/Makefile.SH.orig 2009-11-04 15:54:14.146759212 +0100
-+++ x2p/Makefile.SH 2009-11-04 15:54:19.963253154 +0100
-@@ -107,7 +107,7 @@
- $(REALPERL) -I../lib ../utils/perlcc -I .. -L .. $(plextract) -v -log ../compilelog;
-
- a2p$(EXE_EXT): $(obj) a2p$(OBJ_EXT)
-- $(CC) -o a2p $(LDFLAGS) $(obj) a2p$(OBJ_EXT) $(libs)
-+ $(CC) -o a2p $(OPTIMIZE) $(LDFLAGS) $(obj) a2p$(OBJ_EXT) $(libs)
-
- # I now supply a2p.c with the kits, so the following section is
- # used only if you force byacc to run by saying
+++ /dev/null
---- perl.h.orig 2006-03-29 08:53:46.000000000 -0500
-+++ perl.h 2006-03-29 08:54:19.000000000 -0500
-@@ -159,7 +159,7 @@ struct perl_thread;
- #endif
-
- #ifndef PERL_UNUSED_DECL
--# ifdef HASATTRIBUTE_UNUSED
-+# if defined(HASATTRIBUTE_UNUSED) && !defined(__cplusplus)
- # define PERL_UNUSED_DECL __attribute__unused__
- # else
- # define PERL_UNUSED_DECL
---- XSUB.h.orig 2006-03-29 08:54:24.000000000 -0500
-+++ XSUB.h 2006-03-29 08:54:48.000000000 -0500
-@@ -91,7 +91,7 @@ handled automatically by C<xsubpp>.
- #if defined(__CYGWIN__) && defined(USE_DYNAMIC_LOADING)
- # define XS(name) __declspec(dllexport) void name(pTHX_ CV* cv)
- #else
--# ifdef HASATTRIBUTE_UNUSED
-+# if defined(HASATTRIBUTE_UNUSED) && !defined(__cplusplus)
- # define XS(name) void name(pTHX_ CV* cv __attribute__unused__)
- # else
- # define XS(name) void name(pTHX_ CV* cv)
+++ /dev/null
-Use $CC to link (and check for broken compilers), such that we don't get
-linked modules of a different bitness.
-http://bugs.gentoo.org/show_bug.cgi?id=297751
-
---- hints/darwin.sh
-+++ hints/darwin.sh
-@@ -128,13 +128,13 @@
- ccflags="${ccflags} ${cppflags}"
-
- # Known optimizer problems.
--case "`cc -v 2>&1`" in
-+case "`${cc:-gcc} -v 2>&1`" in
- *"3.1 20020105"*) toke_cflags='optimize=""' ;;
- esac
-
- # Shared library extension is .dylib.
- # Bundle extension is .bundle.
--ld='cc';
-+ld="${cc:-gcc}";
- so='dylib';
- dlext='bundle';
- usedl='define';
+++ /dev/null
-Index: perl-5.8.8/Configure
-===================================================================
---- perl-5.8.8.orig/Configure 2006-01-08 14:51:03 +0000
-+++ perl-5.8.8/Configure 2006-02-14 13:41:41 +0000
-@@ -3130,6 +3130,8 @@
- dgux) osname=dgux
- osvers="$3"
- ;;
-+ dragonfly) osname=dragonfly
-+ osvers="$3" ;;
- dynixptx*) osname=dynixptx
- osvers=`echo "$4"|sed 's/^v//'`
- ;;
-@@ -7889,7 +7891,7 @@
- solaris)
- xxx="-R $shrpdir"
- ;;
-- freebsd|netbsd|openbsd|interix)
-+ freebsd|netbsd|openbsd|dragonfly|interix)
- xxx="-Wl,-R$shrpdir"
- ;;
- bsdos|linux|irix*|dec_osf|gnu*)
-Index: perl-5.8.8/Makefile.SH
-===================================================================
---- perl-5.8.8.orig/Makefile.SH 2006-01-24 12:49:44 +0000
-+++ perl-5.8.8/Makefile.SH 2006-02-14 13:46:57 +0000
-@@ -73,7 +73,7 @@
- sunos*)
- linklibperl="-lperl"
- ;;
-- netbsd*|freebsd[234]*|openbsd*)
-+ netbsd*|freebsd[234]*|openbsd*|dragonfly*)
- linklibperl="-L. -lperl"
- ;;
- interix*)
-@@ -990,6 +990,10 @@
- n_dummy $(nonxs_ext): miniperl$(EXE_EXT) preplibrary $(DYNALOADER) FORCE
- @$(LDLIBPTH) sh ext/util/make_ext nonxs $@ MAKE=$(MAKE) LIBPERL_A=$(LIBPERL)
-
-+.PHONY: printconfig
-+printconfig:
-+ @eval `$(LDLIBPTH) ./perl -Ilib -V:$(CONFIGVAR)`; echo $$$(CONFIGVAR)
-+
- .PHONY: clean _tidy _mopup _cleaner1 _cleaner2 \
- realclean _realcleaner clobber _clobber \
- distclean veryclean _verycleaner
-Index: perl-5.8.8/hints/dragonfly.sh
-===================================================================
---- perl-5.8.8.orig/hints/dragonfly.sh 1970-01-01 00:00:00 +0000
-+++ perl-5.8.8/hints/dragonfly.sh 2006-02-14 13:15:04 +0000
-@@ -0,0 +1,118 @@
-+# hints/dragonfly.sh
-+#
-+# This file is mostly copied from hints/freebsd.sh with the OS version
-+# information taken out and only the FreeBSD-4 information intact.
-+# Please check with Todd Willey <xtoddx@gmail.com> before making
-+# modifications to this file.
-+
-+case "$osvers" in
-+*) usevfork='true'
-+ case "$usemymalloc" in
-+ "") usemymalloc='n'
-+ ;;
-+ esac
-+ libswanted=`echo $libswanted | sed 's/ malloc / /'`
-+ ;;
-+esac
-+
-+# Dynamic Loading flags have not changed much, so they are separated
-+# out here to avoid duplicating them everywhere.
-+case "$osvers" in
-+*)
-+ objformat=`/usr/bin/objformat`
-+ if [ x$objformat = xelf ]; then
-+ libpth="/usr/lib /usr/local/lib"
-+ glibpth="/usr/lib /usr/local/lib"
-+ ldflags="-Wl,-E "
-+ lddlflags="-shared "
-+ else
-+ if [ -e /usr/lib/aout ]; then
-+ libpth="/usr/lib/aout /usr/local/lib /usr/lib"
-+ glibpth="/usr/lib/aout /usr/local/lib /usr/lib"
-+ fi
-+ lddlflags='-Bshareable'
-+ fi
-+ cccdlflags='-DPIC -fPIC'
-+ ;;
-+esac
-+
-+case "$osvers" in
-+*)
-+ ccflags="${ccflags} -DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H"
-+ if /usr/bin/file -L /usr/lib/libc.so | /usr/bin/grep -vq "not stripped" ; then
-+ usenm=false
-+ fi
-+ ;;
-+esac
-+
-+cat <<'EOM' >&4
-+
-+Some users have reported that Configure halts when testing for
-+the O_NONBLOCK symbol with a syntax error. This is apparently a
-+sh error. Rerunning Configure with ksh apparently fixes the
-+problem. Try
-+ ksh Configure [your options]
-+
-+EOM
-+
-+# From: Anton Berezin <tobez@plab.ku.dk>
-+# To: perl5-porters@perl.org
-+# Subject: [PATCH 5.005_54] Configure - hints/freebsd.sh signal handler type
-+# Date: 30 Nov 1998 19:46:24 +0100
-+# Message-ID: <864srhhvcv.fsf@lion.plab.ku.dk>
-+
-+signal_t='void'
-+d_voidsig='define'
-+
-+# This script UU/usethreads.cbu will get 'called-back' by Configure
-+# after it has prompted the user for whether to use threads.
-+cat > UU/usethreads.cbu <<'EOCBU'
-+case "$usethreads" in
-+$define|true|[yY]*)
-+ lc_r=`/sbin/ldconfig -r|grep ':-lc_r'|awk '{print $NF}'|sed -n '$p'`
-+ case "$osvers" in
-+ *)
-+ if [ ! -r "$lc_r" ]; then
-+ cat <<EOM >&4
-+POSIX threads should be supported by FreeBSD $osvers --
-+but your system is missing the shared libc_r.
-+(/sbin/ldconfig -r doesn't find any).
-+
-+Consider using the latest STABLE release.
-+EOM
-+ exit 1
-+ fi
-+ case "$osvers" in
-+ *) ldflags="-pthread $ldflags"
-+ ;;
-+ esac
-+ # Both in 4.x and 5.x gethostbyaddr_r exists but
-+ # it is "Temporary function, not threadsafe"...
-+ # Presumably earlier it didn't even exist.
-+ d_gethostbyaddr_r="undef"
-+ d_gethostbyaddr_r_proto="0"
-+ ;;
-+
-+ esac
-+
-+ set `echo X "$libswanted "| sed -e 's/ c / c_r /'`
-+ shift
-+ libswanted="$*"
-+ # Configure will probably pick the wrong libc to use for nm scan.
-+ # The safest quick-fix is just to not use nm at all...
-+ usenm=false
-+
-+ unset lc_r
-+
-+ # Even with the malloc mutexes the Perl malloc does not
-+ # seem to be threadsafe in FreeBSD?
-+ case "$usemymalloc" in
-+ '') usemymalloc=n ;;
-+ esac
-+esac
-+EOCBU
-+
-+# malloc wrap works
-+case "$usemallocwrap" in
-+'') usemallocwrap='define' ;;
-+esac
-
+++ /dev/null
-Index: perl-5.8.8/hints/freebsd.sh
-===================================================================
---- perl-5.8.8.orig/hints/freebsd.sh
-+++ perl-5.8.8/hints/freebsd.sh
-@@ -88,6 +88,8 @@ case "$osvers" in
- esac
- libswanted=`echo $libswanted | sed 's/ malloc / /'`
- libswanted=`echo $libswanted | sed 's/ bind / /'`
-+ libswanted=`echo $libswanted | sed 's/ dl / /'`
-+ libswanted=`echo $libswanted | sed 's/ c / /'`
- # iconv gone in Perl 5.8.1, but if someone compiles 5.8.0 or earlier.
- libswanted=`echo $libswanted | sed 's/ iconv / /'`
- d_setregid='define'
-@@ -102,6 +104,10 @@ case "$osvers" in
- ;;
- esac
- libswanted=`echo $libswanted | sed 's/ malloc / /'`
-+ libswanted=`echo $libswanted | sed 's/ bind / /'`
-+ libswanted=`echo $libswanted | sed 's/ dl / /'`
-+ libswanted=`echo $libswanted | sed 's/ iconv / /'`
-+ libswanted=`echo $libswanted | sed 's/ c / /'`
- ;;
- esac
-
-@@ -116,17 +122,17 @@ case "$osvers" in
-
- *)
- objformat=`/usr/bin/objformat`
-- if [ x$objformat = xelf ]; then
-- libpth="/usr/lib /usr/local/lib"
-- glibpth="/usr/lib /usr/local/lib"
-- ldflags="-Wl,-E "
-- lddlflags="-shared "
-- else
-+ if [ x$objformat = xaout ]; then
- if [ -e /usr/lib/aout ]; then
- libpth="/usr/lib/aout /usr/local/lib /usr/lib"
- glibpth="/usr/lib/aout /usr/local/lib /usr/lib"
- fi
- lddlflags='-Bshareable'
-+ else
-+ libpth="/usr/lib /usr/local/lib"
-+ glibpth="/usr/lib /usr/local/lib"
-+ ldflags="-Wl,-E"
-+ lddlflags="-shared "
- fi
- cccdlflags='-DPIC -fPIC'
- ;;
-@@ -137,7 +143,7 @@ case "$osvers" in
-
- *)
- ccflags="${ccflags} -DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H"
-- if /usr/bin/file -L /usr/lib/libc.so | /usr/bin/grep -vq "not stripped" ; then
-+ if /usr/bin/file -L /usr/lib/libc.so | grep -vq "not stripped" ; then
- usenm=false
- fi
- ;;
+++ /dev/null
-ExtUtils/Command.pm (among other things) expects to be able to destroy
-a strangely-permissioned testdir. This is a backport of the chdir/chmod
-work performed in File::Path released in Perl 5.10.0.
-
---- perl-5.8.7.orig/lib/File/Path.pm 2008-12-05 13:23:32.000000000 -0800
-+++ perl-5.8.7/lib/File/Path.pm 2008-12-05 13:33:13.000000000 -0800
-@@ -162,7 +162,7 @@
- {
- my ($path, $prefix, $up, $up_dev, $up_ino, $verbose, $safe) = @_;
-
-- my ($dev, $ino) = lstat $path or return 0;
-+ my ($dev, $ino, $perm) = lstat $path or return 0;
- unless (-d _)
- {
- print "unlink $prefix$path\n" if $verbose;
-@@ -175,15 +175,25 @@
- return 1;
- }
-
-- unless (chdir $path)
-- {
-+ if (!chdir($path)) {
-+ # see if we can escalate privileges to get in
-+ # (e.g. funny protection mask such as -w- instead of rwx)
-+ $perm &= 07777;
-+ my $nperm = $perm | 0700;
-+ if (!($safe or $nperm == $perm or chmod($nperm, $path))) {
-+ carp "cannot make $prefix$path read-write-exec";
-+ return 0;
-+ }
-+ elsif (!chdir($path)) {
- carp "Can't chdir to $prefix$path ($!)";
- return 0;
-+ }
- }
-
- # avoid a race condition where a directory may be replaced by a
- # symlink between the lstat and the chdir
-- my ($new_dev, $new_ino, $perm) = stat '.';
-+ my ($new_dev, $new_ino);
-+ ($new_dev, $new_ino, $perm) = stat '.';
- unless ("$new_dev:$new_ino" eq "$dev:$ino")
- {
- croak "Directory $prefix$path changed before chdir, aborting";
---- perl-5.8.8.orig/lib/ExtUtils/t/Command.t
-+++ perl-5.8.8/lib/ExtUtils/t/Command.t
-@@ -23,7 +23,7 @@
- }
-
- BEGIN {
-- use Test::More tests => 38;
-+ use Test::More tests => 39;
- use File::Spec;
- }
-
-@@ -148,7 +148,7 @@
- $^O eq 'NetWare' || $^O eq 'dos' || $^O eq 'cygwin' ||
- $^O eq 'MacOS'
- ) {
-- skip( "different file permission semantics on $^O", 4);
-+ skip( "different file permission semantics on $^O", 5);
- }
-
- @ARGV = ('testdir');
-@@ -178,6 +178,7 @@
-
- @ARGV = ('testdir');
- rm_rf;
-+ ok( ! -e 'testdir', 'rm_rf can delete a read-only dir' );
- }
-
-
+++ /dev/null
-diff -Naur perl-5.8.8-orig/makedepend.SH perl-5.8.8/makedepend.SH
---- perl-5.8.8-orig/makedepend.SH 2006-10-01 20:05:40.000000000 -0600
-+++ perl-5.8.8/makedepend.SH 2006-10-01 20:07:03.000000000 -0600
-@@ -167,6 +167,7 @@
- -e '/^#.*<builtin>/d' \
- -e '/^#.*<built-in>/d' \
- -e '/^#.*<command line>/d' \
-+ -e '/^#.*<command-line>/d' \
- -e '/^#.*"-"/d' \
- -e '/: file path prefix .* never used$/d' \
- -e 's#\.[0-9][0-9]*\.c#'"$file.c#" \
+++ /dev/null
---- a/Configure
-+++ b/Configure
-@@ -1255,12 +1255,12 @@ libnames=''
- : change the next line if compiling for Xenix/286 on Xenix/386
- xlibpth='/usr/lib/386 /lib/386'
- : Possible local library directories to search.
--loclibpth="/usr/local/lib /opt/local/lib /usr/gnu/lib"
--loclibpth="$loclibpth /opt/gnu/lib /usr/GNU/lib /opt/GNU/lib"
-+loclibpth="/usr/local/lib32 /opt/local/lib32 /usr/gnu/lib32"
-+loclibpth="$loclibpth /opt/gnu/lib32 /usr/GNU/lib32 /opt/GNU/lib32"
-
- : general looking path for locating libraries
--glibpth="/lib /usr/lib $xlibpth"
--glibpth="$glibpth /usr/ccs/lib /usr/ucblib /usr/local/lib"
-+glibpth="/lib32 /usr/lib32 $xlibpth"
-+glibpth="$glibpth /usr/ccs/lib32 /usr/ucblib /usr/local/lib32"
- test -f /usr/shlib/libc.so && glibpth="/usr/shlib $glibpth"
- test -f /shlib/libc.so && glibpth="/shlib $glibpth"
-
-@@ -5945,8 +5945,8 @@ fi
- : Reproduce behavior of 5.005 and earlier, maybe drop that in 5.7.
- case "$installstyle" in
- '') case "$prefix" in
-- *perl*) dflt='lib';;
-- *) dflt='lib/perl5' ;;
-+ *perl*) dflt='lib32';;
-+ *) dflt='lib32/perl5' ;;
- esac
- ;;
- *) dflt="$installstyle" ;;
-@@ -5962,8 +5962,8 @@ installstyle=$dflt
- : /opt/perl/lib/perl5... would be redundant.
- : The default "style" setting is made in installstyle.U
- case "$installstyle" in
--*lib/perl5*) set dflt privlib lib/$package/$version ;;
--*) set dflt privlib lib/$version ;;
-+*lib32/perl5*) set dflt privlib lib32/$package/$version ;;
-+*) set dflt privlib lib32/$version ;;
- esac
- eval $prefixit
- $cat <<EOM
-@@ -6465,8 +6465,8 @@ siteprefixexp="$ansexp"
- prog=`echo $package | $sed 's/-*[0-9.]*$//'`
- case "$sitelib" in
- '') case "$installstyle" in
-- *lib/perl5*) dflt=$siteprefix/lib/$package/site_$prog/$version ;;
-- *) dflt=$siteprefix/lib/site_$prog/$version ;;
-+ *lib32/perl5*) dflt=$siteprefix/lib32/$package/site_$prog/$version ;;
-+ *) dflt=$siteprefix/lib32/site_$prog/$version ;;
- esac
- ;;
- *) dflt="$sitelib"
-@@ -6592,8 +6592,8 @@ case "$vendorprefix" in
- '')
- prog=`echo $package | $sed 's/-*[0-9.]*$//'`
- case "$installstyle" in
-- *lib/perl5*) dflt=$vendorprefix/lib/$package/vendor_$prog/$version ;;
-- *) dflt=$vendorprefix/lib/vendor_$prog/$version ;;
-+ *lib32/perl5*) dflt=$vendorprefix/lib32/$package/vendor_$prog/$version ;;
-+ *) dflt=$vendorprefix/lib32/vendor_$prog/$version ;;
- esac
- ;;
- *) dflt="$vendorlib"
-@@ -10550,9 +10550,9 @@ else
- else
- for net in net socket
- do
-- if test -f /usr/lib/lib$net$_a; then
-- ( ($nm $nm_opt /usr/lib/lib$net$_a | eval $nm_extract) || \
-- $ar t /usr/lib/lib$net$_a) 2>/dev/null >> libc.list
-+ if test -f /usr/lib32/lib$net$_a; then
-+ ( ($nm $nm_opt /usr/lib32/lib$net$_a | eval $nm_extract) || \
-+ $ar t /usr/lib32/lib$net$_a) 2>/dev/null >> libc.list
- if $contains socket libc.list >/dev/null 2>&1; then
- d_socket="$define"
- socketlib="-l$net"
+++ /dev/null
---- a/Configure
-+++ b/Configure
-@@ -1255,12 +1255,12 @@ libnames=''
- : change the next line if compiling for Xenix/286 on Xenix/386
- xlibpth='/usr/lib/386 /lib/386'
- : Possible local library directories to search.
--loclibpth="/usr/local/lib /opt/local/lib /usr/gnu/lib"
--loclibpth="$loclibpth /opt/gnu/lib /usr/GNU/lib /opt/GNU/lib"
-+loclibpth="/usr/local/lib64 /opt/local/lib64 /usr/gnu/lib64"
-+loclibpth="$loclibpth /opt/gnu/lib64 /usr/GNU/lib64 /opt/GNU/lib64"
-
- : general looking path for locating libraries
--glibpth="/lib /usr/lib $xlibpth"
--glibpth="$glibpth /usr/ccs/lib /usr/ucblib /usr/local/lib"
-+glibpth="/lib64 /usr/lib64 $xlibpth"
-+glibpth="$glibpth /usr/ccs/lib64 /usr/ucblib /usr/local/lib64"
- test -f /usr/shlib/libc.so && glibpth="/usr/shlib $glibpth"
- test -f /shlib/libc.so && glibpth="/shlib $glibpth"
-
-@@ -5945,8 +5945,8 @@ fi
- : Reproduce behavior of 5.005 and earlier, maybe drop that in 5.7.
- case "$installstyle" in
- '') case "$prefix" in
-- *perl*) dflt='lib';;
-- *) dflt='lib/perl5' ;;
-+ *perl*) dflt='lib64';;
-+ *) dflt='lib64/perl5' ;;
- esac
- ;;
- *) dflt="$installstyle" ;;
-@@ -5962,8 +5962,8 @@ installstyle=$dflt
- : /opt/perl/lib/perl5... would be redundant.
- : The default "style" setting is made in installstyle.U
- case "$installstyle" in
--*lib/perl5*) set dflt privlib lib/$package/$version ;;
--*) set dflt privlib lib/$version ;;
-+*lib64/perl5*) set dflt privlib lib64/$package/$version ;;
-+*) set dflt privlib lib64/$version ;;
- esac
- eval $prefixit
- $cat <<EOM
-@@ -6465,8 +6465,8 @@ siteprefixexp="$ansexp"
- prog=`echo $package | $sed 's/-*[0-9.]*$//'`
- case "$sitelib" in
- '') case "$installstyle" in
-- *lib/perl5*) dflt=$siteprefix/lib/$package/site_$prog/$version ;;
-- *) dflt=$siteprefix/lib/site_$prog/$version ;;
-+ *lib64/perl5*) dflt=$siteprefix/lib64/$package/site_$prog/$version ;;
-+ *) dflt=$siteprefix/lib64/site_$prog/$version ;;
- esac
- ;;
- *) dflt="$sitelib"
-@@ -6592,8 +6592,8 @@ case "$vendorprefix" in
- '')
- prog=`echo $package | $sed 's/-*[0-9.]*$//'`
- case "$installstyle" in
-- *lib/perl5*) dflt=$vendorprefix/lib/$package/vendor_$prog/$version ;;
-- *) dflt=$vendorprefix/lib/vendor_$prog/$version ;;
-+ *lib64/perl5*) dflt=$vendorprefix/lib64/$package/vendor_$prog/$version ;;
-+ *) dflt=$vendorprefix/lib64/vendor_$prog/$version ;;
- esac
- ;;
- *) dflt="$vendorlib"
-@@ -10550,9 +10550,9 @@ else
- else
- for net in net socket
- do
-- if test -f /usr/lib/lib$net$_a; then
-- ( ($nm $nm_opt /usr/lib/lib$net$_a | eval $nm_extract) || \
-- $ar t /usr/lib/lib$net$_a) 2>/dev/null >> libc.list
-+ if test -f /usr/lib64/lib$net$_a; then
-+ ( ($nm $nm_opt /usr/lib64/lib$net$_a | eval $nm_extract) || \
-+ $ar t /usr/lib64/lib$net$_a) 2>/dev/null >> libc.list
- if $contains socket libc.list >/dev/null 2>&1; then
- d_socket="$define"
- socketlib="-l$net"
+++ /dev/null
-commit adeb94125ab7de8d20c129a905a5159972ad9fd1
-Author: Ricardo SIGNES <rjbs@cpan.org>
-Date: Mon Oct 22 05:01:09 2007 -0400
-
- hostname.t busted
- Message-ID: <20071022130109.GA16748@knight>
-
- p4raw-id: //depot/perl@32180
-
-diff --git a/lib/Net/t/hostname.t b/lib/Net/t/hostname.t
-index 758d304..4013d74 100644
---- a/lib/Net/t/hostname.t
-+++ b/lib/Net/t/hostname.t
-@@ -26,7 +26,10 @@ print "1..5\n";
- $domain = domainname();
-
- if(defined $domain && $domain ne "") {
-- print "ok 1\n";
-+ print "ok 1 - defined, non-empty domainname\n";
-+}
-+elsif (not defined $domain) {
-+ print "ok 1 # SKIP domain not fully defined\n";
- }
- else {
- print "not ok 1\n";
+++ /dev/null
---- lib/CPAN/FirstTime.pm.orig 2006-02-06 07:50:13.000000000 -0500
-+++ lib/CPAN/FirstTime.pm 2006-02-06 07:50:28.000000000 -0500
-@@ -292,7 +292,7 @@ by ENTER.
- my(@path) = split /$Config{'path_sep'}/, $ENV{'PATH'};
- local $^W = $old_warn;
- my $progname;
-- for $progname (qw/gzip tar unzip make lynx wget ncftpget ncftp ftp gpg/){
-+ for $progname (qw/gzip tar unzip make links lynx wget ncftpget ncftp ftp gpg/){
- if ($^O eq 'MacOS') {
- $CPAN::Config->{$progname} = 'not_here';
- next;
---- lib/CPAN.pm.orig 2006-02-06 07:54:43.000000000 -0500
-+++ lib/CPAN.pm 2006-02-06 07:52:59.000000000 -0500
-@@ -2604,7 +2604,7 @@ sub hosthard {
-
- $self->debug("localizing funkyftpwise[$url]") if $CPAN::DEBUG;
- my($f,$funkyftp);
-- for $f ('lynx','ncftpget','ncftp','wget') {
-+ for $f ('links','lynx','ncftpget','ncftp','wget') {
- next unless exists $CPAN::Config->{$f};
- $funkyftp = $CPAN::Config->{$f};
- next unless defined $funkyftp;
-@@ -2613,7 +2613,7 @@ sub hosthard {
- ($asl_ungz = $aslocal) =~ s/\.gz//;
- $asl_gz = "$asl_ungz.gz";
- my($src_switch) = "";
-- if ($f eq "lynx"){
-+ if (($f eq "lynx")||($f eq "links")){
- $src_switch = " -source";
- } elsif ($f eq "ncftp"){
- $src_switch = " -c";
-@@ -2637,10 +2637,14 @@ Trying with "$funkyftp$src_switch" to ge
- my($wstatus);
- if (($wstatus = system($system)) == 0
- &&
-- ($f eq "lynx" ?
-+ (($f eq "lynx" ?
- -s $asl_ungz # lynx returns 0 when it fails somewhere
- : 1
-- )
-+ )||
-+ ($f eq "links" ?
-+ -s $asl_ungz # links returns 0 when it fails somewhere
-+ : 1
-+ ))
- ) {
- if (-s $aslocal) {
- # Looks good
-@@ -2695,7 +2699,7 @@ returned status $estatus (wstat $wstatus
- });
- }
- return if $CPAN::Signal;
-- } # lynx,ncftpget,ncftp
-+ } # links,lynx,ncftpget,ncftp
- } # host
- }
-
-@@ -6022,7 +6026,7 @@ stalled.
-
- The CPAN module is designed to automate the make and install of perl
- modules and extensions. It includes some primitive searching capabilities and
--knows how to use Net::FTP or LWP (or lynx or an external ftp client)
-+knows how to use Net::FTP or LWP (or lynx or links or an external ftp client)
- to fetch the raw data from the net.
-
- Modules are fetched from one or more of the mirrored CPAN
-@@ -6975,16 +6979,18 @@ or
-
- =back
-
--=head2 Configuring lynx or ncftp for going through a firewall
-+=head2 Configuring links or lynx or ncftp for going through a firewall
-
- If you can go through your firewall with e.g. lynx, presumably with a
- command such as
-
- /usr/local/bin/lynx -pscott:tiger
-+ /usr/local/bin/links -pscott:tiger
-
- then you would configure CPAN.pm with the command
-
- o conf lynx "/usr/local/bin/lynx -pscott:tiger"
-+ o conf links "/usr/local/bin/links -pscott:tiger"
-
- That's all. Similarly for ncftp or ftp, you would configure something
- like
+++ /dev/null
---- perl-5.8.8/makedepend.SH
-+++ perl-5.8.8/makedepend.SH
-@@ -128,7 +128,7 @@
- *.y) filebase=`basename $file .y` ;;
- esac
- case "$file" in
-- */*) finc="-I`echo $file | sed 's#/[^/]*$##`" ;;
-+ */*) finc="-I`echo $file | sed 's#/[^/]*$##'`" ;;
- *) finc= ;;
- esac
- $echo "Finding dependencies for $filebase$_o."
+++ /dev/null
---- perl-5.8.8/ext/B/B/C.pm.orig 2007-06-07 21:12:04.000000000 +0300
-+++ perl-5.8.8/ext/B/B/C.pm 2007-06-07 21:12:21.000000000 +0300
-@@ -647,7 +647,7 @@
- return $sym if defined $sym;
- my $val= $sv->NVX;
- $val .= '.00' if $val =~ /^-?\d+$/;
-- $xpvnvsect->add(sprintf("0, 0, 0, %d, %s", $sv->IVX, $val));
-+ $xpvnvsect->add(sprintf("0, 0, 0, %d, %s", $sv->NVX, $val));
- $svsect->add(sprintf("&xpvnv_list[%d], %lu, 0x%x",
- $xpvnvsect->index, $sv->REFCNT , $sv->FLAGS));
- return savesym($sv, sprintf("&sv_list[%d]", $svsect->index));
+++ /dev/null
---- perl.c.orig 2006-01-24 09:57:33.000000000 -0500
-+++ perl.c 2006-01-24 10:03:15.000000000 -0500
-@@ -4777,9 +4777,9 @@ S_init_perllib(pTHX)
- incpush(APPLLIB_EXP, TRUE, TRUE, TRUE);
- #endif
-
--#ifdef ARCHLIB_EXP
-- incpush(ARCHLIB_EXP, FALSE, FALSE, TRUE);
--#endif
-+ /* for configuration where /usr is mounted ro (CPAN::Config, Net::Config) */
-+ incpush("/etc/perl", FALSE, FALSE, TRUE);
-+
- #ifdef MACOS_TRADITIONAL
- {
- Stat_t tmpstatbuf;
-@@ -4806,51 +4806,58 @@ S_init_perllib(pTHX)
- #endif
- #if defined(WIN32)
- incpush(PRIVLIB_EXP, TRUE, FALSE, TRUE);
--#else
-- incpush(PRIVLIB_EXP, FALSE, FALSE, TRUE);
- #endif
-
--#ifdef SITEARCH_EXP
-- /* sitearch is always relative to sitelib on Windows for
-+#ifdef PERL_VENDORARCH_EXP
-+ /* vendorarch is always relative to vendorlib on Windows for
- * DLL-based path intuition to work correctly */
- # if !defined(WIN32)
-- incpush(SITEARCH_EXP, FALSE, FALSE, TRUE);
-+ incpush(PERL_VENDORARCH_EXP, FALSE, FALSE, TRUE);
- # endif
- #endif
-
--#ifdef SITELIB_EXP
-+#ifdef PERL_VENDORLIB_EXP
- # if defined(WIN32)
-- /* this picks up sitearch as well */
-- incpush(SITELIB_EXP, TRUE, FALSE, TRUE);
-+ incpush(PERL_VENDORLIB_EXP, TRUE, FALSE, TRUE); /* this picks up vendorarch as well */
- # else
-- incpush(SITELIB_EXP, FALSE, FALSE, TRUE);
-+ incpush(PERL_VENDORLIB_EXP, FALSE, FALSE, TRUE);
- # endif
- #endif
-
--#ifdef SITELIB_STEM /* Search for version-specific dirs below here */
-- incpush(SITELIB_STEM, FALSE, TRUE, TRUE);
-+#ifdef PERL_VENDORLIB_STEM /* Search for version-specific dirs below here */
-+ incpush(PERL_VENDORLIB_STEM, FALSE, TRUE, TRUE);
- #endif
-
--#ifdef PERL_VENDORARCH_EXP
-- /* vendorarch is always relative to vendorlib on Windows for
-+#ifdef SITEARCH_EXP
-+ /* sitearch is always relative to sitelib on Windows for
- * DLL-based path intuition to work correctly */
- # if !defined(WIN32)
-- incpush(PERL_VENDORARCH_EXP, FALSE, FALSE, TRUE);
-+ incpush(SITEARCH_EXP, FALSE, FALSE, TRUE);
- # endif
- #endif
-
--#ifdef PERL_VENDORLIB_EXP
-+#ifdef SITELIB_EXP
- # if defined(WIN32)
-- incpush(PERL_VENDORLIB_EXP, TRUE, FALSE, TRUE); /* this picks up vendorarch as well */
-+ /* this picks up sitearch as well */
-+ incpush(SITELIB_EXP, TRUE, FALSE, TRUE);
- # else
-- incpush(PERL_VENDORLIB_EXP, FALSE, FALSE, TRUE);
-+ incpush(SITELIB_EXP, FALSE, FALSE, TRUE);
- # endif
- #endif
-
--#ifdef PERL_VENDORLIB_STEM /* Search for version-specific dirs below here */
-- incpush(PERL_VENDORLIB_STEM, FALSE, TRUE, TRUE);
-+#ifdef SITELIB_STEM /* Search for version-specific dirs below here */
-+ incpush(SITELIB_STEM, FALSE, TRUE, TRUE);
- #endif
-
-+ incpush(ARCHLIB_EXP, FALSE, FALSE, TRUE);
-+ incpush(PRIVLIB_EXP, FALSE, FALSE, TRUE);
-+
-+ /* Non-versioned site directory for local modules and for
-+ compatability with the previous packages' site dirs */
-+
-+ incpush("/usr/local/lib/site_perl", TRUE, FALSE, TRUE);
-+
-+
- #ifdef PERL_OTHERLIBDIRS
- incpush(PERL_OTHERLIBDIRS, TRUE, TRUE, TRUE);
- #endif
+++ /dev/null
-http://sourceware.org/ml/binutils/2005-12/msg00008.html
---- hints/solaris_2.sh
-+++ hints/solaris_2.sh
-@@ -289,7 +289,7 @@
-
- END
- ccdlflags="$ccdlflags -Wl,-E"
-- lddlflags="$lddlflags -Wl,-E -G"
-+ lddlflags="$lddlflags -shared"
- fi
- fi
-
-@@ -555,7 +555,7 @@
- : #ccflags="$ccflags -Wa,`getconf XBS5_LP64_OFF64_CFLAGS 2>/dev/null`"
- fi
- ldflags="$ldflags -m64"
-- lddlflags="$lddlflags -G -m64"
-+ lddlflags="$lddlflags -m64"
- ;;
- *)
- ccflags="$ccflags `getconf XBS5_LP64_OFF64_CFLAGS 2>/dev/null`"
+++ /dev/null
-Thanks to the nice OpenSolaris guys, I finally figured out that on
-OpenSolaris 11, the header dependencies have changed.
-
---- perl.h
-+++ perl.h
-@@ -1192,6 +1192,8 @@
- */
-
- #if defined(I_SYSMODE) && !defined(PERL_MICRO)
-+#include <sys/stat.h>
-+#include <sys/vnode.h>
- #include <sys/mode.h>
- #endif
-
+++ /dev/null
-# remove /usr/local paths from all stuff thats used
-# in Configure script, locincpth, loclibpth and glibpth are sedded
-# afterwards not to conflict with the lib32 and lib64 patches
-
-diff -rubB perl-5.8.8.orig/Configure perl-5.8.8/Configure
---- perl-5.8.8.orig/Configure Tue Jan 15 10:41:29 2008
-+++ perl-5.8.8/Configure Tue Jan 15 10:44:59 2008
-@@ -4424,7 +4422,7 @@
- : Set private lib path
- case "$plibpth" in
- '') if ./mips; then
-- plibpth="$incpath/usr/lib /usr/local/lib /usr/ccs/lib"
-+ plibpth="$incpath/usr/lib /usr/ccs/lib"
- fi;;
- esac
- case "$libpth" in
-@@ -19144,7 +19142,7 @@
- case "$ranlib" in
- :) ranlib='';;
- '')
-- ranlib=`./loc ranlib X /usr/bin /bin /usr/local/bin`
-+ ranlib=`./loc ranlib X /usr/bin /bin`
- $test -f $ranlib || ranlib=''
- ;;
- esac
+++ /dev/null
---- regcomp.c 2006-01-08 12:59:27.000000000 -0800
-+++ regcomp.c 2007-10-05 12:07:55.000000000 -0700
-@@ -135,7 +135,8 @@
- I32 extralen;
- I32 seen_zerolen;
- I32 seen_evals;
-- I32 utf8;
-+ I32 utf8; /* pattern is utf8 or not */
-+ I32 orig_utf8; /* pattern was originally utf8 */
- #if ADD_TO_REGEXEC
- char *starttry; /* -Dr: where regtry was called. */
- #define RExC_starttry (pRExC_state->starttry)
-@@ -161,6 +162,7 @@
- #define RExC_seen_zerolen (pRExC_state->seen_zerolen)
- #define RExC_seen_evals (pRExC_state->seen_evals)
- #define RExC_utf8 (pRExC_state->utf8)
-+#define RExC_orig_utf8 (pRExC_state->orig_utf8)
-
- #define ISMULT1(c) ((c) == '*' || (c) == '+' || (c) == '?')
- #define ISMULT2(s) ((*s) == '*' || (*s) == '+' || (*s) == '?' || \
-@@ -1749,15 +1751,17 @@
- if (exp == NULL)
- FAIL("NULL regexp argument");
-
-- RExC_utf8 = pm->op_pmdynflags & PMdf_CMP_UTF8;
-+ RExC_orig_utf8 = RExC_utf8 = pm->op_pmdynflags & PMdf_CMP_UTF8;
-
-- RExC_precomp = exp;
- DEBUG_r({
- if (!PL_colorset) reginitcolors();
- PerlIO_printf(Perl_debug_log, "%sCompiling REx%s `%s%*s%s'\n",
- PL_colors[4],PL_colors[5],PL_colors[0],
-- (int)(xend - exp), RExC_precomp, PL_colors[1]);
-+ (int)(xend - exp), exp, PL_colors[1]);
- });
-+
-+redo_first_pass:
-+ RExC_precomp = exp;
- RExC_flags = pm->op_pmflags;
- RExC_sawback = 0;
-
-@@ -1783,6 +1787,17 @@
- RExC_precomp = Nullch;
- return(NULL);
- }
-+ if (RExC_utf8 && !RExC_orig_utf8) {
-+ STRLEN len = xend-exp;
-+ DEBUG_r(PerlIO_printf(Perl_debug_log,
-+ "UTF8 mismatch! Converting to utf8 for resizing and compile\n"));
-+ exp = (char*)Perl_bytes_to_utf8(aTHX_ (U8*)exp, &len);
-+ xend = exp + len;
-+ RExC_orig_utf8 = RExC_utf8;
-+ SAVEFREEPV(exp);
-+ goto redo_first_pass;
-+ }
-+
-
+++ /dev/null
-Subject: Fix h2ph with double-quote-delimited #include directives.
-
-Allow the quote mark delimiter also for those #include directives chased with "h2ph -a".
-
-Debian bug #479762.
-
-Also add the directory prefix of the current file when the quote syntax is
-used; 'require' will only look in @INC, not the current directory.
-
-Upstream change 33835.
---- a/utils/h2ph.PL
-+++ b/utils/h2ph.PL
-@@ -85,7 +85,7 @@ sub reindent($) {
- }
-
- my ($t, $tab, %curargs, $new, $eval_index, $dir, $name, $args, $outfile);
--my ($incl, $incl_type, $next);
-+my ($incl, $incl_type, $incl_quote, $next);
- while (defined (my $file = next_file())) {
- if (-l $file and -d $file) {
- link_if_possible($file) if ($opt_l);
-@@ -186,9 +186,10 @@ while (defined (my $file = next_file())) {
- print OUT $t,"unless(defined(\&$name)) {\n sub $name () {\t",$new,";}\n}\n";
- }
- }
-- } elsif (/^(include|import|include_next)\s*[<\"](.*)[>\"]/) {
-+ } elsif (/^(include|import|include_next)\s*([<\"])(.*)[>\"]/) {
- $incl_type = $1;
-- $incl = $2;
-+ $incl_quote = $2;
-+ $incl = $3;
- if (($incl_type eq 'include_next') ||
- ($opt_e && exists($bad_file{$incl}))) {
- $incl =~ s/\.h$/.ph/;
-@@ -221,6 +222,10 @@ while (defined (my $file = next_file())) {
- "warn(\$\@) if \$\@;\n");
- } else {
- $incl =~ s/\.h$/.ph/;
-+ # copy the prefix in the quote syntax (#include "x.h") case
-+ if ($incl !~ m|/| && $incl_quote eq q{"} && $file =~ m|^(.*)/|) {
-+ $incl = "$1/$incl";
-+ }
- print OUT $t,"require '$incl';\n";
- }
- } elsif (/^ifdef\s+(\w+)/) {
-@@ -724,8 +729,13 @@ sub queue_includes_from
- $line .= <HEADER>;
- }
-
-- if ($line =~ /^#\s*include\s+<(.*?)>/) {
-- push(@ARGV, $1) unless $Is_converted{$1};
-+ if ($line =~ /^#\s*include\s+([<"])(.*?)[>"]/) {
-+ my ($delimiter, $new_file) = ($1, $2);
-+ # copy the prefix in the quote syntax (#include "x.h") case
-+ if ($delimiter eq q{"} && $file =~ m|^(.*)/|) {
-+ $new_file = "$1/$new_file";
-+ }
-+ push(@ARGV, $new_file) unless $Is_converted{$new_file};
- }
- }
- close HEADER;
+++ /dev/null
---- perl-5.8.0-RC2/utils/h2ph_patched.pix 2002-06-24 12:52:31.000000000 +0200
-+++ perl-5.8.0-RC2/utils/h2ph_patched 2002-06-24 12:54:32.000000000 +0200
-@@ -39,6 +39,8 @@
- my ($t, $tab, %curargs, $new, $eval_index, $dir, $name, $args, $outfile);
- my ($incl, $next);
- while (defined (my $file = next_file())) {
-+ next if $file eq 'machine/ansi.h';
-+
- if (-l $file and -d $file) {
- link_if_possible($file) if ($opt_l);
- next;
+++ /dev/null
---- Configure.orig 2006-06-02 13:14:22.000000000 -0500
-+++ Configure 2006-06-02 13:07:03.000000000 -0500
-@@ -2967,7 +2967,7 @@
- : Try to determine whether config.sh was made on this system
- case "$config_sh" in
- '')
--myuname=`$uname -a 2>/dev/null`
-+myuname=`$uname -a | $sed -e "s/'//" 2>/dev/null`
- $test -z "$myuname" && myuname=`hostname 2>/dev/null`
- # tr '[A-Z]' '[a-z]' would not work in EBCDIC
- # because the A-Z/a-z are not consecutive.
+++ /dev/null
-diff -burN perl-5.8.4.orig/Configure perl-5.8.4/Configure
---- perl-5.8.4.orig/Configure 2004-04-01 05:48:18.000000000 -0800
-+++ perl-5.8.4/Configure 2004-06-09 12:02:54.694172368 -0700
-@@ -164,6 +164,12 @@
- ;;
- esac
-
-+# 2004.06.09 rac
-+# having $newsh persist as ksh here is bad news if ksh doesn't really
-+# exist. this causes us to toss away a perfectly good working test in
-+# bash in favour of more exotic external options. see bug 42665.
-+test -x "${newsh}" || unset newsh
-+
- : if needed set CDPATH to a harmless value that is not chatty
- : avoid bash 2.02 problems with empty CDPATH.
- case "$CDPATH" in
+++ /dev/null
---- lib/Pod/Perldoc.pm.orig 2003-10-22 13:02:15.000000000 -0700
-+++ lib/Pod/Perldoc.pm 2003-10-22 13:02:36.000000000 -0700
-@@ -1513,6 +1513,7 @@
- $self->{'target'} = (splitdir $s)[-1]; # XXX: why not use File::Basename?
- for ($i=0; $i<@dirs; $i++) {
- $dir = $dirs[$i];
-+ next unless -d $dir;
- ($dir = VMS::Filespec::unixpath($dir)) =~ s!/\z!! if IS_VMS;
- if ( (! $self->opt_m && ( $ret = $self->check_file($dir,"$s.pod")))
- or ( $ret = $self->check_file($dir,"$s.pm"))
+++ /dev/null
---- Makefile.SH.orig 2003-11-29 01:16:15.000000000 -0800
-+++ Makefile.SH 2003-11-29 01:16:52.000000000 -0800
-@@ -129,8 +129,8 @@
-
- ;;
-
--*) pldlflags=''
-- static_target='static'
-+*) pldlflags="$cccdlflags"
-+ static_target='static_pic'
- ;;
- esac
-
+++ /dev/null
---- hints/linux.sh.orig 2003-02-14 18:11:50.000000000 -0800
-+++ hints/linux.sh 2003-02-14 18:12:01.000000000 -0800
-@@ -43,7 +43,7 @@
- # 'kaffe' has a /usr/lib/libnet.so which is not at all relevent for perl.
- set `echo X "$libswanted "| sed -e 's/ bsd / /' -e 's/ net / /'`
- shift
--libswanted="$*"
-+libswanted="pthread $*"
-
- # If you have glibc, then report the version for ./myconfig bug reporting.
- # (Configure doesn't need to know the specific version since it just uses
+++ /dev/null
---- cflags.SH.orig 2005-07-03 23:39:10.000000000 -0400
-+++ cflags.SH 2005-07-03 23:39:47.000000000 -0400
-@@ -165,6 +165,8 @@
- esac
-
- : Can we perhaps use $ansi2knr here
-+ [ "x$file" = xregcomp ] && export ccflags="${ccflags} -fno-stack-protector"
-+ [ "x$file" = xregexec ] && export ccflags="${ccflags} -fno-stack-protector"
- echo "$cc -c -DPERL_CORE $ccflags $optimize $warn"
- eval "$also "'"$cc -DPERL_CORE -c $ccflags $optimize $warn"'
-
projects / gentoo.git / commitdiff