Changeset 3073

Show
Ignore:
Timestamp:
12/12/07 09:26:54 (5 years ago)
Author:
takemaru
Message:

lang/perl/Catalyst-Controller-Atompub: 0.3.1 released. fix a bug in error handling

Location:
lang/perl/Catalyst-Controller-Atompub
Files:
2 removed
11 modified
14 copied

Legend:

Unmodified
Added
Removed

  • lang/perl/Catalyst-Controller-Atompub/tags/0.3.1/Changes

    r2901 r3073  
     12007-12-12  Takeru INOUE  <takeru.inoue _ gmail.com> 
     2 
     3        * release 0.3.1: 
     4        * lib/Catalyst/Helper/Controller/Atompub/Base.pm 
     5        - fix a bug in error method 
     6 
    172007-12-08  Takeru INOUE  <takeru.inoue _ gmail.com> 
    28 

  • lang/perl/Catalyst-Controller-Atompub/tags/0.3.1/META.yml

    r2901 r3073  
    11--- 
    22name: Catalyst-Controller-Atompub 
    3 version: 0.3.0 
     3version: 0.3.1 
    44author: 
    55  - 'Takeru INOUE <takeru.inoue _ gmail.com>' 
    … …  
    4040  Catalyst::Controller::Atompub: 
    4141    file: lib/Catalyst/Controller/Atompub.pm 
    42     version: 0.3.0 
     42    version: 0.3.1 
    4343  Catalyst::Controller::Atompub::Base: 
    4444    file: lib/Catalyst/Controller/Atompub/Base.pm 

  • lang/perl/Catalyst-Controller-Atompub/tags/0.3.1/lib/Catalyst/Controller/Atompub.pm

    r2901 r3073  
    55use Carp; 
    66 
    7 use version; our $VERSION = qv('0.3.0'); 
     7use version; our $VERSION = qv('0.3.1'); 
    88 
    99use Atompub 0.1.6; 

  • lang/perl/Catalyst-Controller-Atompub/tags/0.3.1/lib/Catalyst/Controller/Atompub/Base.pm

    r1860 r3073  
    2727 
    2828    my ( $status, $message ) 
    29         = @args == 1 && $args[0] =~ /^(\d{3})\s*(.*)/ ? ( $1, $2 ) 
    30         : @args  > 1                                  ?  @args 
    31         :                                               (); 
     29        = @args  > 1                                           ?  @args 
     30        : @args == 1 && $args[0] =~ /^(?:([1-5]\d\d)\s+)?(.+)/ ? ( $1, $2 ) 
     31        :                                                        (); 
    3232 
    3333    $status ||= RC_INTERNAL_SERVER_ERROR; 

  • lang/perl/Catalyst-Controller-Atompub/tags/0.3.1/samples/MyAtom/t/01.t

    r2805 r3073  
    1111use XML::Atom::Entry; 
    1212 
    13 system "sqlite3 $FindBin::Bin/../atom.db < $FindBin::Bin/../init.sql" || die; 
     13#system "sqlite3 $FindBin::Bin/../test.db < $FindBin::Bin/../init.sql" || die; 
    1414 
    1515 

  • lang/perl/Catalyst-Controller-Atompub/tags/0.3.1/samples/MyBlog/t/01.t

    r2805 r3073  
    1212use XML::Atom::Entry; 
    1313 
    14 system "sqlite3 $FindBin::Bin/../atom.db < $FindBin::Bin/../init.sql" || die; 
     14#system "sqlite3 $FindBin::Bin/../test.db < $FindBin::Bin/../init.sql" || die; 
    1515 
    1616 

  • lang/perl/Catalyst-Controller-Atompub/trunk/Changes

    r2901 r3073  
     12007-12-12  Takeru INOUE  <takeru.inoue _ gmail.com> 
     2 
     3        * release 0.3.1: 
     4        * lib/Catalyst/Helper/Controller/Atompub/Base.pm 
     5        - fix a bug in error method 
     6 
    172007-12-08  Takeru INOUE  <takeru.inoue _ gmail.com> 
    28 

  • lang/perl/Catalyst-Controller-Atompub/trunk/META.yml

    r2901 r3073  
    11--- 
    22name: Catalyst-Controller-Atompub 
    3 version: 0.3.0 
     3version: 0.3.1 
    44author: 
    55  - 'Takeru INOUE <takeru.inoue _ gmail.com>' 
    … …  
    4040  Catalyst::Controller::Atompub: 
    4141    file: lib/Catalyst/Controller/Atompub.pm 
    42     version: 0.3.0 
     42    version: 0.3.1 
    4343  Catalyst::Controller::Atompub::Base: 
    4444    file: lib/Catalyst/Controller/Atompub/Base.pm 

  • lang/perl/Catalyst-Controller-Atompub/trunk/lib/Catalyst/Controller/Atompub.pm

    r2901 r3073  
    55use Carp; 
    66 
    7 use version; our $VERSION = qv('0.3.0'); 
     7use version; our $VERSION = qv('0.3.1'); 
    88 
    99use Atompub 0.1.6; 

  • lang/perl/Catalyst-Controller-Atompub/trunk/lib/Catalyst/Controller/Atompub/Base.pm

    r1860 r3073  
    2727 
    2828    my ( $status, $message ) 
    29         = @args == 1 && $args[0] =~ /^(\d{3})\s*(.*)/ ? ( $1, $2 ) 
    30         : @args  > 1                                  ?  @args 
    31         :                                               (); 
     29        = @args  > 1                                           ?  @args 
     30        : @args == 1 && $args[0] =~ /^(?:([1-5]\d\d)\s+)?(.+)/ ? ( $1, $2 ) 
     31        :                                                        (); 
    3232 
    3333    $status ||= RC_INTERNAL_SERVER_ERROR; 

  • lang/perl/Catalyst-Controller-Atompub/trunk/samples/MyAtom/t/01.t

    r2805 r3073  
    1111use XML::Atom::Entry; 
    1212 
    13 system "sqlite3 $FindBin::Bin/../atom.db < $FindBin::Bin/../init.sql" || die; 
     13#system "sqlite3 $FindBin::Bin/../test.db < $FindBin::Bin/../init.sql" || die; 
    1414 
    1515 

  • lang/perl/Catalyst-Controller-Atompub/trunk/samples/MyBlog/t/01.t

    r2805 r3073  
    1212use XML::Atom::Entry; 
    1313 
    14 system "sqlite3 $FindBin::Bin/../atom.db < $FindBin::Bin/../init.sql" || die; 
     14#system "sqlite3 $FindBin::Bin/../test.db < $FindBin::Bin/../init.sql" || die; 
    1515 
    1616