diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-11-29 12:11:28 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-11-29 12:11:28 +0000 |
| commit | 9cfe5470b44e33f00045a3b9c3128c6ade6e813f (patch) | |
| tree | 0e081944b8d49604455e28b2dd5fd7555370db7d /lib/vmsish.pm | |
| parent | 7957ad98fb4b8d8bd28e35e4d1de3a2d6a7acfb9 (diff) | |
| download | perl-9cfe5470b44e33f00045a3b9c3128c6ade6e813f.tar.gz | |
Document the hint constants and where they're used.
p4raw-id: //depot/perl@18217
Diffstat (limited to 'lib/vmsish.pm')
| -rw-r--r-- | lib/vmsish.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/vmsish.pm b/lib/vmsish.pm index c2d97c13ae..82b52abd50 100644 --- a/lib/vmsish.pm +++ b/lib/vmsish.pm @@ -117,6 +117,8 @@ sub bits { my $bits = 0; my $sememe; foreach $sememe (@_) { + # Those hints are defined in vms/vmsish.h : + # HINT_M_VMSISH_STATUS and HINT_M_VMSISH_TIME $bits |= 0x40000000, next if $sememe eq 'status' || $sememe eq '$?'; $bits |= 0x80000000, next if $sememe eq 'time'; } |