# perl -E '
open($IN,"find '/etc' -type f |");
$str = "/etc/profile";

while($f = <$IN>) {
$f =~ s/[\r\n]+\z//;
open($IN2,$f);
while(<$IN2>){
m|$str|i and say "$f -> $_";
}}
say ":END";'


./etc/gdm/Xsession -> # First read /etc/profile (resp. /usr/etc/profile) and .profile

/etc/gdm/Xsession -> if [ -f /etc/profile ]; then

/etc/gdm/Xsession -> . /etc/profile

/etc/gdm/Xsession -> elif [ -f /usr/etc/profile ]; then

/etc/gdm/Xsession -> . /usr/etc/profile

/etc/lightdm/Xsession -> [ -f /etc/profile ] && . /etc/profile

/etc/lightdm/Xsession -> [ -f /etc/profile ] && . /etc/profile