File tree
Expand file treeCollapse file tree4 files changed
+10
-3
lines changed Expand file treeCollapse file tree4 files changed
+10
-3
lines changed Original file line number | Diff line number | Diff line change |
---|
|
1 | 1 | Revision history for Perl extension Win32::NetAdmin.
|
2 | 2 |
|
| 3 | +0.11 Wed Jul 02 2008 |
| 4 | +- Skip tests when running on Windows 95. |
| 5 | + |
3 | 6 | 0.10 Mon Jun 23 2008
|
4 | 7 | - Skip tests when not running as an administrator.
|
5 | 8 |
|
|
Original file line number | Diff line number | Diff line change |
---|
|
1 | 1 | --- #YAML:1.0
|
2 | 2 | name: Win32-NetAdmin
|
3 | 3 | abstract: Manage network groups and users in Perl
|
4 |
| -version: 0.10 |
| 4 | +version: 0.11 |
5 | 5 | author:
|
6 | 6 |
|
7 | 7 | license: perl
|
|
Original file line number | Diff line number | Diff line change |
---|
@@ -5,7 +5,7 @@ package Win32::NetAdmin;
|
5 | 5 |
|
6 | 6 | #
|
7 | 7 |
|
8 |
| -$VERSION = '0.10'; |
| 8 | +$VERSION = '0.11'; |
9 | 9 |
|
10 | 10 | require Exporter;
|
11 | 11 | require DynaLoader;
|
|
Original file line number | Diff line number | Diff line change |
---|
@@ -5,11 +5,15 @@ use Test;
|
5 | 5 |
|
6 | 6 | BEGIN {
|
7 | 7 | 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 | +} |
8 | 12 | unless (defined &Win32::IsAdminUser && Win32::IsAdminUser()) {
|
9 | 13 | print"1..0 # skip Must be running as an administrator\n";
|
10 | 14 | exit 0;
|
11 | 15 | }
|
12 |
| -}; |
| 16 | +} |
13 | 17 |
|
14 | 18 | use Win32::NetAdmin qw(:DEFAULT UserCreate UserDelete UserGetAttributes
|
15 | 19 | LocalGroupCreate LocalGroupGetAttributes LocalGroupAddUsers
|
|
You can’t perform that action at this time.
0 commit comments