source: recognise [sample] text include references

[sheet.git] / perl.plp

diff --git a/perl.plp b/perl.plp
index 17145e360f2ae804d7c2ce87ca490e8c5d9fc53d..a5ef991145750b9fbcb617837a58b5e481059a3a 100644 (file)
--- a/perl.plp
+++ b/perl.plp
@@ -24,7 +24,7 @@ Depending on desired compatibility you'll want to support a minimum of
 my $info = do 'perl.inc.pl' or die $@ // $!;
 for my $vernum (reverse sort keys %{$info}) {
        my $verrow = $info->{$vernum};
-       $verrow->{unstable} and next unless exists $get{v};
+       defined $verrow->{unstable} and next unless exists $get{v};
 
        say '<div class="section">';
        say sprintf '<h2>%vd <small>%s</small></h2><dl>', $vernum, $verrow->{release};