--- Mon-0.11/Mon/Client.pm.orig  Thu Jan 11 08:42:17 2001
+++ Mon-0.11/Mon/Client.pm  Fri Dec  6 17:43:46 2002
@@ -447,7 +447,7 @@
 require 5.004;
 use IO::File;
 use Socket;
-use Text::ParseWords;
+#use Text::ParseWords;
 
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(%OPSTAT $VERSION);
@@ -1006,7 +1006,7 @@
     foreach $d (@d) {
        ($group, $service, $desc) = split (/\s+/, $d, 3);
        $desc{$group}{$service} =
-           _un_esc_str ((parse_line ('\s+', 0, $desc))[0]);
+           _un_esc_str ((quotewords ('\s+', 0, $desc))[0]);
     }
 
     return %desc;
@@ -2099,3 +2099,13 @@
        }
     return %alias;
 }
+
+sub quotewords {
+        my ($delim, $flag, $text) = @_;
+        @fields = ();
+        while ($text =~ m/([^\s']*'[^']*')\s?|([^\s]+)\s?|\s/g) {
+                push (@fields, defined($1) ? $1 : $2);
+        }
+        return @fields;
+}