diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-21 05:46:59 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-21 05:46:59 +0000 |
| commit | 6de196ee48b72f30391cfba66f39b3056b7ed095 (patch) | |
| tree | 86e5facbbda464d921034674e58d5bfcde93ca45 /win32/GenCAPI.pl | |
| parent | 9f53fe7d93eb5e037ad4e2dad8fdfda2936aa875 (diff) | |
| download | perl-6de196ee48b72f30391cfba66f39b3056b7ed095.tar.gz | |
change case of PERL_OBJECT filenames, consistent with the rest
p4raw-id: //depot/perl@1609
Diffstat (limited to 'win32/GenCAPI.pl')
| -rw-r--r-- | win32/GenCAPI.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/win32/GenCAPI.pl b/win32/GenCAPI.pl index 79e0105d84..09827f29d7 100644 --- a/win32/GenCAPI.pl +++ b/win32/GenCAPI.pl @@ -1,9 +1,9 @@ # creates a C API file from proto.h # takes one argument, the path to lib/CORE directory. -# creates 2 files: "PerlCAPI.cpp" and "PerlCAPI.h". +# creates 2 files: "perlCAPI.cpp" and "perlCAPI.h". -my $hdrfile = "$ARGV[0]\\PerlCAPI.h"; +my $hdrfile = "$ARGV[0]\\perlCAPI.h"; my $infile = '..\\proto.h'; my $embedfile = '..\\embed.h'; my $separateObj = 0; @@ -81,8 +81,8 @@ if (!open(INFILE, "<$infile")) { return 1; } -if (!open(OUTFILE, ">PerlCAPI.cpp")) { - print "open of PerlCAPI.cpp failed: $!\n"; +if (!open(OUTFILE, ">perlCAPI.cpp")) { + print "open of perlCAPI.cpp failed: $!\n"; return 1; } |