Bump the version number to 2.50, and update the FAQ.

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

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index eff6fc13ecb991196a64fb8ea695708f1cf6d66b..4229829ff29ff5643e152b7a50dea655a1701feb 100644 (file)
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -35,7 +35,7 @@ BEGIN {
                require Sesse::pr0n::Config_local;
        };
 
-       $VERSION     = "v2.49";
+       $VERSION     = "v2.50";
        @ISA         = qw(Exporter);
        @EXPORT      = qw(&error &dberror);
        %EXPORT_TAGS = qw();
@@ -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=?',