CINXE.COM
perl5.git.perl.org Git - perl5.git/commitdiff
<?xml version="1.0" encoding="utf-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en-US" lang="en-US"> <!-- git web interface version 1.8.3.1, (C) 2005-2006, Kay Sievers <kay.sievers@vrfy.org>, Christian Gierke --> <!-- git core binaries version 1.8.3.1 --> <head> <meta http-equiv="content-type" content="text/html; charset=utf-8"/> <meta name="generator" content="gitweb/1.8.3.1 git/1.8.3.1"/> <meta name="robots" content="index, nofollow"/> <title>perl5.git.perl.org Git - perl5.git/commitdiff</title> <base href="https://perl5.git.perl.org" /> <link rel="stylesheet" type="text/css" href="static/gitweb.css"/> <link rel="alternate" title="perl5.git - log - RSS feed" href="/perl5.git/rss" type="application/rss+xml" /> <link rel="alternate" title="perl5.git - log - RSS feed (no merges)" href="/perl5.git/rss?opt=--no-merges" type="application/rss+xml" /> <link rel="alternate" title="perl5.git - log - Atom feed" href="/perl5.git/atom" type="application/atom+xml" /> <link rel="alternate" title="perl5.git - log - Atom feed (no merges)" href="/perl5.git/atom?opt=--no-merges" type="application/atom+xml" /> <link rel="shortcut icon" href="static/git-favicon.png" type="image/png" /> </head> <body> This is a live mirror of the Perl 5 development currently hosted at <a href="https://github.com/perl/perl5" target="_blank">https://github.com/perl/perl5</a> <div class="page_header"> <a title="git homepage" href="http://git-scm.com/"><img class="logo" height="27" src="static/git-logo.png" alt="git" width="72" /></a><a href="/">https://perl5.git.perl.org</a> / <a href="/perl5.git">perl5.git</a> / commitdiff </div> <form method="get" action="/perl5.git" enctype="application/x-www-form-urlencoded"><div class="search"> <input name="a" type="hidden" value="search" /> <input name="h" type="hidden" value="cc3bc4ac1281e8018c5d88e40a1bf37e6253c3f4" /> <select name="st" > <option selected="selected" value="commit">commit</option> <option value="grep">grep</option> <option value="author">author</option> <option value="committer">committer</option> <option value="pickaxe">pickaxe</option> </select><sup><a href="/perl5.git/search_help">?</a></sup> search: <input type="text" name="s" /> <span title="Extended regular expression"><label><input type="checkbox" name="sr" value="1" />re</label></span></div> </form> <div class="page_nav"> <a href="/perl5.git">summary</a> | <a href="/perl5.git/shortlog/cc3bc4ac1281e8018c5d88e40a1bf37e6253c3f4">shortlog</a> | <a href="/perl5.git/log/cc3bc4ac1281e8018c5d88e40a1bf37e6253c3f4">log</a> | <a href="/perl5.git/commit/cc3bc4ac1281e8018c5d88e40a1bf37e6253c3f4">commit</a> | commitdiff | <a href="/perl5.git/tree/cc3bc4ac1281e8018c5d88e40a1bf37e6253c3f4">tree</a><br/> <a href="/perl5.git/commitdiff_plain/cc3bc4ac1281e8018c5d88e40a1bf37e6253c3f4">raw</a> | <a href="/perl5.git/patch/cc3bc4ac1281e8018c5d88e40a1bf37e6253c3f4">patch</a> | inline | <a href="/perl5.git/commitdiff/cc3bc4ac1281e8018c5d88e40a1bf37e6253c3f4?ds=sidebyside">side by side</a> (parent: <a href="/perl5.git/commitdiff/42680180a524aafa4dc87b408c342f944acc0de2">4268018</a>)<br/> </div> <div class="header"> <a class="title" href="/perl5.git/commit/cc3bc4ac1281e8018c5d88e40a1bf37e6253c3f4">attributes/attributes.xs - more efficient mortal hek creation</a> </div> <div class="title_text"> <table class="object_header"> <tr><td>author</td><td><a title="Search for commits authored by Richard Leach" class="list" href="/perl5.git/search/cc3bc4ac1281e8018c5d88e40a1bf37e6253c3f4?s=Richard+Leach;st=author">Richard Leach</a> <a title="Search for commits authored by richardleach@users.noreply.github.com" class="list" href="/perl5.git/search/cc3bc4ac1281e8018c5d88e40a1bf37e6253c3f4?s=richardleach@users.noreply.github.com;st=author"><richardleach@users.noreply.github.com></a></td><td rowspan="2"></td></tr> <tr><td></td><td><span class="datetime">Sat, 17 Sep 2022 23:15:49 +0000</span> (23:15 +0000)</td></tr> <tr><td>committer</td><td><a title="Search for commits committed by Richard Leach" class="list" href="/perl5.git/search/cc3bc4ac1281e8018c5d88e40a1bf37e6253c3f4?s=Richard+Leach;st=committer">Richard Leach</a> <a title="Search for commits committed by richardleach@users.noreply.github.com" class="list" href="/perl5.git/search/cc3bc4ac1281e8018c5d88e40a1bf37e6253c3f4?s=richardleach@users.noreply.github.com;st=committer"><richardleach@users.noreply.github.com></a></td><td rowspan="2"></td></tr> <tr><td></td><td><span class="datetime">Sun, 28 Jan 2024 21:43:11 +0000</span> (21:43 +0000)</td></tr> </table></div> <div class="page_body"> <div class="list_head"> </div> <table class="diff_tree"> <tr class="dark"> <td><a class="list" href="/perl5.git/blob/cc3bc4ac1281e8018c5d88e40a1bf37e6253c3f4:/ext/attributes/attributes.xs">ext/attributes/attributes.xs</a></td> <td></td> <td class="link"><a href="/perl5.git/commitdiff/cc3bc4ac1281e8018c5d88e40a1bf37e6253c3f4#patch1">patch</a> | <a href="/perl5.git/blob/cc3bc4ac1281e8018c5d88e40a1bf37e6253c3f4:/ext/attributes/attributes.xs">blob</a> | <a href="/perl5.git/history/cc3bc4ac1281e8018c5d88e40a1bf37e6253c3f4:/ext/attributes/attributes.xs">history</a></td> </tr> </table> <br/> <div class="patchset"> <div class="patch" id="patch1"> <div class="diff header">diff --git <a class="path" href="/perl5.git/blob/e7d4ee4c7e60da6ba88d811b7c92b65e1d6b6e18?f=ext/attributes/attributes.xs">a/ext/attributes/attributes.xs</a> <a class="path" href="/perl5.git/blob/cc3bc4ac1281e8018c5d88e40a1bf37e6253c3f4:/ext/attributes/attributes.xs">b/ext/attributes/attributes.xs</a></div> <div class="diff extended_header"> index <a class="hash" href="/perl5.git/blob/e7d4ee4c7e60da6ba88d811b7c92b65e1d6b6e18?f=ext/attributes/attributes.xs">e7d4ee4</a>..<a class="hash" href="/perl5.git/blob/cc3bc4ac1281e8018c5d88e40a1bf37e6253c3f4:/ext/attributes/attributes.xs">018a6ff</a> 100644<span class="info"> (file)</span><br/> </div> <div class="diff from_file">--- a/<a class="path" href="/perl5.git/blob/e7d4ee4c7e60da6ba88d811b7c92b65e1d6b6e18?f=ext/attributes/attributes.xs">ext/attributes/attributes.xs</a></div> <div class="diff to_file">+++ b/<a class="path" href="/perl5.git/blob/cc3bc4ac1281e8018c5d88e40a1bf37e6253c3f4:/ext/attributes/attributes.xs">ext/attributes/attributes.xs</a></div> <div class="diff chunk_header"><span class="chunk_info">@@ <a class="list" href="/perl5.git/blob/e7d4ee4c7e60da6ba88d811b7c92b65e1d6b6e18?f=ext/attributes/attributes.xs#l95">-95,7</a> <a class="list" href="/perl5.git/blob/cc3bc4ac1281e8018c5d88e40a1bf37e6253c3f4:/ext/attributes/attributes.xs#l95">+95,7</a> @@</span><span class="section"> modify_SV_attributes(pTHX_ SV *sv, SV **retlist, SV **attrlist, int numattrs)</span></div> <div class="diff ctx"> if (name[len-1] != ')')</div> <div class="diff ctx"> Perl_croak(aTHX_ "Unterminated attribute parameter in attribute list");</div> <div class="diff ctx"> if (hek)</div> <div class="diff rem">- subname = <span class="marked">sv_2mortal(newSVhek(hek)</span>);</div> <div class="diff add">+ subname = <span class="marked">newSVhek_mortal(hek</span>);</div> <div class="diff ctx"> else</div> <div class="diff ctx"> subname=(SV *)CvGV((const CV *)sv);</div> <div class="diff ctx"> if (ckWARN(WARN_ILLEGALPROTO))</div> </div> </div> </div> <div class="page_footer"> <div class="page_footer_text">Unnamed repository; edit this file 'description' to name the repository.</div> <a class="rss_logo" title="log RSS feed" href="/perl5.git/rss">RSS</a> <a class="rss_logo" title="log Atom feed" href="/perl5.git/atom">Atom</a> </div> <script type="text/javascript" src="static/gitweb.js"></script> <script type="text/javascript"> window.onload = function () { var tz_cookie = { name: 'gitweb_tz', expires: 14, path: '/' }; onloadTZSetup('local', tz_cookie, 'datetime'); }; </script> </body> </html>