Changeset 9419

Show
Ignore:
Timestamp:
04/14/08 14:42:32 (5 years ago)
Author:
typester
Message:

コンフリクトまくるので自動生成コメント部を削除するようにした。テーブルクラスたちは毎回消して生成しなおしているので消しても問題ない。

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Catalyst-Helper-Schema-Dumper/trunk/lib/Catalyst/Helper/Schema/Dumper.pm

    r6277 r9419  
    103103); 
    104104 
     105# cleanup 
     106for my $file ($libdir->children( all => 1 )) { 
     107    next unless -f $file; 
     108 
     109    my $text = $file->slurp; 
     110    $text =~ s/# Created by DBIx::Class::Schema::Loader v[\d\.]+ @ \d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}.*?package/package/s; 
     111    $text =~ s/(\r?\n1;\r?\n).*$/$1/s; 
     112 
     113    my $fh = $file->openw; 
     114    print $fh $text; 
     115    $fh->close; 
     116} 
     117 
    1051181;