File::Temp patches from Andreas König,

[p5sagit/p5-mst-13.2.git] / t / lib / ftmp-security.t

diff --git a/t/lib/ftmp-security.t b/t/lib/ftmp-security.t
index b8ae4e5..96b2c42 100755 (executable)
--- a/t/lib/ftmp-security.t
+++ b/t/lib/ftmp-security.t
@@ -117,6 +117,11 @@ sub test_security {
   }
 
   # Explicitly 
+  if ( $< < File::Temp->top_system_uid() ){
+      skip("Skip Test inappropriate for root", 1);
+      eval q{ END { skip($skip,1); } 1; } || die;
+      return;
+  }
   my ($fh2, $fname2) = eval { tempfile ($template,  UNLINK => 1 ); };
   if (defined $fname2) {
       print "# fname2 = $fname2\n";