Improve M$ Windows compatibility

[spider.git] / cmd / show / registered.pl

diff --git a/cmd/show/registered.pl b/cmd/show/registered.pl
index 4876aea2a7d6f9740f413eda68422f7f389b0afe..6b930be224d3d3f7ce6cf45ef65345ca08e7d818 100644 (file)
--- a/cmd/show/registered.pl
+++ b/cmd/show/registered.pl
@@ -22,7 +22,7 @@ sub handle
                $line = "\U\Q$line";
        }
 
-       if ($self->{_nospawn}) {
+       if ($self->{_nospawn} || $main::is_win == 1) {
                @out = generate($self, $line);
        } else {
                @out = $self->spawn_cmd("show/registered $line", sub { return (generate($self, $line)); });