yyerror: no - filename, no ending dot (for easier pasting)

perl11 · Apr 18, 2013 · 4a50614 · 4a50614
1 parent f9a9ec6
commit 4a50614
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/syn/compile.c b/syn/compile.c
@@ -635,7 +635,10 @@ YY_LOCAL(void) yyerror(struct _GREG *G, char *message)\n\
         fputc('\\\"', stderr);\n\
       }\n\
     }\n\
-  fprintf(stderr, \" at %s:%d.\\n\", G->filename, G->lineno);\n\
+  if (!strcmp(\"-\", G->filename))\n\
+    fprintf(stderr, \" at line %d\\n\", G->lineno);\n\
+  else\n\
+    fprintf(stderr, \" at %s:%d\\n\", G->filename, G->lineno);\n\
   exit(1);\n\
 }\n\
 \n\