show something meaningful for deprecation notices without eligible or…

… ticket fields
parrot · Feb 1, 2011 · efd80f0 · efd80f0
1 parent 48c1717
commit efd80f0
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/tools/dev/show_deprecated.pl b/tools/dev/show_deprecated.pl
@@ -35,6 +35,12 @@ =head1 PREREQUISITE
     my $eligible = $e->{eligible};
     my $title    = $e->{name};
     next if any { $_ eq 'old' } @$tags;
+
+    $eligible = "no"
+        unless defined $eligible && $eligible ne '';
+    $ticket = "**************** no ticket ****************"
+        unless defined $ticket && $ticket ne '';
+
     # This format is ugly, but is functional for now
     print "$ticket\t$eligible\t$title\n" if any { $_ eq 'deprecated' } @$tags;
 }