http://qs321.pair.com?node_id=774909

Sun751 has asked for the wisdom of the Perl Monks concerning the following question:

In below code I am checking if $options are defined or not, if not then i am assigning respective file name to variables but without defined it work but with defined i am getting 1 as a value for variable rather than actual value, Any suggestion?please,
my $source_file= defined($options{o}) || 'as.xcf-dist'; my $config_file= defined($options{c}) || 'config.ini'; my $dest_file= defined($options{x}) || usage();