[Openinteract-commits] CVS: SPOPS/SPOPS HashFile.pm,1.11,1.12

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/SPOPS/SPOPS
In directory usw-pr-cvs1:/tmp/cvs-serv27499

Modified Files:
	HashFile.pm 
Log Message:
dumb typo


Index: HashFile.pm
===================================================================
RCS file: /cvsroot/openinteract/SPOPS/SPOPS/HashFile.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** HashFile.pm	2001/10/11 13:18:40	1.11
--- HashFile.pm	2001/10/11 15:42:20	1.12
***************
*** 25,29 ****
  # Subclasses can override
  
! sub initialize { return 1; }
  
  sub class_initialize {
--- 25,29 ----
  # Subclasses can override
  
! sub initialize { return 1 }
  
  sub class_initialize {
***************
*** 58,62 ****
      }
      if ( -f "$obj->{filename}.backup" ) {
!         unlink( "$obj->{filename.backup" ); # just to be sure...
      }
      if ( -f $obj->{filename} ) {
--- 58,62 ----
      }
      if ( -f "$obj->{filename}.backup" ) {
!         unlink( "$obj->{filename}.backup}" ); # just to be sure...
      }
      if ( -f $obj->{filename} ) {
***************
*** 142,146 ****
          die "You must pass a filename to use for reading and writing.\n";
      }
!     my $file_exists = ( -f $filename ) ? 1 : 0;
      unless ( $file_exists ) {
          if ( $perm eq 'write-new' or $perm eq 'new' ) {
--- 142,146 ----
          die "You must pass a filename to use for reading and writing.\n";
      }
!     my $file_exists = ( -f $filename );
      unless ( $file_exists ) {
          if ( $perm eq 'write-new' or $perm eq 'new' ) {