added demo of signal/uid handling feature
[tridge/junkcode.git] / t2.pl
1 #!/usr/bin/perl -w
2
3 my (%trees) = ('samba' => "",
4                'samba_2_2' => "SAMBA_2_2",
5                'rsync' => "");
6
7 printf("%s\n", $trees{'samba_2_2'});
8