--- lib/Search/TokyoDystopia.pm	2008/08/17 23:59:46	12
+++ lib/Search/TokyoDystopia.pm	2008/08/18 13:17:52	13
@@ -58,7 +58,7 @@
 
 =head2 tcidbtune
 
-  my $success = tcidbtune( $idb, $ernum, $etnum, $iusiz, IDBTLARGE || IDBTDEFLATE );
+  my $success = tcidbtune( $idb, $ernum, $etnum, $iusiz, IDBTLARGE | IDBTDEFLATE );
 
 =cut
 
@@ -78,7 +78,7 @@
 
 =head2 tcidbopen
 
-  my $success = tcidbopen( $idb, 'casket', IDBOWRITER || IDBOCREAT );
+  my $success = tcidbopen( $idb, 'casket', IDBOWRITER | IDBOCREAT );
 
 =cut