view release on metacpan or  search on metacpan

lib/CGI/Session/Driver/flexmysql.pm  view on Meta::CPAN

locking gives absolutely no protection. MySQL already guranatees that
data is not corrupted when we update the same row from different
places at nearly the same time because it uses a queue for the requests.
It would be different if, once it detected that there is a lock, it
read the data again and SYNCHRONIZED it before updating. Then locking
would be helpful because no other client could synchronize at the same
time. But CGI::Session::MySQL doesn't actually do anything that requires
locking. 

A real use for locking would be to actually lock the session data while
the it's being used.  GET_LOCK and RELEASE_LOCK are usually not the

 view release on metacpan or  search on metacpan

t/private/javascripts/prototype.js  view on Meta::CPAN

});
Ajax.Base = Class.create({
  initialize: function(options) {
    this.options = {
      method:       'post',
      asynchronous: true,
      contentType:  'application/x-www-form-urlencoded',
      encoding:     'UTF-8',
      parameters:   '',
      evalJSON:     true,
      evalJS:       true

t/private/javascripts/prototype.js  view on Meta::CPAN

      var response = new Ajax.Response(this);
      if (this.options.onCreate) this.options.onCreate(response);
      Ajax.Responders.dispatch('onCreate', this, response);

      this.transport.open(this.method.toUpperCase(), this.url,
        this.options.asynchronous);

      if (this.options.asynchronous) this.respondToReadyState.bind(this).defer(1);

      this.transport.onreadystatechange = this.onStateChange.bind(this);
      this.setRequestHeaders();

      this.body = this.method == 'post' ? (this.options.postBody || params) : null;
      this.transport.send(this.body);

      /* Force Firefox to handle ready state 4 for synchronous requests */
      if (!this.options.asynchronous && this.transport.overrideMimeType)
        this.onStateChange();

    }
    catch (e) {
      this.dispatchException(e);

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

use File::Find ();
use File::Path ();

use vars qw{$VERSION $MAIN};
BEGIN {
	# All Module::Install core packages now require synchronised versions.
	# This will be used to ensure we don't accidentally load old or
	# different versions of modules.
	# This is not enforced yet, but will be some time in the next few
	# releases once we can make sure it won't clash with custom
	# Module::Install extensions.

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

use 5.005;
use strict 'vars';

use vars qw{$VERSION $MAIN};
BEGIN {
	# All Module::Install core packages now require synchronised versions.
	# This will be used to ensure we don't accidentally load old or
	# different versions of modules.
	# This is not enforced yet, but will be some time in the next few
	# releases once we can make sure it won't clash with custom
	# Module::Install extensions.

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

}
use strict 'vars';

use vars qw{$VERSION};
BEGIN {
	# All Module::Install core packages now require synchronised versions.
	# This will be used to ensure we don't accidentally load old or
	# different versions of modules.
	# This is not enforced yet, but will be some time in the next few
	# releases once we can make sure it won't clash with custom
	# Module::Install extensions.

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

use 5.005;
use strict 'vars';

use vars qw{$VERSION $MAIN};
BEGIN {
	# All Module::Install core packages now require synchronised versions.
	# This will be used to ensure we don't accidentally load old or
	# different versions of modules.
	# This is not enforced yet, but will be some time in the next few
	# releases once we can make sure it won't clash with custom
	# Module::Install extensions.

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

use File::Find ();
use File::Path ();

use vars qw{$VERSION $MAIN};
BEGIN {
	# All Module::Install core packages now require synchronised versions.
	# This will be used to ensure we don't accidentally load old or
	# different versions of modules.
	# This is not enforced yet, but will be some time in the next few
	# releases once we can make sure it won't clash with custom
	# Module::Install extensions.

 view release on metacpan or  search on metacpan

lib/CORBA/JAVA/ClassVisitor.pm  view on Meta::CPAN

    print $FH "    return read (a.create_input_stream ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  private static org.omg.CORBA.TypeCode __typeCode = null;\n";
    print $FH "  private static boolean __active = false;\n";
    print $FH "  synchronized public static org.omg.CORBA.TypeCode type ()\n";
    print $FH "  {\n";
    print $FH "    if (__typeCode == null)\n";
    print $FH "    {\n";
    print $FH "      synchronized (org.omg.CORBA.TypeCode.class)\n";
    print $FH "      {\n";
    print $FH "        if (__typeCode == null)\n";
    print $FH "        {\n";
    print $FH "          if (__active)\n";
    print $FH "          {\n";

lib/CORBA/JAVA/ClassVisitor.pm  view on Meta::CPAN

    print $FH "    return read (a.create_input_stream ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  private static org.omg.CORBA.TypeCode __typeCode = null;\n";
    print $FH "  private static boolean __active = false;\n";
    print $FH "  synchronized public static org.omg.CORBA.TypeCode type ()\n";
    print $FH "  {\n";
    print $FH "    if (__typeCode == null)\n";
    print $FH "    {\n";
    print $FH "      synchronized (org.omg.CORBA.TypeCode.class)\n";
    print $FH "      {\n";
    print $FH "        if (__typeCode == null)\n";
    print $FH "        {\n";
    print $FH "          if (__active)\n";
    print $FH "          {\n";

lib/CORBA/JAVA/ClassVisitor.pm  view on Meta::CPAN

    print $FH "    return read (a.create_input_stream ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  private static org.omg.CORBA.TypeCode __typeCode = null;\n";
    print $FH "  private static boolean __active = false;\n";
    print $FH "  synchronized public static org.omg.CORBA.TypeCode type ()\n";
    print $FH "  {\n";
    print $FH "    if (__typeCode == null)\n";
    print $FH "    {\n";
    print $FH "      synchronized (org.omg.CORBA.TypeCode.class)\n";
    print $FH "      {\n";
    print $FH "        if (__typeCode == null)\n";
    print $FH "        {\n";
    print $FH "          if (__active)\n";
    print $FH "          {\n";

lib/CORBA/JAVA/ClassVisitor.pm  view on Meta::CPAN

    print $FH "    return read (a.create_input_stream ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  private static org.omg.CORBA.TypeCode __typeCode = null;\n";
##  print $FH "  private static boolean __active = false;\n";
    print $FH "  synchronized public static org.omg.CORBA.TypeCode type ()\n";
    print $FH "  {\n";
    print $FH "    if (__typeCode == null)\n";
    print $FH "    {\n";
##  print $FH "      synchronized (org.omg.CORBA.TypeCode.class)\n";
##  print $FH "      {\n";
##  print $FH "        if (__typeCode == null)\n";
##  print $FH "        {\n";
##  print $FH "          if (__active)\n";
##  print $FH "          {\n";

lib/CORBA/JAVA/ClassVisitor.pm  view on Meta::CPAN

    print $FH "  {\n";
    print $FH "    throw new org.omg.CORBA.MARSHAL();\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  private static org.omg.CORBA.TypeCode __typeCode = null;\n";
    print $FH "  synchronized public static org.omg.CORBA.TypeCode type ()\n";
    print $FH "  {\n";
    print $FH "    if (__typeCode == null)\n";
    print $FH "    {\n";
    print $FH "      __typeCode = org.omg.CORBA.ORB.init ().get_primitive_tc (org.omg.CORBA.TCKind.tk_objref);\n";
    print $FH "      __typeCode = org.omg.CORBA.ORB.init ().create_alias_tc (",$node->{java_Helper},".id (), \"",$node->{java_helper},"\", __typeCode);\n";

lib/CORBA/JAVA/ClassVisitor.pm  view on Meta::CPAN

    print $FH "    return read (a.create_input_stream ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  private static org.omg.CORBA.TypeCode __typeCode = null;\n";
    print $FH "  private static boolean __active = false;\n";
    print $FH "  synchronized public static org.omg.CORBA.TypeCode type ()\n";
    print $FH "  {\n";
    print $FH "    if (__typeCode == null)\n";
    print $FH "    {\n";
    print $FH "      synchronized (org.omg.CORBA.TypeCode.class)\n";
    print $FH "      {\n";
    print $FH "        if (__typeCode == null)\n";
    print $FH "        {\n";
    print $FH "          if (__active)\n";
    print $FH "          {\n";

lib/CORBA/JAVA/ClassVisitor.pm  view on Meta::CPAN

    print $FH "    return read (a.create_input_stream ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  private static org.omg.CORBA.TypeCode __typeCode = null;\n";
    print $FH "  private static boolean __active = false;\n";
    print $FH "  synchronized public static org.omg.CORBA.TypeCode type ()\n";
    print $FH "  {\n";
    print $FH "    if (__typeCode == null)\n";
    print $FH "    {\n";
    print $FH "      synchronized (org.omg.CORBA.TypeCode.class)\n";
    print $FH "      {\n";
    print $FH "        if (__typeCode == null)\n";
    print $FH "        {\n";
    print $FH "          if (__active)\n";
    print $FH "          {\n";

lib/CORBA/JAVA/ClassVisitor.pm  view on Meta::CPAN

    print $FH "    return read (a.create_input_stream ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  private static org.omg.CORBA.TypeCode __typeCode = null;\n";
    print $FH "  private static boolean __active = false;\n";
    print $FH "  synchronized public static org.omg.CORBA.TypeCode type ()\n";
    print $FH "  {\n";
    print $FH "    if (__typeCode == null)\n";
    print $FH "    {\n";
    print $FH "      synchronized (org.omg.CORBA.TypeCode.class)\n";
    print $FH "      {\n";
    print $FH "        if (__typeCode == null)\n";
    print $FH "        {\n";
    print $FH "          if (__active)\n";
    print $FH "          {\n";

lib/CORBA/JAVA/ClassVisitor.pm  view on Meta::CPAN

    print $FH "    return read (a.create_input_stream ());\n";
    print $FH "  }\n";
    print $FH "\n";
    print $FH "  private static org.omg.CORBA.TypeCode __typeCode = null;\n";
    print $FH "  private static boolean __active = false;\n";
    print $FH "  synchronized public static org.omg.CORBA.TypeCode type ()\n";
    print $FH "  {\n";
    print $FH "    if (__typeCode == null)\n";
    print $FH "    {\n";
    print $FH "      synchronized (org.omg.CORBA.TypeCode.class)\n";
    print $FH "      {\n";
    print $FH "        if (__typeCode == null)\n";
    print $FH "        {\n";
    print $FH "          if (__active)\n";
    print $FH "          {\n";

 view release on metacpan or  search on metacpan

omnithreads/shared/shared.pm  view on Meta::CPAN

C<cond_signal> or C<cond_broadcast> for that same locked variable.
The variable that C<cond_wait> blocked on is relocked after the
C<cond_wait> is satisfied.  If there are multiple threads
C<cond_wait>ing on the same variable, all but one will reblock waiting
to reacquire the lock on the variable. (So if you're only using
C<cond_wait> for synchronisation, give up the lock as soon as
possible). The two actions of unlocking the variable and entering the
blocked wait state are atomic, the two actions of exiting from the
blocked wait state and relocking the variable are not.

In its second form, C<cond_wait> takes a shared, B<unlocked> variable

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

use 5.004;
use strict 'vars';

use vars qw{$VERSION};
BEGIN {
    # All Module::Install core packages now require synchronised versions.
    # This will be used to ensure we don't accidentally load old or
    # different versions of modules.
    # This is not enforced yet, but will be some time in the next few
    # releases once we can make sure it won't clash with custom
    # Module::Install extensions.

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

use File::Find ();
use File::Path ();

use vars qw{$VERSION $MAIN};
BEGIN {
	# All Module::Install core packages now require synchronised versions.
	# This will be used to ensure we don't accidentally load old or
	# different versions of modules.
	# This is not enforced yet, but will be some time in the next few
	# releases once we can make sure it won't clash with custom
	# Module::Install extensions.

 view release on metacpan or  search on metacpan

corpus/dists/Digest-MD5.changes  view on Meta::CPAN

2002-05-05   Gisle Aas <gisle@ActiveState.com>

   Release 2.20

   More synchronization with tweaks Jarkko have done to the
   bleadperl test suite. This time various EBCDIC hacks.

   Outside PERL_CORE the md5-aaa.t test loaded the wrong version of
   the module (and would fail if no previous Digest::MD5 was installed).
   Patch by Mike Stok <mike@stok.co.uk>

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

use 5.004;
use strict 'vars';

use vars qw{$VERSION};
BEGIN {
    # All Module::Install core packages now require synchronised versions.
    # This will be used to ensure we don't accidentally load old or
    # different versions of modules.
    # This is not enforced yet, but will be some time in the next few
    # releases once we can make sure it won't clash with custom
    # Module::Install extensions.

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

}
use strict 'vars';

use vars qw{$VERSION};
BEGIN {
	# All Module::Install core packages now require synchronised versions.
	# This will be used to ensure we don't accidentally load old or
	# different versions of modules.
	# This is not enforced yet, but will be some time in the next few
	# releases once we can make sure it won't clash with custom
	# Module::Install extensions.

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

use File::Find ();
use File::Path ();

use vars qw{$VERSION $MAIN};
BEGIN {
	# All Module::Install core packages now require synchronised versions.
	# This will be used to ensure we don't accidentally load old or
	# different versions of modules.
	# This is not enforced yet, but will be some time in the next few
	# releases once we can make sure it won't clash with custom
	# Module::Install extensions.

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

}
use strict 'vars';

use vars qw{$VERSION};
BEGIN {
	# All Module::Install core packages now require synchronised versions.
	# This will be used to ensure we don't accidentally load old or
	# different versions of modules.
	# This is not enforced yet, but will be some time in the next few
	# releases once we can make sure it won't clash with custom
	# Module::Install extensions.

 view release on metacpan or  search on metacpan

lib/CPAN/Mini/Devel/Recent.pm  view on Meta::CPAN

Unauthorized releases will also be included if they resemble a distribution
name already in the normal CPAN packages list.

There may be errors retrieving very new modules if they are indexed but not
yet synchronized on the mirror.

=head1 USAGE

See L<CPAN::Mini>.

 view release on metacpan or  search on metacpan

lib/CPAN/Mini/Devel.pm  view on Meta::CPAN

Unauthorized releases will also be included if they resemble a distribution
name already in the normal CPAN packages list.

There may be errors retrieving very new modules if they are indexed but not
yet synchronized on the mirror.

CPAN::Mini::Devel also mirrors the F<indices/find-ls.gz> file, which is used
to identify developer releases.

=head1 USAGE

 view release on metacpan or  search on metacpan

lib/CPAN/Mini/Extract.pm  view on Meta::CPAN

beyond the normal ones, like turning C<skip_perl> on.

=item offline

Although useless with L<CPAN::Mini> itself, the C<offline> flag will
cause the CPAN synchronisation step to be skipped, and only any
extraction tasks to be done. (False by default)

=item extract

Provides the directory (which must exist and be writable, or be creatable)

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

use 5.005;
use strict 'vars';

use vars qw{$VERSION $MAIN};
BEGIN {
	# All Module::Install core packages now require synchronised versions.
	# This will be used to ensure we don't accidentally load old or
	# different versions of modules.
	# This is not enforced yet, but will be some time in the next few
	# releases once we can make sure it won't clash with custom
	# Module::Install extensions.

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

use File::Find ();
use File::Path ();

use vars qw{$VERSION $MAIN};
BEGIN {
	# All Module::Install core packages now require synchronised versions.
	# This will be used to ensure we don't accidentally load old or
	# different versions of modules.
	# This is not enforced yet, but will be some time in the next few
	# releases once we can make sure it won't clash with custom
	# Module::Install extensions.

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

use File::Find ();
use File::Path ();

use vars qw{$VERSION $MAIN};
BEGIN {
	# All Module::Install core packages now require synchronised versions.
	# This will be used to ensure we don't accidentally load old or
	# different versions of modules.
	# This is not enforced yet, but will be some time in the next few
	# releases once we can make sure it won't clash with custom
	# Module::Install extensions.

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

use File::Find ();
use File::Path ();

use vars qw{$VERSION $MAIN};
BEGIN {
	# All Module::Install core packages now require synchronised versions.
	# This will be used to ensure we don't accidentally load old or
	# different versions of modules.
	# This is not enforced yet, but will be some time in the next few
	# releases once we can make sure it won't clash with custom
	# Module::Install extensions.

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

use File::Find ();
use File::Path ();

use vars qw{$VERSION $MAIN};
BEGIN {
	# All Module::Install core packages now require synchronised versions.
	# This will be used to ensure we don't accidentally load old or
	# different versions of modules.
	# This is not enforced yet, but will be some time in the next few
	# releases once we can make sure it won't clash with custom
	# Module::Install extensions.

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

use 5.005;
use strict 'vars';

use vars qw{$VERSION $MAIN};
BEGIN {
	# All Module::Install core packages now require synchronised versions.
	# This will be used to ensure we don't accidentally load old or
	# different versions of modules.
	# This is not enforced yet, but will be some time in the next few
	# releases once we can make sure it won't clash with custom
	# Module::Install extensions.

 view release on metacpan or  search on metacpan

lib/CPAN/Repo.pm  view on Meta::CPAN

 - simple maintenance - thanks to the author of CPANPLUS, custom sources idea is cool! for details see
 'CUSTOM MODULE SOURCES' section in http://search.cpan.org/perldoc?CPANPLUS::Backend
 - multiply cpan repos accessible via one cpan server, see datails below
 - index merge, see datails below
 - no need to care about global cpan mirrors synchronization as with CPAN::Mini, because in cpanplus
 they exist separately (as custom sources)


=head1 Multiple cpan repositoies

 view release on metacpan or  search on metacpan

ChangeLog  view on Meta::CPAN

	Fixes:
	- require Log::Report 0.25, not the non-existent 0.27

	Improvements:
	- indexer synchronizes with core CPAN after 1 hour (was 1 day)
	  because CPAN is faster than previously.
	- CPANSITE_CPAN environment variable as alternative to --site
	- Replace IO::Compress::* by IO::Zlib, which is already required
	  by Archive::Tar.
	- explain changes in explain_101.txt

 view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

use File::Find ();
use File::Path ();

use vars qw{$VERSION $MAIN};
BEGIN {
	# All Module::Install core packages now require synchronised versions.
	# This will be used to ensure we don't accidentally load old or
	# different versions of modules.
	# This is not enforced yet, but will be some time in the next few
	# releases once we can make sure it won't clash with custom
	# Module::Install extensions.

 view release on metacpan or  search on metacpan

t/var/nntp-testers/1533902  view on Meta::CPAN

Summary of my perl5 (revision 5 version 8 subversion 8) configuration:
  Platform:
    osname=linux, osvers=2.6.18-53.el5, archname=i386-linux-thread-multi
    uname='linux builder7.centos.org 2.6.9-42.0.3.elsmp #1 smp fri oct 6 06:21:39 cdt 2006 i686 i686 i386 gnulinux '
    config_args='-des -Doptimize=-O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -march=i386 -mtune=generic -fasynchronous-unwind-tables -Dversion=5.8.8 -Dmyhostname=localhost -Dperladmin=root@...
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=define use5005threads=undef useithreads=define usemultiplicity=define
    useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='gcc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm',
    optimize='-O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -march=i386 -mtune=generic -fasynchronous-unwind-tables',
    cppflags='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include -I/usr/include/gdbm'
    ccversion='', gccversion='4.1.1 20061011 (Red Hat 4.1.1-30)', gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8

t/var/nntp-testers/1533902  view on Meta::CPAN

    perllibs=-lresolv -lnsl -ldl -lm -lcrypt -lutil -lpthread -lc
    libc=/lib/libc-2.5.so, so=so, useshrplib=true, libperl=libperl.so
    gnulibc_version='2.5'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E -Wl,-rpath,/usr/lib/perl5/5.8.8/i386-linux-thread-multi/CORE'
    cccdlflags='-fPIC', lddlflags='-shared -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector --param=ssp-buffer-size=4 -m32 -march=i386 -mtune=generic -fasynchronous-unwind-tables -L/usr/local/lib'

</pre>

 view release on metacpan or  search on metacpan

lib/CPAN.pm  view on Meta::CPAN

=head2 Debugging

Debugging this module is more than a bit complex due to interference from
the software producing the indices on CPAN, the mirroring process on CPAN,
packaging, configuration, synchronicity, and even (gasp!) due to bugs
within the CPAN.pm module itself.

For debugging the code of CPAN.pm itself in interactive mode, some
debugging aid can be turned on for most packages within
CPAN.pm with one of