Codebase list libnet-dropbox-api-perl / 8bc7458
Merge tag 'upstream/1.9' Upstream version 1.9 Salvatore Bonaccorso 11 years ago
14 changed file(s) with 137 addition(s) and 42 deletion(s). Raw diff Collapse all Expand all
+3
-0
Changes less more
00 Revision history for Net-Dropbox
1
2 1.9 2012-10-23T20:26:55
3 updated Module::Install
14
25 1.8 2012-03-23T12:47:13
36 Thanks to SureVoIP for updating to v1 API
+2
-2
META.yml less more
99 ExtUtils::MakeMaker: 6.36
1010 distribution_type: module
1111 dynamic_config: 1
12 generated_by: 'Module::Install version 1.04'
12 generated_by: 'Module::Install version 1.06'
1313 license: perl
1414 meta-spec:
1515 url: http://module-build.sourceforge.net/META-spec-v1.4.html
3434 resources:
3535 license: http://dev.perl.org/licenses/
3636 repository: https://github.com/norbu09/Net--Dropbox
37 version: 1.8
37 version: 1.9
+26
-11
inc/Module/AutoInstall.pm less more
22
33 use strict;
44 use Cwd ();
5 use File::Spec ();
56 use ExtUtils::MakeMaker ();
67
78 use vars qw{$VERSION};
89 BEGIN {
9 $VERSION = '1.04';
10 $VERSION = '1.06';
1011 }
1112
1213 # special map on pre-defined feature sets
186187 }
187188
188189 # XXX: check for conflicts and uninstalls(!) them.
189 my $cur = _load($mod);
190 my $cur = _version_of($mod);
190191 if (_version_cmp ($cur, $arg) >= 0)
191192 {
192193 print "loaded. ($cur" . ( $arg ? " >= $arg" : '' ) . ")\n";
347348 while ( my ( $pkg, $ver ) = splice( @_, 0, 2 ) ) {
348349
349350 # grep out those already installed
350 if ( _version_cmp( _load($pkg), $ver ) >= 0 ) {
351 if ( _version_cmp( _version_of($pkg), $ver ) >= 0 ) {
351352 push @installed, $pkg;
352353 }
353354 else {
356357 }
357358
358359 if ($UpgradeDeps) {
359 push @modules, @installed;
360 @installed = ();
360 push @modules, @installed;
361 @installed = ();
361362 }
362363
363364 return @installed unless @modules; # nothing to do
391392
392393 # see if we have successfully installed them
393394 while ( my ( $pkg, $ver ) = splice( @modules, 0, 2 ) ) {
394 if ( _version_cmp( _load($pkg), $ver ) >= 0 ) {
395 if ( _version_cmp( _version_of($pkg), $ver ) >= 0 ) {
395396 push @installed, $pkg;
396397 }
397398 elsif ( $args{do_once} and open( FAILED, '>> .#autoinstall.failed' ) ) {
620621 my $ver = shift;
621622
622623 return
623 if _version_cmp( _load($class), $ver ) >= 0; # no need to upgrade
624 if _version_cmp( _version_of($class), $ver ) >= 0; # no need to upgrade
624625
625626 if (
626627 _prompt( "==> A newer version of $class ($ver) is required. Install?",
705706
706707 # load a module and return the version it reports
707708 sub _load {
708 my $mod = pop; # class/instance doesn't matter
709 my $mod = pop; # method/function doesn't matter
709710 my $file = $mod;
710
711711 $file =~ s|::|/|g;
712712 $file .= '.pm';
713
714713 local $@;
715714 return eval { require $file; $mod->VERSION } || ( $@ ? undef: 0 );
715 }
716
717 # report version without loading a module
718 sub _version_of {
719 my $mod = pop; # method/function doesn't matter
720 my $file = $mod;
721 $file =~ s|::|/|g;
722 $file .= '.pm';
723 foreach my $dir ( @INC ) {
724 next if ref $dir;
725 my $path = File::Spec->catfile($dir, $file);
726 next unless -e $path;
727 require ExtUtils::MM_Unix;
728 return ExtUtils::MM_Unix->parse_version($path);
729 }
730 return undef;
716731 }
717732
718733 # Load CPAN.pm and it's configuration
911926
912927 __END__
913928
914 #line 1178
929 #line 1193
+1
-1
inc/Module/Install/AutoInstall.pm less more
55
66 use vars qw{$VERSION @ISA $ISCORE};
77 BEGIN {
8 $VERSION = '1.04';
8 $VERSION = '1.06';
99 @ISA = 'Module::Install::Base';
1010 $ISCORE = 1;
1111 }
+1
-1
inc/Module/Install/Base.pm less more
33 use strict 'vars';
44 use vars qw{$VERSION};
55 BEGIN {
6 $VERSION = '1.04';
6 $VERSION = '1.06';
77 }
88
99 # Suspend handler for "redefined" warnings
+79
-6
inc/Module/Install/Can.pm less more
22
33 use strict;
44 use Config ();
5 use File::Spec ();
65 use ExtUtils::MakeMaker ();
76 use Module::Install::Base ();
87
98 use vars qw{$VERSION @ISA $ISCORE};
109 BEGIN {
11 $VERSION = '1.04';
10 $VERSION = '1.06';
1211 @ISA = 'Module::Install::Base';
1312 $ISCORE = 1;
1413 }
2827 eval { require $mod; $pkg->VERSION($ver || 0); 1 };
2928 }
3029
31 # check if we can run some command
30 # Check if we can run some command
3231 sub can_run {
3332 my ($self, $cmd) = @_;
3433
3736
3837 for my $dir ((split /$Config::Config{path_sep}/, $ENV{PATH}), '.') {
3938 next if $dir eq '';
40 my $abs = File::Spec->catfile($dir, $_[1]);
39 require File::Spec;
40 my $abs = File::Spec->catfile($dir, $cmd);
4141 return $abs if (-x $abs or $abs = MM->maybe_command($abs));
4242 }
4343
4444 return;
4545 }
4646
47 # can we locate a (the) C compiler
47 # Can our C compiler environment build XS files
48 sub can_xs {
49 my $self = shift;
50
51 # Ensure we have the CBuilder module
52 $self->configure_requires( 'ExtUtils::CBuilder' => 0.27 );
53
54 # Do we have the configure_requires checker?
55 local $@;
56 eval "require ExtUtils::CBuilder;";
57 if ( $@ ) {
58 # They don't obey configure_requires, so it is
59 # someone old and delicate. Try to avoid hurting
60 # them by falling back to an older simpler test.
61 return $self->can_cc();
62 }
63
64 # Do we have a working C compiler
65 my $builder = ExtUtils::CBuilder->new(
66 quiet => 1,
67 );
68 unless ( $builder->have_compiler ) {
69 # No working C compiler
70 return 0;
71 }
72
73 # Write a C file representative of what XS becomes
74 require File::Temp;
75 my ( $FH, $tmpfile ) = File::Temp::tempfile(
76 "compilexs-XXXXX",
77 SUFFIX => '.c',
78 );
79 binmode $FH;
80 print $FH <<'END_C';
81 #include "EXTERN.h"
82 #include "perl.h"
83 #include "XSUB.h"
84
85 int main(int argc, char **argv) {
86 return 0;
87 }
88
89 int boot_sanexs() {
90 return 1;
91 }
92
93 END_C
94 close $FH;
95
96 # Can the C compiler access the same headers XS does
97 my @libs = ();
98 my $object = undef;
99 eval {
100 local $^W = 0;
101 $object = $builder->compile(
102 source => $tmpfile,
103 );
104 @libs = $builder->link(
105 objects => $object,
106 module_name => 'sanexs',
107 );
108 };
109 my $result = $@ ? 0 : 1;
110
111 # Clean up all the build files
112 foreach ( $tmpfile, $object, @libs ) {
113 next unless defined $_;
114 1 while unlink;
115 }
116
117 return $result;
118 }
119
120 # Can we locate a (the) C compiler
48121 sub can_cc {
49122 my $self = shift;
50123 my @chunks = split(/ /, $Config::Config{cc}) or return;
77150
78151 __END__
79152
80 #line 156
153 #line 236
+1
-1
inc/Module/Install/Fetch.pm less more
55
66 use vars qw{$VERSION @ISA $ISCORE};
77 BEGIN {
8 $VERSION = '1.04';
8 $VERSION = '1.06';
99 @ISA = 'Module::Install::Base';
1010 $ISCORE = 1;
1111 }
+1
-1
inc/Module/Install/Include.pm less more
55
66 use vars qw{$VERSION @ISA $ISCORE};
77 BEGIN {
8 $VERSION = '1.04';
8 $VERSION = '1.06';
99 @ISA = 'Module::Install::Base';
1010 $ISCORE = 1;
1111 }
+13
-9
inc/Module/Install/Makefile.pm less more
77
88 use vars qw{$VERSION @ISA $ISCORE};
99 BEGIN {
10 $VERSION = '1.04';
10 $VERSION = '1.06';
1111 @ISA = 'Module::Install::Base';
1212 $ISCORE = 1;
1313 }
214214 require ExtUtils::MakeMaker;
215215
216216 if ( $perl_version and $self->_cmp($perl_version, '5.006') >= 0 ) {
217 # MakeMaker can complain about module versions that include
218 # an underscore, even though its own version may contain one!
219 # Hence the funny regexp to get rid of it. See RT #35800
220 # for details.
221 my ($v) = $ExtUtils::MakeMaker::VERSION =~ /^(\d+\.\d+)/;
222 $self->build_requires( 'ExtUtils::MakeMaker' => $v );
223 $self->configure_requires( 'ExtUtils::MakeMaker' => $v );
217 # This previous attempted to inherit the version of
218 # ExtUtils::MakeMaker in use by the module author, but this
219 # was found to be untenable as some authors build releases
220 # using future dev versions of EU:MM that nobody else has.
221 # Instead, #toolchain suggests we use 6.59 which is the most
222 # stable version on CPAN at time of writing and is, to quote
223 # ribasushi, "not terminally fucked, > and tested enough".
224 # TODO: We will now need to maintain this over time to push
225 # the version up as new versions are released.
226 $self->build_requires( 'ExtUtils::MakeMaker' => 6.59 );
227 $self->configure_requires( 'ExtUtils::MakeMaker' => 6.59 );
224228 } else {
225229 # Allow legacy-compatibility with 5.005 by depending on the
226230 # most recent EU:MM that supported 5.005.
410414
411415 __END__
412416
413 #line 540
417 #line 544
+1
-1
inc/Module/Install/Metadata.pm less more
55
66 use vars qw{$VERSION @ISA $ISCORE};
77 BEGIN {
8 $VERSION = '1.04';
8 $VERSION = '1.06';
99 @ISA = 'Module::Install::Base';
1010 $ISCORE = 1;
1111 }
+1
-1
inc/Module/Install/Win32.pm less more
55
66 use vars qw{$VERSION @ISA $ISCORE};
77 BEGIN {
8 $VERSION = '1.04';
8 $VERSION = '1.06';
99 @ISA = 'Module::Install::Base';
1010 $ISCORE = 1;
1111 }
+1
-1
inc/Module/Install/WriteAll.pm less more
55
66 use vars qw{$VERSION @ISA $ISCORE};
77 BEGIN {
8 $VERSION = '1.04';
8 $VERSION = '1.06';
99 @ISA = qw{Module::Install::Base};
1010 $ISCORE = 1;
1111 }
+2
-2
inc/Module/Install.pm less more
3030 # This is not enforced yet, but will be some time in the next few
3131 # releases once we can make sure it won't clash with custom
3232 # Module::Install extensions.
33 $VERSION = '1.04';
33 $VERSION = '1.06';
3434
3535 # Storage for the pseudo-singleton
3636 $MAIN = undef;
466466
467467 1;
468468
469 # Copyright 2008 - 2011 Adam Kennedy.
469 # Copyright 2008 - 2012 Adam Kennedy.
+5
-5
lib/Net/Dropbox/API.pm less more
1616
1717 =head1 VERSION
1818
19 Version 1.8.8.8
20
21 =cut
22
23 our $VERSION = '1.8';
19 Version 1.9.8
20
21 =cut
22
23 our $VERSION = '1.9';
2424
2525
2626 =head1 SYNOPSIS