view release on metacpan or  search on metacpan

dist/Storable/t/make_56_interwork.pl  view on Meta::CPAN

This length difference should only happen on perl 5.6.x configured with IVs as
long long on Unix, OS/2 or any platform that runs the Configure stript (ie not
MS Windows)

This is perl $], sizeof(long) is $Config{longsize}, IVs are '$ivtype', sizeof(IV) is $ivsize,
byteorder is '$Config{byteorder}', Storable $Storable::VERSION writes a byteorder of '$storebyteorder'
EOM
  exit; # Grr '
}

 view release on metacpan or  search on metacpan

lib/PerlBench/Results.pm  view on Meta::CPAN

	    my $perldir = "$dir/$hostname/perls/$perl";
	    my $version_txt = "$perldir/version.txt";
	    open(my $fh, "<", $version_txt) || die "Can't open $version_txt: $!";
	    local($_);
	    while (<$fh>) {
		if (/^This is perl, v(\S+)/) {
		    $perlhash->{version} = $1;
		    $perlhash->{name} = "perl-$1";
		}
		if (/^Binary build (\d+.*) provided by ActiveState/) {
		    $perlhash->{name} .= " build $1";

 view release on metacpan or  search on metacpan

history/perl425.html  view on Meta::CPAN

<HR><H2>Example 34 - Noted in c.l.p.misc by Maurice Cinquini </H2>
<P>I've even come across old perl4 programs which
unconsciously rely on the bugs in earlier perl versions.
<XMP>
    perl -e '$bar=q/not/; print "This is $foo{$bar} perl5"'</XMP><DL><DT><I>perl4 prints:</I><DD><XMP>This is not perl5</XMP></DL>
<DL><DT><I>perl4 prints:</I><DD><XMP>This is perl5</XMP></DL>
<XMP></XMP><P>

<HR><H2>Example 35 - Submitted by Markus F.X.J. Oberhumer and Danny Faught</H2>
<P>Stricter parsing of variables used in regular expressions
<XMP>

 view release on metacpan or  search on metacpan

regex_internal.h  view on Meta::CPAN

#      endif
#      define __bool_true_false_are_defined 1
#    endif
#  endif
#else
/* This is perl's bool style. Though it usually does not define true or false */
#  ifndef __bool_true_false_are_defined
#    ifndef true
#      define true 1
#    endif
#    ifndef false

 view release on metacpan or  search on metacpan

Plugin.pod  view on Meta::CPAN

            $re->num_captures(
                FETCH => sub {
                    my ($re, $paren) = @_;

                    # This is perl's engine doing the match
                    $str =~ /(.*)/;

                    # $1 has been untainted
                    return $1;
                },