{"schema":"libjg2-1", "vpath":"/git/", "avatar":"/git/avatar/", "alang":"", "gen_ut":1752659183, "reponame":"openssl", "desc":"OpenSSL", "owner": { "name": "Andy Green", "email": "andy@warmcat.com", "md5": "c50933ca2aa61e0fe2c43d46bb6b59cb" },"url":"https://warmcat.com/repo/openssl", "f":3, "items": [ {"schema":"libjg2-1", "cid":"d485be7e24dd1ee13a8154c7b140f6a1", "commit": {"type":"commit", "time": 1562091148, "time_ofs": 120, "oid_tree": { "oid": "d3cc22c004c5195c3e45b46cd3b0cda9b83164db", "alias": []}, "oid":{ "oid": "374cab6390ba005d4a559a3dea2a034af9cb1c09", "alias": []}, "msg": "Adding Test.pm with workaround for Perl abs2rel bug", "sig_commit": { "git_time": { "time": 1562091148, "offset": 120 }, "name": "Richard Levitte", "email": "levitte@openssl.org", "md5": "b737120f0642a6a5c30c6291e6170c77" }, "sig_author": { "git_time": { "time": 1534931302, "offset": 180 }, "name": "Martin Peylo", "email": "martin.peylo@nokia.com", "md5": "210f56806402d11d6f600306c0b7712a" }}, "body": "Adding Test.pm with workaround for Perl abs2rel bug\n\nIf SRCTOP !\u003d BLDTOP, and SRCTOP is given in relative form, e.g.\n\u0022./config ../openssl\u0022, then a bug in Perl's abs2rel may trigger that directory-\nrewriting in __cwd results in wrong entries in %directories under certain\ncircumstances, e.g. when a test executes run(app([\u0022openssl\u0022]) after indir.\n\nThere should not be any need to go to a higher directory from BLDDIR or SRCDIR,\nso it should be OK to use them in their absolute form, also resolving all\npossible symlinks, right from the start.\n\nFollowing the File::Spec::Functions bug description (reported to perl.org):\n\nWhen abs2rel gets a path argument with ..s that are crossing over the ..s\ntrailing the base argument, the result is wrong.\n\nExample\nPATH: /home/goal/test/..\nBASE: /home/goal/test/../../base\nGood result: ../goal\nBad result: ../..\n\nBug verified with File::Spec versions\n- 3.6301\n- 3.74 (latest)\n\nReviewed-by: Matt Caswell \u003cmatt@openssl.org\u003e\nReviewed-by: Richard Levitte \u003clevitte@openssl.org\u003e\n(Merged from https://github.com/openssl/openssl/pull/7031)\n\n(cherry picked from commit 7a2027240e1d01f7f5b209998d1de36af221b34b)\n" , "diff": "diff --git a/util/perl/OpenSSL/Test.pm b/util/perl/OpenSSL/Test.pm\nindex 9564b26..43c4344 100644\n--- a/util/perl/OpenSSL/Test.pm\n+++ b/util/perl/OpenSSL/Test.pm\n@@ -65,6 +65,7 @@ use File::Spec::Functions qw/file_name_is_absolute curdir canonpath splitdir\n rel2abs/;\n use File::Path 2.00 qw/rmtree mkpath/;\n use File::Basename;\n+use Cwd qw/abs_path/;\n \n my $level \u003d 0;\n \n@@ -869,8 +870,8 @@ failures will result in a C\u003cBAIL_OUT\u003e at the end of its run.\n sub __env {\n (my $recipe_datadir \u003d basename($0)) \u003d~ s/\u005c.t$/_data/i;\n \n- $directories{SRCTOP} \u003d $ENV{SRCTOP} || $ENV{TOP};\n- $directories{BLDTOP} \u003d $ENV{BLDTOP} || $ENV{TOP};\n+ $directories{SRCTOP} \u003d abs_path($ENV{SRCTOP} || $ENV{TOP});\n+ $directories{BLDTOP} \u003d abs_path($ENV{BLDTOP} || $ENV{TOP});\n $directories{BLDAPPS} \u003d $ENV{BIN_D} || __bldtop_dir(\u0022apps\u0022);\n $directories{SRCAPPS} \u003d __srctop_dir(\u0022apps\u0022);\n $directories{BLDFUZZ} \u003d __bldtop_dir(\u0022fuzz\u0022);\n","s":{"c":1752659183,"u": 38906}} ],"g": 40345,"chitpc": 0,"ehitpc": 0,"indexed":0 , "ab": 0, "si": 0, "db":0, "di":0, "sat":0, "lfc": "0000"}