diff options
author | Richard Jones <rjones@trick.home.annexia.org> | 2009-09-23 12:09:26 +0100 |
---|---|---|
committer | Richard Jones <rjones@trick.home.annexia.org> | 2009-09-23 12:09:26 +0100 |
commit | 75b6338da3e6e33c02b931623f074ab5a76a1788 (patch) | |
tree | a717f4d0ef92e3c8a78b7e8ab964b31189063949 /df | |
parent | 9adddc19e448781cf2076c44f66242fe48b47c7c (diff) | |
download | libguestfs-75b6338da3e6e33c02b931623f074ab5a76a1788.tar.gz libguestfs-75b6338da3e6e33c02b931623f074ab5a76a1788.tar.xz libguestfs-75b6338da3e6e33c02b931623f074ab5a76a1788.zip |
Check return value from readlink.
Diffstat (limited to 'df')
-rwxr-xr-x | df/run-df-locally | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/df/run-df-locally b/df/run-df-locally index 35574438..f8a50aa5 100755 --- a/df/run-df-locally +++ b/df/run-df-locally @@ -34,7 +34,7 @@ my $path = $0; # Follow symlinks until we get to the real file while(-l $path) { - my $link = readlink($path); + my $link = readlink($path) or die "readlink: $path: $!"; if(File::Spec->file_name_is_absolute($link)) { $path = $link; } else { |