Ed Avis

Confirmed cases and deaths not updating since 2021-04-18

5

In the big CSV file of all data at https://github.com/OxCGRT/covid-policy-tracker/raw/master/data/OxCGRT_latest.csv there are rows for 2021-04-19 and later dates, but these rows are blank in the latest rows. For example the...

Suggested policy: duplicate use and require

4

A new policy could detect exact duplicate `use` statements in the same package. These two examples would give a message: ``` use Foo; use Bar; use Foo; ``` ``` use...

Suggested policy: suggest @{^CAPTURE}

5

Lots of Perl code looks like ``` if (/(some) (regexp) (with) (captures)/) { my @stuff = ($1, $2, $3, $4); ... } ``` This could nowadays be expressed better as...

Use of uninitialized value $word in pattern match (m//) at /usr/share/perl5/vendor_perl/PPI/Tokenizer.pm line 836.

15

`Use of uninitialized value $word in pattern match (m//) at /usr/share/perl5/vendor_perl/PPI/Tokenizer.pm line 836.` This is from running perlcritic; if you're unable to reproduce this I can whittle it down to...

Improved diagnostic: "Can't return outside a subroutine" at compile time

2

**Description** The `return` keyword cannot be used outside a subroutine. It will give an error at run time. But it should be straightforward to check at compile time too. That...

Compile-time check for nonexistent ${^MAGIC} variables

1

**Description** Although with `use strict` Perl will report the use of a variable that hasn't been declared, it doesn't catch mistakes in builtin variables that have a long name such...

Wrong error message if file called 0 does not exist

2

Normally perlcritic will report if a file specified does not exist. ``` % perlcritic xxx No such file or directory: 'xxx' ``` But if the filename specified is 0 then...

This program does a regexp capture and does check it succeeded, dying if not: ``` $_ = ; if (not /(\w)/) { die; } print $1; ``` But perlcritic complains:...

``` % mkdir x % cd x % echo 'verbose = "%f:%l:%c:%m [%p] (%e)\n"' >.perlcriticrc % touch y % perlcritic --brutal y Operator or semicolon missing before %f at (eval...

Perlcritic fails to understand the control flow here: ``` sub foo { foreach (@_) { if (not /(\w)/) { next if /X/; die; } return $1; } } ``` If...