Bug #46764 for Net-SCP-Expect: Regular expressions can not be detected.

Tue Jun 09 06:32:24 2009 sadashiv.linux [...] gmail.com - Ticket created

CC:	sadashivkulthe [...] yahoo.com
Subject:	Regular expressions can not be detected.

Hi, This bug not present in perl 5.8.8 and present in perl 5.8.9 This is regression. My same program works fine under Perl 5.8.8 and NOT in Perl 5.8.9 it do not detect regular expression used for module Net::SCP::Expect Following is program snippet and not complete script. #!/usr/bin/perl use Net::SSH::Perl; use Net::SCP::Expect; use Net::Telnet; #add new rskey by doing a ssh my $ssh = Net::SSH::Perl->new( $target, debug => 0, protocol => 2 ); $ssh->login( $user, $pass ); my $scpe = Net::SCP::Expect->new( host => $target, user => $user, password => $pass, recurisve => 1, auto_yes => 1 ); $scpe->scp( "/automation/firmwares/licenses/K6_Keys/EVAL-${mbox}*", '/tmp' ); * in above line create problem and do not treat at regular expression. This program working fine under previous version of Perl. I verified it perfectly. Error is: at /usr/local/lib/perl5/site_perl/5.8.9/Expect.pm line 760s/K6_Keys/EVAL-MX5008*: No such file or directory Please keep sadashivkulthe@yahoo.com in CC. -- Sadashiv M Kulthe Advisory System Analyst Internet Security Systems R & D Project IBM India Private Ltd.

Thu Jul 02 05:36:54 2009 sadashiv.linux [...] gmail.com - Reminder 'Any updates???' added

Thu Jul 02 16:12:33 2009 RYBSKEJ [...] cpan.org - Correspondence added

RT-Send-CC:

sadashivkulthe [...] yahoo.com

sadashivkulthe, Net::SCP::Expect does not evaluate the source/destination inputs. These are passed as content to the supporting module, Expect.pm (http://search.cpan.org/~rgiersig/Expect- 1.21/). Are you using the same versions of Expect.pm in Perl 5.8.8 and 5.8.9? `perl -MExpect -e 'print "$Expect::VERSION\n"'` Also, one SCP constructor argument is misspelled: recurisve => 1, should be: recursive => 1, Overall, I'm fairly certain that Expect.pm (http://search.cpan.org/~rgiersig/Expect-1.21/) does not parse/evaluate content either; I expect the '*' wild card in your source field is being evaluated by the filesystem in both perl 5.8.8 and 5.8.9 when scp is executed. Thus, there may be an external issue unrelated to either Perl or the installed modules. Is this example being run on the same distribution in both cases? If run on a different computers (I assume this is the case), can you confirm the referenced file(s) exist? Regards, Eric On Tue Jun 09 06:32:24 2009, sadashivkulthe wrote: Show quoted text

> Hi, > > This bug not present in perl 5.8.8 and present in perl 5.8.9 > This is regression. > > My same program works fine under Perl 5.8.8 and NOT in Perl 5.8.9 > it do not detect regular expression used for module Net::SCP::Expect > > Following is program snippet and not complete script. > > #!/usr/bin/perl > use Net::SSH::Perl; > use Net::SCP::Expect; > use Net::Telnet; > > #add new rskey by doing a ssh > my $ssh = Net::SSH::Perl->new( $target, debug => 0, protocol => 2 ); > $ssh->login( $user, $pass ); > > my $scpe = Net::SCP::Expect->new( > host => $target, > user => $user, > password => $pass, > recurisve => 1, > auto_yes => 1 > ); > > $scpe->scp( "/automation/firmwares/licenses/K6_Keys/EVAL-${mbox}*", > '/tmp' ); > > * in above line create problem and do not treat at regular expression. > This program working fine under previous version of Perl. > I verified it perfectly. > > Error is: at /usr/local/lib/perl5/site_perl/5.8.9/Expect.pm line > 760s/K6_Keys/EVAL-MX5008*: No such file or directory > > Please keep sadashivkulthe@yahoo.com in CC. > >

Thu Jul 02 16:12:34 2009 The RT System itself - Status changed from 'new' to 'open'

Fri Jul 03 08:41:42 2009 sadashivkulthe [...] yahoo.com - Correspondence added

Subject:	Re: [rt.cpan.org #46764] Regular expressions can not be detected.
Date:	Fri, 3 Jul 2009 05:41:20 -0700 (PDT)
To:	bug-Net-SCP-Expect [...] rt.cpan.org
From:	sadashiv kulthe <sadashivkulthe [...] yahoo.com>

Hi Eric, Thank you for reply. Please note that I'm executing this program on same filesystem, same server and even program is same too. Please refer to following output to get things clear. --------------------------------------------- [root@automation 0 scripts]# perl copysnapshot.pl at /usr/local/lib/perl5/site_perl/5.8.9/Expect.pm line 760M10/4.5/Acceptance/*: No such file or directory [root@automation 255 scripts]# perl5.8.9 copysnapshot.pl at /usr/local/lib/perl5/site_perl/5.8.9/Expect.pm line 760M10/4.5/Acceptance/*: No such file or directory [root@automation 255 scripts]# perl5.8.8 copysnapshot.pl [root@automation 0 scripts]# perl5.8.8 -MExpect -e 'print "$Expect::VERSION\n"' 1.21 [root@automation 0 scripts]# perl5.8.9 -MExpect -e 'print "$Expect::VERSION\n"' 1.21 [root@automation 0 scripts]# cat copysnapshot.pl #!/usr/bin/perl # Description: This script is used to copy snapshot file and applying sanapshot file use Net::SCP::Expect; $target = '192.168.8.1'; $user = 'root'; $pass = '******'; # I masked password field for security purpose. $mode = 'routing'; $mbox = 'M10'; $version = '4.5'; $module = 'Acceptance'; sub copysnapshot { our $scpe = Net::SCP::Expect->new("host"=>$target,"port"=>22,"timeout"=>60); # creating object for SCP $scpe->login($user,$pass); if($scpe->scp("/automation/settings/$mode/$mbox/$version/$module/*","$target:/etc/lmi/settings/")) # copying the files from local sys to MBOX { #print "Snapshots successfully copied from Local Machine to MBOX \n"; return 1; } else { print "Failed to copy snapshots from local Machine to MBOX\n"; return 0; } } &copysnapshot ; 1; [root@automation 0 scripts]# ------------------------------------------------------------------------------------------------------------------------------------------ You can observe that same program gives error for perl5.8.9 and comes fine to command prompt for 5.8.9. I'm using these programs from last one year under perl5.8.8, they was working fine and as soon as I upgraded system to perl 5.8.9, same programs start giving problem. Please let me know what steps do I need to do more to debug issue. Regards, Sadashiv M Kulthe Show quoted text

________________________________ From: Eric Rybski via RT <bug-Net-SCP-Expect@rt.cpan.org> Cc: sadashivkulthe@yahoo.com Sent: Friday, July 3, 2009 1:42:35 AM Subject: [rt.cpan.org #46764] Regular expressions can not be detected. <URL: https://rt.cpan.org/Ticket/Display.html?id=46764 > sadashivkulthe, Net::SCP::Expect does not evaluate the source/destination inputs. These are passed as content to the supporting module, Expect.pm(http://search.cpan.org/~rgiersig/Expect- 1.21/). Are you using the same versions of Expect.pm in Perl 5.8.8 and 5.8.9? `perl -MExpect -e 'print "$Expect::VERSION\n"'` Also, one SCP constructor argument is misspelled: recurisve => 1, should be: recursive => 1, Overall, I'm fairly certain that Expect.pm (http://search.cpan.org/~rgiersig/Expect-1.21/) does not parse/evaluate content either; I expect the '*' wild card in your source field is being evaluated by the filesystem in both perl 5.8.8 and 5.8.9 when scp is executed. Thus, there may be an external issue unrelated to either Perl or the installed modules. Is this example being run on the same distribution in both cases? If run on a different computers (I assume this is the case), can you confirm the referenced file(s) exist? Regards, Eric On Tue Jun 09 06:32:24 2009, sadashivkulthe wrote:

> Hi, > > This bug not present in perl 5.8.8 and present in perl 5.8.9 > This is regression. > > My same program works fine under Perl 5.8.8 and NOT in Perl 5.8.9 > it do not detect regular expression used for module Net::SCP::Expect > > Following is program snippet and not complete script. > > #!/usr/bin/perl > use Net::SSH::Perl; > use Net::SCP::Expect; > use Net::Telnet; > > #add new rskey by doing a ssh > my $ssh = Net::SSH::Perl->new( $target, debug => 0, protocol => 2 ); > $ssh->login( $user, $pass ); > > my $scpe = Net::SCP::Expect->new( > host => $target, > user => $user, > password => $pass, > recurisve => 1, > auto_yes => 1 > ); > > $scpe->scp( "/automation/firmwares/licenses/K6_Keys/EVAL-${mbox}*", > '/tmp' ); > > * in above line create problem and do not treat at regular expression. > This program working fine under previous version of Perl. > I verified it perfectly. > > Error is: at /usr/local/lib/perl5/site_perl/5.8.9/Expect.pm line > 760s/K6_Keys/EVAL-MX5008*: No such file or directory > > Please keep sadashivkulthe@yahoo.com in CC. > >