[devscripts] 01/03: license: improved "unable to access file" error message

[dod at debian.org]

This is an automated email from the git hooks/post-receive script.

dod pushed a commit to branch master
in repository devscripts.

commit 623932cc94fd593b4ef9dc45579f2d161ead62b0
Author: Dominique Dumont <dod at debian.org>
Date:   Fri Mar 25 14:08:28 2016 +0100

    license: improved "unable to access file" error message
---
 scripts/licensecheck.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/licensecheck.pl b/scripts/licensecheck.pl
index ca8288b..63f0c6a 100755
--- a/scripts/licensecheck.pl
+++ b/scripts/licensecheck.pl
@@ -410,7 +410,7 @@ while (@files) {
     my $enc = $OPT{encoding} ;
     my $mode = $enc ? "<:encoding($enc)" : '<';
     # need to use "<" when encoding is unknown otherwise we break compatibility
-    my $fh = IO::File->new ($file ,$mode) or die "Unable to access $file\n";
+    my $fh = IO::File->new ($file ,$mode) or die "Unable to access $file: $!\n";
 
     while ( my $line = $fh->getline ) {
 	last if ($fh->input_line_number > $OPT{'lines'});

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/collab-maint/devscripts.git