|
From: Chris W. <la...@us...> - 2001-11-25 01:23:40
|
Update of /cvsroot/openinteract/SPOPS
In directory usw-pr-cvs1:/tmp/cvs-serv3944
Modified Files:
SPOPS.pm
Log Message:
cosmetic
Index: SPOPS.pm
===================================================================
RCS file: /cvsroot/openinteract/SPOPS/SPOPS.pm,v
retrieving revision 1.55
retrieving revision 1.56
diff -C2 -d -r1.55 -r1.56
*** SPOPS.pm 2001/11/06 23:52:11 1.55
--- SPOPS.pm 2001/11/25 01:23:37 1.56
***************
*** 122,127 ****
my ( %data );
! my $int = tie %data, $tie_class, $class, $params;
! DEBUG() && _w( 4, "Internal tie structure of new object: ", Dumper( $int ) );
my $self = bless( \%data, $class );
--- 122,127 ----
my ( %data );
! my $internal = tie %data, $tie_class, $class, $params;
! DEBUG() && _w( 4, "Internal tie structure of new object: ", Dumper( $internal ) );
my $self = bless( \%data, $class );
|