--- dpkg	2008-12-19 10:57:11.000000000 -0500
+++ dpkg.1.2.changes	2008-12-19 10:49:39.000000000 -0500
@@ -17,9 +17,11 @@
 use strict;
 
 my @install;
+my @reinstall;
 my @upgrade;
 my @remove;
 my @purge;
+my @conffile;
 
 my @unknown;
 
@@ -34,10 +36,15 @@
 			push @purge, "$pkg $ver1";
 		} elsif ($ver1 =~ /[<>]/) {
 			push @install, "$pkg $ver2";
+		} elsif ($ver1 eq $ver2) {
+			push @reinstall, "$pkg $ver1";
 		} else {
 			push @upgrade, "$pkg $ver1 => $ver2";
 		}
-	} elsif ( $line =~ /^\S+ \S+ status / ) {
+	} elsif ( $line =~ /^\S+ \S+ conffile / ) {
+		my ( $conffilename, $action ) = ( $line =~ /^\S+ \S+ conffile (\S+) (\S+)/ );
+		push @conffile, "$action $conffilename";
+	} elsif ( $line =~ /^\S+ \S+ (status|configure|startup|trigproc) / ) {
 		#ignore
 	} else {
 		push @unknown, $line;
@@ -45,9 +52,11 @@
 }
 
 my @k = ( "Installed" , \@install, 
+	  "Reinstalled" , \@reinstall,
           "Upgraded" , \@upgrade, 
 	  "Removed", \@remove, 
 	  "Purged", \@purge, 
+	  "Configuration files", \@conffile,
 	  "Unknown lines", \@unknown);
 
 while (@k > 0) {