This queue is for tickets about the SAP-Rfc CPAN distribution.

Report information
The Basics
Id:
11356
Status:
new
Priority:
Low/Low
Queue:

People
Owner:
Nobody in particular
Requestors:
atricket [...] alarismed.com
Cc:
AdminCc:

BugTracker
Severity:
Normal
Broken in:
1.36
Fixed in:
1.32



Subject: Re my'ed variable generaes lots of warnings
At line 585 we have the variable $idoc my'ed, yet it has been my'ed already just before. Naturally this generates an error/warning about redefining a variable that's still in scope. # method to return an IDOC object of SAP::IDOC type sub lookupIdoc { my $self = shift; my $idoc = shift; ##### First my if ($CACHE && -f $CACHE."/idocs/".$idoc.".txt"){ my $idoc1; open(IDOC, "<$CACHE/idocs/".$idoc.".txt") or warn "cant open structure file $CACHE/idocs/".$idoc.".txt - $!"; $idoc = join("",(<IDOC>)); close IDOC; eval($idoc); return $idoc1; } my $idoc = new SAP::Idoc( 'NAME' => $idoc, ###### Second my 'SINGLE' => $self->discover('IDOC_INBOUND_SINGLE'), 'MANDT' => $self->{'CLIENT'}, ); # discover the complete structure of an IDOC my $idoctype = $self->discover('IDOCTYPE_READ_COMPLETE'); $idoctype->PI_IDOCTYP($idoc->name); my $segments = $idoctype->tab('PT_SEGMENTS'); $self->callrfc($idoctype); while ( my $row = $segments->nextRow() ){ $row->{'SEGMENTTYP'} =~ s/\s//g; $idoc->_addSegment($self->structure($row->{'SEGMENTTYP'}), $row); } # save the structure to the cache if ($CACHE){ open(IDOC, ">$CACHE/idocs/".$idoc->name().".txt") or warn "cant open cache file for $CACHE/idocs/".$idoc->name().".txt - $!\n"; $Data::Dumper::Varname = 'idoc'; print IDOC Dumper($idoc); close IDOC; } return $idoc;


This service runs on Request Tracker, is sponsored by The Perl Foundation, and maintained by Best Practical Solutions.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.