| /openbsd/src/gnu/usr.bin/perl/t/lib/strict/ |
| D | refs | 1 Check strict refs functionality
5 # no strict, should build & run ok.
20 # strict refs - error
21 use strict ;
25 Can't use string ("A::Really::Big::Package::Name::T"...) as a HASH ref while "strict refs" in use a…
28 # strict refs - error
29 use strict ;
33 Can't use string ("A::Really::Big::Package::Name::T"...) as a SCALAR ref while "strict refs" in use…
36 # strict refs - error
37 use strict ;
[all …]
|
| D | subs | 1 Check strict subs functionality
5 # no strict, should build & run ok.
14 use strict qw(refs vars);
20 use strict ;
21 no strict 'subs' ;
27 # strict subs - error
28 use strict 'subs' ;
32 Bareword "xyz" not allowed while "strict subs" in use at - line 5.
36 # strict subs - error
37 use strict 'subs' ;
[all …]
|
| D | vars | 1 Check strict vars functionality
5 # no strict, should build & run ok.
14 use strict qw(subs refs) ;
20 use strict ;
21 no strict 'vars' ;
27 # strict vars - no error
28 use strict 'vars' ;
36 # strict vars - no error
37 use strict 'vars' ;
48 # strict vars - error
[all …]
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Pod-Simple/t/ |
| D | search50.t | 1 use strict;
42 # print "# OK, making sure strict and strict.pm were in there...\n";
44 # "# strict.pm, so skip these tests.)\n";
45 my $nopod = not exists ($name2where->{'strict'});
47 skip 'No Pod for strict.pm', 3 if $nopod;
48 like $name2where->{'strict'}, qr/strict\.(pod|pm)$/;
49 ok grep( m/strict\.(pod|pm)/, keys %$where2name);
51 ok my $strictpath = $name2where->{'strict'}, 'Should have strict path';
52 my @x = ($x->find('strict')||'(nil)', $strictpath);
56 is $x[0], $x[1], " find('strict') should match survey's name2where{strict}";
[all …]
|
| /openbsd/src/gnu/usr.bin/perl/t/comp/ |
| D | use.t | 139 eval 'use 5.11.0; no strict "refs"; ${"foo"} = "bar";';
144 eval 'no strict; use 5.012; ${"foo"} = "bar"';
146 eval 'use strict; use 5.01; ${"foo"} = "bar"';
151 'explicit use strict "subs" does not stop ver decl from enabling refs';
152 eval 'no strict "subs"; use 5.012; ${"foo"} = "bar"';
153 ok $@, 'no strict subs allows ver decl to enable refs';
154 eval 'no strict "subs"; use 5.012; $nonexistent_pack_var';
155 ok $@, 'no strict subs allows ver decl to enable vars';
156 eval 'no strict "refs"; use 5.012; fancy_bareword';
157 ok $@, 'no strict refs allows ver decl to enable subs';
[all …]
|
| D | parser_run.t | 27 for my $strict ("","use strict;") {
29 "${strict}${utf8}print $var;",
34 $strict ? " under strict" : ""
43 for my $strict ("","use strict;") {
45 "${strict}${utf8} print '$var' if $var or !$var;",
50 $strict ? " under strict" : ""
|
| /openbsd/src/gnu/gcc/gcc/config/mn10300/ |
| D | mn10300.h | 356 # define REGNO_IN_RANGE_P(regno,min,max,strict) \ argument
358 || ((strict) \
364 #define REGNO_DATA_P(regno, strict) \ argument
366 (strict)))
367 #define REGNO_ADDRESS_P(regno, strict) \ argument
369 (strict)))
370 #define REGNO_SP_P(regno, strict) \ argument
372 (strict)))
373 #define REGNO_EXTENDED_P(regno, strict) \ argument
375 (strict)))
[all …]
|
| /openbsd/src/gnu/llvm/libcxx/include/ |
| D | __availability | 167 __attribute__((availability(macos,strict,introduced=10.12))) \
168 __attribute__((availability(ios,strict,introduced=10.0))) \
169 __attribute__((availability(tvos,strict,introduced=10.0))) \
170 __attribute__((availability(watchos,strict,introduced=3.0)))
183 __attribute__((availability(macos,strict,introduced=10.13))) \
184 __attribute__((availability(ios,strict,introduced=12.0))) \
185 __attribute__((availability(tvos,strict,introduced=12.0))) \
186 __attribute__((availability(watchos,strict,introduced=5.0)))
193 __attribute__((availability(macos,strict,introduced=10.12))) \
194 __attribute__((availability(ios,strict,introduced=10.0))) \
[all …]
|
| /openbsd/src/gnu/usr.bin/perl/t/re/ |
| D | reg_mesg.t | 14 use strict;
57 my ($expect_ref, $strict) = @_;
73 next if $element =~ s/ ^ $only_strict_marker \s* //x && ! $strict;
788 for my $strict ("", "use re 'strict';") {
793 if ($strict) {
807 my $expect = fixup_expect($death[$i+1], $strict);
817 my $eval_string = "$strict $regex";
834 for my $strict ("", "no warnings 'experimental::re_strict'; use re 'strict';") {
839 if ($strict) {
875 $default_on = $strict;
[all …]
|
| /openbsd/src/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Zlib/ |
| D | Extra.pm | 24 my $strict = shift;
45 if $strict && $gzipMode && substr($pair->[0], 1, 1) eq "\x00" ;
58 my $strict = shift;
89 $strict, $gzipMode );
145 my $strict = $_[1];
172 if ! $strict;
187 my $bad = validateExtraFieldPair($pair, $strict, $gzipMode) ;
200 $strict, $gzipMode) ;
209 my $bad = validateExtraFieldPair([$id, $info], $strict, $gzipMode);
|
| /openbsd/src/gnu/usr.bin/perl/dist/if/t/ |
| D | if.t | 3 use strict;
16 no strict;
45 note(q|RT 132732: strict 'subs'|);
46 use strict "subs";
53 note(q|strict "subs" : 'use if' : condition false|);
58 note(q|strict "subs" : 'use if' : condition true|);
66 note(q|strict "subs" : 'no if' : condition variable|);
|
| /openbsd/src/gnu/llvm/lldb/source/Plugins/Language/ObjC/ |
| D | ObjCLanguage.h | 32 MethodName(const char *name, bool strict) in MethodName() argument
35 SetName(name, strict); in MethodName()
37 MethodName(llvm::StringRef name, bool strict) in MethodName() argument
40 SetName(name, strict); in MethodName()
45 bool IsValid(bool strict) const { in IsValid() argument
48 if (strict && m_type == eTypeUnspecified) in IsValid()
63 bool SetName(const char *name, bool strict);
64 bool SetName(llvm::StringRef name, bool strict);
|
| /openbsd/src/gnu/usr.bin/perl/lib/ |
| D | strict.t | 9 eval qq(use strict 'garbage');
12 eval qq(no strict 'garbage');
15 eval qq(use strict qw(foo bar));
18 eval qq(no strict qw(foo bar));
24 "use v5.10 doesn't disable explicit strict ref");
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Encode/t/ |
| D | utf8warnings.t | 1 use strict;
14 …"\x{D800}", FB_CROAK | LEAVE_SRC) }, 'Surrogate codepoint \x{D800} is not encoded to strict UTF-8';
15 like $@, qr/^"\\x\{d800\}" does not map to UTF-8 at $script line /, 'Error message contains strict …
20 … | LEAVE_SRC) }, 'Surrogate UTF-8 byte sequence \xED\xA0\x80 is decoded with strict UTF-8 decoder';
21 …\x80" does not map to Unicode at $script line /, 'Error message contains strict UTF-8 name and ori…
26 …FB_CROAK | LEAVE_SRC) }, 'Invalid byte sequence \xED\xA0 is not decoded with strict UTF-8 decoder';
27 …\xA0" does not map to Unicode at $script line /, 'Error message contains strict UTF-8 name and ori…
32 …CROAK | LEAVE_SRC) }, 'Invalid byte sequence \xED\xA0 is not decoded with non-strict utf8 decoder';
33 …" does not map to Unicode at $script line /, 'Error message contains non-strict utf8 name and orig…
|
| /openbsd/src/gnu/usr.bin/perl/t/mro/ |
| D | package_aliases.t | 11 use strict;
17 use strict;
21 use strict;
25 no strict 'refs';
271 no strict 'refs';
307 no strict refs=>;
352 no strict 'refs';
366 { no strict 'refs'; *{"Organ:::"} = *Organ:: }
380 { no strict 'refs'; *{":::"} = *Punctuation:: }
386 no strict 'refs';
[all …]
|
| D | package_aliases_utf8.t | 12 use strict;
21 use strict;
25 use strict;
29 no strict 'refs';
339 no strict 'refs';
375 no strict refs=>;
420 no strict 'refs';
434 { no strict 'refs'; *{"ᚖგ:::"} = *ᚖგ:: }
448 { no strict 'refs'; *{":::"} = *ፑňṪu앝ȋ온:: }
454 no strict 'refs';
[all …]
|
| D | overload_dfs.t | 3 use strict;
17 use strict;
22 use strict;
32 use strict;
|
| D | overload_c3.t | 3 use strict;
17 use strict;
22 use strict;
32 use strict;
|
| D | overload_c3_utf8.t | 3 use strict;
20 use strict;
25 use strict;
35 use strict;
|
| /openbsd/src/gnu/gcc/gcc/config/vax/ |
| D | vax.c | 1163 indirectable_address_p(rtx x, int strict) in indirectable_address_p() argument
1167 if (BASE_REGISTER_P (x, strict)) in indirectable_address_p()
1170 && BASE_REGISTER_P (XEXP (x, 0), strict) in indirectable_address_p()
1179 nonindexed_address_p (rtx x, int strict) in nonindexed_address_p() argument
1187 || indirectable_address_p (reg_equiv_mem[REGNO (x)], strict)) in nonindexed_address_p()
1192 if (indirectable_address_p (x, strict)) in nonindexed_address_p()
1195 if (MEM_P (x) && indirectable_address_p (xfoo0, strict)) in nonindexed_address_p()
1198 && BASE_REGISTER_P (xfoo0, strict)) in nonindexed_address_p()
1207 index_term_p (rtx prod, enum machine_mode mode, int strict) in index_term_p() argument
1212 return BASE_REGISTER_P (prod, strict); in index_term_p()
[all …]
|
| /openbsd/src/usr.sbin/pkg_add/OpenBSD/LibSpec/ |
| D | Build.pm | 108 if (my ($stem, $strict, $major, $minor) = $string =~ m/^(.*?)(\>?)\=(\d+)\.(\d+)$/o) {
109 return $class->new_object($stem, $strict, $major, $minor);
110 } elsif (($stem, $strict, $major) = $string =~ m/^(.*?)(\>?)\=(\d+)$/o) {
111 return $class->new_object($stem, $strict, $major, 0);
117 sub new_object($class, $stem, $strict, $major, $minor)
119 my $n = $strict eq '' ? "OpenBSD::LibSpec" : "OpenBSD::LibSpec::GT";
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Test-Harness/t/ |
| D | harness-bailout.t | 2 use strict;
24 use strict;
46 use strict;
75 use strict;
105 use strict;
126 use strict;
156 use strict;
176 use strict;
195 use strict;
|
| /openbsd/src/gnu/usr.bin/perl/t/op/ |
| D | postfixderef.t | 17 use strict qw(refs subs);
22 no strict 'refs';
60 no strict 'refs';
163 no strict 'refs';
185 no strict 'refs';
204 no strict 'refs';
220 no strict 'refs';
299 no strict 'refs';
334 no strict 'refs';
|
| /openbsd/src/gnu/usr.bin/perl/ |
| D | dquote.c | 236 const bool strict, in Perl_grok_bslash_o() argument
349 if (strict) { in Perl_grok_bslash_o()
378 const bool strict, in Perl_grok_bslash_x() argument
438 if (strict) { in Perl_grok_bslash_x()
450 numbers_len = (strict) ? 3 : 2; in Perl_grok_bslash_x()
455 if (numbers_len != 2 && (strict || (flags & PERL_SCAN_NOTIFY_ILLDIGIT))) { in Perl_grok_bslash_x()
460 else if (strict) { in Perl_grok_bslash_x()
511 if (strict) { in Perl_grok_bslash_x()
539 if (strict) { in Perl_grok_bslash_x()
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Scalar-List-Utils/t/ |
| D | undefined-block.t | 3 use strict;
13 eval { no strict 'refs'; no warnings 'uninitialized'; &{$sub}(undef, 1, 2) };
16 eval { no strict 'refs'; &{$sub}(\&undefined, 1, 2) };
|