A is not blank

diff --git a/U/perl/d_isblank.U b/U/perl/d_isblank.U
index 9c314cf..753a56e 100644 (file)
--- a/U/perl/d_isblank.U
+++ b/U/perl/d_isblank.U
@@ -28,7 +28,7 @@ $cat >isblank.c <<'EOCP'
 #include <stdio.h>
 #include <ctype.h>
 int main() {
-       int c = 'A';
+       int c = ' ';
        if (isblank(c))
                exit(0);
        else