Result:
found 75 distributions and 93 files matching your query ! ( run in 0.824 )


HTML-DOM

 view release on metacpan or  search on metacpan

t/html-dom.t  view on Meta::CPAN


$doc->close;

{
	no warnings 'deprecated';
	local $[ = 1;
	use warnings 'deprecated';
	my @p_tags = $doc->body->childNodes;
	for(1..6){ 
		is $p_tags[$_]->tagName, 'P',
			"body\'s child node no. $_ is a P elem";

 view all matches for this distribution


MIDI-SoundFont

 view release on metacpan or  search on metacpan

SoundFont.pm  view on Meta::CPAN


eval 'require File::Format::RIFF';
if ($@) {
 die "you need to install the File::Format::RIFF module from www.cpan.org\n";
}
# local $[ = 0; # SoundFont indexes start at zero but setting $[ is deprecated
my %SampleName = ();   # to avoid duplicating sample-names...

# ----------------------- exportable constants -----------------------
@GeneratorOperators = qw(
    startAddrsOffset endAddrsOffset startloopAddrsOffset endloopAddrsOffset

 view all matches for this distribution


Math-BigInt

 view release on metacpan or  search on metacpan

HISTORY  view on Meta::CPAN

  + objects/numbers now can have a local accuracy/precision
 internal fixes:
  + uses a blessed hash ref instead scalar ref (easier subclassable)
  + my instead of local
  + use strict and -w
  + s/$[/0/ (after all, $[ = 1; in main does not effect this package)
  + $# partially removed ($#y is scalar @y -1, $#$y is scalar @$y-1 - ugh!)
  + added LICENSE section and file
 new stuff:
  + MBF: :constant works now
  + MBI: :constant picks up binary and hexadecimal constants

 view all matches for this distribution


Math-RungeKutta

 view release on metacpan or  search on metacpan

examples/three-body  view on Meta::CPAN

&move (0,$maxrows-1);
exit 0;

sub dydt { my ($t, @y) = @_;
	# t  x0 y0 vx0 vy0  x1 y1 vx1 vy1  x2 y2 vx2 vy2
	my @dydt; local $[=0;

	$dydt[0] = $y[2];  $dydt[1] = $y[3];
	$dydt[4] = $y[6];  $dydt[5] = $y[7];
	$dydt[8] = $y[10]; $dydt[9] = $y[11];

 view all matches for this distribution


Math-WalshTransform

 view release on metacpan or  search on metacpan

WalshTransform.pm  view on Meta::CPAN

		return undef;
	} elsif (ref $yref ne 'ARRAY') { warn
	"Math::WalshTransform::logical_convolution 2nd arg must be array ref\n";
		return undef;
	}
	local $[ = 0;
	my @x = @$xref; my @y = @$yref;
	my $n = scalar @x;
	my @z; $#z=$#x;
	my $j; my $k; my $sum;
	for ($k=$[; $k<=$#x; $k++) {

 view all matches for this distribution


Modern-Perl

 view release on metacpan or  search on metacpan

t/year_imports.t  view on Meta::CPAN

    my $year = _get_year(shift);

    my $warning = '';
    local $SIG{__WARN__} = sub { $warning = shift };

    if (eval qq|use Modern::Perl $year; \$[ = 10|) {
        like $warning, qr/Use of assignment to \$\[ is deprecated/,
            qq|use Modern::Perl $year disables array_base|;
    }
    else {
        like $@, qr/Assigning non-zero to \$\[ is no longer possible/,

 view all matches for this distribution


Net-SC

 view release on metacpan or  search on metacpan

lib/Net/SC.pm  view on Meta::CPAN

use Config;
use Exporter;
use IO::Socket;
use MIME::Base64;

local $[ = 0;

($VERSION='$Revision: 1.21 $')=~s/^\S+\s+(\S+)\s+.*/$1/;

@ISA = qw( Exporter );

 view all matches for this distribution


OLE-Storage

 view release on metacpan or  search on metacpan

PropertySet.pm  view on Meta::CPAN

#
# -------------------------------- Defines --------------------------------
#

# global_definitions
$[=0;

# \05
%PPSET = (
   "\05SummaryInformation" => {
      TYPE => 1,

 view all matches for this distribution


PDL

 view release on metacpan or  search on metacpan

IO/FITS/t/m51.fits.fz  view on Meta::CPAN

¶Q…2ÊÚ<˜Û]ÒŒE"MáTnÇùB`˜Yà<ÁóYI®Šh_‹Y-i;·ZA€e¦gÉ•æÅCOw&_+a›oÕÖ¼Ä؆»/ûŠòßÜœ@§&ÒîjæÊÒœlêúTå¥NDŸd¨JqmhX‘D´»±c;漝|H¥±ÉÕö¢î@>£»4³e\hÇkùÎñ#QKmƒÖ¬�½É´49äÐl<aMzTÍ×J’„ÉÏb’ãð!F´†ÔhRàÍF7fzëVˆÌa0"ÉDòD#¡aÓ}¦ÐÕ{ãÃãO›JzÏ© ...
�
pV¾°\Si”È!'ÄÙôBÀ¢ˆ²	ÅS_"{e·þÝ©ÊÎÚç·-ñòh°!EyQÒ|‘•ÙI½äʱ3§)FSäèe©ZWª
ÍDy<RŒeµ³vP[Ãr.6^ñ‹2¯&¶¡óË3˜Ù$Ia@l½@Å�à��¤4
ABá’©÷hq~=-²P³ÊÅ„mv¹8Q+¿MO"âëíɪ<¾²VªO”eŠUŒü²IQÙY‘ÖÙ
Ì®a1i¸äˆ1U‹…Àf¨òe.àÜ‹s–ö1»oTW‹z5]¼€€•žF¡=M	Ú–æi32" ž µl•anj“ŠÀŸ‘)ªK »®‰-1çîëβ—t>e�•â
Þˆ¹jå°þ…,ŠªíBßÚ($(Ä. ÌXZäã s¶ÈNèš:Ìjñ¬~œ‰‘“R$]•“1á‡-S@Kµ÷p5ª
‰m_Înd°•]‚æVG§@ Œ—¤Ìûó/rχ	#ºR«•—\ö3;8	7|I×#fñHÓ'‹+&NæîIŸt9ºY¦—...
°­O!QS¶¸É•Ùª<âé"¿  ƒzš=
¸ÜºÀf÷,‰ß)8AÞdè„MR›§R¤Z$JJksæ���í4fÕÑ9xø‰È½R¨œ‡ì©N~Z“$O§‚¦¦›^n-9ç¡~!!myO½Ê¸]FK7Ýä³bÔÖcõÅ”{À›Q˜ðð¨$FSSeûüvh%Z ˆ/ã�ˆþ4(ë‰ÊJ&Â"Œ¨ éçTðd àZŒ5NK“Ä“6L%§ÊåšÏ öÉ;—Š]”,rB‘ªœrÆ* H«”IqÎEî/֐€fÜìFUÉŽÌüœP‚Û¤j‰1m»á¯øTÉCñö8ùµ}²°#HO¼Â(…R2...
ºeXP®«Û `mU7ä[ÌNüeµÓn0f—Î8]“xH”ÏÃh;¯ZJ@¤6[ã^-$Fµeè×â¼Â‹02†¹�ŒÀ¼NQlëAEԍñ™3$)!A2üå"ȵ›ŽK¥SÖSòà··"Ò�AD.Q×`Ƨf­í4t«”(•rZ¢í™†û°‡ûMæÃQ*û+ÝUœ#'™³e—Cz†
rH¦²‡¡á;»‡MeHí%rå5’°#ï€��®4†ª†KdR˜JšºÄ¬žÿšàf‚	3ç` L¿£ÈgLmjÉÒ9~³%êlBlfD¢9“]ú•P*2¦¸Ë)<j~¹Û—¦•s½ëàҊףáªBrƒOQ·‚eŸº>	ہ`†íÓ£âÖT‚ñ«	‚â͇uÔÔ`jNF·’9kƒ.=Ö\¦Sg…K›Dquê Š.ªG¬‡k•y4~.ú�
˜¤Nx»R(	…jL›KûËj`§žMŸ’Þ³‹f6Kë–»²•lJ£ö¢‘6Y%ØB@ünFJR¸ØÀ...
aŽ©Tú€¡CÓ‡WÜ¢ÁΊ4!a‘»Q°ð@h¦o}›„v$ßÒå6YWÿþ$FòU8u]xÀªg=LÞbìlã“Þ‰+/DÕ‘!…`	x«•ÙæE¾$©Ríuc¶“B ñÑi·k4_dÚÓ¹j<‰·=óRÂO–'cßqrèT`óýÌ´WÚ.*“`’¿HÏ C39ŸD¡ÚxLÙâjIÕ��ëe$fhjþ[&^¾i¹RIÆH|JEP'Lí$ÉRÙ…rï”Õˏù$÷2¶6é)IèHµ9˜|CÃ"#œT#²lqVN ...
b:ŒCâY U.'Š²Ý¬Òü*Œ}Ä.¡"ÍõQ_¶5=,+IK™Œ˜¦Ò3aŸÆTÇäŸ)÷ÛoÍWk¤;–za	<a‰ìŽ§ú*KJòŠÑÝ‡Ì¡¡Ø„�PBÁ‰
OšË–}å3ÅüJÕô½’ãqª·š^MZ–7@ïx¢L¨Ü‡å‘­		=¸üÙ•Ÿ¯<`*°ÓŸˆá"¦¹‘W´¶Ôh_CÏJ}B¾\™k õ§2

 view all matches for this distribution


POD2-FR

 view release on metacpan or  search on metacpan

FR/perldiag.pod  view on Meta::CPAN


(F) L'affectation de C<$[> est maintenant strictement réglementée, et
interprétée comme une directive du compilateur. Vous devez maintenant
seulement avoir une solution parmi celles-ciE<nbsp>:

     $[ = 0;
     $[ = 1;
     ...
     local $[ = 0;
     local $[ = 1;
     ...

Cela est pour prévenir le problème d'un module changeant la base du
tableau depuis un autre module par inadvertance. Voir L<perlvar/$[>.

 view all matches for this distribution


POD2-IT

 view release on metacpan or  search on metacpan

IT/perlfunc.pod  view on Meta::CPAN

viene omesso, rimuove tutto da SCOSTAMENTO in poi. Se LUNGHEZZA E<egrave> negativo, rimuove 
tutti gli elementi da SCOSTAMENTO in poi, tranne -LUNGHEZZA elementi alla fine dell'array. Se 
sia SCOSTAMENTO che LUNGHEZZA vengono omessi, rimuove tutto. Se SCOSTAMENTO E<egrave> oltre la 
fine dell'array, perl emette un avvertimento, e unisce alla fine dell'array.

Si hanno le seguenti equivalenze (assumendo C<< $[ == 0 e $#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 all matches for this distribution


Parse-Perl

 view release on metacpan or  search on metacpan

t/lex_arybase.t  view on Meta::CPAN

BEGIN { $SIG{__WARN__} = sub { die "WARNING: $_[0]" }; }

my($env_0, $env_1, $env_2);

$env_0 = current_environment;
{ $[ = 1; $env_1 = current_environment; }
{ no warnings "void"; $[ = 2; $env_2 = current_environment; }

sub test_env($$$) {
	my($env, $override, $expect) = @_;
	@main::activity = ();
	parse_perl($env, q{
		}.(defined($override) ? "\$[ = $override;" : "").q{
		push @main::activity, [ (qw(a b c d e))[3], $[ ];
	})->();
	is_deeply \@main::activity, $expect;
}

 view all matches for this distribution


Perl-Critic-Community

 view release on metacpan or  search on metacpan

t/Community/DeprecatedFeatures.run  view on Meta::CPAN


## name BadFeatures
## failures 51
## cut

$[ = 1;
my $x := 1;
UNIVERSAL->import;
use UNIVERSAL;
use UNIVERSAL 'foo';
for my $foo qw(foo bar) { ... }

 view all matches for this distribution


Perl-Critic-Freenode

 view release on metacpan or  search on metacpan

t/Freenode/DeprecatedFeatures.run  view on Meta::CPAN


## name BadFeatures
## failures 51
## cut

$[ = 1;
my $x := 1;
UNIVERSAL->import;
use UNIVERSAL;
use UNIVERSAL 'foo';
for my $foo qw(foo bar) { ... }

 view all matches for this distribution


Perl-Lint

 view release on metacpan or  search on metacpan

t/Policy/Variables/require_localized_punctuation_vars.t  view on Meta::CPAN

local $) = ();
local $EFFECTIVE_GROUP_ID = ();
local $EGID = ();
local $0 = ();
local $PROGRAM_NAME = ();
local $[ = ();
local $] = ();
local $^A = ();
local $ACCUMULATOR = ();
local $^C = ();
local $COMPILING = ();

 view all matches for this distribution


Perl-Tidy

 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 all matches for this distribution


( run in 0.824 second using v1.00-cache-2.02-grep-82fe00e-cpan-503542c4f10 )