Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
best-practical
rt-extension-sla
Commits
564d150e
Commit
564d150e
authored
May 18, 2012
by
Thomas Sibley
Browse files
Bump version and update M::I
parent
79e24268
Changes
13
Hide whitespace changes
Inline
Side-by-side
META.yml
View file @
564d150e
...
...
@@ -9,7 +9,7 @@ configure_requires:
ExtUtils::MakeMaker:
6.59
distribution_type
:
module
dynamic_config
:
1
generated_by
:
'
Module::Install
version
1.0
5
'
generated_by
:
'
Module::Install
version
1.0
6
'
license
:
gpl2
meta-spec
:
url
:
http://module-build.sourceforge.net/META-spec-v1.4.html
...
...
@@ -25,4 +25,4 @@ requires:
perl
:
5.8.0
resources
:
license
:
http://opensource.org/licenses/gpl-2.0.php
version
:
0.05
version
:
0.05
_01
inc/Module/AutoInstall.pm
View file @
564d150e
...
...
@@ -8,7 +8,7 @@ use ExtUtils::MakeMaker ();
use
vars
qw{$VERSION}
;
BEGIN
{
$VERSION
=
'
1.0
5
';
$VERSION
=
'
1.0
6
';
}
# special map on pre-defined feature sets
...
...
inc/Module/Install.pm
View file @
564d150e
...
...
@@ -31,7 +31,7 @@ BEGIN {
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
$VERSION
=
'
1.0
5
';
$VERSION
=
'
1.0
6
';
# Storage for the pseudo-singleton
$MAIN
=
undef
;
...
...
inc/Module/Install/AutoInstall.pm
View file @
564d150e
...
...
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use
vars
qw{$VERSION @ISA $ISCORE}
;
BEGIN
{
$VERSION
=
'
1.0
5
';
$VERSION
=
'
1.0
6
';
@ISA
=
'
Module::Install::Base
';
$ISCORE
=
1
;
}
...
...
inc/Module/Install/Base.pm
View file @
564d150e
...
...
@@ -4,7 +4,7 @@ package Module::Install::Base;
use
strict
'
vars
';
use
vars
qw{$VERSION}
;
BEGIN
{
$VERSION
=
'
1.0
5
';
$VERSION
=
'
1.0
6
';
}
# Suspend handler for "redefined" warnings
...
...
inc/Module/Install/Can.pm
View file @
564d150e
...
...
@@ -3,13 +3,12 @@ package Module::Install::Can;
use
strict
;
use
Config
();
use
File::
Spec
();
use
ExtUtils::
MakeMaker
();
use
Module::Install::
Base
();
use
vars
qw{$VERSION @ISA $ISCORE}
;
BEGIN
{
$VERSION
=
'
1.0
5
';
$VERSION
=
'
1.0
6
';
@ISA
=
'
Module::Install::Base
';
$ISCORE
=
1
;
}
...
...
@@ -29,7 +28,7 @@ sub can_use {
eval
{
require
$mod
;
$pkg
->
VERSION
(
$ver
||
0
);
1
};
}
#
c
heck if we can run some command
#
C
heck if we can run some command
sub
can_run
{
my
(
$self
,
$cmd
)
=
@_
;
...
...
@@ -38,14 +37,88 @@ sub can_run {
for
my
$dir
((
split
/$Config::Config{path_sep}/
,
$ENV
{
PATH
}),
'
.
')
{
next
if
$dir
eq
'';
my
$abs
=
File::
Spec
->
catfile
(
$dir
,
$_
[
1
]);
require
File::
Spec
;
my
$abs
=
File::
Spec
->
catfile
(
$dir
,
$cmd
);
return
$abs
if
(
-
x
$abs
or
$abs
=
MM
->
maybe_command
(
$abs
));
}
return
;
}
# can we locate a (the) C compiler
# Can our C compiler environment build XS files
sub
can_xs
{
my
$self
=
shift
;
# Ensure we have the CBuilder module
$self
->
configure_requires
(
'
ExtUtils::CBuilder
'
=>
0.27
);
# Do we have the configure_requires checker?
local
$@
;
eval
"
require ExtUtils::CBuilder;
";
if
(
$@
)
{
# They don't obey configure_requires, so it is
# someone old and delicate. Try to avoid hurting
# them by falling back to an older simpler test.
return
$self
->
can_cc
();
}
# Do we have a working C compiler
my
$builder
=
ExtUtils::
CBuilder
->
new
(
quiet
=>
1
,
);
unless
(
$builder
->
have_compiler
)
{
# No working C compiler
return
0
;
}
# Write a C file representative of what XS becomes
require
File::
Temp
;
my
(
$FH
,
$tmpfile
)
=
File::Temp::
tempfile
(
"
compilexs-XXXXX
",
SUFFIX
=>
'
.c
',
);
binmode
$FH
;
print
$FH
<<'END_C';
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
int main(int argc, char **argv) {
return 0;
}
int boot_sanexs() {
return 1;
}
END_C
close
$FH
;
# Can the C compiler access the same headers XS does
my
@libs
=
();
my
$object
=
undef
;
eval
{
local
$^W
=
0
;
$object
=
$builder
->
compile
(
source
=>
$tmpfile
,
);
@libs
=
$builder
->
link
(
objects
=>
$object
,
module_name
=>
'
sanexs
',
);
};
my
$result
=
$@
?
0
:
1
;
# Clean up all the build files
foreach
(
$tmpfile
,
$object
,
@libs
)
{
next
unless
defined
$_
;
1
while
unlink
;
}
return
$result
;
}
# Can we locate a (the) C compiler
sub
can_cc
{
my
$self
=
shift
;
my
@chunks
=
split
(
/ /
,
$
Config::
Config
{
cc
})
or
return
;
...
...
@@ -78,4 +151,4 @@ if ( $^O eq 'cygwin' ) {
__END__
#line
15
6
#line
23
6
inc/Module/Install/Fetch.pm
View file @
564d150e
...
...
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use
vars
qw{$VERSION @ISA $ISCORE}
;
BEGIN
{
$VERSION
=
'
1.0
5
';
$VERSION
=
'
1.0
6
';
@ISA
=
'
Module::Install::Base
';
$ISCORE
=
1
;
}
...
...
inc/Module/Install/Include.pm
View file @
564d150e
...
...
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use
vars
qw{$VERSION @ISA $ISCORE}
;
BEGIN
{
$VERSION
=
'
1.0
5
';
$VERSION
=
'
1.0
6
';
@ISA
=
'
Module::Install::Base
';
$ISCORE
=
1
;
}
...
...
inc/Module/Install/Makefile.pm
View file @
564d150e
...
...
@@ -8,7 +8,7 @@ use Fcntl qw/:flock :seek/;
use
vars
qw{$VERSION
@ISA
$ISCORE};
BEGIN
{
$VERSION
=
'1.0
5
'
;
$VERSION
=
'1.0
6
'
;
@ISA = 'Module
::
Install::Base';
$ISCORE
=
1
;
}
...
...
inc/Module/Install/Metadata.pm
View file @
564d150e
...
...
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use
vars
qw{$VERSION @ISA $ISCORE}
;
BEGIN
{
$VERSION
=
'
1.0
5
';
$VERSION
=
'
1.0
6
';
@ISA
=
'
Module::Install::Base
';
$ISCORE
=
1
;
}
...
...
inc/Module/Install/Win32.pm
View file @
564d150e
...
...
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use
vars
qw{$VERSION @ISA $ISCORE}
;
BEGIN
{
$VERSION
=
'
1.0
5
';
$VERSION
=
'
1.0
6
';
@ISA
=
'
Module::Install::Base
';
$ISCORE
=
1
;
}
...
...
inc/Module/Install/WriteAll.pm
View file @
564d150e
...
...
@@ -6,7 +6,7 @@ use Module::Install::Base ();
use
vars
qw{$VERSION @ISA $ISCORE}
;
BEGIN
{
$VERSION
=
'
1.0
5
';
$VERSION
=
'
1.0
6
';
@ISA
=
qw{Module::Install::Base}
;
$ISCORE
=
1
;
}
...
...
lib/RT/Extension/SLA.pm
View file @
564d150e
...
...
@@ -4,7 +4,7 @@ use warnings;
package
RT::Extension::
SLA
;
our
$VERSION
=
'
0.05
';
our
$VERSION
=
'
0.05
_01
';
=head1 NAME
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment