Peppermint
/
debian-cd-clone
mirror of https://salsa.debian.org/images-team/debian-cd.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Declare 'my' instances of '$_' as 'local' 

Fixes syntax errors on Perl 5.24 where '$_' may
no longer be declared as 'my'. Being a global symbol,
'$_' has to be declared as 'local' inside functions.
This commit is contained in:
John Paul Adrian Glaubitz 2016-11-22 10:57:28 +01:00
parent a55bc64a77
commit ae59c4e92b
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tools/make_disc_trees.pl
View File

@ -983,7 +983,7 @@ sub add_Packages_entry {
my $dir = shift; my $dir = shift;
my $arch = shift; my $arch = shift;
my $in_backports = shift; my $in_backports = shift;
my $_ = shift; local $_ = shift;
my ($p, $file, $section, $pdir, $pkgfile, $gz, $st1, $st2, $size1, $size2); my ($p, $file, $section, $pdir, $pkgfile, $gz, $st1, $st2, $size1, $size2);
my $blocks_added = 0; my $blocks_added = 0;
my $old_blocks = 0; my $old_blocks = 0;
@ -1049,7 +1049,7 @@ sub add_trans_desc_entry {
my $dir = shift; my $dir = shift;
my $arch = shift; my $arch = shift;
my $in_backports = shift; my $in_backports = shift;
my $_ = shift; local $_ = shift;
my ($p, $file, $section, $idir, $pkgfile, $gz, $st); my ($p, $file, $section, $idir, $pkgfile, $gz, $st);
my $size = 0; my $size = 0;
my $blocks_added = 0; my $blocks_added = 0;
@ -1118,7 +1118,7 @@ sub add_md5_entry {
my $dir = shift; my $dir = shift;
my $arch = shift; my $arch = shift;
my $in_backports = shift; my $in_backports = shift;
my $_ = shift; local $_ = shift;
my ($pdir, $file, $md5, $st, $size, $p); my ($pdir, $file, $md5, $st, $size, $p);
my $md5file = "$dir/md5sum.txt"; my $md5file = "$dir/md5sum.txt";
my $blocks_added = 0; my $blocks_added = 0;
@ -1163,7 +1163,7 @@ sub remove_Packages_entry {
my $dir = shift; my $dir = shift;
my $arch = shift; my $arch = shift;
my $in_backports = shift; my $in_backports = shift;
my $_ = shift; local $_ = shift;
my ($p, $file, $section, $pdir, $pkgfile, $tmp_pkgfile, $match, $gz, my ($p, $file, $section, $pdir, $pkgfile, $tmp_pkgfile, $match, $gz,
$st1, $st2, $size1, $size2); $st1, $st2, $size1, $size2);
my $blocks_removed = 0; my $blocks_removed = 0;
@ -1232,7 +1232,7 @@ sub remove_trans_desc_entry {
my $dir = shift; my $dir = shift;
my $arch = shift; my $arch = shift;
my $in_backports = shift; my $in_backports = shift;
my $_ = shift; local $_ = shift;
my ($p, $file, $section, $idir, $gz, $match, $st); my ($p, $file, $section, $idir, $gz, $match, $st);
my $size = 0; my $size = 0;
my $blocks_added = 0; my $blocks_added = 0;
@ -1301,7 +1301,7 @@ sub remove_trans_desc_entry {
sub remove_md5_entry { sub remove_md5_entry {
my $dir = shift; my $dir = shift;
my $arch = shift; my $arch = shift;
my $_ = shift; local $_ = shift;
my $md5file = "$dir/md5sum.txt"; my $md5file = "$dir/md5sum.txt";
my $tmp_md5file = "$dir/md5sum.txt.tmp"; my $tmp_md5file = "$dir/md5sum.txt.tmp";
my @fileslist; my @fileslist;