Algorithm-Diff-XS
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# releases once we can make sure it won't clash with custom# Module::Install extensions.$VERSION='0.67';}# Whether or not inc::Module::Install is actually loaded, the# $INC{inc/Module/Install.pm} is what will still get set as long as# the caller loaded module this in the documented manner.# If not set, the caller may NOT have loaded the bundled version, and thus# they may not have a MI version that works with the Makefile.PL. This would# result in false errors or unexpected behaviour. And we don't want that.my$file=join('/','inc',split/::/, __PACKAGE__ ) .'.pm';unless($INC{$file} ) {die<<"END_DIE";Please invoke ${\__PACKAGE__}with:not:use${\__PACKAGE__};
--help show short help--patch=filewriteone patch filewithchanges--copy=suffixwritechanged copieswithsuffix--compat-version=version provide compatibilitywithPerl version--cplusplusacceptC++ comments--quiet don't output anything except fatal errors--nodiag don't show diagnostics--nohints don't show hints--nochanges don't suggest changes--nofilter don't filter input files--list-provided list provided API--list-unsupported list unsupported API--api-info=name show Perl API portability information=head1 COMPATIBILITY
=head2 --cplusplusUsually, F<ppport.h> will detect C++ style comments andreplace them with C style comments for portability reasons.Using this option instructs F<ppport.h> to leave C++comments untouched.=head2 --quietBe quiet. Don't print anything except fatal errors.=head2 --nodiagDon't output any diagnostic messages. Only portabilityalerts will be printed.=head2 --nohintsDon't output any hints. Hints often contain useful portabilitynotes.
PUSHi|||PUSHmortal|5.009002||pPUSHn|||PUSHp|||PUSHs|||PUSHu|5.004000||pPUTBACK|||PerlIO_clearerr||5.007003|PerlIO_close||5.007003|PerlIO_eof||5.007003|PerlIO_error||5.007003|PerlIO_fileno||5.007003|PerlIO_fill||5.007003|PerlIO_flush||5.007003|PerlIO_get_base||5.007003|PerlIO_get_bufsiz||5.007003|PerlIO_get_cnt||5.007003|PerlIO_get_ptr||5.007003|PerlIO_read||5.007003|PerlIO_seek||5.007003|PerlIO_set_cnt||5.007003|
ptr_table_clear|||ptr_table_fetch|||ptr_table_free|||ptr_table_new|||ptr_table_split|||ptr_table_store|||push_scope|||put_byte|||pv_display||5.006000|pv_uni_display||5.007003|qerror|||re_croak2|||re_dup|||re_intuit_start||5.006000|re_intuit_string||5.006000|realloc||5.007002|nreentrant_free|||reentrant_init|||reentrant_retry|||vnreentrant_size|||refkids|||
vwarner||5.006000|vwarn||5.006000|wait4pid|||warn_nocontext|||vnwarner_nocontext|||vnwarner||5.006000|vwarn|||vwatch|||whichsig|||write_to_stderr|||yyerror|||yylex|||yyparse|||yywarn|||);if(exists$opt{'list-unsupported'}) {my$f;for$f(sort{lc$acmplc$b}keys%API) {nextunless$API{$f}{todo};"$f ",'.'x(40-length($f))," ", format_version($API{$f}{todo}),"\n";
if($cppc) {my$s=$cppc!= 1 ?'s':'';warning("Uses $cppc C++ style comment$s, which is not portable");}if($file{changes}) {if(exists$opt{copy}) {my$newfile="$filename$opt{copy}";if(-e$newfile) {error("'$newfile' already exists, refusing to write copy of '$filename'");}else{local*F;if(openF,">$newfile") {info("Writing copy of '$filename' with changes to '$newfile'");F$c;closeF;}else{error("Cannot open '$newfile' for writing: $!");}}}elsif(exists$opt{patch} ||$opt{changes}) {if(exists$opt{patch}) {unless($patch_opened) {if(openPATCH,">$opt{patch}") {$patch_opened= 1;}else{error("Cannot open '$opt{patch}' for writing: $!");delete$opt{patch};$opt{changes} = 1;gotofallback;}}mydiff(\*PATCH,$filename,$c);}else{fallback:info("Suggested changes:");
if(!defined$diff) {$diff= run_diff('diff -u',$file,$str);}if(!defined$diff) {$diff= run_diff('diff',$file,$str);}if(!defined$diff) {error("Cannot generate a diff. Please install Text::Diff or use --copy.");return;}F$diff;}subrun_diff{my($prog,$file,$str) =@_;
$diff.=$_;}closeF;unlink$tmp;return$diff;}unlink$tmp;}else{error("Cannot open '$tmp' for writing: $!");}returnundef;}subcan_use{eval"use @_;";return$@ eq'';}
$opt{quiet} andreturn;$opt{diag} and@_,"\n";}subwarning{$opt{quiet} andreturn;"*** ",@_,"\n";}suberror{"*** ERROR: ",@_,"\n";}my%given_hints;subhint{$opt{quiet} andreturn;$opt{hints} orreturn;my$func=shift;
/* Replace: 0 */# endif#endif#define PERL_BCDVERSION ((PERL_REVISION * 0x1000000L) + (PERL_VERSION * 0x1000L) + PERL_SUBVERSION)(or greater), but who knows.*/#if PERL_REVISION != 5# error ppport.h only works with Perl version 5#endif /* PERL_REVISION != 5 */#ifdef I_LIMITS# include <limits.h>#endif#ifndef PERL_UCHAR_MIN# define PERL_UCHAR_MIN ((unsigned char)0)#endif
# define eval_sv perl_eval_sv#endif/* Replace: 0 *//* Replace perl_eval_pvwitheval_pv *//* eval_pv depends on eval_sv */#ifndef eval_pv#if defined(NEED_eval_pv)static SV* DPPP_(my_eval_pv)(char*p, I32 croak_on_error);static#elseextern SV* DPPP_(my_eval_pv)(char*p, I32 croak_on_error);#endif#ifdef eval_pv# undef eval_pv#endif#define eval_pv(a,b) DPPP_(my_eval_pv)(aTHX_ a,b)#define Perl_eval_pv DPPP_(my_eval_pv)#if defined(NEED_eval_pv) || defined(NEED_eval_pv_GLOBAL)SV*DPPP_(my_eval_pv)(char*p, I32 croak_on_error){dSP;SV* sv = newSVpv(p, 0);PUSHMARK(sp);eval_sv(sv, G_SCALAR);SvREFCNT_dec(sv);SPAGAIN;sv = POPs;PUTBACK;if(croak_on_error && SvTRUE(GvSV(errgv)))croak(SvPVx(GvSV(errgv), na));returnsv;}#endif#endif#ifndef newRV_inc# define newRV_inc(sv) newRV(sv) /* Replace */#endif
( run in 0.844 second using v1.01-cache-2.11-cpan-95122f20152 )