Early this morning, (between about 0300 and 0730 EDT in North America) perlmonks wasn't displaying what I was expecting.

In fact, this is what connecting to http://perlmonks.org/index.pl got me:

#!/usr/bin/perl

use strict;
use lib "/home/monkads/0.8mods";

use vars qw( @updatedModules );
BEGIN {
  # When this mod_perl process starts, see if we inheritted old versio
+ns
  # of key modules from our parent which hasn't been restarted recentl
+y:
  my %ver= (
    "Everything::HTML" => 1.011,
  );
  for my $mod (  keys %ver  ) {
    no strict;
    if(  ${$mod."::VERSION"} < $ver{$mod}  ) {
      push @updatedModules, $mod;
      $mod =~ s.::./.g;
      delete $INC{"$mod.pm"};
      require "$mod.pm";  # Not really required here.
    }
  }
}

use Everything::HTML;

mod_perlInit "perlmonk_ebase";


if(  @updatedModules  ) {
  print "\n<!-- updated modules this load($$): @updatedModules -->\n";
  @updatedModules= ();
}
[download]

Now, I'm guessing the server had a bit of a misconfiguration, but it was amusing, since there was a thread about something like this yesterday, I think.

BTW, here's my patch to improve the code:

s/inheritted/inherited/
[download]

:)
--
Mike