sydney/Autobot
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Require Perl 5.10.0.

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-01-12 23:02:22 -07:00
1 parent d0ca862f63
commit d1f9142814
1 file changed
+1 -8
Download Patch File Download Diff File Expand all files Collapse all files
bin/auto
+1 -8
View File
@@ -15,7 +15,7 @@ use FindBin qw($Bin);
our $Bin = $Bin; our $Bin = $Bin;
unshift(@INC, "$Bin/../src"); unshift(@INC, "$Bin/../src");
require API::Std; require API::Std;
require DB::Flatfile; #require DB::Flatfile;
require Parser::Config; require Parser::Config;
#require Parser::IRC; #require Parser::IRC;
#require IRC::Standard; #require IRC::Standard;
@@ -34,10 +34,3 @@ our %SETTINGS = $CONF->parse;
setlocale(LC_CTYPE, API::Std::conf_get('locale')); setlocale(LC_CTYPE, API::Std::conf_get('locale'));
require API::Text; require API::Text;
DB::load() or exit;
my $k = DB::get("LOL") or print ".\n" and exit;
print Dumper($k);
print @{ $k }->[0]->[0]."\n";