Select Code to Download

use 5.026;

...
    }
catch { Carp::cluck $_ }; # line 36

>perl re.t
Regexp::Common:   2017060201
...
 at ..\..\test\re.t line 36.
        main::catch {...} ("Not a SCALAR reference at C:/berrybrew/5.3
+2.1_64/perl/site/li"...) called at C:/berrybrew/5.32.1_64/perl/lib/Tr
+y/Tiny.pm line 123
        Try::Tiny::try(CODE(0xf9c1a0), Try::Tiny::Catch=REF(0xe581f8))
+ called at ..\..\test\re.t line 36