safe print for interactive script

ddmitov · ddmitov · commit ae6e05e48e66 · 2018-11-05T22:05:34.000+02:00
diff --git a/resources/app/perl/interactive.pl b/resources/app/perl/interactive.pl
@@ -77,18 +77,18 @@
   cb => sub {
     if ($mode =~ "unix-epoch") {
       if (length($input_text) == 0) {
-        print "Seconds from the Unix epoch: ".time;
+        print "Seconds from the Unix epoch: ".time or die;
       } else {
-        print "Seconds from the Unix epoch: ".time."<br>Last input: ".$input_text;
+        print "Seconds from the Unix epoch: ".time."<br>Last input: ".$input_text or die;
       }
     }
 
     if ($mode =~ "local-time") {
       my $formatted_time = strftime('%d %B %Y %H:%M:%S', localtime);
       if (length($input_text) == 0) {
-        print "Local date and time: ".$formatted_time;
+        print "Local date and time: ".$formatted_time or die;
       } else {
-        print "Local date and time: ".$formatted_time."<br>Last input: ".$input_text;
+        print "Local date and time: ".$formatted_time."<br>Last input: ".$input_text or die;
       }
     }
   },

Original file line number	Diff line number	Diff line change
`@@ -77,18 +77,18 @@`
`77`	`77`	`cb => sub {`
`78`	`78`	`if ($mode =~ "unix-epoch") {`
`79`	`79`	`if (length($input_text) == 0) {`
`80`		`- print "Seconds from the Unix epoch: ".time;`
	`80`	`+ print "Seconds from the Unix epoch: ".time or die;`
`81`	`81`	`} else {`
`82`		`- print "Seconds from the Unix epoch: ".time."<br>Last input: ".$input_text;`
	`82`	`+ print "Seconds from the Unix epoch: ".time."<br>Last input: ".$input_text or die;`
`83`	`83`	`}`
`84`	`84`	`}`
`85`	`85`
`86`	`86`	`if ($mode =~ "local-time") {`
`87`	`87`	`my $formatted_time = strftime('%d %B %Y %H:%M:%S', localtime);`
`88`	`88`	`if (length($input_text) == 0) {`
`89`		`- print "Local date and time: ".$formatted_time;`
	`89`	`+ print "Local date and time: ".$formatted_time or die;`
`90`	`90`	`} else {`
`91`		`- print "Local date and time: ".$formatted_time."<br>Last input: ".$input_text;`
	`91`	`+ print "Local date and time: ".$formatted_time."<br>Last input: ".$input_text or die;`
`92`	`92`	`}`
`93`	`93`	`}`
`94`	`94`	`},`