21 lines
583 B
Diff
21 lines
583 B
Diff
From 9a46eab1c78656386ba9d18bc4b341f4b2561635 Mon Sep 17 00:00:00 2001
|
|
From: rschupp <roderich.schupp@gmail.com>
|
|
Date: Mon, 21 Oct 2024 14:03:19 +0200
|
|
Subject: [PATCH] use three-argument open()
|
|
|
|
---
|
|
lib/Module/ScanDeps.pm | 2 +-
|
|
1 file changed, 1 insertion(+), 1 deletion(-)
|
|
|
|
--- a/lib/Module/ScanDeps.pm
|
|
+++ b/lib/Module/ScanDeps.pm
|
|
@@ -810,7 +810,7 @@ sub scan_file{
|
|
my $file = shift;
|
|
my %found;
|
|
my $FH;
|
|
- open $FH, $file or die "Cannot open $file: $!";
|
|
+ open $FH, "<", $file or die "Cannot open $file: $!";
|
|
|
|
$SeenTk = 0;
|
|
# Line-by-line scanning
|