[augeas-devel] Weird print result with Perl bindings on amd64

[David Lutterkort]

On Sun, 2009-01-11 at 16:19 +0100, Dominique Dumont wrote:
> But when I use perl bindings, I get :
> 
> $ AUGEAS_ROOT=wr_root perl -MConfig::Augeas -e '$a=Config::Augeas::init(); $a->print(STDOUT,"");'
> /augeas
> /augeas/root = "wr_root/"
> /augeas/save = "overwrite"
> /augeas/files
> /augeas/files/etc
> /augeas/files/etc/ssh
> /augeas/files/etc/ssh/sshd_config
> /augeas/files/etc/ssh/sshd_config/path = "/files/etc/ssh/sshd_config"
> /augeas/files/etc/ssh/sshd_config/lens
> /augeas/files/etc/ssh/sshd_config/lens/info = "/usr/share/augeas/lenses/sshd.aug:59.12-61.36"
> /augeas/files/etc/ssh/sshd_config/lens/id = "0xf84a00"
> /files
> /files/etc
> /files/etc/ssh
> /files/etc/ssh/sshd_config
> /files/etc/ssh/sshd_config/HostbasedAuthentication = "no"
> /files/etc/ssh/sshd_config/HostKey[1] = "/etc/ssh/ssh_host_key"
> /files/etc/ssh/sshd_config/HostKey[2] = "/etc/ssh/ssh_host_rsa_key"
> /files/etc/ssh/sshd_config/HostKey[3] = "/etc/ssh/ssh_host_dsa_key"
> /files/etc/ssh/sshd_config/Subsystem[1]
> /files/etc/ssh/sshd_config/Subsystem[1]/sftp = "/usr/lib/openssh/sftp-server"
> /files/etc/ssh/sshd_config/Subsystem[2]
> /files/etc/ssh/sshd_config/Subsystem[2]/tftp = "/usr/lib/openssh/tftp-server"
> /files/etc/ssh/sshd_config/Subsystem[3]
> /files/etc/ssh/sshd_config/Subsystem[3]/rftp = "/usr/lib/openssh/rftp-server"
> /files/etc/ssh/sshd_config/AcceptEnv[1]
> /files/etc/ssh/sshd_config/AcceptEnv[1]/1 = "LC_PAPER"
> /files/etc/ssh/sshd_config/AcceptEnv[1]/2 = "LC_NAME"
> /files/etc/ssh/sshd_config/AcceptEnv[1]/3 = "LC_ADDRESS"
> /files/etc/ssh/sshd_config/AcceptEnv[1]/4 = "LC_TELEPHONE"
> /files/etc/ssh/sshd_config/AcceptEnv[1]/5 = "LC_MEASUREMENT"
> /files/etc/ssh/sshd_config/AcceptEnv[2]
> /files/etc/ssh/sshd_config/AcceptEnv[2]/6 = "LC_IDENTIFICATION"
> /files/etc/ssh/sshd_config/AcceptEnv[2]/7 = "LC_ALL"
> /files/etc/ssh/sshd_config/AllowUsers
> /files/etc/ssh/sshd_config/AllowUsers/1 = "foo"
> /files/etc/ssh/sshd_config/AllowUsers/2 = "bar at 192.168.0.*"
> /files/etc/ssh/sshd_config/Match[1] = "User domi"
> /files/etc/ssh/sshd_config/AllowTcpForwarding = "yes"
> /files/etc/ssh/sshd_config/Match[2] = "User sarko Group pres.*"
> /files/etc/ssh/sshd_config/Banner[1] = "/etc/bienvenue.txt"
> /files/etc/ssh/sshd_config/Match[3] = "User bush Group pres.* Host white.house.*"
> /files/etc/ssh/sshd_config/Banner[2] = "/etc/welcome.txt"
> 
> 
> Note that Match lens is flat instead of being a hierarchy of lenses.
> 
> I have no such problem on my machine at work (Debian/sid 32
> bits). 
> 
> I guess there's a clash between the Perl bindings, Perl and Augeas,
> but I really do not know where.
> 
> Has anyone a clue about what's going on ?

Isn't the output for the perl example what a previous incarnation of the
sshd lens produced ? 

Are you absolutely sure you don't have AUGEAS_LENS_LIB set on your amd64
box or an old lens in the default lens dir ? Might be worth stracing the
perl command to see where it gets the sshd.aug lens from and
double-checking that that's the version from 0.3.5.

David