Skip to content

Instantly share code, notes, and snippets.

@neilb
neilb / indexer-deadlock-2024-05-14.txt
Created May 14, 2024 15:13
Indexer deadlock 2024-05-14
The following report has been written by the PAUSE namespace indexer.
Please contact modules@perl.org if there are any open questions.
User: PERLANCAR (perlancar)
Distribution file: TableDataRoles-Standard-0.025.tar.gz
Number of files: 62
*.pm files: 33
README: TableDataRoles-Standard-0.025/README
META-File: TableDataRoles-Standard-0.025/META.json
META-Parser: Parse::CPAN::Meta 2.150010
@neilb
neilb / usa-state-data.json
Created June 24, 2019 22:27
States of the USA, with adjacency information, and some other stuff
{
"AL": { "name": "Alabama", "initials": "a", "adjacent": ["FL", "GA", "TN", "MS"] },
"AK": { "name": "Alaska", "initials": "a", "adjacent": [] },
"AZ": { "name": "Arizona", "initials": "a", "adjacent": [ "NM", "UT", "NV", "CA"] },
"AR": { "name": "Arkansas", "initials": "a", "adjacent": [ "LA", "MS", "TN", "MO", "OK", "TX"] },
"CA": { "name": "California", "initials": "c", "adjacent": [ "AZ", "NV", "OR"] },
"CO": { "name": "Colorado", "initials": "c", "adjacent": [ "NM", "OK", "KS", "NE", "WY", "UT"] },
"CT": { "name": "Connecticut", "initials": "c", "adjacent": [ "RI", "MA", "NY"] },
"DE": { "name": "Delaware", "initials": "d", "adjacent": [ "NJ", "PA", "MD"] },
"FL": { "name": "Florida", "initials": "f", "adjacent": [ "GA", "AL"] },
@neilb
neilb / hacked-lib-overload-t.pl
Created March 8, 2022 09:51
This is my modified version of $PERL/lib/overload.t, with changes that make the testsuite pass on a taint-free perl
#!./perl -T
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
require Config;
if (($Config::Config{'extensions'} !~ m!\bList/Util\b!) ){
print "1..0 # Skip -- Perl configured without List::Util module\n";
exit 0;
}
@neilb
neilb / optionally.pm
Created April 4, 2021 10:49
A module for optionally loading other modules and importing functions from them
package optionally;
# optionally load a module and import functions
#
# use optionally 'Some::Module', '1.23', qw/ fnA fnB /;
#
use 5.010;
use strict;
use warnings;
@neilb
neilb / optionally.pm
Last active April 4, 2021 11:15
An experimential module that uses Keyword::Simple to provide syntax for optionally loading a module
package optionally;
# optionally load a module and import functions
#
# Syntax:
#
# use optionally;
# optionally use Module::Foo 1.37 function1 function2;
#
# This was an experiment, and is not at all ready for real use.
@neilb
neilb / optionally.pm
Created April 4, 2021 11:03
Another experimental module playing around with optional loading of other modules
package optionally;
# don't use this
#
# this was an experiment in loading modules optionally, so you can write:
#
# use optionally;
# optionally use Module::Foo 1.23 qw/ function1 function2 /;
#
@neilb
neilb / losing-first-come.t
Created October 17, 2020 22:22
PAUSE test that shows primeur-only first-come is lost if a co-maint does a release
#
# losing-first-come.t
#
# This test was written to demonstrate a bug that is causing authors
# to lose a first-come permission, in a particular setup and release scenario.
#
# Setup:
# user FORD has first-come on package Guide (but an entry in `primeur` only)
# user ARTHUR has co-maint on package Guide (an entry in `perms`)
#
@neilb
neilb / solve-wordsearch.pl
Created September 2, 2020 21:16
A perl script to solve a word search puzzle
#!/usr/local/bin/perl
#
# solve-wordsearch - search for words (from a word list) in a wordsearch grid
#
use strict;
use warnings;
use v5.20;
use feature qw/ signatures /;
no warnings qw/ experimental::signatures /;
use File::Slurper qw/ read_lines /;
@neilb
neilb / perl-vs-p5p.txt
Created June 9, 2016 20:49
All the packages names that "perl" has permissions on, and the associated P5P permission, if there is one
AnyDBM_File,P5P,f
AnyDBM_File,perl,c
AutoLoader,P5P,f
AutoLoader,perl,c
AutoSplit,P5P,f
AutoSplit,perl,c
@neilb
neilb / pts-sponsors-2019.md
Last active May 1, 2019 07:07
Sponsors for the Perl Toolchain Summit 2019