This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
A is not blank
[metaconfig.git] / U / perl / d_isblank.U
index 9c314cf..753a56e 100644 (file)
@@ -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