pacundo.1

@@ -21,22 +21,19 @@ is especially helpful if the last update broke your system for some reason.
 .SH "OPTIONS"
 .TP
 \fB\-i\fR
-Enter interactive mode to select package operations to undo (default behavior)
+Interactively select the transactions to undo (default behavior)
 .TP
 \fB\-r\fR
-Non-interactively undo entire transactions
+Non-interactively undo transactions
 .TP
 \fB\-t\fR <\fInum\fR>
-Specify the number of transactions to include (default: 1)
+Select number of transactions to include (default: 1)
-.TP
-\fB\-d\fR
-Dry run, i.e. don't actually do anything
 .TP
 \fB\-h\fR
-Show this help information
+Show help information
 .TP
 \fB\-v\fR
-Print program version
+Show program version
 
 .SH "AUTHOR"
 Written by Nicolás A. Ortega Froysa.

pacundo.pl

@@ -47,9 +47,9 @@ USAGE:
 	$PROG_NAME -v
 
 OPTIONS:
-	-i         Enter interactive mode to select package operations to undo (default behavior)
+	-i         Enter interactive mode to select packages to downgrade [default behavior]
-	-r         Non-interactively undo entire transactions
+	-r         Automatically downgrade all packages from last upgrade
-	-t <num>   Specify the number of transactions to include (default: 1)
+	-t <num>   Specify the number of transactions to include for undoing selection [default 1]
 	-d         Dry run, i.e. don't actually do anything
 	-h         Show this help information
 	-v         Print program version\n");
@@ -239,12 +239,6 @@ foreach my $tx (@undo_txs) {
 	}
 }
 
-if ($dry_run) {
+system("$pkgmgr->{remove} $remove_pkgs") if ($remove_pkgs ne '');
-	print("$pkgmgr->{remove} $remove_pkgs\n") if ($remove_pkgs ne '');
+system("$pkgmgr->{install_remote} $remote_install_pkgs") if ($remote_install_pkgs ne '');
-	print("$pkgmgr->{install_remote} $remote_install_pkgs\n") if ($remote_install_pkgs ne '');
+system("$pkgmgr->{install_local} $local_install_pkgs") if ($local_install_pkgs ne '');
-	print("$pkgmgr->{install_local} $local_install_pkgs\n") if ($local_install_pkgs ne '');
-} else {
-	system("$pkgmgr->{remove} $remove_pkgs") if ($remove_pkgs ne '');
-	system("$pkgmgr->{install_remote} $remote_install_pkgs") if ($remote_install_pkgs ne '');
-	system("$pkgmgr->{install_local} $local_install_pkgs") if ($local_install_pkgs ne '');
-}