KevinMidboe/linguist
1
0
Fork 0
mirror of https://github.com/KevinMidboe/linguist.git synced 2025-10-29 17:50:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

.al extension for Perl

Browse Source
This commit is contained in:
Paul Chaignon
2015-05-30 15:07:56 +02:00
parent 53e53880bd
commit ec61a6974f
2 changed files with 14 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
samples/Perl/getchar.al Normal file
View File

@@ -0,0 +1,13 @@
# NOTE: Derived from ../../lib/POSIX.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package POSIX;
#line 318 "../../lib/POSIX.pm (autosplit into ../../lib/auto/POSIX/getchar.al)"
sub getchar {
usage "getchar()" if @_ != 0;
CORE::getc(STDIN);
}
# end of POSIX::getchar
1;