1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#!/usr/bin/perl
# This is a stub module that just uses the new module, and is here for
# backwards-compatability with pograms that use the old name.
package Debian::DebConf::Client::ConfModule;
use warnings;
use strict;
use Debconf::Client::ConfModule;
use Debconf::Log qw{debug};
print STDERR "Debian::DebConf::Client::ConfModule is deprecated, please use Debconf::Client::ConfModule instead.\n";
sub import {
splice @_, 0, 1 => Debconf::Client::ConfModule;
goto &{Debconf::Client::ConfModule->can('import')};
}
sub AUTOLOAD {
(my $sub = $AUTOLOAD) =~ s/.*:://;
*$sub = \&{"Debconf::Client::ConfModule::$sub"};
goto &$sub;
}
1
|
