Author: turnstep Date: Sun Jan 13 10:50:53 2008 New Revision: 10538 Modified: DBD-Pg/trunk/.perlcriticrc DBD-Pg/trunk/t/03smethod.t
Log: Minor P::C updates. Modified: DBD-Pg/trunk/.perlcriticrc ============================================================================== --- DBD-Pg/trunk/.perlcriticrc (original) +++ DBD-Pg/trunk/.perlcriticrc Sun Jan 13 10:50:53 2008 @@ -2,7 +2,7 @@ profile-strictness = quiet [Documentation::PodSpelling] -stop_words = ActiveKids AutoCommit CachedKids ChildHandles ChopBlanks CompatMode CursorName DBD DBI Datatype ErrCount FetchHashKeyName HandleError HandleSetErr InactiveDestroy LongReadLen LongTruncOk Mergl Momjian Mullane NULLABLE OID PgBouncer PostgreSQL PrintError PrintWarn README RaiseError RowCache RowCacheSize SQL SQLSTATE SSL STDIN STDOUT Sabino Savepoints ShowErrorStatement TaintIn TaintOut TraceLevel UTF Username afterwards arrayrefs attr autocommit backend bitmask cancelled datatype dbd dbh errstr fd filename getfd getline largeobject len libpq pgbuiltin pgsql runtime savepoint savepoints schemas sslmode tablename tablespace tablespaces typename username varchar +stop_words = ActiveKids AutoCommit CachedKids ChildHandles ChopBlanks CompatMode CursorName DBD DBI Datatype ErrCount FetchHashKeyName HandleError HandleSetErr InactiveDestroy LongReadLen LongTruncOk Mergl Momjian Mullane NULLABLE OID PgBouncer Postgres PostgreSQL PrintError PrintWarn README RaiseError RowCache RowCacheSize SQL SQLSTATE SSL STDIN STDOUT Sabino Savepoints ShowErrorStatement TaintIn TaintOut TraceLevel UTF Username afterwards arrayrefs attr autocommit backend bitmask cancelled datatype dbd dbh errstr fd filename getfd getline largeobject len libpq pgbuiltin pgsql runtime savepoint savepoints schemas sslmode tablename tablespace tablespaces typename username varchar [-Bangs::ProhibitCommentedOutCode] [-Bangs::ProhibitFlagComments] @@ -45,6 +45,7 @@ [-Subroutines::RequireArgUnpacking] [-Tics::ProhibitLongLines] [-ValuesAndExpressions::ProhibitAccessOfPrivateData] +[-ValuesAndExpressions::ProhibitCommaSeparatedStatements] [-ValuesAndExpressions::ProhibitEmptyQuotes] [-ValuesAndExpressions::ProhibitImplicitNewlines] [-ValuesAndExpressions::ProhibitMagicNumbers] @@ -54,6 +55,7 @@ [-ValuesAndExpressions::RequireInterpolationOfMetachars] [-ValuesAndExpressions::RequireNumberSeparators] [-ValuesAndExpressions::RestrictLongStrings] +[-Variables::ProhibitConditionalDeclarations] [-Variables::ProhibitLocalVars] [-Variables::ProhibitPackageVars] [-Variables::ProhibitPunctuationVars] Modified: DBD-Pg/trunk/t/03smethod.t ============================================================================== --- DBD-Pg/trunk/t/03smethod.t (original) +++ DBD-Pg/trunk/t/03smethod.t Sun Jan 13 10:50:53 2008 @@ -413,7 +413,8 @@ is($result, 1, 'Statement handle method "bind_columns" returns the correct value'); $sth->fetch(); $expected = [33, 'Peach']; -is_deeply( [$bindme, $bindme2], $expected, 'Statement handle method "bind_columns" correctly binds parameters'); +my $got = [$bindme, $bindme2]; +is_deeply( $got, $expected, 'Statement handle method "bind_columns" correctly binds parameters'); $sth->finish(); #
