Home
last modified time | relevance | path

Searched full:strict (Results 1 – 25 of 6684) sorted by relevance

12345678910>>...268

/openbsd-src/gnu/usr.bin/perl/t/lib/strict/
H A Dsubs1 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 …]
H A Drefs1 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 …]
H A Dvars1 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/lib/
H A Dstrict.pm1 package strict; package
3 $strict::VERSION = "1.13";
55 Carp::croak("Unknown 'strict' tag(s) '@wrong'");
82 strict - Perl pragma to restrict unsafe constructs
86 use strict;
88 use strict "vars";
89 use strict "refs";
90 use strict "subs";
92 use strict;
93 no strict "var
[all...]
H A Dstrict.t9 eval qq(use strict 'garbage');
10 like($@, qr/^Unknown 'strict' tag\(s\) 'garbage'/);
12 eval qq(no strict 'garbage');
13 like($@, qr/^Unknown 'strict' tag\(s\) 'garbage'/);
15 eval qq(use strict qw(foo bar));
16 like($@, qr/^Unknown 'strict' tag\(s\) 'foo bar'/);
18 eval qq(no strict qw(foo bar));
19 like($@, qr/^Unknown 'strict' tag\(s\) 'foo bar'/);
21 eval 'use strict; use v5.10; ${"c"}';
23 qr/^Can't use string \("c"\) as a SCALAR ref while "strict ref
[all...]
/openbsd-src/gnu/usr.bin/perl/ext/re/t/
H A Dstrict.t3 # Most of the strict effects are tested for in t/re/reg_mesgs.t
13 use strict;
28 use re 'strict';
31 BEGIN { is(scalar @w, 1, 'use re "strict" turns on warnings'); }
35 no re 'strict';
38 BEGIN { is(scalar @w, 0, 'no re "strict" restores warnings state'); }
43 BEGIN { is(scalar @w, 0, 'dropping out of "strict" scope reverts warnings default'); }
46 use re 'strict';
49 BEGIN { is(scalar @w, 1, 'use re "strict" turns on warnings'); }
51 no re 'strict';
[all …]
/openbsd-src/gnu/llvm/libcxx/include/
H A D__availability167 __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/llvm/llvm/docs/
H A DAddingConstrainedIntrinsics.rst23 Add the new STRICT version of the node type to the ISD::NodeType enum::
27 Strict version name must be a concatenation of prefix ``STRICT_`` and the name
28 of corresponding non-strict node name. For instance, strict version of the
57 STRICT_FP_ROUND. The new STRICT node will eventually be converted
58 to the matching non-STRICT node. For this reason it should have the same
59 operands and values as the non-STRICT version but should also use the chain.
60 This makes subsequent sharing of code for STRICT and non-STRICT code paths
65 Most of the STRICT nodes get legalized the same as their matching non-STRICT
66 counterparts. A new STRICT node with this property must get added to the
72 places where the non-STRICT counterpart is legalized and update as needed.
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/Module-Loaded/t/
H A D01_Module-Loaded.t1 use strict;
8 my $Strict = $ENV{'PERL_CORE'} ? 'less' : 'strict';
35 { my $where = is_loaded( $Strict );
36 ok( $where, "$Strict loaded" );
37 ok( mark_as_unloaded( $Strict ),
38 " $Strict unloaded" );
42 my $rv = eval "require $Strict; 1";
43 ok( $rv, "$Strict loaded again" );
46 is( is_loaded( $Strict ), $where,
47 " $Strict is loaded" );
/openbsd-src/gnu/usr.bin/perl/ext/B/t/
H A Doptree_specials.t52 # 2 <$> const[PV "strict.pm"] s/BARE ->3
56 # 9 <1> entersub[t1] KRS/TARG,STRICT ->a
58 # 6 <$> const[PV "strict"] sM ->7
82 # n <1> rv2gv sKRM/STRICT,1 ->o
84 # - <1> ex-rv2sv sKRM*/STRICT,1 ->q
91 # t <$> const[PV "strict.pm"] s/BARE ->u
95 # 10 <1> entersub[t1] KRS/TARG,STRICT ->11
97 # x <$> const[PV "strict"] sM ->y
105 # 13 <$> const[PV "strict.pm"] s/BARE ->14
109 # 1a <1> entersub[t1] KRS/TARG,STRICT ->1b
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/Pod-Simple/t/
H A Dsearch50.t1 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'}, 'Shoul
[all...]
/openbsd-src/gnu/usr.bin/perl/t/comp/
H A Duse.t137 like ($@, qr/\QCan't use string ("foo") as a SCALAR ref while "strict refs" in use\E/);
139 eval 'use 5.11.0; no strict "refs"; ${"foo"} = "bar";';
144 eval 'no strict; use 5.012; ${"foo"} = "bar"';
145 is $@, "", 'explicit "no strict" overrides later ver decl';
146 eval 'use strict; use 5.01; ${"foo"} = "bar"';
148 'explicit use strict overrides later use 5.01';
149 eval 'use strict "subs"; use 5.012; ${"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 sub
[all...]
H A Dparser_run.t27 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/usr.bin/perl/dist/if/t/
H A Dif.t3 use strict;
16 no strict;
18 is( eval "use if ($v_minus > \$]), strict => 'subs'; \${'f'} = 12", 12,
20 is( eval "use if ($v_minus > \$]), strict => 'refs'; \${'f'} = 12", 12,
23 is( eval "use if ($v_plus > \$]), strict => 'subs'; \${'f'} = 12", 12,
26 is( eval "use if ($v_plus > \$]), strict => 'refs'; \${'f'} = 12", undef,
28 like( $@, qr/while "strict refs" in use/, 'expected error message'),
45 note(q|RT 132732: strict 'subs'|);
46 use strict "subs";
53 note(q|strict "subs" : 'use if' : condition false|);
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/Encode/t/
H A Dutf8warnings.t1 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/cpan/parent/t/
H A Drt62341.t.disabled2 use strict;
19 no strict 'refs';
28 no strict 'refs';
37 no strict 'refs';
46 no strict 'refs';
55 no strict 'refs';
64 no strict 'refs';
73 no strict 'refs';
84 no strict 'refs';
94 no strict 'refs';
/openbsd-src/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/t/
H A Dprereq.t10 use strict;
55 strict => 0
67 strict => '>= 0, <= 99999',
77 strict => 99999
81 sprintf("Warning: prerequisite strict 99999 not found. We have %s.\n",
82 $strict::VERSION), 'strict 99999';
133 "strict" => 99999,
138 = sprintf("Warning: prerequisite strict 99999 not found. We have %s.\n",
139 $strict::VERSION);
152 "strict" => 99999,
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker/version/
H A Dregex.pm9 use strict;
12 use vars qw($VERSION $CLASS $STRICT $LAX);
22 # both strict and lax decimal versions
26 # First part of either decimal or dotted-decimal strict version number.
43 # Second and subsequent part of a strict dotted-decimal version number.
63 # Strict version regexp definitions
66 # Strict decimal version number.
71 # Strict dotted-decimal version number. Must have both leading "v" and
77 # Complete strict version number syntax -- should generally be used
78 # anchored: qr/ \A $STRICT \z /x
[all …]
/openbsd-src/gnu/usr.bin/perl/t/uni/
H A Dvariables.t22 no strict;
38 # ${yadda'etc} and ${yadda::etc} should both work under strict
41 eval q<use strict; ${flark::fleem}>;
46 eval q<use strict; ${fleem'flark}>;
72 # same whenever under strict or not.
132 eval "no strict; \$$chr = 4;",
151 evalbytes "no strict; use utf8; \$$chr;",
156 is evalbytes "no strict; \$$chr = 10",
162 is evalbytes "no strict; use utf8; \$$chr = 1",
170 eval "no strict; use utf8; \$$chr = 1";
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/version/lib/version/
H A Dregex.pm3 use strict;
12 # both strict and lax decimal versions
16 # First part of either decimal or dotted-decimal strict version number.
33 # Second and subsequent part of a strict dotted-decimal version number.
53 # Strict version regexp definitions
56 # Strict decimal version number.
61 # Strict dotted-decimal version number. Must have both leading "v" and
67 # Complete strict version number syntax -- should generally be used
68 # anchored: qr/ \A $STRICT \z /x
70 our $STRICT
[all...]
/openbsd-src/gnu/usr.bin/perl/cpan/version/t/
H A D04strict_lax.t9 # do strict lax tests in a sub to isolate a package to test importing
15 is ref($version::STRICT), 'Regexp', 'Can see $version::STRICT '.$version::STRICT;
21 ($v) = ( "snapshot-v1.2.3ga-001-432" =~ /($version::STRICT)/ );
95 my ($v, $strict, $lax) = split qr/\t+/, $case;
96 main::ok( $strict eq 'pass' ? is_strict($v) : ! is_strict($v), "is_strict($v) [$strict]" );
97 …main::ok( $strict eq 'pass' ? version::is_strict($v) : ! version::is_strict($v), "version::is_stri…
/openbsd-src/gnu/llvm/llvm/include/llvm/BinaryFormat/
H A DAMDGPUMetadataVerifier.h11 /// well-typed metadata and untyped metadata. When verifying in the non-strict
41 /// In strict mode, metadata must already be well-typed.
43 /// In non-strict mode, metadata is coerced into expected types when possible.
45 bool Strict; variable
66 /// Strict mode.
67 MetadataVerifier(bool Strict) : Strict(Strict) {} in MetadataVerifier() argument
/openbsd-src/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Zlib/
H A DExtra.pm5 use strict ;
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,
[all...]
/openbsd-src/gnu/llvm/llvm/lib/Support/
H A DUnicodeNameToCodepoint.cpp120 static bool startsWith(StringRef Name, StringRef Needle, bool Strict, in startsWith() argument
125 if (Strict) { in startsWith()
180 compareNode(uint32_t Offset, StringRef Name, bool Strict, in compareNode() argument
186 N.IsRoot || startsWith(Name, N.Name, Strict, Consummed, in compareNode()
201 compareNode(ChildOffset, Name.substr(Consummed), Strict, in compareNode()
217 compareNode(uint32_t Offset, StringRef Name, bool Strict, BufferType &Buffer) { in compareNode() argument
218 return compareNode(Offset, Name, Strict, 0, 0, Buffer); in compareNode()
261 static std::size_t findSyllable(StringRef Name, bool Strict, in findSyllable() argument
274 bool DoesStartWith = startsWith(Name, Syllable, Strict, Consummed, in findSyllable()
289 nameToHangulCodePoint(StringRef Name, bool Strict, BufferType &Buffer) { in nameToHangulCodePoint() argument
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/IO-Compress/t/
H A D004gziphdr.t9 use strict;
72 -Strict => 0,
125 -strict => 0,
314 #-Strict => 1,
421 eval {$x = IO::Compress::Gzip->new( \$buffer, -ExtraField => $input, Strict => 1 ); };
432 Strict => 0 )
440 Strict => 0,
577 ok ! IO::Uncompress::Gunzip->new( \$buffer, -Transparent => 0, Strict => 1 )
590 my $z = IO::Compress::Gzip->new(\$x, ExtraField => $store, Strict => 0) ;
593 my $gunz = IO::Uncompress::Gunzip->new( \$x, Strict
[all...]

12345678910>>...268