← Back to branch summary

~ubuntu-branches/ubuntu/trusty/libnet-dns-perl/trusty-proposed

« back to all changes in this revision

Viewing changes to lib/Net/DNS/Question.pm

  • Committer: Bazaar Package Importer
  • Author(s): Florian Hinzmann
  • Date: 2006-03-31 18:51:36 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20060331185136-gpxyhfnnnt9f9b1n
Tags: 0.57-1
New upstream release.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Net/DNS/Question.pm
1
1
package Net::DNS::Question;
2
2
#
3
 
# $Id: Question.pm 388 2005-06-22 10:06:05Z olaf $
 
3
# $Id: Question.pm 546 2005-12-16 15:23:03Z olaf $
4
4
#
5
5
use strict;
6
6
BEGIN { 
12
12
use Carp;
13
13
use Net::DNS;
14
14
 
15
 
$VERSION = (qw$LastChangedRevision: 388 $)[1];
 
15
$VERSION = (qw$LastChangedRevision: 546 $)[1];
16
16
 
17
17
=head1 NAME
18
18
 
63
63
                ($qtype, $qclass) = ($qclass, $qtype);
64
64
        }
65
65
 
66
 
        $qname =~ s/^\.+//;
67
 
        $qname =~ s/\.+$//;
 
66
        $qname =~ s/^\.+//o;
 
67
        $qname =~ s/\.+$//o;
68
68
 
69
69
        $self{"qname"}  = $qname;
70
70
        $self{"qtype"}  = $qtype;
112
112
        my ($self) = @_;
113
113
        
114
114
        my $name = $AUTOLOAD;
115
 
        $name =~ s/.*://;
 
115
        $name =~ s/.*://o;
116
116
 
117
117
        Carp::croak "$name: no such method" unless exists $self->{$name};
118
118