[Rt-commit] r19074 - rt/3.999/trunk/t/maildigest

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Apr  7 02:02:07 2009
New Revision: 19074

Modified:
   rt/3.999/trunk/t/maildigest/attributes.t

Log:
to get around shipwright's wrapper

Modified: rt/3.999/trunk/t/maildigest/attributes.t
==============================================================================
--- rt/3.999/trunk/t/maildigest/attributes.t	(original)
+++ rt/3.999/trunk/t/maildigest/attributes.t	Tue Apr  7 02:02:07 2009
@@ -151,7 +151,16 @@
     my $pattern = shift;
 
     my $perl = $^X . ' ' . join ' ', map { "-I$_" } grep { not ref } @INC;
-    open my $digester, "-|", "$perl $RT::SbinPath/rt-email-digest $arg";
+    my $rt_email_digest;
+
+# to get around shipwright vessel 
+    if (  -e "$RT::SbinPath-wrapped/rt-email-digest" ) {
+        $rt_email_digest = "$RT::SbinPath-wrapped/rt-email-digest";
+    }
+    else { 
+        $rt_email_digest = "$RT::SbinPath/rt-email-digest";
+    }
+    open my $digester, "-|", "$perl $rt_email_digest $arg";
     my @results = <$digester>;
     my $content = join '', @results;
     if ( ref $pattern && ref $pattern eq 'Regexp' ) {