diff options
| author | Karl Williamson <khw@khw-desktop.(none)> | 2010-07-19 17:18:03 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-07-29 12:10:18 +0200 |
| commit | da8c672f150c6ab47d445e49988200f03f5123a4 (patch) | |
| tree | b70f293facbd52dec817d58b432f1f95592c8262 /ext | |
| parent | 270c16a11ea362c8a47be4760177651e703a531f (diff) | |
| download | perl-da8c672f150c6ab47d445e49988200f03f5123a4.tar.gz | |
ext/B/defsubs_h.PL: add explanatory comment
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/defsubs_h.PL | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ext/B/defsubs_h.PL b/ext/B/defsubs_h.PL index 98a3e8b3bb..f8fa1edc4f 100644 --- a/ext/B/defsubs_h.PL +++ b/ext/B/defsubs_h.PL @@ -72,6 +72,10 @@ if ($] < 5.011) { doconst(CVf_LOCKED); } +# First element in each tuple is the file; second is a regex snippet +# giving the prefix to limit the names of symbols to define that come +# from that file. If none, all symbols will be defined whose values +# match the pattern below. foreach my $tuple (['op.h'],['cop.h'],['regexp.h','RXf_']) { my $file = $tuple->[0]; |