Only in grepmail-4.90-new: Makefile
Only in grepmail-4.90-new: blib
diff -ru grepmail-4.90/grepmail grepmail-4.90-new/grepmail
--- grepmail-4.90/grepmail	Mon Nov 25 05:30:27 2002
+++ grepmail-4.90-new/grepmail	Thu Feb  6 21:21:05 2003
@@ -333,6 +333,11 @@
   my $email_length = 
     $CACHE->{$self->{file_name}}{lengths}[$self->{email_number}];
 
+  die '$self->{file_handle} undefined' unless defined
+    $self->{file_handle};
+  die '$self->{read_buffer} undefined' unless defined
+    $self->{read_buffer};
+  die '$email_length undefined' unless defined $email_length;
   while (read($self->{file_handle}, $self->{read_buffer}, $email_length))
   {
     last if $email_length <= length($self->{read_buffer});
@@ -1397,6 +1402,9 @@
   }
   else
   {
+    die '$$email_body undefined' unless defined $$email_body;
+    die '$pattern undefined' unless defined $pattern;
+
     # Avoid perl 5.6 bug which causes spurious warning even though
     # $pattern is defined.
     local $^W = 0 if $] >= 5.006 && $] < 5.8;
Only in grepmail-4.90-new: grepmail~
Only in grepmail-4.90-new: pm_to_blib