Lines Matching refs:msg
783 my $msg = "$command_name: ";
784 $msg .= gettext("cannot open file: %s\n");
785 $msg = sprintf($msg, join(' ', @_));
787 return $msg;
795 my $msg = "$command_name: ";
796 $msg .= gettext("path does not exist: %s\n");
797 $msg = sprintf($msg, join(' ', @_));
799 return $msg;
807 my $msg = "$command_name: ";
808 $msg .= gettext("cannot run program: %s\n");
809 $msg = sprintf($msg, join(' ', @_));
811 return $msg;
819 my $msg = "$command_name: ";
820 $msg .= gettext("cannot create directory: %s\n");
821 $msg = sprintf($msg, join(' ', @_));
823 return $msg;
831 my $msg = "$command_name: ";
832 $msg .= gettext("cannot open directory: %s\n");
833 $msg = sprintf($msg, join(' ', @_));
835 return $msg;
840 # clean_up_exit() routine if that routine is defined. Prints $msg to
846 my ($msg, $status) = @_;
848 if (defined($msg) && ! defined($status) && $msg =~ /^\d+$/) {
849 $status = $msg;
850 undef($msg);
856 if (defined($msg)) {
861 $msg .= "\n" unless ($msg eq '' || $msg =~ /\n$/);
862 emsg($msg);