keyboard/altgr/weur: dweurak metadata overrides

[sheet.git] / perl.plp

diff --git a/perl.plp b/perl.plp
index 2d9cb010025f52bcc9758c28a912bf1ee027976a..590cefa227b394355111725c814d77bcc027f22b 100644 (file)
--- a/perl.plp
+++ b/perl.plp
@@ -2,11 +2,12 @@
 
 Html({
        title => 'perl version cheat sheet',
 
 Html({
        title => 'perl version cheat sheet',

-       version => '1.5',
+       version => '1.8',

        keywords => [qw'
                perl version feature features comparison
                sheet cheat overview summary
        '],
        keywords => [qw'
                perl version feature features comparison
                sheet cheat overview summary
        '],

+       image => 'data/camels.jpg',

        stylesheet => [qw'light dark red'],
        data => ['perl.inc.pl'],
 });
        stylesheet => [qw'light dark red'],
        data => ['perl.inc.pl'],
 });


@@ -113,7 +114,8 @@ sub featattrs ($attr) {
                $title = 'experimental';
        }
        if (defined $attr->{dropped}) {
                $title = 'experimental';
        }
        if (defined $attr->{dropped}) {

-               return '' unless exists $get{v};
+               no warnings 'exiting';
+               next unless exists $get{v}; # skip containing feature

                $title = sprintf 'removed in %vd', $_ for $attr->{dropped} || ();
        }
        elsif ($attr->{stable}) {
                $title = sprintf 'removed in %vd', $_ for $attr->{dropped} || ();
        }
        elsif ($attr->{stable}) {