[OpenSPARC-T2-DV] / tools / perl-5.8.0 / bin / dbish

#!/import/bw/tools/local/perl-5.8.0/bin/perl -w

eval 'exec /import/bw/tools/local/perl-5.8.0/bin/perl -w -S $0 ${1+"$@"}'
    if 0; # not running under some shell

use strict;

use DBI::Shell;
shell(@ARGV);
exit(0);

__END__

=head1 NAME

dbish	- Interactive command shell for the Perl DBI

=head1 SYNOPSIS

  dbish <options> dsn [user [password]]

=head1 DESCRIPTION

This tool is a command wrapper for the DBI::Shell perl module.
See L<DBI::Shell(3)> for full details.

=head1 SEE ALSO

L<DBI::Shell(3)>, L<DBI(3)>

=cut
Commit	Line	Data
86530b38 AT	1	#!/import/bw/tools/local/perl-5.8.0/bin/perl -w
	2
	3	eval 'exec /import/bw/tools/local/perl-5.8.0/bin/perl -w -S $0 ${1+"$@"}'
	4	if 0; # not running under some shell
	5
	6	use strict;
	7
	8	use DBI::Shell;
	9	shell(@ARGV);
	10	exit(0);
	11
	12	__END__
	13
	14	=head1 NAME
	15
	16	dbish - Interactive command shell for the Perl DBI
	17
	18	=head1 SYNOPSIS
	19
	20	dbish <options> dsn [user [password]]
	21
	22	=head1 DESCRIPTION
	23
	24	This tool is a command wrapper for the DBI::Shell perl module.
	25	See L<DBI::Shell(3)> for full details.
	26
	27	=head1 SEE ALSO
	28
	29	L<DBI::Shell(3)>, L<DBI(3)>
	30
	31	=cut