--- trunk/perl/HyperEstraierWrapper.cpp	2005/09/08 16:42:55	9
+++ trunk/perl/HyperEstraierWrapper.cpp	2005/09/08 21:22:10	11
@@ -455,19 +455,6 @@
 		return vs;
 	}
 
-	class NetEnv {
-	private:
-		int ok;
-	public:
-		NetEnv() {
-			ok = est_init_net_env();
-			if (! ok) throw IOError("can't init net env");
-		}
-		~NetEnv() {
-			est_free_net_env();
-		}
-	};
-
 	class NodeDocument {
 	private:
 		ESTRESDOC *rdoc;
@@ -526,13 +513,17 @@
 	class Node {
 	private:
 		ESTNODE *node;
+		int netenv_ok;
 	public:
 		Node(const char *url) {
+			netenv_ok = est_init_net_env();
+			if (! netenv_ok) throw IOError("can't init net env");
 			node = est_node_new(url);
 			if (! node) throw IOError("can't create node");
 		}
 		~Node() {
 			est_node_delete(node);
+			est_free_net_env();
 		}
 		void set_proxy(const char *host, int port) {
 			est_node_set_proxy(node, host, port);