Skip to content

Commit 3685cda

Browse files
committed
Load libwin32-0.191 into trunk.
1 parent f95ce16 commit 3685cda

File tree

2 files changed

+2
-2
lines changed

2 files changed

+2
-2
lines changed

NetAdmin.pm

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -381,7 +381,7 @@ sub AUTOLOAD {
381381
my($constname);
382382
($constname = $AUTOLOAD) =~ s/.*:://;
383383
#reset $! to zero to reset any current errors.
384-
$!=0;
384+
local $! = 0;
385385
my $val = constant($constname);
386386
if ($! != 0) {
387387
if ($! =~ /Invalid/) {

t/netadmin.t

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -34,7 +34,7 @@ print "ok 1\n";
3434
Win32::NetAdmin::UserGetAttributes($serverName, $userName, my $getpassword, $GetpasswordAge, $Getprivilege, $GethomeDir, $Getcomment, $Getflags, $Getscriptpath) || print "not ";
3535
print "ok 2\n";
3636

37-
($passwordAge == $GetpasswordAge) || print "not ";
37+
($passwordAge <= $GetpasswordAge && $passwordAge+5 >= $GetpasswordAge) || print "not ";
3838
print "ok 3\n";
3939

4040
if($serverName eq '')

0 commit comments

Comments
 (0)