App-CPANtoRPM

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

  - Fix for the --no-compat option.  Suggested by Stefan Kirchberg

1.12  2022-06-07
  - Changed default URL to be metacpan.org.  Suggested by Bogdan.
  - Added the --no-compat option.

1.11  2021-11-01
  - Optimized some regexps.  Patch by Bogdan.
  - Forced strace to run in English so messages can be parsed.  Patch by Bogdan.
  - Added BugURL to spec file.  Patch by Bogdan.
  - Fixed the date so that rpmbuild works even in other locales.  Problem
    reported by Bogdan.

1.10  2021-08-30
  - Several fixes and improvements requested by Sven Willenbuecher.
       Several fixes for AIX
       Fixed the use of some RPM macros
  - Added the --config-input and --build-input options.  Based on
    GitHub #9 by sreerajkksd.

1.09  2019-03-20

META.json  view on Meta::CPAN

      },
      "configure" : {
         "requires" : {
            "ExtUtils::MakeMaker" : "6.30"
         }
      },
      "runtime" : {
         "requires" : {
            "IO::File" : "0",
            "POSIX" : "0",
            "locale" : "0",
            "perl" : "5.006"
         }
      },
      "test" : {
         "requires" : {
            "Test::Inter" : "1.09",
            "Test::More" : "0"
         }
      }
   },

META.yml  view on Meta::CPAN

provides:
  App::CPANtoRPM:
    file: lib/App/CPANtoRPM.pm
    version: '1.15'
  cpantorpm:
    file: cpantorpm
    version: '1.15'
requires:
  IO::File: '0'
  POSIX: '0'
  locale: '0'
  perl: '5.006'
resources:
  bugtracker: https://github.com/SBECK-github/App-CPANtoRPM/issues
  homepage: https://github.com/SBECK-github/App-CPANtoRPM
  repository: git://github.com/SBECK-github/App-CPANtoRPM.git
version: '1.15'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

Makefile.PL  view on Meta::CPAN

use ExtUtils::MakeMaker 6.30;

my %IsWin32 = map { $_ => 1 } qw( MSWin32 NetWare symbian );
my $IsWin32 = 1   if ($IsWin32{ $^O });
my $Pvers   = $];
my $ConvVers= $ExtUtils::MakeMaker::VERSION;

my %module_prereq = (
   'IO::File'                 => '0',
   'POSIX'                    => '0',
   'locale'                   => '0',
);

my %script_prereq = (
);

my %test_prereq = (
   'Test::Inter'              => '1.09',
   'Test::More'               => '0',
);

lib/App/CPANtoRPM.pm  view on Meta::CPAN

package App::CPANtoRPM;
# Copyright (c) 2012-2024 Sullivan Beck. All rights reserved.
# This program is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.

###############################################################################

use warnings;
use strict;
use locale;
use POSIX qw(locale_h);
use IO::File;

our($VERSION);
$VERSION="1.15";

$| = 1;

use vars qw($COM $DIR $ARCH $VERS);
use Config;
$ARCH  = $Config{'archname'};

lib/App/CPANtoRPM.pm  view on Meta::CPAN

                   1 => {
                         '_optimize'  => '%{optimize}',
                         '_buildroot' => '%{buildroot}',
                        }
                  );

our ($OUTPUT,@OUTPUT,%package,$MAN);
$package{'VERSION'} = $VERSION;

my $old_locale = setlocale(LC_TIME);
setlocale(LC_TIME, "C");
$package{'date'}    = POSIX::strftime("%a %b %d %Y",localtime());
setlocale(LC_TIME, $old_locale);

###############################################################################
###############################################################################

sub _new {
   my($class) = @_;

   my $self = {
               'add_provide'  => [],
               'add_require'  => [],

lib/App/CPANtoRPM.pm  view on Meta::CPAN

   $DIR                = `pwd`;
   chomp($DIR);

   bless $self, $class;

   $package{'CMD'}     = $COM;
   $package{'command'} = $0;
   $package{'args'}    = $self->_args();
   $package{'self'}    = $self;

   my $old_locale = setlocale(LC_TIME);
   setlocale(LC_TIME, "C");
   $package{'date'}    = POSIX::strftime("%a %b %d %Y",localtime());
   setlocale(LC_TIME, $old_locale);

   return $self;
}

sub _args {
   my($self) = @_;
   my @args = @ARGV;
   map {
      s/([<>\*\|`&\$!#\(\)\[\]\{\}:'"\ \	])/\\$1/g;
   } @args;

lib/App/CPANtoRPM.pm  view on Meta::CPAN

############################################################################

# The process of generating the spec file is taken in large part from the
# cpanspec script.

sub _make_spec {
   my($self) = @_;

   $self->_log_message('HEAD',"Writing spec file: $package{name}");

   setlocale(LC_ALL, "en_US.UTF-8");

   #
   # A few more package values.
   #

   $package{'release'} = $$self{'release'};
   $package{'disttag'} = $$self{'disttag'};
   $package{'url'}     = ($package{'from'} eq 'url' ?
                          $package{'fromsrc'} :
                          "http://search.cpan.org/dist/$package{name}/");