Result:
found 60 distributions and 90 files matching your query ! ( run in 0.918228 )


Algorithm-SkipList

 view release on metacpan or  search on metacpan

t/09-index.t

  }
}


# {
#   $[ = 1;

#   foreach (1..$List->size) {
#     my $index = $_;
#     my $node = $List->_node_by_index($index);
#     ok($node);

 view all matches for this distribution


B-C

 view release on metacpan or  search on metacpan

Changes

	* t/test.pl: refactor: Try to timeout on all tests (compiler and exec) if
	  IPC::Run is installed
	* MANIFEST, *.pod: Moved conference pods to ramblings,
	removed lib/B/Asmdata.pm again, added t/qr_loaded_module.pm
	* t/testm.sh, t/modules.pm: added, -t not working yet though
	* t/b.t: $[ => $]

1.18	2010-02-06 rurban
	evaltry (test 12) still broken on most systems.

	* C.pm, C.xs: fixed r-magic for 5.6 (ExtUtils::Install,

 view all matches for this distribution


B-DeparseTree

 view release on metacpan or  search on metacpan

lib/B/DeparseTree/PP.pm

	push @text, "package $stash;\n";
	$self->{'curstash'} = $stash;
    }

    if (OPpCONST_ARYBASE && $self->{'arybase'} != $op->arybase) {
	push @text, '$[ = '. $op->arybase .";\n";
	$self->{'arybase'} = $op->arybase;
    }

    my $warnings = $op->warnings;
    my $warning_bits;

 view all matches for this distribution


Classic-Perl

 view release on metacpan or  search on metacpan

lib/Classic/Perl.pm

  split //, "smat";
  print join " ", @_;
    # prints "s m a t" in perl 5.10.x; nothing in 5.12

  use Classic::Perl '$[';
  $[ = 1;
  print qw(a b c d)[2]; # prints "b"

  use Classic::Perl '$*';
  $* = 1;
  print "yes\n" if "foo\nbar" =~ /^bar/; # prints yes

 view all matches for this distribution


Data-Iterator

 view release on metacpan or  search on metacpan

Iterator.pm

	use FileHandle;
	use vars qw($VERSION);

	$VERSION = 0.021;

	local $[ 	= 0;

	my %_cfg		= ('_set_'		=>  {'-Nodes'		=> 0,		# show nodes as normal items
										 '-DigLevel'	=> undef,	# dig down to this level
					   					 '-DigFiles'	=> 1,		# show file's content if value is in '-FILE:...'-format
					   					 '-DigGlobs'	=> 1,		# resolve glob references

 view all matches for this distribution


Devel-Hints

 view release on metacpan or  search on metacpan

t/1-basic.t

}

ok(cop_seq(), 'cop_seq');

no warnings 'deprecated';
$[ = 10;
is(cop_arybase(), 10, 'cop_arybase');

is(cop_line(), __LINE__, 'cop_line');

SKIP: {

 view all matches for this distribution


Font-TTF-Scripts

 view release on metacpan or  search on metacpan

Examples/addpclt.pl


require 'ttfmod.pl';
require 'getopts.pl';
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

 view release on metacpan or  search on metacpan

devel/array-base.t

      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

 view release on metacpan or  search on metacpan

t/html-dom.t


$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


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

  + 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

&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


( run in 0.918228 second using v1.00-cache-1.03-grep-7fa205e-cpan-6421e59f23b )