git.sesse.net Git - vlc/blob - todo.pl

   1 #! /usr/bin/perl
   2
   3 $buffer = "";
   4 $description = "";
   5
   6 open FILE, "TODO";
   7
   8 while (<FILE>) {
   9         $buffer .= $_;
  10         if (/^Status:/) {
  11                 if(/Todo/) {
  12                         print $buffer;
  13                 } else {
  14                         print "\n".$description;
  15                         print $_;
  16                 }
  17                 $buffer = "";
  18                 $description = "";
  19         } elsif (/^Description/) {
  20                 $description = $_;
  21         }
  22 }
  23
  24 close FILE;
  25