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 | |
| parent | 9adddc19e448781cf2076c44f66242fe48b47c7c (diff) | |
| download | libguestfs-75b6338da3e6e33c02b931623f074ab5a76a1788.tar.gz libguestfs-75b6338da3e6e33c02b931623f074ab5a76a1788.tar.xz libguestfs-75b6338da3e6e33c02b931623f074ab5a76a1788.zip | |
Check return value from readlink.
| -rwxr-xr-x | cat/run-cat-locally | 2 | ||||
| -rwxr-xr-x | df/run-df-locally | 2 | ||||
| -rwxr-xr-x | edit/run-edit-locally | 2 | ||||
| -rwxr-xr-x | inspector/run-inspector-locally | 2 | ||||
| -rwxr-xr-x | rescue/run-rescue-locally | 2 |
5 files changed, 5 insertions, 5 deletions
diff --git a/cat/run-cat-locally b/cat/run-cat-locally index bba2c088..be60d076 100755 --- a/cat/run-cat-locally +++ b/cat/run-cat-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 { 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 { diff --git a/edit/run-edit-locally b/edit/run-edit-locally index 90968a27..3a6a9abf 100755 --- a/edit/run-edit-locally +++ b/edit/run-edit-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 { diff --git a/inspector/run-inspector-locally b/inspector/run-inspector-locally index 156f3ae1..61062824 100755 --- a/inspector/run-inspector-locally +++ b/inspector/run-inspector-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 { diff --git a/rescue/run-rescue-locally b/rescue/run-rescue-locally index d814ed5f..33191e7a 100755 --- a/rescue/run-rescue-locally +++ b/rescue/run-rescue-locally @@ -35,7 +35,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 { |