Merge pull request #7 from ilmari/arybasectomy
Note removal of `array_base` feature
Leon Timmermans authored 5 years ago
GitHub committed 5 years ago
| 39 | 39 | unicode_eval => '5.16.0', |
| 40 | 40 | unicode_strings => '5.12.0', |
| 41 | 41 | ); |
| 42 | my %max_version = ( | |
| 42 | my %removed_in_version = ( | |
| 43 | array_base => '5.29.4', | |
| 43 | 44 | autoderef => '5.23.1', |
| 44 | 45 | lexical_topic => '5.23.4', |
| 45 | 46 | ); |
| 46 | 47 | |
| 47 | 48 | $_ = version->new($_) for values %min_version; |
| 48 | $_ = version->new($_) for values %max_version; | |
| 49 | $_ = version->new($_) for values %removed_in_version; | |
| 49 | 50 | |
| 50 | 51 | my %additional = ( |
| 51 | 52 | postderef => ['postderef_qq'], |
| 76 | 77 | } |
| 77 | 78 | croak "Need perl $stable or later for feature $pragma"; |
| 78 | 79 | } |
| 79 | elsif ($] >= ($max_version{$pragma} || 7)) { | |
| 80 | croak "Experimental feature $pragma has been removed from perl in version $max_version{$pragma}"; | |
| 80 | elsif ($] >= ($removed_in_version{$pragma} || 7)) { | |
| 81 | croak "Experimental feature $pragma has been removed from perl in version $removed_in_version{$pragma}"; | |
| 81 | 82 | } |
| 82 | 83 | } |
| 83 | 84 | |