summaryrefslogtreecommitdiff
path: root/lang/perl5/patches/patch-ce
blob: 9adf2941afca3264a79f2382f3ff9ba1e0168202 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
$NetBSD: patch-ce,v 1.2 2005/08/06 06:18:45 jlam Exp $

--- lib/File/Temp.pm.orig	2005-04-03 11:27:16.000000000 -0400
+++ lib/File/Temp.pm
@@ -2128,6 +2128,7 @@ The value is only relevant when C<safe_l
 
 {
   my $TopSystemUID = 10;
+  $TopSystemUID = 197108 if $^O eq 'interix'; # "Administrator"
   sub top_system_uid {
     my $self = shift;
     if (@_) {