File: fix_perl_implicit_split_deprecation.patch

package info (click to toggle)
apt-move 4.2.27-6
  • links: PTS
  • area: main
  • in suites: bookworm, bullseye
  • size: 516 kB
  • sloc: sh: 7,946; awk: 275; cpp: 235; perl: 170; makefile: 69
file content (19 lines) | stat: -rw-r--r-- 504 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Description: The use of implicit split call has been removed from perl
 in version 5.12 as it had been deprecated for 15 years
Author: Paul Gevers <elbrus@debian.org>
Bug-Debian: http://bugs.debian.org/692342
Forwarded: no

Index: apt-move-4.2.27/move3
===================================================================
--- apt-move-4.2.27.orig/move3
+++ apt-move-4.2.27/move3
@@ -42,7 +42,7 @@ sub move {
 }
 
 while (<>) {
-	split;
+	@_=split;
 
 	if ($_[0] eq "D") {
 		if (fileno(MKDIR) == undef) {