Add a sad but true warning.

[pr0n] / perl / update-image-info.pl

diff --git a/perl/update-image-info.pl b/perl/update-image-info.pl
index 88d3efc785530d94107000ebff92cc1164e68cf5..8de71c0a12990046598b7f2dcbb84a726138dfe6 100755 (executable)
--- a/perl/update-image-info.pl
+++ b/perl/update-image-info.pl
@@ -1,4 +1,7 @@
 #! /usr/bin/perl
+
+# Warning: This is sort of outdated now. :-/
+
 use lib qw(.);
 use DBI;
 use POSIX;