From 7731c6430b76e63ae067950e9677934a3f20f0df Mon Sep 17 00:00:00 2001
From: dockes <none@none>
Date: Thu, 9 Oct 2008 06:31:42 +0000
Subject: [PATCH] conform to filter error usual protocol

---
 src/filters/rclimg | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/src/filters/rclimg b/src/filters/rclimg
index 3eef770a..99b2ef67 100755
--- a/src/filters/rclimg
+++ b/src/filters/rclimg
@@ -1,5 +1,5 @@
 #! /usr/bin/perl -w
-# @(#$Id: rclimg,v 1.2 2007-10-02 13:56:42 dockes Exp $  (C) 2007 Cedric Scott
+# @(#$Id: rclimg,v 1.3 2008-10-09 06:31:42 dockes Exp $  (C) 2007 Cedric Scott
 #######################################################
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -58,7 +58,16 @@ sub xapianTag {
 #
 # start here
 #
-use Image::ExifTool qw(:Public);
+
+# JFD: replaced the "use" call with a runtime load with error checking,
+# for compat with the missing filter detection code.
+#use Image::ExifTool qw(:Public);
+eval {require Image::ExifTool; Image::ExifTool->import(qw(:Public));}; 
+if ($@) {
+	print STDERR "RECFILTERROR HELPERNOTFOUND Perl::Image::ExifTool\n";
+	exit(127);
+}
+
 
 $imageFile = shift;
 $imageFile = '-' if $imageFile eq '';