eserte

## for ctr_good_or_invalid.pl --auto-good-file
##
# may pass with -addthisperlpath -pre Switch
#"fail.a2pdf-1.13.
"fail.ABNF-Grammar-0.08.
"fail.AcePerl-1.92.
"fail.Acme-24-0.04.
"fail.Acme-AjiFry-0.09.
"fail.Acme-AlgebraicToRPN-0.02.
"fail.Acme-Archive-Mbox-0.01.

eserte

#!/usr/bin/env pistachio-perl
# -*- perl -*-

use strict;
use warnings;
use Tk;
use Tk::ROText;
use Proc::ProcessTable;
use List::Util qw(first);
eval 'use Tie::IxHash';

eserte

#!/usr/bin/perl -w
# -*- perl -*-

#
# $Id: rcs2cvsrepo.pl,v 1.3 2008/12/31 13:52:17 eserte Exp eserte $
# Author: Slaven Rezic
#
# Copyright (C) 2008 Slaven Rezic. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.

eserte

Hash::NoShareKeys

Provide a function Hash::NoShareKeys::apply to disable sharing of hash keys on the specified hash (reference).

See test.pl for a usage example.

Memory consumption on a single hash with one million keys (tested on a Linux Mint 18 system with self-compiled perl 5.28.0, unthreaded):

eserte

See test.pl for a usage example.

eserte

#!/usr/bin/perl -w
# -*- perl -*-

#
# Author: Slaven Rezic
#
# Copyright (C) 2015-2018 Slaven Rezic. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#

eserte

Smoking 5.18.2 vs. 5.19.11, on FreeBSD 9.2 and Linux Debian squeeze

already reported in CPAN RT

need investigation

Config-Trivial-Storable-0.30

https://rt.cpan.org/Ticket/Display.html?id=95343 test tries to overwrite base.pm

-> bisect says: commit 892089cd68f447dda17eb023010cd1dfb14ea0a5

eserte

package CPANDebianInstaller;
use strict;
use warnings;
sub new { bless {}, shift }
sub post_get {
    my($self, $dist) = @_;

    my %packages;
    if (0) {
    } elsif ($dist->base_id =~ m{^Cairo-\d}) {

eserte

// ==UserScript==
// @name        filter_with_comment
// @namespace   www.rezic.de
// @include     http://analysis.cpantesters.org/beforemaintrelease*
// @version     1
// @grant       none
// ==/UserScript==
var filtered = false;
var t = document.getElementById("beforemaintrelease_main");
if (!t) {

eserte

use strict;
use Strassen::Core;
use JSON::XS;

my $s = Strassen->new("data_berlin_osm/strassen");
#my $s = Strassen->new("data/strassen");
my $cr = $s->all_crossings;
print JSON::XS->new->pretty->encode($cr);