wolfsage

diff --git a/lib/MetaCPAN/Script/Release.pm b/lib/MetaCPAN/Script/Release.pm
index d094964..6b05ad8 100644
--- a/lib/MetaCPAN/Script/Release.pm
+++ b/lib/MetaCPAN/Script/Release.pm
@@ -120,6 +120,9 @@ sub run {
     }
     log_info { scalar @files, " tarballs found" } if ( @files > 1 );
 
+    # Hack? Lower versions before higher versions
+    @files = sort @files;

wolfsage

Archive::Any::Plugin
Captcha::reCAPTCHA
Catalyst::Authentication::User
Catalyst::Controller
Catalyst::Model
Catalyst::Plugin::Session::Store
Catalyst::Utils
Catalyst::View
Log::Log4perl::Appender::ScreenColoredLevels
Plack::App::Directory

wolfsage

You are running Catalyst::Engine::PSGI, which is considered a legacy engine for
this version of Catalyst.  We will continue running and use your existing psgi
file, but it is recommended to perform the trivial upgrade process, which will
leave you with less code and a forward path.

Please review Catalyst::Upgrading
env as a writer is deprecated, you probably need to upgrade Catalyst::Engine::PSGI at /usr/local/share/perl/5.10.1/Catalyst/Engine.pm line 27.
Use of uninitialized value in string eq at /home/mhorsfall/gitrepos/metacpan-web/lib/MetaCPAN/Web/Controller/Activity.pm line 24.
Use of uninitialized value in string eq at /home/mhorsfall/gitrepos/metacpan-web/lib/MetaCPAN/Web/Controller/Activity.pm line 24.
Use of uninitialized value in string eq at /home/mhorsfall/gitrepos/metacpan-web/lib/MetaCPAN/Web/Controller/Activity.pm line 24.

wolfsage

Test 

wolfsage

Test 

wolfsage

#!/usr/bin/perl

use strict;
use warnings;

$|++;

use Time::HiRes qw(gettimeofday);

my $start;

wolfsage

#!/usr/bin/perl

use strict;
use warnings;

my $string = 'x' x (1024 * 1024 * 8);

print "Before match\n";

$string =~ /x/;

wolfsage

BEGIN {
  # Only load up the callback if Devel::MemoryTrace::Light is being used
  if ($Devel::MemoryTrace::Light::VERSION) {

        my %stats;

        # Override default output when memory change is detected
        DB::set_callback(
          sub  {
                my ($pkg, $file, $line, $bytes) = @_;