Commits

Burak Gürsoy  committed bdeac66

remove old builder

  • Participants
  • Parent commits 975fd9e
  • Tags v0.23

Comments (0)

Files changed (2)

 lib/Lingua/TR/NumbersTR.pod
 t/20_main_integers.t
 t/30_v1_tests.t
-tools/Build.pm
 Build.PL
 Changes
 MANIFEST

File tools/Build.pm

-use strict;
-use vars qw( $VERSION );
-use warnings;
-use File::Find;
-use File::Spec;
-use File::Path;
-use constant RE_VERSION_LINE => qr{
-   \A \$VERSION \s+ = \s+ ["'] (.+?) ['"] ; (.+?) \z
-}xms;
-use constant RE_POD_LINE => qr{
-\A =head1 \s+ DESCRIPTION \s+ \z
-}xms;
-use constant VTEMP  => q{$VERSION = '%s';};
-use constant MONTHS => qw(
-   January February March     April   May      June
-   July    August   September October November December
-);
-
-$VERSION = '0.40';
-
-sub ACTION_dist {
-   my $self = shift;
-   warn  sprintf(
-            "RUNNING 'dist' Action from subclass %s v%s\n",
-            ref($self),
-            $VERSION
-         );
-   my @modules;
-   find {
-      wanted => sub {
-         my $file = $_;
-         return if $file !~ m{ \. pm \z }xms;
-         $file = File::Spec->catfile( $file );
-         push @modules, $file;
-         warn "FOUND Module: $file\n";
-      },
-      no_chdir => 1,
-   }, "lib";
-   $self->_change_versions( \@modules );
-   $self->SUPER::ACTION_dist( @_ );
-}
-
-sub _change_versions {
-   my $self  = shift;
-   my $files = shift;
-   my $dver  = $self->dist_version;
-
-   my($mday, $mon, $year) = (localtime time)[3, 4, 5];
-   my $date = join ' ', $mday, [MONTHS]->[$mon], $year + 1900;
-
-   warn "CHANGING VERSIONS\n";
-   warn "\tDISTRO Version: $dver\n";
-
-   foreach my $mod ( @{ $files } ) {
-      warn "\tPROCESSING $mod\n";
-      my $new = $mod . '.new';
-      open my $RO_FH, '<:raw', $mod or die "Can not open file($mod): $!";
-      open my $W_FH , '>:raw', $new or die "Can not open file($new): $!";
-
-      CHANGE_VERSION: while ( my $line = readline $RO_FH ) {
-         if ( $line =~ RE_VERSION_LINE ) {
-            my $oldv      = $1;
-            my $remainder = $2;
-            warn "\tCHANGED Version from $oldv to $dver\n";
-            printf $W_FH VTEMP . $remainder, $dver;
-            last CHANGE_VERSION;
-         }
-         print $W_FH $line;
-      }
-
-      my $ns  = $mod;
-         $ns  =~ s{ [\\/]     }{::}xmsg;
-         $ns  =~ s{ \A lib :: }{}xms;
-         $ns  =~ s{ \. pm \z  }{}xms;
-      my $pod = "\nThis document describes version C<$dver> of C<$ns>\n"
-              . "released on C<$date>.\n"
-              ;
-
-      if ( $dver =~ m{[_]}xms ) {
-         $pod .= "\nB<WARNING>: This version of the module is part of a\n"
-              .  "developer (beta) release of the distribution and it is\n"
-              .  "not suitable for production use.\n";
-      }
-
-      CHANGE_POD: while ( my $line = readline $RO_FH ) {
-         print $W_FH $line;
-         print $W_FH $pod if $line =~ RE_POD_LINE;
-      }
-
-      close $RO_FH or die "Can not close file($mod): $!";
-      close $W_FH  or die "Can not close file($new): $!";
-
-      unlink($mod) || die "Can not remove original module($mod): $!";
-      rename( $new, $mod ) || die "Can not rename( $new, $mod ): $!";
-      warn "\tRENAME Successful!\n";
-   }
-
-   return;
-}
-
-1;