X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/430812d753cb6126658aa5764d72c857935e7552..56576a04ac0af02f0784b5519d4384ebcc27111d:/patchlevel.h

diff --git a/patchlevel.h b/patchlevel.h
index a1b838d..d20f204 100644
--- a/patchlevel.h
+++ b/patchlevel.h
@@ -14,7 +14,7 @@
  * exactly on the third column */
 
 #define PERL_REVISION	5		/* age */
-#define PERL_VERSION	23		/* epoch */
+#define PERL_VERSION	27		/* epoch */
 #define PERL_SUBVERSION	2		/* generation */
 
 /* The following numbers describe the earliest compatible version of
@@ -35,7 +35,7 @@
    changing them should not be necessary.
 */
 #define PERL_API_REVISION	5
-#define PERL_API_VERSION	23
+#define PERL_API_VERSION	27
 #define PERL_API_SUBVERSION	2
 /*
    XXX Note:  The selection of non-default Configure options, such
@@ -90,8 +90,8 @@
 
 #!perl
 die "Usage: perl -x patchlevel.h comment ..." unless @ARGV;
-open PLIN, "patchlevel.h" or die "Couldn't open patchlevel.h : $!";
-open PLOUT, ">patchlevel.new" or die "Couldn't write on patchlevel.new : $!";
+open PLIN, "<", "patchlevel.h" or die "Couldn't open patchlevel.h : $!";
+open PLOUT, ">", "patchlevel.new" or die "Couldn't write on patchlevel.new : $!";
 my $seen=0;
 while (<PLIN>) {
     if (/\t,NULL/ and $seen) {