diff options
| author | fukachan <fukachan> | 2001-03-17 11:36:52 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-03-17 11:36:52 +0000 |
| commit | a622ef8d1a0541e05630eef52e218d7fe1bf6ece (patch) | |
| tree | f861e90945c6ebb1d6c6a986054619aafd7e5af9 | |
| parent | 1aaf007505957ca9a4da6deccf1580fc77bcd178 (diff) | |
| download | fml8-a622ef8d1a0541e05630eef52e218d7fe1bf6ece.tar.gz fml8-a622ef8d1a0541e05630eef52e218d7fe1bf6ece.tar.bz2 fml8-a622ef8d1a0541e05630eef52e218d7fe1bf6ece.zip | |
move base/mysql_io.pl mysql/
| -rwxr-xr-x | regress/base/mysql_io.pl | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/regress/base/mysql_io.pl b/regress/base/mysql_io.pl deleted file mode 100755 index a61d6635..00000000 --- a/regress/base/mysql_io.pl +++ /dev/null @@ -1,21 +0,0 @@ -#!/usr/pkg/bin/perl -# -# $Id$ -# - -use strict; -use IO::Adapter::MySQL; - -my $obj = new IO::Adapter::MySQL { ml_name => 'elena' }; - -$obj->open({ - sql_user => 'fukachan', - sql_user_password => '', -}); - -while ($_ = $obj->getline) { - print $_, "\n"; -} - -$obj->close; - |