view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
else {
print
"*** Dependencies will be installed the next time you type '$make'.\n";
}
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::getcwd() );
view release on metacpan or search on metacpan
- fix memory leak in case where chunk exists on target, but local
digest database was lost, and digest of chunk had to be recomputed.
in that case, the raw chunk was kept in memory until the end
(which it likely would never reach, accumulating GBs of RAM)
- make PositionedChunk use the digest cache (which I guess was
re-fleshed out in the big refactor but never used...). so
iterative backups are fast again... no re-reading all files
in, blowing away all caches.
- clean up old, dead code in Amazon target (the old inventory db which
view release on metacpan or search on metacpan
[setup](https://metacpan.org/pod/setup) and [run](https://metacpan.org/pod/run) take the following options as a hashref
### service
Default: `$0` modulo some cleanup magic, see ["Guessing the service name from $0"](#guessing-the-service-name-from-0)
The name of the service to use.
If you do not want to use this magic, pass in the explicit service
name you want to use. This could be hardcoded, or you could come up
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
patches/diff_Curses-1.06 view on Meta::CPAN
+ @inc = split /\Q$Config::Config{path_sep}/, $ENV{C_INCLUDE_PATH};
+ @inc = map "-I$_", grep -r "$_/form.h", @inc;
+ }
+}
+
## OS default guess for $inc default guess for $libs
#
my $guess_cfg = {
@@ -130,7 +139,7 @@ my $guess_cfg = {
'openbsd' => [ '' => '-lcurses -ltermcap' ],
'os2' => {
'bsd' => [ '' => '-lcurses -ltermcap' ],
- 'ncurses' => [ '' => '-lncurses' ],
+ 'ncurses' => [ "@inc", => '-lncurses -lncurses_s -lpanel_s -lmenu_s -lform_s'],
patches/diff_Curses-1.06 view on Meta::CPAN
- elsif ($arg eq 'FORMS') { $forms = $arg }
- else { push @argv, $arg }
-}
-@ARGV = @argv; # pass non-Curses arguments to MakeMaker
-
my $guess = $guess_cfg->{$^O};
my $source = "hints/c-$^O";
@@ -184,6 +181,29 @@ if (ref $guess eq 'HASH') {
if (ref $guess ne 'ARRAY') {
die "FATAL: internal error: guess_cfg is bad\n";
}
+
+if ($guess->[1] and $] >= 5.008001) {
+ require ExtUtils::Liblist; # Buggy before this
+ ($list) = ExtUtils::Liblist->ext($guess->[1]);
+ $panels = 'PANELS' if $list =~ /-lpanel/;
+ $menus = 'MENUS' if $list =~ /-lmenu/;
+ $forms = 'FORMS' if $list =~ /-lform/;
+}
+
view release on metacpan or search on metacpan
bin/pbib-export.pl view on Meta::CPAN
# clear errors. Not really necessary.
# Biblio::BP::errors('clear');
### CAUTION: This currently works only if the file is not yet open (I guess ...)
Biblio::BP::export($outfile, $refs);
sub dieusage {
my($prog) = substr($0,rindex($0,'/')+1);
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
else {
print
"*** Dependencies will be installed the next time you type '$make'.\n";
}
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
lib/WWW/Scraper/Dice.pm view on Meta::CPAN
,'redirectMethod' => 'GET' # Let me quote W3C HTTP 1.1 Specification (at http://www.w3.org/Protocols/rfc2068/rfc2068)
# Note: When automatically redirecting a POST request after receiving
# a 302 status code, some existing HTTP/1.0 user agents will
# erroneously change it into a GET request.
# Yet Dice.com *relies* on the browser to change it to 'GET', otherwise it don't work!
# I guess that's what's so nice about standards - there's so many to choose from!
# This is the basic URL on which to build the query.
,'url' => 'http://jobsearch.dice.com/jobsearch/jobsearch.cgi?'
# This is the Scraper attributes => native input fields mapping
,'nativeQuery' => 'query'
view release on metacpan or search on metacpan
lib/Business/AT/SSN.pm view on Meta::CPAN
sub get_dob {
my $self = shift;
my ($d, $m, $y) = $self->ssn =~ /^\d{4}(\d{2})(\d{2})(\d{2})$/;
my $now = DateTime->now;
# guess a year
$y = (($now->year) - ($y + 1900) < 100) ? $y + 1900 : $y + 2000;
try {
my $dt = DateTime->new(year => $y, month => $m, day => $d);
$self->date_of_birth( $dt );
return 1;
view release on metacpan or search on metacpan
lib/Business/BR/Biz.pm view on Meta::CPAN
but doesn't actually exist in government databases.
=head1 SEE ALSO
As you might have guessed, this is not the first Perl distribution
to approach this kind of functionality. Take a look at
http://search.cpan.org/search?module=Brasil::Checar::CPF
http://search.cpan.org/search?module=Brasil::Checar::CGC
http://search.cpan.org/~mamawe/Algorithm-CheckDigits-0.38/CheckDigits/M11_004.pm
view release on metacpan or search on metacpan
lib/Business/BR/RG.pm view on Meta::CPAN
dv[9] * 100 = 0 (mod 11)
=head1 BUGS
until now I do not found any RG that has less than 8 digits.
But, I guess, old people still have it.
For now, this is the only way that I found to check RG.
If you found any bug, feel free to send e-mail, open an issue on github or open a RT.
=head1 SEE ALSO
view release on metacpan or search on metacpan
lib/Business/CanadaPost.pm view on Meta::CPAN
=back
=head1 OBJECT METHODS
Most errors are fatal. The tool tries to guess for you if a value seems
out of whack.
=head2 C<geterror>
Used to fetch the error set when a function return 0 for failure.
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
else {
print
"*** Dependencies will be installed the next time you type '$make'.\n";
}
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::getcwd() );
view release on metacpan or search on metacpan
lib/Business/DK/CPR.pm view on Meta::CPAN
got caught riding the train without a valid ticket the personnel would only
check the validity of you CPR number, so all you have to remember was your
birthday and 4 more digits not being the actual last 4 digits of your CPR
number.
I guess this was the first hack I ever heard about and saw - I never tried it
out, but back then it really fascinated me and my interest in computers was
really sparked.
=head1 AUTHOR
view release on metacpan or search on metacpan
lib/Business/EDI/CodeList/AlgorithmParameterValue.pm view on Meta::CPAN
package Business::EDI::CodeList::AlgorithmParameterValue;
use base 'Business::EDI::CodeList';
my $VERSION = 0.02;
sub list_number {return "0554";}
my $usage = 'B'; # guessed value
# 0554 Algorithm parameter value []
# Desc:
# Repr:
my %code_hash = (
view release on metacpan or search on metacpan
lib/Business/ID/POM.pm view on Meta::CPAN
$res->{trad_packaging_volume_code} = $5;
if ($res->{trad_company_type_code} == 1) { $res->{trad_company_type_id} = 'pabrik farmasi' }
elsif ($res->{trad_company_type_code} == 2) { $res->{trad_company_type_id} = 'pabrik jamu' }
elsif ($res->{trad_company_type_code} == 3) { $res->{trad_company_type_id} = 'perusahaan jamu' }
elsif ($res->{trad_company_type_code} == 4) { $res->{trad_company_type_id} = 'pabrik luar negeri' } # not documented, i guessed
else {
$res->{trad_company_type_id} = '?';
log_warn "Unknown traditional medicine company type code ($res->{trad_company_type_code}), known code is 1/2/3/4";
}
view release on metacpan or search on metacpan
ISBN13.
20210112.005_03 2021-02-15T17:43:08Z
* I think the CPAN Tester failures are using older versions of
Business::ISBN (older than 3.005 all seem to fail). I assumed they
started fresh, but I guess not. Require a recent version in the
default_data test.
20210112.005_02 2021-02-14T05:07:05Z
* Try harder to see what's going on in CPAN Testers
view release on metacpan or search on metacpan
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef UVTYPE
# define UVTYPE unsigned IVTYPE
#endif
view release on metacpan or search on metacpan
$self->logtxn(\@m);
}
# send a Transaction message (and receive a response as required)
# - confirm that the TxnRef is consistant (as per Ingenico guidelines)
# - I guess it is possible for transactions requests/responses to get
# mixed up if someone misses a beat.
# send a request of $type, receive the TT_TRANS_RESPONSE message
my $m = $self->_message($args, $type, TT_TRANS_RESPONSE);
view release on metacpan or search on metacpan
key_utils_wrap.c view on Meta::CPAN
#ifndef IVSIZE
# ifdef LONGSIZE
# define IVSIZE LONGSIZE
# else
# define IVSIZE 4 /* A bold guess, but the best we can make. */
# endif
#endif
#ifndef INT2PTR
# if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE)
view release on metacpan or search on metacpan
lib/Business/OnlinePayment/IATSPayments.pm view on Meta::CPAN
# ACCOUNT TYPE MAP
my %account_types = ('personal checking' => 'CHECKING',
'personal savings' => 'SAVINGS',
'business checking' => 'CHECKING',
'business savings' => 'SAVINGS',
#not technically B:OP valid i guess?
'checking' => 'CHECKING',
'savings' => 'SAVINGS',
);
$content{'account_type'} = $account_types{lc($content{'account_type'})}
|| $content{'account_type'};
view release on metacpan or search on metacpan
# ACCOUNT TYPE MAP
my %account_types = ('personal checking' => 'CHECKING',
'personal savings' => 'SAVINGS',
'business checking' => 'CHECKING',
'business savings' => 'SAVINGS',
#not technically B:OP valid i guess?
'checking' => 'CHECKING',
'savings' => 'SAVINGS',
);
$content{'account_type'} = $account_types{lc($content{'account_type'})}
|| $content{'account_type'};
view release on metacpan or search on metacpan
OpenECHO.pm view on Meta::CPAN
#XXX hosted order_type?
$self->{_content}{order_type} = 'S';
#XXX counter field shouldn't be just a random integer (but it does need a
#default this way i guess...
$self->{_content}{counter} = int(rand(2**31));
if ( $self->transaction_type =~ /^[EA][VS]$/ ) {
#ccexp_month & ccexp_year
$self->{_content}{'expiration'} =~ /^(\d+)\D+\d*(\d{2})$/
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );
view release on metacpan or search on metacpan
* capable of those should have IVSIZE already. */
#if !defined(IVSIZE) && defined(LONGSIZE)
# define IVSIZE LONGSIZE
#endif
#ifndef IVSIZE
# define IVSIZE 4 /* A bold guess, but the best we can make. */
#endif
#ifndef UVSIZE
# define UVSIZE IVSIZE
#endif
view release on metacpan or search on metacpan
0.71 Aug 06 2003
- International USPS bug fixes.
+ Instead of guessing the service by name, we use service type, then
mail type. This may result in getting the wrong service, however.
Needs more analyzation.
- Many, many additional tests.
- Very much improved debug/error handling.
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
require Config;
print
"*** Dependencies will be installed the next time you type '$Config::Config{make}'.\n";
# make an educated guess of whether we'll need root permission.
print " (You may need to do that as the 'root' user.)\n"
if eval '$>';
}
print "*** $class configuration finished.\n";
inc/Module/AutoInstall.pm view on Meta::CPAN
or _load('CPANPLUS::Shell::Default')
)
);
}
# make guesses on whether we're under the CPAN installation directory
sub _under_cpan {
require Cwd;
require File::Spec;
my $cwd = File::Spec->canonpath( Cwd::cwd() );