File tree

4 files changed

+10
-3
lines changed

4 files changed

+10
-3
lines changed
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,8 @@
11
Revision history for Perl extension Win32::NetAdmin.
22

3+
0.11 Wed Jul 02 2008
4+
- Skip tests when running on Windows 95.
5+
36
0.10 Mon Jun 23 2008
47
- Skip tests when not running as an administrator.
58

Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
--- #YAML:1.0
22
name: Win32-NetAdmin
33
abstract: Manage network groups and users in Perl
4-
version: 0.10
4+
version: 0.11
55
author:
66
- Jan Dubois <[email protected]>
77
license: perl
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@ package Win32::NetAdmin;
55
#Written by [email protected]
66
#
77

8-
$VERSION = '0.10';
8+
$VERSION = '0.11';
99

1010
require Exporter;
1111
require DynaLoader;
Original file line numberDiff line numberDiff line change
@@ -5,11 +5,15 @@ use Test;
55

66
BEGIN {
77
eval {require Win32};
8+
unless (defined &Win32::IsWinNT && Win32::IsWinNT()) {
9+
print"1..0 # skip Win32::NetAdmin only works on Windows NT and later\n";
10+
exit 0;
11+
}
812
unless (defined &Win32::IsAdminUser && Win32::IsAdminUser()) {
913
print"1..0 # skip Must be running as an administrator\n";
1014
exit 0;
1115
}
12-
};
16+
}
1317

1418
use Win32::NetAdmin qw(:DEFAULT UserCreate UserDelete UserGetAttributes
1519
LocalGroupCreate LocalGroupGetAttributes LocalGroupAddUsers

0 commit comments

Comments
 (0)