X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Fdbm2txt.pl;h=9a2b299fa5f5a8d7513b753473c5d4dc3403d5ec;hb=refs%2Fheads%2Fdpkg;hp=259e6cecbe4d8ff38f712c64e0fb178a3afb71bb;hpb=59bdda12d13ba1350383259709dd63161cc61895;p=infobot.git

diff --git a/scripts/dbm2txt.pl b/scripts/dbm2txt.pl
index 259e6ce..9a2b299 100755
--- a/scripts/dbm2txt.pl
+++ b/scripts/dbm2txt.pl
@@ -2,7 +2,7 @@
 
 use strict;
 use DB_File;
-if (!scalar @ARGV) {
+if ( !scalar @ARGV ) {
     print "Usage: dbm2txt <whatever dbm>\n";
     print "Example: dbm2txt.pl factoids\n";
     exit 0;
@@ -15,10 +15,12 @@ if (0) {
     openDB();
 }
 
-dbmopen(%db, $dbfile, 0644) or die "error: cannot open db. $dbfile\n";
-my ($key, $val);
-while (($key, $val) = each %db) {
-  chomp $val;
-  print "$key => $val\n";
+dbmopen( %db, $dbfile, 0644 ) or die "error: cannot open db. $dbfile\n";
+my ( $key, $val );
+while ( ( $key, $val ) = each %db ) {
+    chomp $val;
+    print "$key => $val\n";
 }
 dbmclose %db;
+
+# vim:ts=4:sw=4:expandtab:tw=80