[Rt-commit] r8929 - rt/branches/3.7-EXPERIMENTAL/lib/RT

[ruz at bestpractical.com]

Author: ruz
Date: Wed Sep  5 07:01:46 2007
New Revision: 8929

Modified:
   rt/branches/3.7-EXPERIMENTAL/lib/RT/Test.pm

Log:
* use new function

Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Test.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Test.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Test.pm	Wed Sep  5 07:01:46 2007
@@ -415,11 +415,10 @@
 
     $key =~ s/\@/-at-/g;
     $key .= ".$type.key";
-    $key = 't/data/gnupg/keys/'. $key;
-    open my $fh, '<:raw', $key or die "couldn't open '$key': $!";
-
     require RT::Crypt::GnuPG;
-    return RT::Crypt::GnuPG::ImportKey( do { local $/; <$fh> } );
+    return RT::Crypt::GnuPG::ImportKey(
+        RT::Test->file_content([qw(t data gnupg keys), $key])
+    );
 }
 
 1;