File: 02_die.diff

package info (click to toggle)
num-utils 0.5-15
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye, sid, trixie
  • size: 984 kB
  • sloc: perl: 1,266; sh: 113; makefile: 94
file content (52 lines) | stat: -rw-r--r-- 2,079 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Description: Fixed return issues due to memory garbage
 See #429792.  Thanks to A. Costa <agcosta@gis.net> for the useful bug report.
Origin: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=429792
Last-Update: 2007-06-20
Index: num-utils-0.5/numgrep
===================================================================
--- num-utils-0.5.orig/numgrep	2016-08-06 08:56:17.766570099 +0200
+++ num-utils-0.5/numgrep	2016-08-06 08:56:17.762570099 +0200
@@ -221,6 +221,7 @@
             $exp = "!($1 % $number)";
         }
     } else {
+        die "Invalid expression: $expression\n";
         $exp = "$number =~ /$expression/";
     }
     print "Exp: '$exp'\n" if ($verbose >= 3);
Index: num-utils-0.5/numprocess
===================================================================
--- num-utils-0.5.orig/numprocess	2016-08-06 08:56:17.766570099 +0200
+++ num-utils-0.5/numprocess	2016-08-06 08:56:17.762570099 +0200
@@ -158,6 +158,7 @@
                 $new_number = sqrt($new_number);
             }
         } else {
+            die "Encountered invalid expression $operation in $expression.\n";
             print "Encountered invalid expression $operation in $expression.\n" if ($verbose >= 2);
             return $number;
         }
Index: num-utils-0.5/random
===================================================================
--- num-utils-0.5.orig/random	2016-08-06 08:56:17.766570099 +0200
+++ num-utils-0.5/random	2016-08-06 08:56:17.766570099 +0200
@@ -101,6 +101,7 @@
             }
         }
     } else {
+        die "Invalid expression: $expression\n";
         print STDERR "Invalid expression: $expression\n" if ($verbose >= 1);
     }
 }
Index: num-utils-0.5/range
===================================================================
--- num-utils-0.5.orig/range	2016-08-06 08:56:17.766570099 +0200
+++ num-utils-0.5/range	2016-08-06 08:56:17.766570099 +0200
@@ -127,6 +127,7 @@
             }
         }
     } else {
+        die "Invalid expression: $expression\n";
         print STDERR "Invalid expression: $expression\n" if ($verbose >= 1);
     }
 }