Fix build with Perl 5.21.1+

Omitting % and @ on hash and array names is no longer permitted
    Really old Perl let you omit the @ on array names and the % on hash
    names in some spots.  This has issued a deprecation warning since Perl
    5.0, and is no longer permitted.

With hat:	perl@
Sponsored by:	Absolight
This commit is contained in:
Mathieu Arnold 2015-04-20 13:53:39 +00:00
parent bd1d474d08
commit 43d1f3cc8d
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=384360
2 changed files with 38 additions and 0 deletions

View file

@ -0,0 +1,19 @@
--- dis/data/create-tables-4.orig 1996-01-04 17:20:34 UTC
+++ dis/data/create-tables-4
@@ -36,7 +36,7 @@ while (<ENTITIES>) {
@last_a = @a;
}
-dbmclose (entities);
+dbmclose (%entities);
close (ENTITIES);
open (SITES, "./sites");
@@ -51,6 +51,6 @@ while (<SITES>) {
$sites{$key} = $a[1];
}
}
-dbmclose (sites);
+dbmclose (%sites);
close (ENTITIES);

View file

@ -0,0 +1,19 @@
--- dis/data/create-tables-5.orig 1996-01-04 17:20:40 UTC
+++ dis/data/create-tables-5
@@ -38,7 +38,7 @@ while (<ENTITIES>) {
@last_a = @a;
}
-dbmclose (entities);
+dbmclose (%entities);
close (ENTITIES);
open (SITES, "./sites");
@@ -53,6 +53,6 @@ while (<SITES>) {
$sites{$key} = $a[1];
}
}
-dbmclose (sites);
+dbmclose (%sites);
close (ENTITIES);