← Back to branch summary

~ubuntu-branches/ubuntu/edgy/libwww-perl/edgy

« back to all changes in this revision

Viewing changes to lib/WWW/RobotRules/AnyDBM_File.pm

  • Committer: Bazaar Package Importer
  • Author(s): Jay Bonci
  • Date: 2005-02-13 18:45:32 UTC
  • mfrom: (2.1.2 hoary)
  • Revision ID: james.westby@ubuntu.com-20050213184532-67qvopi4wre3010u
Tags: 5.803-4
http://bugs.debian.org/294597
http://bugs.debian.org/294595
* Make GET/POST/HEAD symlinks (Closes: #294597)
* lwp-requests now honors -b when dumping links (Closes: #294595)
  - Thanks to giuseppe bonacci for the patch
* Moved symlinks to a libwww-perl.links file

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/WWW/RobotRules/AnyDBM_File.pm
1
 
# $Id: AnyDBM_File.pm,v 1.10 2001/10/26 20:32:28 gisle Exp $
 
1
# $Id: AnyDBM_File.pm,v 1.11 2003/10/23 19:11:33 uid39246 Exp $
2
2
 
3
3
package WWW::RobotRules::AnyDBM_File;
4
4
 
5
5
require  WWW::RobotRules;
6
6
@ISA = qw(WWW::RobotRules);
7
 
$VERSION = sprintf("%d.%02d", q$Revision: 1.10 $ =~ /(\d+)\.(\d+)/);
 
7
$VERSION = sprintf("%d.%02d", q$Revision: 1.11 $ =~ /(\d+)\.(\d+)/);
8
8
 
9
9
use Carp ();
10
10
use AnyDBM_File;
52
52
  
53
53
  if ($ua) {
54
54
      $self->agent($ua);
55
 
  } else {
 
55
  }
 
56
  else {
56
57
      # Try to obtain name from DBM file
57
58
      $ua = $self->{'dbm'}{"|ua-name|"};
58
59
      Carp::croak("No agent name specified") unless $ua;