Commit | Line | Data |
---|---|---|
49781f4a AB |
1 | =encoding utf8 |
2 | ||
0549aefb LB |
3 | =for comment |
4 | Consistent formatting of this file is achieved with: | |
5 | perl ./Porting/podtidy pod/perlrepository.pod | |
6 | ||
d7dd28b6 LB |
7 | =head1 NAME |
8 | ||
9 | perlrepository - Using the Perl source repository | |
10 | ||
11 | =head1 SYNOPSIS | |
12 | ||
dc3c3040 | 13 | All of Perl's source code is kept centrally in a Git repository at |
c26da522 LB |
14 | I<perl5.git.perl.org>. The repository contains many Perl revisions from |
15 | Perl 1 onwards and all the revisions from Perforce, the version control | |
16 | system we were using previously. This repository is accessible in | |
17 | different ways. | |
d7dd28b6 LB |
18 | |
19 | The full repository takes up about 80MB of disk space. A check out of | |
7f4ffa9d | 20 | the blead branch (that is, the main development branch, which contains |
6a7cbfe8 LB |
21 | bleadperl, the development version of perl 5) takes up about 160MB of |
22 | disk space (including the repository). A build of bleadperl takes up | |
23 | about 200MB (including the repository and the check out). | |
d7dd28b6 | 24 | |
ba336be1 | 25 | =head1 Getting access to the repository |
d7dd28b6 | 26 | |
ba336be1 | 27 | =head2 Read access via the web |
d7dd28b6 | 28 | |
dc3c3040 GA |
29 | You may access the repository over the web. This allows you to browse |
30 | the tree, see recent commits, subscribe to RSS feeds for the changes, | |
31 | search for particular commits and more. You may access it at: | |
d7dd28b6 LB |
32 | |
33 | http://perl5.git.perl.org/perl.git | |
34 | ||
dc3c3040 GA |
35 | A mirror of the repository is found at: |
36 | ||
45b194c5 | 37 | http://github.com/mirrors/perl |
dc3c3040 | 38 | |
ba336be1 | 39 | =head2 Read access via Git |
d7dd28b6 LB |
40 | |
41 | You will need a copy of Git for your computer. You can fetch a copy of | |
42 | the repository using the Git protocol (which uses port 9418): | |
43 | ||
e0b2b458 | 44 | % git clone git://perl5.git.perl.org/perl.git perl-git |
d7dd28b6 | 45 | |
f755e97d | 46 | This clones the repository and makes a local copy in the F<perl-git> |
d7dd28b6 LB |
47 | directory. |
48 | ||
49 | If your local network does not allow you to use port 9418, then you can | |
cf5e7595 | 50 | fetch a copy of the repository over HTTP (this is at least 4x slower): |
d7dd28b6 | 51 | |
e0b2b458 | 52 | % git clone http://perl5.git.perl.org/perl.git perl-http |
d7dd28b6 | 53 | |
f755e97d | 54 | This clones the repository and makes a local copy in the F<perl-http> |
d7dd28b6 LB |
55 | directory. |
56 | ||
ba336be1 | 57 | =head2 Write access to the repository |
d7dd28b6 | 58 | |
6acba58e LB |
59 | If you are a committer, then you can fetch a copy of the repository |
60 | that you can push back on with: | |
d7dd28b6 | 61 | |
e0b2b458 | 62 | % git clone ssh://perl5.git.perl.org/perl.git perl-ssh |
d7dd28b6 | 63 | |
8f718e95 | 64 | This clones the repository and makes a local copy in the F<perl-ssh> |
d7dd28b6 LB |
65 | directory. |
66 | ||
c26da522 | 67 | If you cloned using the git protocol, which is faster than ssh, then |
11ed6e28 | 68 | you will need to modify the URL for the origin remote to enable |
77db6475 | 69 | pushing. To do that edit F<.git/config> with git-config(1) like this: |
1a0f15d5 | 70 | |
e0b2b458 | 71 | % git config remote.origin.url ssh://perl5.git.perl.org/perl.git |
d7dd28b6 | 72 | |
9d77ce3f AB |
73 | You can also set up your user name and e-mail address. Most people do |
74 | this once globally in their F<~/.gitconfig> by doing something like: | |
184487f0 | 75 | |
9d77ce3f AB |
76 | % git config --global user.name "Ævar Arnfjörð Bjarmason" |
77 | % git config --global user.email avarab@gmail.com | |
78 | ||
79 | However if you'd like to override that just for perl then execute then | |
80 | execute something like the following in F<perl-git>: | |
81 | ||
82 | % git config user.email avar@cpan.org | |
184487f0 | 83 | |
6acba58e LB |
84 | It is also possible to keep C<origin> as a git remote, and add a new |
85 | remote for ssh access: | |
f6c12373 | 86 | |
dc3c3040 | 87 | % git remote add camel perl5.git.perl.org:/perl.git |
f6c12373 | 88 | |
6acba58e | 89 | This allows you to update your local repository by pulling from |
f755e97d | 90 | C<origin>, which is faster and doesn't require you to authenticate, and |
6acba58e | 91 | to push your changes back with the C<camel> remote: |
f6c12373 VP |
92 | |
93 | % git fetch camel | |
94 | % git push camel | |
95 | ||
6acba58e LB |
96 | The C<fetch> command just updates the C<camel> refs, as the objects |
97 | themselves should have been fetched when pulling from C<origin>. | |
f6c12373 | 98 | |
ba336be1 | 99 | =head2 A note on camel and dromedary |
3482f01a DK |
100 | |
101 | The committers have SSH access to the two servers that serve | |
333f8875 VP |
102 | C<perl5.git.perl.org>. One is C<perl5.git.perl.org> itself (I<camel>), |
103 | which is the 'master' repository. The second one is | |
104 | C<users.perl5.git.perl.org> (I<dromedary>), which can be used for | |
105 | general testing and development. Dromedary syncs the git tree from | |
106 | camel every few minutes, you should not push there. Both machines also | |
3482f01a DK |
107 | have a full CPAN mirror in /srv/CPAN, please use this. To share files |
108 | with the general public, dromedary serves your ~/public_html/ as | |
333f8875 | 109 | C<http://users.perl5.git.perl.org/~yourlogin/> |
b47aa495 | 110 | |
3482f01a DK |
111 | These hosts have fairly strict firewalls to the outside. Outgoing, only |
112 | rsync, ssh and git are allowed. For http and ftp, you can use | |
113 | http://webproxy:3128 as proxy. Incoming, the firewall tries to detect | |
114 | attacks and blocks IP addresses with suspicious activity. This | |
115 | sometimes (but very rarely) has false positives and you might get | |
116 | blocked. The quickest way to get unblocked is to notify the admins. | |
117 | ||
118 | These two boxes are owned, hosted, and operated by booking.com. You can | |
119 | reach the sysadmins in #p5p on irc.perl.org or via mail to | |
120 | C<perl5-porters@perl.org> | |
121 | ||
ba336be1 | 122 | =head1 Overview of the repository |
d7dd28b6 | 123 | |
6acba58e LB |
124 | Once you have changed into the repository directory, you can inspect |
125 | it. | |
d7dd28b6 | 126 | |
39219fd3 | 127 | After a clone the repository will contain a single local branch, which |
50eca761 | 128 | will be the current branch as well, as indicated by the asterisk. |
39219fd3 YO |
129 | |
130 | % git branch | |
131 | * blead | |
132 | ||
f755e97d | 133 | Using the -a switch to C<branch> will also show the remote tracking |
6acba58e | 134 | branches in the repository: |
39219fd3 | 135 | |
d9847473 | 136 | % git branch -a |
09081495 | 137 | * blead |
d7dd28b6 LB |
138 | origin/HEAD |
139 | origin/blead | |
140 | ... | |
141 | ||
6acba58e LB |
142 | The branches that begin with "origin" correspond to the "git remote" |
143 | that you cloned from (which is named "origin"). Each branch on the | |
144 | remote will be exactly tracked by theses branches. You should NEVER do | |
145 | work on these remote tracking branches. You only ever do work in a | |
146 | local branch. Local branches can be configured to automerge (on pull) | |
147 | from a designated remote tracking branch. This is the case with the | |
148 | default branch C<blead> which will be configured to merge from the | |
149 | remote tracking branch C<origin/blead>. | |
39219fd3 | 150 | |
d7dd28b6 LB |
151 | You can see recent commits: |
152 | ||
c2cf2042 | 153 | % git log |
d7dd28b6 | 154 | |
6acba58e LB |
155 | And pull new changes from the repository, and update your local |
156 | repository (must be clean first) | |
d7dd28b6 LB |
157 | |
158 | % git pull | |
09081495 | 159 | |
6acba58e LB |
160 | Assuming we are on the branch C<blead> immediately after a pull, this |
161 | command would be more or less equivalent to: | |
39219fd3 YO |
162 | |
163 | % git fetch | |
164 | % git merge origin/blead | |
165 | ||
6acba58e LB |
166 | In fact if you want to update your local repository without touching |
167 | your working directory you do: | |
39219fd3 YO |
168 | |
169 | % git fetch | |
170 | ||
6acba58e LB |
171 | And if you want to update your remote-tracking branches for all defined |
172 | remotes simultaneously you can do | |
39219fd3 YO |
173 | |
174 | % git remote update | |
175 | ||
6acba58e LB |
176 | Neither of these last two commands will update your working directory, |
177 | however both will update the remote-tracking branches in your | |
178 | repository. | |
39219fd3 | 179 | |
6051489b NC |
180 | To make a local branch of a remote branch: |
181 | ||
182 | % git checkout -b maint-5.10 origin/maint-5.10 | |
183 | ||
09081495 LB |
184 | To switch back to blead: |
185 | ||
186 | % git checkout blead | |
c2cf2042 | 187 | |
ba336be1 | 188 | =head2 Finding out your status |
39219fd3 YO |
189 | |
190 | The most common git command you will use will probably be | |
191 | ||
192 | % git status | |
193 | ||
6acba58e LB |
194 | This command will produce as output a description of the current state |
195 | of the repository, including modified files and unignored untracked | |
196 | files, and in addition it will show things like what files have been | |
197 | staged for the next commit, and usually some useful information about | |
198 | how to change things. For instance the following: | |
39219fd3 YO |
199 | |
200 | $ git status | |
201 | # On branch blead | |
202 | # Your branch is ahead of 'origin/blead' by 1 commit. | |
203 | # | |
204 | # Changes to be committed: | |
205 | # (use "git reset HEAD <file>..." to unstage) | |
206 | # | |
207 | # modified: pod/perlrepository.pod | |
208 | # | |
209 | # Changed but not updated: | |
210 | # (use "git add <file>..." to update what will be committed) | |
211 | # | |
212 | # modified: pod/perlrepository.pod | |
213 | # | |
214 | # Untracked files: | |
215 | # (use "git add <file>..." to include in what will be committed) | |
216 | # | |
217 | # deliberate.untracked | |
218 | ||
6acba58e LB |
219 | This shows that there were changes to this document staged for commit, |
220 | and that there were further changes in the working directory not yet | |
221 | staged. It also shows that there was an untracked file in the working | |
222 | directory, and as you can see shows how to change all of this. It also | |
0549aefb LB |
223 | shows that there is one commit on the working branch C<blead> which has |
224 | not been pushed to the C<origin> remote yet. B<NOTE>: that this output | |
225 | is also what you see as a template if you do not provide a message to | |
226 | C<git commit>. | |
7f6effc7 | 227 | |
77db6475 LB |
228 | Assuming that you'd like to commit all the changes you've just made as |
229 | a a single atomic unit, run this command: | |
bdaf0bc6 JV |
230 | |
231 | % git commit -a | |
232 | ||
233 | (That C<-a> tells git to add every file you've changed to this commit. | |
77db6475 LB |
234 | New files aren't automatically added to your commit when you use |
235 | C<commit -a> If you want to add files or to commit some, but not all of | |
236 | your changes, have a look at the documentation for C<git add>.) | |
bdaf0bc6 | 237 | |
e9360695 | 238 | Git will start up your favorite text editor, so that you can craft a |
bdaf0bc6 JV |
239 | commit message for your change. See L</Commit message> below for more |
240 | information about what makes a good commit message. | |
241 | ||
77db6475 LB |
242 | Once you've finished writing your commit message and exited your |
243 | editor, git will write your change to disk and tell you something like | |
244 | this: | |
7f6effc7 | 245 | |
7f6effc7 YO |
246 | Created commit daf8e63: explain git status and stuff about remotes |
247 | 1 files changed, 83 insertions(+), 3 deletions(-) | |
248 | ||
bdaf0bc6 JV |
249 | |
250 | If you re-run C<git status>, you should see something like this: | |
7f6effc7 YO |
251 | |
252 | % git status | |
253 | # On branch blead | |
254 | # Your branch is ahead of 'origin/blead' by 2 commits. | |
255 | # | |
256 | # Untracked files: | |
257 | # (use "git add <file>..." to include in what will be committed) | |
258 | # | |
259 | # deliberate.untracked | |
260 | nothing added to commit but untracked files present (use "git add" to track) | |
261 | ||
39219fd3 | 262 | |
6acba58e LB |
263 | When in doubt, before you do anything else, check your status and read |
264 | it carefully, many questions are answered directly by the git status | |
265 | output. | |
39219fd3 | 266 | |
ba336be1 | 267 | =head1 Submitting a patch |
c2cf2042 LB |
268 | |
269 | If you have a patch in mind for Perl, you should first get a copy of | |
270 | the repository: | |
271 | ||
272 | % git clone git://perl5.git.perl.org/perl.git perl-git | |
273 | ||
274 | Then change into the directory: | |
275 | ||
276 | % cd perl-git | |
277 | ||
6acba58e LB |
278 | Alternatively, if you already have a Perl repository, you should ensure |
279 | that you're on the I<blead> branch, and your repository is up to date: | |
12322d22 A |
280 | |
281 | % git checkout blead | |
282 | % git pull | |
283 | ||
6a7cbfe8 LB |
284 | It's preferable to patch against the latest blead version, since this |
285 | is where new development occurs for all changes other than critical bug | |
286 | fixes. Critical bug fix patches should be made against the relevant | |
7f4ffa9d RS |
287 | maint branches, or should be submitted with a note indicating all the |
288 | branches where the fix should be applied. | |
a44f43ac | 289 | |
6acba58e LB |
290 | Now that we have everything up to date, we need to create a temporary |
291 | new branch for these changes and switch into it: | |
b1fccde5 | 292 | |
a9b05323 | 293 | % git checkout -b orange |
23f8d33e | 294 | |
a9b05323 YO |
295 | which is the short form of |
296 | ||
b1fccde5 LB |
297 | % git branch orange |
298 | % git checkout orange | |
299 | ||
0c24b290 AB |
300 | Creating a topic branch makes it easier for the maintainers to rebase |
301 | or merge back into the master blead for a more linear history. If you | |
77db6475 LB |
302 | don't work on a topic branch the maintainer has to manually cherry pick |
303 | your changes onto blead before they can be applied. | |
0c24b290 | 304 | |
77db6475 | 305 | That'll get you scolded on perl5-porters, so don't do that. Be Awesome. |
0c24b290 | 306 | |
c2cf2042 LB |
307 | Then make your changes. For example, if Leon Brocard changes his name |
308 | to Orange Brocard, we should change his name in the AUTHORS file: | |
309 | ||
310 | % perl -pi -e 's{Leon Brocard}{Orange Brocard}' AUTHORS | |
311 | ||
312 | You can see what files are changed: | |
313 | ||
314 | % git status | |
f755e97d | 315 | # On branch orange |
c2cf2042 LB |
316 | # Changes to be committed: |
317 | # (use "git reset HEAD <file>..." to unstage) | |
318 | # | |
2699d634 | 319 | # modified: AUTHORS |
c2cf2042 LB |
320 | # |
321 | ||
c2cf2042 LB |
322 | And you can see the changes: |
323 | ||
324 | % git diff | |
325 | diff --git a/AUTHORS b/AUTHORS | |
326 | index 293dd70..722c93e 100644 | |
327 | --- a/AUTHORS | |
328 | +++ b/AUTHORS | |
7df2e4bc | 329 | @@ -541,7 +541,7 @@ Lars Hecking <lhecking@nmrc.ucc.ie> |
c2cf2042 LB |
330 | Laszlo Molnar <laszlo.molnar@eth.ericsson.se> |
331 | Leif Huhn <leif@hale.dkstat.com> | |
332 | Len Johnson <lenjay@ibm.net> | |
333 | -Leon Brocard <acme@astray.com> | |
334 | +Orange Brocard <acme@astray.com> | |
335 | Les Peters <lpeters@aol.net> | |
336 | Lesley Binks <lesley.binks@gmail.com> | |
337 | Lincoln D. Stein <lstein@cshl.org> | |
338 | ||
77471e41 | 339 | For changes significant enough to warrant a F<pod/perldelta.pod> entry, the |
507569bb FR |
340 | porters would greatly appreciate it if you submit an entry along with your |
341 | actual change. Significant changes include, but are not limited to: | |
77471e41 FR |
342 | |
343 | =over 4 | |
344 | ||
345 | =item * | |
346 | ||
347 | adding, deprecating, or removing core features | |
348 | ||
349 | =item * | |
350 | ||
351 | adding, deprecating, removing, or upgrading core or dual-life modules | |
352 | ||
353 | =item * | |
354 | ||
355 | adding new core tests | |
356 | ||
357 | =item * | |
358 | ||
359 | fixing security issues and user-visible bugs in the core | |
360 | ||
361 | =item * | |
362 | ||
507569bb | 363 | changes that might break existing code, either on the perl or C level |
77471e41 FR |
364 | |
365 | =item * | |
366 | ||
367 | significant performance improvements | |
368 | ||
369 | =item * | |
370 | ||
507569bb FR |
371 | adding, removing, or significantly changing documentation in the F<pod/> |
372 | directory | |
77471e41 FR |
373 | |
374 | =item * | |
375 | ||
376 | important platform-specific changes | |
377 | ||
378 | =back | |
379 | ||
507569bb | 380 | Please make sure you add the perldelta entry to the right section within |
77471e41 FR |
381 | F<pod/perldelta.pod>. More information on how to write good perldelta entries is |
382 | available in the C<Style> section of F<Porting/how_to_write_a_perldelta.pod>. | |
383 | ||
c2cf2042 LB |
384 | Now commit your change locally: |
385 | ||
dc3c3040 | 386 | % git commit -a -m 'Rename Leon Brocard to Orange Brocard' |
c2cf2042 LB |
387 | Created commit 6196c1d: Rename Leon Brocard to Orange Brocard |
388 | 1 files changed, 1 insertions(+), 1 deletions(-) | |
389 | ||
2be70973 KW |
390 | The C<-a> option is used to include all files that git tracks that you have |
391 | changed. If at this time, you only want to commit some of the files you have | |
392 | worked on, you can omit the C<-a> and use the command C<S<git add I<FILE ...>>> | |
393 | before doing the commit. C<S<git add --interactive>> allows you to even just | |
394 | commit portions of files instead of all the changes in them. | |
395 | ||
396 | The C<-m> option is used to specify the commit message. If you omit it, git | |
397 | will open a text editor for you to compose the message interactively. This | |
398 | is useful when the changes are more complex than the sample given here, and, | |
399 | depending on the editor, to know that the first line of the commit message | |
400 | doesn't exceed the 50 character legal maximum. | |
401 | ||
dc3c3040 GA |
402 | You can examine your last commit with: |
403 | ||
404 | % git show HEAD | |
405 | ||
406 | and if you are not happy with either the description or the patch | |
c26da522 | 407 | itself you can fix it up by editing the files once more and then issue: |
dc3c3040 GA |
408 | |
409 | % git commit -a --amend | |
410 | ||
c2cf2042 LB |
411 | Now you should create a patch file for all your local changes: |
412 | ||
f15b1f22 | 413 | % git format-patch -M origin.. |
c2cf2042 LB |
414 | 0001-Rename-Leon-Brocard-to-Orange-Brocard.patch |
415 | ||
dce3ee48 AB |
416 | You should now send an email to to |
417 | L<perlbug@perl.org|mailto:perlbug@perl.org> with a description of your | |
418 | changes, and include this patch file as an attachment. In addition to | |
77db6475 | 419 | being tracked by RT, mail to perlbug will automatically be forwarded to |
a404c96a DL |
420 | perl5-porters (with manual moderation, so please be patient). You should only |
421 | send patches to L<perl5-porters@perl.org|mailto:perl5-porters@perl.org> | |
422 | directly if the patch is not ready to be applied, but intended for discussion. | |
64a8e22b AB |
423 | |
424 | See the next section for how to configure and use git to send these | |
425 | emails for you. | |
c2cf2042 | 426 | |
b1fccde5 LB |
427 | If you want to delete your temporary branch, you may do so with: |
428 | ||
429 | % git checkout blead | |
430 | % git branch -d orange | |
431 | error: The branch 'orange' is not an ancestor of your current HEAD. | |
432 | If you are sure you want to delete it, run 'git branch -D orange'. | |
433 | % git branch -D orange | |
434 | Deleted branch orange. | |
7df2e4bc | 435 | |
2d5f1d01 DG |
436 | =head2 Using git to send patch emails |
437 | ||
64a8e22b AB |
438 | In your ~/git/perl repository, set the destination email to perl's bug |
439 | tracker: | |
440 | ||
441 | $ git config sendemail.to perlbug@perl.org | |
442 | ||
443 | Or maybe perl5-porters (discussed above): | |
2d5f1d01 DG |
444 | |
445 | $ git config sendemail.to perl5-porters@perl.org | |
446 | ||
447 | Then you can use git directly to send your patch emails: | |
448 | ||
449 | $ git send-email 0001-Rename-Leon-Brocard-to-Orange-Brocard.patch | |
450 | ||
333f8875 VP |
451 | You may need to set some configuration variables for your particular |
452 | email service provider. For example, to set your global git config to | |
453 | send email via a gmail account: | |
2d5f1d01 DG |
454 | |
455 | $ git config --global sendemail.smtpserver smtp.gmail.com | |
456 | $ git config --global sendemail.smtpssl 1 | |
457 | $ git config --global sendemail.smtpuser YOURUSERNAME@gmail.com | |
458 | ||
333f8875 VP |
459 | With this configuration, you will be prompted for your gmail password |
460 | when you run 'git send-email'. You can also configure | |
461 | C<sendemail.smtppass> with your password if you don't care about having | |
462 | your password in the .gitconfig file. | |
2d5f1d01 | 463 | |
a44f43ac RGS |
464 | =head2 A note on derived files |
465 | ||
466 | Be aware that many files in the distribution are derivative--avoid | |
0549aefb LB |
467 | patching them, because git won't see the changes to them, and the build |
468 | process will overwrite them. Patch the originals instead. Most | |
469 | utilities (like perldoc) are in this category, i.e. patch | |
77db6475 LB |
470 | F<utils/perldoc.PL> rather than F<utils/perldoc>. Similarly, don't |
471 | create patches for files under $src_root/ext from their copies found in | |
0549aefb LB |
472 | $install_root/lib. If you are unsure about the proper location of a |
473 | file that may have gotten copied while building the source | |
474 | distribution, consult the C<MANIFEST>. | |
a44f43ac | 475 | |
6e2cec71 | 476 | =for XXX |
6e2cec71 | 477 | What should we recommend about binary files now? Do we need anything? |
a44f43ac RGS |
478 | |
479 | =head2 Getting your patch accepted | |
480 | ||
77db6475 LB |
481 | If you are submitting a code patch there are several things that you |
482 | need to do. | |
a44f43ac RGS |
483 | |
484 | =over 4 | |
485 | ||
bdaf0bc6 JV |
486 | =item Commit message |
487 | ||
488 | As you craft each patch you intend to submit to the Perl core, it's | |
489 | important to write a good commit message. | |
490 | ||
1a5f98ea | 491 | The first line of the commit message should be a short description and |
77db6475 LB |
492 | should skip the full stop. It should be no longer than the subject line |
493 | of an E-Mail, 50 characters being a good rule of thumb. | |
1a5f98ea AB |
494 | |
495 | A lot of Git tools (Gitweb, GitHub, git log --pretty=oneline, ..) will | |
496 | only display the first line (cut off at 50 characters) when presenting | |
497 | commit summaries. | |
498 | ||
499 | The commit message should include description of the problem that the | |
500 | patch corrects or new functionality that the patch adds. | |
bdaf0bc6 | 501 | |
bdaf0bc6 | 502 | As a general rule of thumb, your commit message should let a programmer |
77db6475 LB |
503 | with a reasonable familiarity with the Perl core quickly understand |
504 | what you were trying to do, how you were trying to do it and why the | |
505 | change matters to Perl. | |
bdaf0bc6 JV |
506 | |
507 | =over 4 | |
508 | ||
509 | =item What | |
510 | ||
ac1cbfb0 JC |
511 | Your commit message should describe what part of the Perl core you're |
512 | changing and what you expect your patch to do. | |
bdaf0bc6 JV |
513 | |
514 | =item Why | |
515 | ||
516 | Perhaps most importantly, your commit message should describe why the | |
517 | change you are making is important. When someone looks at your change | |
518 | in six months or six years, your intent should be clear. If you're | |
519 | deprecating a feature with the intent of later simplifying another bit | |
520 | of code, say so. If you're fixing a performance problem or adding a new | |
521 | feature to support some other bit of the core, mention that. | |
522 | ||
523 | =item How | |
524 | ||
525 | While it's not necessary for documentation changes, new tests or | |
526 | trivial patches, it's often worth explaining how your change works. | |
527 | Even if it's clear to you today, it may not be clear to a porter next | |
528 | month or next year. | |
529 | ||
530 | =back | |
531 | ||
ea9c0d74 JV |
532 | A commit message isn't intended to take the place of comments in your |
533 | code. Commit messages should describe the change you made, while code | |
80a0006a JV |
534 | comments should describe the current state of the code. If you've just |
535 | implemented a new feature, complete with doc, tests and well-commented | |
536 | code, a brief commit message will often suffice. If, however, you've | |
537 | just changed a single character deep in the parser or lexer, you might | |
ea9c0d74 JV |
538 | need to write a small novel to ensure that future readers understand |
539 | what you did and why you did it. | |
540 | ||
a44f43ac RGS |
541 | =item Comments, Comments, Comments |
542 | ||
0549aefb LB |
543 | Be sure to adequately comment your code. While commenting every line |
544 | is unnecessary, anything that takes advantage of side effects of | |
a44f43ac | 545 | operators, that creates changes that will be felt outside of the |
0549aefb LB |
546 | function being patched, or that others may find confusing should be |
547 | documented. If you are going to err, it is better to err on the side | |
548 | of adding too many comments than too few. | |
a44f43ac RGS |
549 | |
550 | =item Style | |
551 | ||
0549aefb LB |
552 | In general, please follow the particular style of the code you are |
553 | patching. | |
a44f43ac | 554 | |
0549aefb LB |
555 | In particular, follow these general guidelines for patching Perl |
556 | sources: | |
a44f43ac RGS |
557 | |
558 | 8-wide tabs (no exceptions!) | |
559 | 4-wide indents for code, 2-wide indents for nested CPP #defines | |
560 | try hard not to exceed 79-columns | |
561 | ANSI C prototypes | |
562 | uncuddled elses and "K&R" style for indenting control constructs | |
563 | no C++ style (//) comments | |
564 | mark places that need to be revisited with XXX (and revisit often!) | |
565 | opening brace lines up with "if" when conditional spans multiple | |
566 | lines; should be at end-of-line otherwise | |
567 | in function definitions, name starts in column 0 (return value is on | |
568 | previous line) | |
569 | single space after keywords that are followed by parens, no space | |
570 | between function name and following paren | |
571 | avoid assignments in conditionals, but if they're unavoidable, use | |
572 | extra paren, e.g. "if (a && (b = c)) ..." | |
573 | "return foo;" rather than "return(foo);" | |
574 | "if (!foo) ..." rather than "if (foo == FALSE) ..." etc. | |
575 | ||
576 | =item Testsuite | |
577 | ||
77db6475 LB |
578 | If your patch changes code (rather than just changing documentation) |
579 | you should also include one or more test cases which illustrate the bug | |
580 | you're fixing or validate the new functionality you're adding. In | |
581 | general, you should update an existing test file rather than create a | |
582 | new one. | |
bdaf0bc6 | 583 | |
0549aefb LB |
584 | Your testsuite additions should generally follow these guidelines |
585 | (courtesy of Gurusamy Sarathy <gsar@activestate.com>): | |
a44f43ac RGS |
586 | |
587 | Know what you're testing. Read the docs, and the source. | |
588 | Tend to fail, not succeed. | |
589 | Interpret results strictly. | |
590 | Use unrelated features (this will flush out bizarre interactions). | |
591 | Use non-standard idioms (otherwise you are not testing TIMTOWTDI). | |
592 | Avoid using hardcoded test numbers whenever possible (the | |
593 | EXPECTED/GOT found in t/op/tie.t is much more maintainable, | |
594 | and gives better failure reports). | |
595 | Give meaningful error messages when a test fails. | |
596 | Avoid using qx// and system() unless you are testing for them. If you | |
597 | do use them, make sure that you cover _all_ perl platforms. | |
598 | Unlink any temporary files you create. | |
599 | Promote unforeseen warnings to errors with $SIG{__WARN__}. | |
600 | Be sure to use the libraries and modules shipped with the version | |
601 | being tested, not those that were already installed. | |
602 | Add comments to the code explaining what you are testing for. | |
603 | Make updating the '1..42' string unnecessary. Or make sure that | |
604 | you update it. | |
605 | Test _all_ behaviors of a given operator, library, or function: | |
606 | - All optional arguments | |
607 | - Return values in various contexts (boolean, scalar, list, lvalue) | |
608 | - Use both global and lexical variables | |
609 | - Don't forget the exceptional, pathological cases. | |
610 | ||
611 | =back | |
612 | ||
ba336be1 | 613 | =head1 Accepting a patch |
7df2e4bc LB |
614 | |
615 | If you have received a patch file generated using the above section, | |
616 | you should try out the patch. | |
617 | ||
618 | First we need to create a temporary new branch for these changes and | |
619 | switch into it: | |
620 | ||
a9b05323 | 621 | % git checkout -b experimental |
7df2e4bc | 622 | |
6acba58e LB |
623 | Patches that were formatted by C<git format-patch> are applied with |
624 | C<git am>: | |
7df2e4bc | 625 | |
2af192ee | 626 | % git am 0001-Rename-Leon-Brocard-to-Orange-Brocard.patch |
7df2e4bc LB |
627 | Applying Rename Leon Brocard to Orange Brocard |
628 | ||
6acba58e LB |
629 | If just a raw diff is provided, it is also possible use this two-step |
630 | process: | |
09645c26 VP |
631 | |
632 | % git apply bugfix.diff | |
dc3c3040 | 633 | % git commit -a -m "Some fixing" --author="That Guy <that.guy@internets.com>" |
09645c26 | 634 | |
7df2e4bc LB |
635 | Now we can inspect the change: |
636 | ||
dc3c3040 | 637 | % git show HEAD |
7df2e4bc LB |
638 | commit b1b3dab48344cff6de4087efca3dbd63548ab5e2 |
639 | Author: Leon Brocard <acme@astray.com> | |
640 | Date: Fri Dec 19 17:02:59 2008 +0000 | |
641 | ||
642 | Rename Leon Brocard to Orange Brocard | |
7df2e4bc | 643 | |
7df2e4bc LB |
644 | diff --git a/AUTHORS b/AUTHORS |
645 | index 293dd70..722c93e 100644 | |
646 | --- a/AUTHORS | |
647 | +++ b/AUTHORS | |
648 | @@ -541,7 +541,7 @@ Lars Hecking <lhecking@nmrc.ucc.ie> | |
649 | Laszlo Molnar <laszlo.molnar@eth.ericsson.se> | |
650 | Leif Huhn <leif@hale.dkstat.com> | |
651 | Len Johnson <lenjay@ibm.net> | |
652 | -Leon Brocard <acme@astray.com> | |
653 | +Orange Brocard <acme@astray.com> | |
654 | Les Peters <lpeters@aol.net> | |
655 | Lesley Binks <lesley.binks@gmail.com> | |
656 | Lincoln D. Stein <lstein@cshl.org> | |
657 | ||
658 | If you are a committer to Perl and you think the patch is good, you can | |
75fb7651 | 659 | then merge it into blead then push it out to the main repository: |
7df2e4bc LB |
660 | |
661 | % git checkout blead | |
d9847473 | 662 | % git merge experimental |
75fb7651 | 663 | % git push |
7df2e4bc LB |
664 | |
665 | If you want to delete your temporary branch, you may do so with: | |
666 | ||
667 | % git checkout blead | |
668 | % git branch -d experimental | |
669 | error: The branch 'experimental' is not an ancestor of your current HEAD. | |
670 | If you are sure you want to delete it, run 'git branch -D experimental'. | |
671 | % git branch -D experimental | |
672 | Deleted branch experimental. | |
b0d36535 | 673 | |
ba336be1 | 674 | =head1 Cleaning a working directory |
b0d36535 | 675 | |
6acba58e | 676 | The command C<git clean> can with varying arguments be used as a |
dc3c3040 | 677 | replacement for C<make clean>. |
b0d36535 YO |
678 | |
679 | To reset your working directory to a pristine condition you can do: | |
680 | ||
e0b2b458 | 681 | % git clean -dxf |
b0d36535 YO |
682 | |
683 | However, be aware this will delete ALL untracked content. You can use | |
684 | ||
e0b2b458 | 685 | % git clean -Xf |
b0d36535 | 686 | |
6acba58e LB |
687 | to remove all ignored untracked files, such as build and test |
688 | byproduct, but leave any manually created files alone. | |
b0d36535 | 689 | |
0549aefb | 690 | If you only want to cancel some uncommitted edits, you can use C<git |
c26da522 LB |
691 | checkout> and give it a list of files to be reverted, or C<git checkout |
692 | -f> to revert them all. | |
f755e97d RGS |
693 | |
694 | If you want to cancel one or several commits, you can use C<git reset>. | |
695 | ||
ba336be1 | 696 | =head1 Bisecting |
d82a90c1 | 697 | |
6acba58e LB |
698 | C<git> provides a built-in way to determine, with a binary search in |
699 | the history, which commit should be blamed for introducing a given bug. | |
d82a90c1 | 700 | |
6acba58e | 701 | Suppose that we have a script F<~/testcase.pl> that exits with C<0> |
77db6475 LB |
702 | when some behaviour is correct, and with C<1> when it's faulty. You |
703 | need an helper script that automates building C<perl> and running the | |
6acba58e | 704 | testcase: |
d82a90c1 VP |
705 | |
706 | % cat ~/run | |
707 | #!/bin/sh | |
708 | git clean -dxf | |
a4583001 AB |
709 | |
710 | # If you get './makedepend: 1: Syntax error: Unterminated quoted | |
711 | # string' when bisecting versions of perl older than 5.9.5 this hack | |
712 | # will work around the bug in makedepend.SH which was fixed in | |
cfe91bfa | 713 | # version 96a8704c. Make sure to comment out `git checkout makedepend.SH' |
a4583001 AB |
714 | # below too. |
715 | git show blead:makedepend.SH > makedepend.SH | |
716 | ||
d82a90c1 | 717 | # If you can use ccache, add -Dcc=ccache\ gcc -Dld=gcc to the Configure line |
1d5fe431 MB |
718 | # if Encode is not needed for the test, you can speed up the bisect by |
719 | # excluding it from the runs with -Dnoextensions=Encode | |
c0d1ef72 MB |
720 | sh Configure -des -Dusedevel -Doptimize="-g" |
721 | test -f config.sh || exit 125 | |
722 | # Correct makefile for newer GNU gcc | |
723 | perl -ni -we 'print unless /<(?:built-in|command)/' makefile x2p/makefile | |
724 | # if you just need miniperl, replace test_prep with miniperl | |
d7923bfe | 725 | make test_prep |
68814ba4 | 726 | [ -x ./perl ] || exit 125 |
d82a90c1 | 727 | ./perl -Ilib ~/testcase.pl |
c0d1ef72 | 728 | ret=$? |
7930c68b | 729 | [ $ret -gt 127 ] && ret=127 |
cfe91bfa | 730 | # git checkout makedepend.SH |
c0d1ef72 MB |
731 | git clean -dxf |
732 | exit $ret | |
d82a90c1 | 733 | |
6acba58e LB |
734 | This script may return C<125> to indicate that the corresponding commit |
735 | should be skipped. Otherwise, it returns the status of | |
736 | F<~/testcase.pl>. | |
d82a90c1 | 737 | |
bdaf0bc6 | 738 | You first enter in bisect mode with: |
d82a90c1 VP |
739 | |
740 | % git bisect start | |
741 | ||
6acba58e LB |
742 | For example, if the bug is present on C<HEAD> but wasn't in 5.10.0, |
743 | C<git> will learn about this when you enter: | |
d82a90c1 VP |
744 | |
745 | % git bisect bad | |
746 | % git bisect good perl-5.10.0 | |
747 | Bisecting: 853 revisions left to test after this | |
748 | ||
6acba58e | 749 | This results in checking out the median commit between C<HEAD> and |
bdaf0bc6 | 750 | C<perl-5.10.0>. You can then run the bisecting process with: |
d82a90c1 VP |
751 | |
752 | % git bisect run ~/run | |
753 | ||
754 | When the first bad commit is isolated, C<git bisect> will tell you so: | |
755 | ||
756 | ca4cfd28534303b82a216cfe83a1c80cbc3b9dc5 is first bad commit | |
757 | commit ca4cfd28534303b82a216cfe83a1c80cbc3b9dc5 | |
758 | Author: Dave Mitchell <davem@fdisolutions.com> | |
759 | Date: Sat Feb 9 14:56:23 2008 +0000 | |
760 | ||
9469eb4a | 761 | [perl #49472] Attributes + Unknown Error |
d82a90c1 VP |
762 | ... |
763 | ||
764 | bisect run success | |
765 | ||
6acba58e LB |
766 | You can peek into the bisecting process with C<git bisect log> and |
767 | C<git bisect visualize>. C<git bisect reset> will get you out of bisect | |
768 | mode. | |
d82a90c1 | 769 | |
6acba58e LB |
770 | Please note that the first C<good> state must be an ancestor of the |
771 | first C<bad> state. If you want to search for the commit that I<solved> | |
772 | some bug, you have to negate your test case (i.e. exit with C<1> if OK | |
773 | and C<0> if not) and still mark the lower bound as C<good> and the | |
774 | upper as C<bad>. The "first bad commit" has then to be understood as | |
775 | the "first commit where the bug is solved". | |
d82a90c1 | 776 | |
6acba58e LB |
777 | C<git help bisect> has much more information on how you can tweak your |
778 | binary searches. | |
9d68b7ed | 779 | |
ba336be1 | 780 | =head1 Submitting a patch via GitHub |
03050721 LB |
781 | |
782 | GitHub is a website that makes it easy to fork and publish projects | |
783 | with Git. First you should set up a GitHub account and log in. | |
784 | ||
785 | Perl's git repository is mirrored on GitHub at this page: | |
786 | ||
45b194c5 | 787 | http://github.com/mirrors/perl/tree/blead |
03050721 LB |
788 | |
789 | Visit the page and click the "fork" button. This clones the Perl git | |
790 | repository for you and provides you with "Your Clone URL" from which | |
791 | you should clone: | |
792 | ||
793 | % git clone git@github.com:USERNAME/perl.git perl-github | |
794 | ||
bdaf0bc6 | 795 | The same patch as above, using github might look like this: |
03050721 LB |
796 | |
797 | % cd perl-github | |
edb9e29e | 798 | % git remote add upstream git://perl5.git.perl.org/perl.git |
03050721 LB |
799 | % git pull upstream blead |
800 | % git checkout -b orange | |
801 | % perl -pi -e 's{Leon Brocard}{Orange Brocard}' AUTHORS | |
dc3c3040 | 802 | % git commit -a -m 'Rename Leon Brocard to Orange Brocard' |
03050721 LB |
803 | % git push origin orange |
804 | ||
805 | The orange branch has been pushed to GitHub, so you should now send an | |
705c800c | 806 | email (see L</Submitting a patch>) with a description of your changes |
64a8e22b | 807 | and the following information: |
03050721 LB |
808 | |
809 | http://github.com/USERNAME/perl/tree/orange | |
fb60e745 | 810 | git://github.com/USERNAME/perl.git branch orange |
03050721 | 811 | |
ba336be1 | 812 | =head1 Merging from a branch via GitHub |
c26da522 LB |
813 | |
814 | If someone has provided a branch via GitHub and you are a committer, | |
5c9c28c6 | 815 | you should use the following in your perl-ssh directory: |
c26da522 | 816 | |
e98adcab AB |
817 | % git remote add avar git://github.com/avar/perl.git |
818 | % git fetch avar | |
c26da522 LB |
819 | |
820 | Now you can see the differences between the branch and blead: | |
821 | ||
e98adcab | 822 | % git diff avar/orange |
c26da522 LB |
823 | |
824 | And you can see the commits: | |
825 | ||
e98adcab | 826 | % git log avar/orange |
c26da522 LB |
827 | |
828 | If you approve of a specific commit, you can cherry pick it: | |
829 | ||
e98adcab | 830 | % git cherry-pick 0c24b290ae02b2ab3304f51d5e11e85eb3659eae |
2bab0636 LB |
831 | |
832 | Or you could just merge the whole branch if you like it all: | |
833 | ||
e98adcab | 834 | % git merge avar/orange |
c26da522 LB |
835 | |
836 | And then push back to the repository: | |
837 | ||
838 | % git push | |
839 | ||
ce2a8773 | 840 | |
ba336be1 | 841 | =head1 Topic branches and rewriting history |
ce2a8773 JV |
842 | |
843 | Individual committers should create topic branches under | |
333f8875 VP |
844 | B<yourname>/B<some_descriptive_name>. Other committers should check |
845 | with a topic branch's creator before making any change to it. | |
ce2a8773 | 846 | |
b16add97 AP |
847 | The simplest way to create a remote topic branch that works on all |
848 | versions of git is to push the current head as a new branch on the | |
849 | remote, then check it out locally: | |
850 | ||
851 | $ branch="$yourname/$some_descriptive_name" | |
852 | $ git push origin HEAD:$branch | |
853 | $ git checkout -b $branch origin/$branch | |
854 | ||
855 | Users of git 1.7 or newer can do it in a more obvious manner: | |
856 | ||
857 | $ branch="$yourname/$some_descriptive_name" | |
858 | $ git checkout -b $branch | |
859 | $ git push origin -u $branch | |
33e5002f | 860 | |
ce2a8773 JV |
861 | If you are not the creator of B<yourname>/B<some_descriptive_name>, you |
862 | might sometimes find that the original author has edited the branch's | |
863 | history. There are lots of good reasons for this. Sometimes, an author | |
333f8875 VP |
864 | might simply be rebasing the branch onto a newer source point. |
865 | Sometimes, an author might have found an error in an early commit which | |
866 | they wanted to fix before merging the branch to blead. | |
ce2a8773 | 867 | |
333f8875 VP |
868 | Currently the master repository is configured to forbid |
869 | non-fast-forward merges. This means that the branches within can not | |
870 | be rebased and pushed as a single step. | |
ce2a8773 | 871 | |
333f8875 VP |
872 | The only way you will ever be allowed to rebase or modify the history |
873 | of a pushed branch is to delete it and push it as a new branch under | |
874 | the same name. Please think carefully about doing this. It may be | |
875 | better to sequentially rename your branches so that it is easier for | |
876 | others working with you to cherry-pick their local changes onto the new | |
877 | version. (XXX: needs explanation). | |
ce2a8773 JV |
878 | |
879 | If you want to rebase a personal topic branch, you will have to delete | |
2699d634 YO |
880 | your existing topic branch and push as a new version of it. You can do |
881 | this via the following formula (see the explanation about C<refspec>'s | |
882 | in the git push documentation for details) after you have rebased your | |
883 | branch: | |
884 | ||
885 | # first rebase | |
886 | $ git checkout $user/$topic | |
887 | $ git fetch | |
888 | $ git rebase origin/blead | |
889 | ||
890 | # then "delete-and-push" | |
891 | $ git push origin :$user/$topic | |
892 | $ git push origin $user/$topic | |
893 | ||
894 | B<NOTE:> it is forbidden at the repository level to delete any of the | |
333f8875 VP |
895 | "primary" branches. That is any branch matching |
896 | C<m!^(blead|maint|perl)!>. Any attempt to do so will result in git | |
897 | producing an error like this: | |
2699d634 YO |
898 | |
899 | $ git push origin :blead | |
900 | *** It is forbidden to delete blead/maint branches in this repository | |
901 | error: hooks/update exited with error code 1 | |
902 | error: hook declined to update refs/heads/blead | |
333f8875 | 903 | To ssh://perl5.git.perl.org/perl |
2699d634 | 904 | ! [remote rejected] blead (hook declined) |
333f8875 | 905 | error: failed to push some refs to 'ssh://perl5.git.perl.org/perl' |
2699d634 | 906 | |
333f8875 VP |
907 | As a matter of policy we do B<not> edit the history of the blead and |
908 | maint-* branches. If a typo (or worse) sneaks into a commit to blead or | |
909 | maint-*, we'll fix it in another commit. The only types of updates | |
910 | allowed on these branches are "fast-forward's", where all history is | |
911 | preserved. | |
2699d634 | 912 | |
333f8875 VP |
913 | Annotated tags in the canonical perl.git repository will never be |
914 | deleted or modified. Think long and hard about whether you want to push | |
915 | a local tag to perl.git before doing so. (Pushing unannotated tags is | |
2699d634 | 916 | not allowed.) |
ce2a8773 | 917 | |
edcf105d JV |
918 | =head1 Committing to blead |
919 | ||
920 | If you are a committer, you have the right to commit changes directly to | |
921 | the 'blead' branch, which will become the next production release of Perl. | |
922 | ||
923 | Before pushing I<any> local change to blead, it's incredibly important | |
924 | that you do a few things, lest other committers come after you with | |
925 | pitchforks and torches: | |
926 | ||
927 | =over | |
928 | ||
929 | =item * | |
930 | ||
3f76ddee | 931 | Make sure you have a good commit message. See L</Commit message> elsewhere in |
edcf105d JV |
932 | this document |
933 | ||
934 | =item * | |
935 | ||
936 | Run the test suite. You might not think that one typo fix would break | |
f76a37ee KW |
937 | a test file. You'd be wrong. Here's an example of where not running the |
938 | suite caused problems. A patch was submitted that added a couple of | |
939 | tests to an existing .t. It couldn't possibly affect anything else, so | |
940 | no need to test beyond the single affected .t, right? But, the | |
941 | submitter's email address had changed since the last of their | |
942 | submissions, and this caused other tests to fail. Running the test | |
943 | target given in the next item would have caught this problem. | |
edcf105d JV |
944 | |
945 | =item * | |
946 | ||
947 | If you don't run the full test suite, at least C<make test_porting>. | |
948 | This will run basic sanity checks. To see which sanity checks, have a | |
949 | look in F<t/porting>. | |
950 | ||
951 | =back | |
952 | ||
ba336be1 | 953 | =head1 Committing to maintenance versions |
9d68b7ed | 954 | |
77db6475 LB |
955 | Maintenance versions should only be altered to add critical bug fixes, |
956 | see L<perlpolicy>. | |
7f4ffa9d | 957 | |
9d68b7ed LB |
958 | To commit to a maintenance version of perl, you need to create a local |
959 | tracking branch: | |
960 | ||
961 | % git checkout --track -b maint-5.005 origin/maint-5.005 | |
962 | ||
0549aefb LB |
963 | This creates a local branch named C<maint-5.005>, which tracks the |
964 | remote branch C<origin/maint-5.005>. Then you can pull, commit, merge | |
965 | and push as before. | |
b0d36535 | 966 | |
f755e97d | 967 | You can also cherry-pick commits from blead and another branch, by |
0549aefb LB |
968 | using the C<git cherry-pick> command. It is recommended to use the |
969 | B<-x> option to C<git cherry-pick> in order to record the SHA1 of the | |
970 | original commit in the new commit message. | |
f755e97d | 971 | |
edcf105d JV |
972 | Before pushing any change to a maint version, make sure you've satisfied |
973 | the steps in L</Committing to blead> above. | |
974 | ||
ba336be1 | 975 | =head1 Grafts |
e8589bfa AV |
976 | |
977 | The perl history contains one mistake which was not caught in the | |
ac036724 | 978 | conversion: a merge was recorded in the history between blead and |
333f8875 VP |
979 | maint-5.10 where no merge actually occurred. Due to the nature of git, |
980 | this is now impossible to fix in the public repository. You can remove | |
981 | this mis-merge locally by adding the following line to your | |
e8589bfa AV |
982 | C<.git/info/grafts> file: |
983 | ||
984 | 296f12bbbbaa06de9be9d09d3dcf8f4528898a49 434946e0cb7a32589ed92d18008aaa1d88515930 | |
985 | ||
986 | It is particularly important to have this graft line if any bisecting | |
987 | is done in the area of the "merge" in question. | |
988 | ||
041325d6 | 989 | =head1 SEE ALSO |
bdaf0bc6 | 990 | |
041325d6 | 991 | =over |
bdaf0bc6 | 992 | |
705c800c | 993 | =item * |
041325d6 | 994 | |
705c800c RGS |
995 | The git documentation, accessible via the C<git help> command |
996 | ||
997 | =item * | |
998 | ||
999 | L<perlpolicy> - Perl core development policy | |
041325d6 AB |
1000 | |
1001 | =back | |
f755e97d | 1002 | |
041325d6 | 1003 | =cut |