Add test for previously uncovered case.

[perl5.git] / utils / c2ph.PL

diff --git a/utils/c2ph.PL b/utils/c2ph.PL
index 9450400..13389ec 100644 (file)
--- a/utils/c2ph.PL
+++ b/utils/c2ph.PL
@@ -394,7 +394,7 @@ eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_]+=)(.*)/ && shift;
 
 sub PLUMBER {
     select(STDERR);
-    print "oops, apperent pager foulup\n";
+    print "oops, apparent pager foulup\n";
     $isatty++;
     &usage(1);
 }