\$\[\s*= results from the CPAN

Font-TTF-Scripts

view release on metacpan or search on metacpan


require 'ttfmod.pl';
use Getopt::Std;
do getopts("d:z");

$[ = 0;
if ((defined $opt_d && !defined $ARGV[0]) || (!defined $opt_d && !defined $ARGV[1]))
    {
    die 'ADDPCLT [-d directory] [-z] <infile> <outfile>

v1.0.0, 18-Mar-1998  (c) Martin_Hosken@sil.org

view all matches for this distribution

Gtk2-Ex-TiedListColumn

1 match

view release on metacpan or search on metacpan

devel/array-base.t view on Meta::CPAN

      Gtk2::major_version(), ".",
      Gtk2::minor_version(), ".",
      Gtk2::micro_version(), ".");


$[ = 6;

my $store = Gtk2::ListStore->new ('Glib::String');
$store->set ($store->insert(0), 0=>'zero');
$store->set ($store->insert(1), 0=>'one');
$store->set ($store->insert(2), 0=>'two');

view all matches for this distribution

HTML-DOM

1 match

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

1 match

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

1 match

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

2 results

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

1 match

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

1 match

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

1 match

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

3 results

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

1 match

view release on metacpan or search on metacpan

Basic/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å¥NDŸd¨JqmhX‘D´»±c;æ¼|H¥±ÉÕö¢î@>£»4³e\hÇkùÎñ#QKmƒÖ¬�½É´49äÐl<aMzTÍ×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_Înd°•]‚æ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$ßÒå6YWÿþ$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òŠÑÝ‡Ì¡¡Ø„�PBÁ‰
OšË–}å3ÅüJÕô½’ãqª·š^MZ–7@ïx¢L¨Ü‡å‘		=¸üÙ•Ÿ¯<`*°ÓŸˆá"¦¹‘W´¶Ôh_CÏJ}B¾\™k õ§2

view all matches for this distribution

POD2-FR

2 results

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

1 match

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

1 match

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

1 match

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

1 match

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

1 match

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