This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<VirtualHost *:443> | |
ServerName uebernet-plack.testdomain.com | |
ServerAlias * | |
ServerAdmin [email protected] | |
DocumentRoot /ndn/web/uebernet | |
ErrorLog /var/log/apache2/uebernet.https/error.log | |
CustomLog /var/log/apache2/uebernet.https/access.log combined |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Test::Stream: | |
Elapsed: 976 sec | |
u=8.72 s=2.22 cu=606.88 cs=52.03 scripts=2347 tests=711443 | |
Legacy: | |
Elapsed: 986 sec | |
u=8.36 s=2.47 cu=551.54 cs=46.54 scripts=2296 tests=720367 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
exodist@Work $ git status (blead)[~/projects/perl] | |
On branch blead | |
Your branch is ahead of 'origin/blead' by 1 commit. | |
(use "git push" to publish your local commits) | |
nothing to commit, working directory clean | |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
my $iapp = Plack::App::WrapCGI->new(script => "$path/$cgi")->to_app; | |
my $app = sub { | |
my $env = shift; | |
return [ | |
'404', | |
['Content-Type' => 'text/plain'], | |
["404 error\n"] | |
] unless -e $self->path . $env->{PATH_INFO}; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
$ perl -V [~/MongoDB-v0.708.0.0] | |
Summary of my perl5 (revision 5 version 20 subversion 2) configuration: | |
Platform: | |
osname=linux, osvers=3.13.0-44-generic, archname=x86_64-linux-thread-multi | |
uname='linux work 3.13.0-44-generic #73-ubuntu smp tue dec 16 00:22:43 utc 2014 x86_64 x86_64 x86_64 gnulinux ' | |
config_args='-de -Dprefix=/home/exodist/perl5/perlbrew/perls/mongo -Dusethreads -Aeval:scriptdir=/home/exodist/perl5/perlbrew/perls/mongo/bin' | |
hint=recommended, useposix=true, d_sigaction=define | |
useithreads=define, usemultiplicity=define | |
use64bitint=define, use64bitall=define, uselongdouble=undef |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use strict; | |
use warnings; | |
use Test::More 'no_plan'; | |
use MongoDB::Timestamp; # needed if db is being run as master | |
use MongoDB; | |
use lib "t/lib"; | |
use MongoDBTest qw/build_client get_test_db/; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#https://github.com/Test-More/test-more/blob/stream/master/lib/Test/Stream/Context.pm#L263 | |
# expanded: | |
# This still demonstrates problem: | |
sub snapshot { | |
my ($self, $type, $copy, $new); | |
$self = shift; | |
$type = blessed($self); | |
$copy = {%$self}; | |
$new = bless $copy, $type; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
unshift @INC => sub { | |
my ($us, $file) = @_; | |
return unless $REDIRECT{$file}; | |
my $rewrite = $file; | |
$rewrite =~ s/\.pm$/_stream.pm/; | |
require $rewrite; | |
$INC{$file} = $INC{$rewrite}; |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Summary of my perl5 (revision 5 version 20 subversion 2) configuration: | |
Platform: | |
osname=linux, osvers=2.6.32.8-grsec-2.1.14-modsign-xeon-64, archname=x86_64-linux | |
uname='linux fubar 2.6.32.8-grsec-2.1.14-modsign-xeon-64 #2 smp sat mar 13 00:42:43 pst 2010 x86_64 gnulinux ' | |
config_args='-Dprefix=/opt/ndn-perl/2015.04.29.111344-9a918e0 -de -Dotherlibdirs=/opt/ndn-perl/shared/lib/ndn_perl -Duse64bitint -Duse64bitall -Accflags=-fPIC -A'eval:scriptdir=/opt/ndn-perl/2015.04.29.111344-9a918e0/bin'' | |
hint=recommended, useposix=true, d_sigaction=define | |
useithreads=undef, usemultiplicity=undef | |
use64bitint=define, use64bitall=define, uselongdouble=undef | |
usemymalloc=n, bincompat5005=undef |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Summary of my perl5 (revision 5 version 10 subversion 0) configuration: | |
Platform: | |
osname=linux, osvers=2.6.32-5-amd64, archname=x86_64-linux-gnu-thread-multi | |
uname='linux barber 2.6.32-5-amd64 #1 smp tue jun 14 09:42:28 utc 2011 x86_64 gnulinux ' | |
config_args='-Dusethreads -Duselargefiles -Dccflags=-DDEBIAN -Dcccdlflags=-fPIC -Darchname=x86_64-linux-gnu -Dprefix=/usr -Dprivlib=/usr/share/perl/5.10 -Darchlib=/usr/lib/perl/5.10 -Dvendorprefix=/usr -Dvendorlib=/usr/share/perl5 -Dvendorarch=/usr/lib/perl5 -Dsiteprefix=/usr/local -Dsitelib=/usr/local/share/perl/5.10.0 -Dsitearch=/usr/local/lib/perl/5.10.0 -Dman1dir=/usr/share/man/man1 -Dman3dir=/usr/share/man/man3 -Dsiteman1dir=/usr/local/man/man1 -Dsiteman3dir=/usr/local/man/man3 -Dman1ext=1 -Dman3ext=3perl -Dpager=/usr/bin/sensible-pager -Uafs -Ud_csh -Ud_ualarm -Uusesfio -Uusenm -DDEBUGGING=-g -Doptimize=-O2 -Duseshrplib -Dlibperl=libperl.so.5.10.0 -Dd_dosuid -des' | |
hint=recommended, useposix=true, d_sigaction=define | |
useithreads=define, usem |