comparison bin/check-titles @ 228:a9e686d7f419

Make sure we only include entries with title.
author Steve Kemp <steve@steve.org.uk>
date Fri, 02 May 2008 21:05:52 +0100
parents 9e79fe60ad47
children
comparison
equal deleted inserted replaced
227:9e79fe60ad47 228:a9e686d7f419
56 56
57 } 57 }
58 close(IN); 58 close(IN);
59 59
60 # 60 #
61 # Ignore entries with no title.
62 #
63 next if ( !$title );
64
65 #
61 # Get current entries we might have found with 66 # Get current entries we might have found with
62 # this title; and add on the new one. 67 # this title; and add on the new one.
63 # 68 #
64 my $a = $titles->{ $title }; 69 my $a = $titles->{ $title };
65 push( @$a, $file ); 70 push( @$a, $file );