Load libwin32-0.18 into trunk.

Author: jandubois

Changes

@@ -1,5 +1,9 @@
 Revision history for Perl extension Win32::NetAdmin.
 
+0.08  Mon May 22 21:22:33 2000
+	- move last error variable to interpreter (thanks to
+	  Doug Lankshear <dougl@activestate.com>)
+
 0.07  Mon May 22 21:22:33 2000
 	- support for passing Unicode strings to methods (thanks to
 	  Doug Lankshear <dougl@activestate.com>)

NetAdmin.pm

@@ -5,7 +5,7 @@ package Win32::NetAdmin;
 #Written by Douglas_Lankshear@ActiveWare.com
 #
 
-$VERSION = '0.07';
+$VERSION = '0.08';
 
 require Exporter;
 require DynaLoader;
@@ -145,12 +145,19 @@ network.
 
 =head2 NOTE
 
-All of the functions return FALSE (0) if they fail, unless otherwise noted.
+All of the functions return false if they fail, unless otherwise noted.
+When a function fails call Win32::NetAdmin::GetError() rather than
+GetLastError() or $^E to retrieve the error code.
+
 C<server> is optional for all the calls below. If not given the local machine is
 assumed.
 
 =over 10
 
+=item GetError()
+
+Returns the error code of the last call to this module.
+
 =item GetDomainController(server, domain, returnedName)
 
 Returns the name of the domain controller for server.
@@ -399,6 +406,11 @@ $SidTypeDeletedAccount = 6;
 $SidTypeInvalid = 7;
 $SidTypeUnknown = 8;
 
+sub GetError() {
+    our $__lastError;
+    $__lastError;
+}
+
 bootstrap Win32::NetAdmin;
 
 1;