view release on metacpan or  search on metacpan

docs/BugLog.html  view on Meta::CPAN

<p>Testing with random parameters produced a case of unstable formatting involving welding with parameter -notrim-qw. The problem was that the -notrim-qw flag converts a qw quote into a quote with fixed leading whitespace. The lines of these types of...

<p>For example, in the following snippet the terminal &#39;}&#39; is alone on a line:</p>

<pre><code>    is eval(q{
        $[ = 3;
        BEGIN { my $x = &quot;foo\x{666}&quot;; $x =~ /foo\p{Alnum}/; }
        $t[3];
    }
    ), &quot;a&quot;;</code></pre>

<p># In the previous version this was half-welded: # OLD: perltidy -wn -sil=0</p>

<pre><code>    is eval( q{
        $[ = 3;
        BEGIN { my $x = &quot;foo\x{666}&quot;; $x =~ /foo\p{Alnum}/; }
        $t[3];
    }
      ),
      &quot;a&quot;;</code></pre>

 view release on metacpan or  search on metacpan

lib/Perlito5/Runtime.pm  view on Meta::CPAN

$"  = ' '           unless defined $";
$,  = undef         unless defined $,;
$!  = ''            unless defined $!;
$;  = chr(28)       unless defined $;;
$?  = 0             unless defined $?;
# $[  = 0             unless defined $[;    # "assignment to $[ is deprecated"
$]  = sprintf( "%d.%03d%03d", @PERL_VERSION )    unless $];      # $] is defined(), but ${"main::]"} is not
$^V = bless( { 'original' => 'v' . join( ".", @PERL_VERSION ),   # v5.26.0
               'qv'       => 1,
               'version'  => [ @PERL_VERSION ]
             }, 'version' )

 view release on metacpan or  search on metacpan

lib/Pg/Loader/Columns.pm  view on Meta::CPAN

sub ranges2set {
        my @unit = (0..20);
        my $tmp = range2list( shift||return) ;
        {  no warnings 'deprecated';
	  $[=0; no warnings; %_= map { ($_=>undef)} eval ' @unit['.$tmp.']' }
        [ sort keys %_ ];
}

sub init_csv {
	my ($s) = @_ ;

 view release on metacpan or  search on metacpan

pod2s5  view on Meta::CPAN

M*U^$MKJ4!JT"6O%-\YO'9;AW6^^6<X2+3/_TNZ5J>5)YLXR]LTZNB-61NBWU
MJHQ2J>Y>YO'/LJGWJ4MK01D>=5G7UZ\MI*SJ'/0N\+]>M-Y]-1-;=N^RD."*
M)F-03>2+QP^>_]X@;ZC@D!6XK)FGO]PNW$(2)VHP'Y;[2T<QTG7\Q6PVI^#+
M58KPB"0B0GAHQ<I/'2!&8WZJ/1UQ/[I0>7*NZ^WU'G.7BM1`&DNO>K.`G(+<
MV8-OOV_+O049T4GM;1*`$NB6B>5=#25=1O\FQMW<]!'1'.D)'?K-^(PY1^J;
MW.#S+0;)PV]!Y\:76B/WRXSW."\2M>R6'55)"6J]ZLH@FN$[=K;ID>W0/0X7
M=OW&3>`Y$3$U'\OPP%=PFD1=7F682/C.-]:]-E*'5JPD.?*9X'#<&.BX6>)^
MI(7Y*G!.#*.?]:7G51[^D8MT)!L,24%^3"T^4E(R2OT57O6[@GLZG;LB99&=
M-EC"KL&96G)$2HM:_%M.N@F?:0SKNQ'K=A-,ZY0VZ2VTGJS'"6WIB+:=2'U+
M4WW77N<?G`X7/1HODY?,?DO*?1AD0JRT.FL<6R,WJ+NBJ"H7U`HVD1JTJ4@Y
MDFJX+!DKE<ZXS^=[,G.[Y=RN55^[2,_O&,2ZC^7#P3>+)&\H-$+3.E%4=SN&

 view release on metacpan or  search on metacpan

files/SCCS/s.base.dta  view on Meta::CPAN

o>%r0S>}'/F<FQuJC[g=UnNU0s:kR- I:01 D:32

E 32

I 32
NQftp[0[R59Me"AR^J:uYik;.hNCGb I:01 I:32

E 32
$GFf_4JBJ{]+=}0J&BXv7FRs<$[=d& I:01
+ pzeAj2V(ZE@?CyH0R:ayBm8sbZ4g I:01
?h?5/9MdK1){Z6g>A(]i,YI=}kD,Hu I:01

D 32
Y"L>xQ{yT;}tnH>enPLI l)[,~s_8R I:01 D:32

E 32

 view release on metacpan or  search on metacpan

t/lib/feature/bundle  view on Meta::CPAN

########
# :default and $[
# SKIP ? not defined DynaLoader::boot_DynaLoader
no feature;
use feature ":default";
$[ = 0;
$[ = 1;
EXPECT
Assigning non-zero to $[ is no longer possible at - line 5.
########
# "no feature"
use feature ':5.16'; # turns array_base off
no feature; # resets to :default, thus would turn array_base on, if it still existed
$[ = 0;
$[ = 1;
EXPECT
Assigning non-zero to $[ is no longer possible at - line 5.
########
# "no feature 'all"
no feature ':all'; # turns array_base (and everything else) off
$[ = 1;
EXPECT
Assigning non-zero to $[ is no longer possible at - line 3.
########
# NAME $^H accidentally enabling all features
# HINT_FEATURE_MASK | HINT_LOCALIZE_HH

 view release on metacpan or  search on metacpan

os2/B/Concise.pm  view on Meta::CPAN

	my $loc = $op->file;
	$loc =~ s[.*/][];
	$loc .= ":" . $op->line;
	my($stash, $cseq) = ($op->stash->NAME, $op->cop_seq - $cop_seq_base);
	my $arybase = $op->arybase;
	$arybase = $arybase ? ' $[=' . $arybase : "";
	$h{arg} = "($label$stash $cseq $loc$arybase)";
    } elsif ($h{class} eq "LOOP") {
	$h{arg} = "(next->" . seq($op->nextop) . " last->" . seq($op->lastop)
	  . " redo->" . seq($op->redoop) . ")";
    } elsif ($h{class} eq "LOGOP") {

 view release on metacpan or  search on metacpan

benchmarks/app/perlfunc.pod  view on Meta::CPAN

except for -LENGTH elements at the end of the array.
If both OFFSET and LENGTH are omitted, removes everything. If OFFSET is
past the end of the array, perl issues a warning, and splices at the
end of the array.

The following equivalences hold (assuming C<< $[ == 0 and $#a >= $i >> )

    push(@a,$x,$y)	splice(@a,@a,0,$x,$y)
    pop(@a)		splice(@a,-1)
    shift(@a)		splice(@a,0,1)
    unshift(@a,$x,$y)	splice(@a,0,0,$x,$y)

 view release on metacpan or  search on metacpan

PNMTYAK/splain  view on Meta::CPAN

That use of $[ is unsupported
   (F) Assignment to $[ is now strictly circumscribed,
   and interpreted as a compiler directive.  You may only
   say one of
       $[ = 0;
       $[ = 1;
       ...
       local $[ = 0;
       local $[ = 1;
       ...
   This is to prevent the problem of one module changing the array base
   out from under another module inadvertently.  See the section on $[ in
   the perlvar manpage.