From fada22df787f95a4241d3d0907ac8fa72ed43dae Mon Sep 17 00:00:00 2001
From: eleksir <eleksir@exs-elm.ru>
Date: Thu, 19 Mar 2020 01:26:15 +0300
Subject: [PATCH] todo: show memo on empty args

---
 todo | 28 +++++++++++++++++-----------
 1 file changed, 17 insertions(+), 11 deletions(-)

diff --git a/todo b/todo
index 1b793f1..a9176ea 100644
--- a/todo
+++ b/todo
@@ -1,5 +1,7 @@
 #!/usr/bin/perl
 
+# simple TODO-manager
+
 use strict;
 use warnings "all";
 use 5.10.0;
@@ -29,7 +31,6 @@ if ($help) {
 }
 
 if ($delete) {
-	say Dumper(\@ARGV);
 	die "NUM not set\n" if ($ARGV[0] !~ /^\d+$/); 
 	my @TODO = readtodo();
 	die "NUM too big\n" if ($ARGV[0] > @TODO);
@@ -48,20 +49,25 @@ if ($delete) {
 
 	close TD;
 } else {
-	die "Specify what to put in memo\n" unless (@ARGV > 0);
-
 	my @TODO = readtodo();
-	push @TODO, join(" ", @ARGV);
 
-	open (TD, ">", $file) or die "Unable to open $file: $!\n";
+	if (@ARGV > 0) {
+		push @TODO, join(" ", @ARGV);
+		open (TD, ">", $file) or die "Unable to open $file: $!\n";
 
-	for (my $i = 0; $i < @TODO; $i++) {
-		next unless (defined($TODO[$i]));
-		print    sprintf("%s. %s\n", $i, $TODO[$i]);
-		print TD sprintf("%s. %s\n", $i, $TODO[$i]);
+		for (my $i = 0; $i < @TODO; $i++) {
+			next unless (defined($TODO[$i]));
+			print    sprintf("%s. %s\n", $i, $TODO[$i]);
+			print TD sprintf("%s. %s\n", $i, $TODO[$i]);
+		}
+
+		close TD;
+	} else {
+		for (my $i = 0; $i < @TODO; $i++) {
+			next unless (defined($TODO[$i]));
+			print sprintf("%s. %s\n", $i, $TODO[$i]);
+		}
 	}
-
-	close TD;
 }
 
 exit 0;