Fix privileged user detection.

perlDreamer · perlDreamer · commit 23d3f79ab1ae · 2012-01-07T07:54:50.000-08:00
diff --git a/wre/lib/WRE/Host.pm b/wre/lib/WRE/Host.pm
@@ -138,7 +138,7 @@ Returns a boolean indicating whether the current user is a privileged user for t
 
 sub isPrivilegedUser {
     my $self = shift;
-    return 0;
+    return $< == 0;
 }
 
 #-------------------------------------------------------------------

Original file line number	Diff line number	Diff line change
`@@ -138,7 +138,7 @@ Returns a boolean indicating whether the current user is a privileged user for t`
`138`	`138`
`139`	`139`	`sub isPrivilegedUser {`
`140`	`140`	`my $self = shift;`
`141`		`- return 0;`
	`141`	`+ return $< == 0;`
`142`	`142`	`}`
`143`	`143`
`144`	`144`	`#-------------------------------------------------------------------`