Changeset 310 for branches

Timestamp:

03/09/06 11:14:40 (19 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Haul in another dependency: Sys::SigAction so CustIDCK.pm can
properly catch a failed connection to the DB host. More portable
than stock Perl signal handling, and works around changes in
signal handling for Perl 5.8.x.

File:

• branches/stable/cgi-bin/CustIDCK.pm (modified) (2 diffs)

branches/stable/cgi-bin/CustIDCK.pm

@@ -15 +15 @@
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 use DBI;
+
+# Supposed to provide cross-Perl-version signal handling.
+# Not part of stock Debian Perl, use dh-make-perl or just
+#  install straight from CPAN.
+# Not part of stock RHEL/CentOS, use cpan2perl, cpanflute,
+#  or just install straight from CPAN.
+use Sys::SigAction;
 
 $VERSION        = 1.00;
@@ -36 +43 @@
   my $dbh;
   eval {
-    local $SIG{ALRM} = sub { die "failed connection to newbilling!!" };
+    my $h = Sys::SigAction::set_sig_handler( 'ALRM',
+      sub { die "failed connection to apex!!"; } );
+
     alarm 3;    # 3-second timeout.  This may be too aggressive.