Patch for Term::Cap
authorUlrich Pfeifer <pfeifer@charly.informatik.uni-dortmund.de>
Mon, 23 Sep 1996 12:11:38 +0000 (14:11 +0200)
committerAndy Dougherty <doughera@lafcol.lafayette.edu>
Mon, 23 Sep 1996 12:11:38 +0000 (14:11 +0200)
'use Term::Cap' produces a warning when diagnosics are active. The
patch below avoids the warning.

[The $entry .= $_ usage is idiomatic enough that it ought to be
ok, I would think, but the patch certainly is ok too.]

lib/Term/Cap.pm

index 6568895..d4d91c6 100644 (file)
@@ -195,7 +195,11 @@ sub Tgetent { ## public -- static method
                last;
            }
        }
-       $entry .= $_;
+        if (defined $entry) {
+          $entry .= $_;
+        } else {
+          $entry = $_;
+        }
     };
 
     while ($state != 0) {