{"action":"created","issue":{"url":"https://api.github.com/repos/pjcj/Devel--Cover/issues/125","labels_url":"https://api.github.com/repos/pjcj/Devel--Cover/issues/125/labels{/name}","comments_url":"https://api.github.com/repos/pjcj/Devel--Cover/issues/125/comments","events_url":"https://api.github.com/repos/pjcj/Devel--Cover/issues/125/events","html_url":"https://github.com/pjcj/Devel--Cover/issues/125","id":73689201,"number":125,"title":"Bizarre copy of ARRAY in list assignment","user":{"login":"FGasper","id":844867,"avatar_url":"https://avatars.githubusercontent.com/u/844867?v=3","gravatar_id":"","url":"https://api.github.com/users/FGasper","html_url":"https://github.com/FGasper","followers_url":"https://api.github.com/users/FGasper/followers","following_url":"https://api.github.com/users/FGasper/following{/other_user}","gists_url":"https://api.github.com/users/FGasper/gists{/gist_id}","starred_url":"https://api.github.com/users/FGasper/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/FGasper/subscriptions","organizations_url":"https://api.github.com/users/FGasper/orgs","repos_url":"https://api.github.com/users/FGasper/repos","events_url":"https://api.github.com/users/FGasper/events{/privacy}","received_events_url":"https://api.github.com/users/FGasper/received_events","type":"User","site_admin":false},"labels":[],"state":"open","locked":false,"assignee":null,"milestone":null,"comments":17,"created_at":"2015-05-06T17:45:18Z","updated_at":"2015-07-09T10:21:48Z","closed_at":null,"body":"```\r\nuse Test::More tests => 1;\r\n\r\nmy $temp_file = '/tmp/foo';\r\n\r\nunlink $temp_file;\r\n\r\nfor ( 1 .. 3 ) {\r\n    my $t_fh;\r\n\r\n    #NOTE: Uncomment these, and the problem goes away!\r\n    #use IO::Handle;\r\n    #$t_fh = IO::Handle->new();\r\n\r\n    open_wrap(\r\n        $t_fh,\r\n        $temp_file,\r\n    );\r\n\r\n}\r\n\r\nunlink $temp_file;\r\n\r\nok 1;\r\n\r\nsub open_wrap {\r\n    return open( ${ \\$_[0] }, '>', $_[1] );\r\n}\r\n```\r\n\r\n> perl5.14 \"-MDevel::Cover=-coverage,statement\" devel_cover_err.t \r\n1..1\r\nDevel::Cover 1.18: Collecting coverage data for statement.\r\nSelecting packages matching:\r\nIgnoring packages matching:\r\n    /Devel/Cover[./]\r\nIgnoring packages in:\r\n    /opt/local/lib/perl5/site_perl/5.14.4/darwin-thread-multi-2level\r\n    /opt/local/lib/perl5/site_perl/5.14.4\r\n    /opt/local/lib/perl5/5.14.4/darwin-thread-multi-2level\r\n    /opt/local/lib/perl5/5.14.4\r\n    /opt/local/lib/perl5/site_perl\r\n    /opt/local/lib/perl5/vendor_perl\r\nok 1\r\nDevel::Cover: Oops, it looks like something went wrong writing the coverage.\r\n              It's possible that more bad things may happen but we'll try to\r\n              carry on anyway as if nothing happened.  At a minimum you'll\r\n              probably find that you are missing coverage.  If you're\r\n              interested, the problem was:\r\n\r\nBizarre copy of ARRAY in list assignment at /opt/local/lib/perl5/5.14.4/darwin-thread-multi-2level/B.pm line 258.\r\n\r\n---------------\r\n\r\nNOTE: I have also seen this generate:\r\n\r\nArgument \"*main::_GEN_2\" isn't numeric in addition (+)\r\n\r\n… but right now I can’t reproduce that as readily.\r\n"},"comment":{"url":"https://api.github.com/repos/pjcj/Devel--Cover/issues/comments/119900231","html_url":"https://github.com/pjcj/Devel--Cover/issues/125#issuecomment-119900231","issue_url":"https://api.github.com/repos/pjcj/Devel--Cover/issues/125","id":119900231,"user":{"login":"rurban","id":41809,"avatar_url":"https://avatars.githubusercontent.com/u/41809?v=3","gravatar_id":"","url":"https://api.github.com/users/rurban","html_url":"https://github.com/rurban","followers_url":"https://api.github.com/users/rurban/followers","following_url":"https://api.github.com/users/rurban/following{/other_user}","gists_url":"https://api.github.com/users/rurban/gists{/gist_id}","starred_url":"https://api.github.com/users/rurban/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/rurban/subscriptions","organizations_url":"https://api.github.com/users/rurban/orgs","repos_url":"https://api.github.com/users/rurban/repos","events_url":"https://api.github.com/users/rurban/events{/privacy}","received_events_url":"https://api.github.com/users/rurban/received_events","type":"User","site_admin":false},"created_at":"2015-07-09T10:21:48Z","updated_at":"2015-07-09T10:21:48Z","body":"@bk2204 As I said there are multiple issues in B. The sort each was fixed in 5.16, the _GEN_ is not yet fixed. All these are B issues for which we have our two internal tickets.\r\n\r\nDevel::Cover has no issue AFAIK, but should patch B:: walksymtable for older versions, same as we do."}}