[ns] ns-allinone-2.1b8a (getrc - Win32)

[Nirmal Prasad <free_np@yahoo.com>]

Hi,

Can someone help me out here... I got perl5 (5.6.1)
from cygwin and here's what's happening to getrc...

$opt_s = -1;
$opt_d = -1;
$opt_b = 0;
$opt_f = -1;
$opt_e = 0;

require 'getopts.pl';
#-- NP (Win32 Fix) --> Check why this breaks
(&Getopts('bo:s:d:ef:')) || usage;

print 'opt_s = ', $opt_s, 'opt_d = ',$opt_d,'opt_b =
',$opt_b,'opt_f = ',$opt_f,'opt_e = ',$opt_e;
#-- NP (Win32 Crude Cygwin Fix) --
$opt_s = 2;
$opt_d = 3;
#-- NP (Win32 Crude Cygwin Fix) -- <-- Check This 

If i pass -s 2 -d 3 , $opt_s = -1 2 , $opt_d = -1 3.

I am not a perl guy and could definitely use some help
here. I am attaching getopts.pl that came with cygwin.


Thanks in advance
-Nirmal


__________________________________________________
Do You Yahoo!?
Get email alerts & NEW webcam video instant messaging with Yahoo! Messenger. http://im.yahoo.com

getopts.pl