From 65484457e3b902190e658c029feb252beb5227fd Mon Sep 17 00:00:00 2001
From: tony <tony>
Date: Wed, 3 Nov 1999 18:57:52 +0000
Subject: [PATCH] Path separator.  DUUUH.

---
 cowsay | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/cowsay b/cowsay
index 127b832..e1fe0a4 100755
--- a/cowsay
+++ b/cowsay
@@ -1,7 +1,7 @@
 #%BANGPERL%
 
 ##
-## Cowsay 3.0
+## Cowsay 3.01
 ##
 ## This file is part of cowsay.  (c) 1999 Tony Monroe.
 ##
@@ -27,6 +27,14 @@ $Text::Wrap::initial_tab = 8;
 $Text::Wrap::subsequent_tab = 8;
 $Text::Wrap::tabstop = 8;
 
+## One of these days, we'll get it ported to Windows.  Yeah, right.
+
+if (($^O eq "MSWin32") or ($^O eq "Windows_NT")) {	## Many perls, eek!
+    $pathsep = ';';
+} else {
+    $pathsep = ':';
+}
+
 %opts = (
     'e'		=>	'oo',
     'f'		=>	'default.cow',
@@ -52,12 +60,6 @@ $eyes = substr($opts{'e'}, 0, 2);
 $tongue = substr($opts{'T'}, 0, 2);
 $the_cow = "";
 
-if (($^O eq "MSWin32") or ($^O eq "Windows_NT")) {	## Many perls, eek!
-    $pathsep = ';';
-} else {
-    $pathsep = ':';
-}
-
 &slurp_input;
 $Text::Wrap::columns = $opts{'W'};
 @message = ($opts{'n'} ? expand(@message) :