Changeset 18374 for lang/perl

Show
Ignore:
Timestamp:
08/28/08 12:07:52 (3 months ago)
Author:
kazuho
Message:

adjust for shipit compatibility

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/DBIx-Printf/trunk/lib/DBIx/Printf.pm

    r18370 r18374  
    55use Carp::Clan; 
    66 
    7 package main; 
    8  
    9 sub DBI::db::printf { 
    10     my ($dbh, $fmt, @params) = @_; 
    11      
    12     my $sql = DBIx::Printf::_printf($dbh, $fmt, \@params); 
    13     Carp::Clan::croak "too many parameters\n" if @params; 
    14     $sql; 
    15 } 
    16  
    177package DBIx::Printf; 
    188 
    19 our $VERSION = 0.07; 
     9our $VERSION = '0.07'; 
    2010 
    2111sub _printf { 
    … …  
    8575} 
    8676 
     77package main; 
     78 
     79sub DBI::db::printf { 
     80    my ($dbh, $fmt, @params) = @_; 
     81     
     82    my $sql = DBIx::Printf::_printf($dbh, $fmt, \@params); 
     83    Carp::Clan::croak "too many parameters\n" if @params; 
     84    $sql; 
     85} 
     86 
    87871; 
    8888