1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
use File::HomeDir; use File::Which; my $config; # 1 if ( which( 'xdg-user-dir' ) ) { $config = File::HomeDir::FreeDesktop->my_config(); } else { $config = File::HomeDir->my_data(); } # 2 if ( $^O eq 'Unix' ) { $config = File::HomeDir::FreeDesktop->my_config(); } else { $config = File::HomeDir->my_data(); }