Searched refs:constname (Results 1 - 11 of 11) sorted by relevance
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/I18N/Langinfo/ |
| H A D | Langinfo.pm | 82 my $constname;
84 ($constname = $AUTOLOAD) =~ s/.*:://;
85 croak "&I18N::Langinfo::constant not defined" if $constname eq 'constant';
86 my ($error, $val) = constant($constname);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/POSIX/ |
| H A D | POSIX.pm | 39 my $constname = $AUTOLOAD;
40 $constname =~ s/.*:://;
41 if ($NON_CONSTS{$constname}) {
42 my ($val, $error) = &int_macro_int($constname, $_[0]);
44 *$AUTOLOAD = sub { &int_macro_int($constname, $_[0]) };
46 my ($error, $val) = constant($constname);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Fcntl/ |
| H A D | Fcntl.pm | 223 (my $constname = $AUTOLOAD) =~ s/.*:://;
224 die "&Fcntl::constant not defined" if $constname eq 'constant';
225 my ($error, $val) = constant($constname);
|
| /osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Lgrp/t/ |
| H A D | Lgrp.t | 54 foreach my $constname (qw(
60 next if (eval "my \$a = $constname; 1");
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Socket/ |
| H A D | Socket.pm | 388 my($constname);
389 ($constname = $AUTOLOAD) =~ s/.*:://;
390 croak "&Socket::constant not defined" if $constname eq 'constant';
391 my ($error, $val) = constant($constname);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| H A D | AutoLoader.pm | 265 (my $constname = $sub) =~ s/.*:://;
266 my $val = constant($constname, @_ ? $_[0] : 0);
273 croak "Your vendor has not defined constant $constname";
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Time/HiRes/ |
| H A D | HiRes.pm | 23 my $constname;
24 ($constname = $AUTOLOAD) =~ s/.*:://;
25 die "&Time::HiRes::constant not defined" if $constname eq 'constant';
26 my ($error, $val) = constant($constname);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/File/Glob/ |
| H A D | Glob.pm | 85 my $constname;
86 ($constname = $AUTOLOAD) =~ s/.*:://;
87 my ($error, $val) = constant($constname);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Sys/Syslog/ |
| H A D | Syslog.pm | 151 my $constname;
152 ($constname = $AUTOLOAD) =~ s/.*:://;
153 croak "Sys::Syslog::constant() not defined" if $constname eq 'constant';
154 my ($error, $val) = constant($constname);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/ |
| H A D | Constant.pm | 1262 . " my \$constname;\n";
1267 (\$constname = \$AUTOLOAD) =~ s/.*:://;
1268 croak "&${module}::constant not defined" if \$constname eq 'constant';
1269 my (\$error, \$val) = constant(\$constname);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/utils/ |
| H A D | h2xs.PL | 2095 foreach my $constname (qw(
2102 next if (eval "my \\\$a = \$constname; 1");
2103 if (\$\@ =~ /^Your vendor has not defined $module macro \$constname/) {
2132 foreach my $constname (qw(
2139 next if (eval "my \\\$a = \$constname; 1");
2140 if (\$\@ =~ /^Your vendor has not defined $module macro \$constname/) {
|
Completed in 36 milliseconds