Fix perl syntax in previous commit
svn path=/dists/sid/linux/; revision=21637
This commit is contained in:
parent
40bf6c52bc
commit
f674b7dd80
|
@ -551,9 +551,8 @@ else {
|
||||||
# of / are the same as that of /sbin/init. This may fail if not running as
|
# of / are the same as that of /sbin/init. This may fail if not running as
|
||||||
# root or if /proc is not mounted, in which case 2 is returned.
|
# root or if /proc is not mounted, in which case 2 is returned.
|
||||||
sub detect_chroot {
|
sub detect_chroot {
|
||||||
my $dev1, $ino1, $dev2, $ino2;
|
my ($dev1, $ino1) = stat("/") or return 2;
|
||||||
($dev1, $ino1) = stat("/") or return 2;
|
my ($dev2, $ino2) = stat("/proc/1/root") or return 2;
|
||||||
($dev2, $ino2) = stat("/proc/1/root") or return 2;
|
|
||||||
return ($dev1 != $dev2) || ($ino1 != $ino2);
|
return ($dev1 != $dev2) || ($ino1 != $ino2);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue