Add a no less true, but slightly more encouraging comment.

[pr0n] / perl / Sesse / pr0n / Common.pm

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index eff6fc13ecb991196a64fb8ea695708f1cf6d66b..d2dcd7da04f61fe2e3347cce9223c380d324c57e 100644 (file)
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -265,9 +265,11 @@ sub update_image_info {
 
                $model =~ s/^\s*//;
                $model =~ s/\s*$//;
+               $model = undef if (length($model) == 0);
 
                $lens =~ s/^\s*//;
                $lens =~ s/\s*$//;
+               $lens = undef if (length($lens) == 0);
                
                # Now update the main table with the information we've got
                $dbh->do('UPDATE images SET width=?, height=?, date=?, model=?, lens=? WHERE id=?',