Changeset 18469 for gsdl/trunk/perllib/GDBMUtils.pm

Timestamp:

2009-02-06T18:19:44+13:00 (15 years ago)

Author:

davidb

Message:

Support for reindexing a document added

File:

• gsdl/trunk/perllib/GDBMUtils.pm (modified) (1 diff)

gsdl/trunk/perllib/GDBMUtils.pm

@@ -93 +93 @@
 
     # Remove the document from the database
-    print STDERR "#Set document\ncmd: gdbmset$exe \"$database\" \"$oid\"\n" if $debug;
-
-    `gdbmdel$exe "$database" "$oid"`;
+
+    my $cmd = "gdbmdel$exe \"$database\" \"$oid\"";
+    print STDERR "#Delete document\ncmd: $cmd" if $debug;
+
+    `$cmd`;
+
 }