alazyreader/cowsay
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Path separator. DUUUH.

Browse Source
This commit is contained in:
tony 1999-11-03 18:57:52 +00:00
parent 5611583965
commit 65484457e3
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
cowsay
View File

@ -1,7 +1,7 @@
#%BANGPERL% #%BANGPERL%
## ##
## Cowsay 3.0 ## Cowsay 3.01
## ##
## This file is part of cowsay. (c) 1999 Tony Monroe. ## 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::subsequent_tab = 8;
$Text::Wrap::tabstop = 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 = ( %opts = (
'e' => 'oo', 'e' => 'oo',
'f' => 'default.cow', 'f' => 'default.cow',
@ -52,12 +60,6 @@ $eyes = substr($opts{'e'}, 0, 2);
$tongue = substr($opts{'T'}, 0, 2); $tongue = substr($opts{'T'}, 0, 2);
$the_cow = ""; $the_cow = "";
if (($^O eq "MSWin32") or ($^O eq "Windows_NT")) { ## Many perls, eek!
$pathsep = ';';
} else {
$pathsep = ':';
}
&slurp_input; &slurp_input;
$Text::Wrap::columns = $opts{'W'}; $Text::Wrap::columns = $opts{'W'};
@message = ($opts{'n'} ? expand(@message) : @message = ($opts{'n'} ? expand(@message) :