X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FVersions.pm;h=5545b487e3fbcc09790ab5d0facbdda2f020a3aa;hb=64d0fa452631c6e228fad18f8ae469582e3734b3;hp=822139f4c9e3f1377ad3b36731b53e86501dd654;hpb=7730ab1adda1bfa83a522062e542d1facb273dd3;p=debbugs.git

diff --git a/Debbugs/Versions.pm b/Debbugs/Versions.pm
index 822139f..5545b48 100644
--- a/Debbugs/Versions.pm
+++ b/Debbugs/Versions.pm
@@ -1,5 +1,15 @@
+# This module is part of debbugs, and is released
+# under the terms of the GPL version 2, or any later
+# version at your option.
+# See the file README and COPYING for more information.
+#
+# [Other people have contributed to this file; their copyrights should
+# go here too.]
+
 package Debbugs::Versions;
 
+use warnings;
+
 use strict;
 
 =head1 NAME
@@ -53,7 +63,7 @@ function.
 
 =cut
 
-sub new ($$)
+sub new
 {
     my $this = shift;
     my $class = ref($this) || $this;
@@ -73,7 +83,7 @@ This method is expected mainly to be used internally by the C<merge> method.
 
 =cut
 
-sub isancestor ($$$)
+sub isancestor
 {
     my $self = shift;
     my $ancestor = shift;
@@ -96,7 +106,7 @@ This method is mainly for internal use.
 
 =cut
 
-sub leaves ($)
+sub leaves
 {
     my $self = shift;
 
@@ -118,7 +128,7 @@ the next in the list.
 
 =cut
 
-sub merge ($@)
+sub merge
 {
     my $self = shift;
     return unless @_;
@@ -149,7 +159,7 @@ whitespace.
 
 =cut
 
-sub load ($*)
+sub load
 {
     my $self = shift;
     my $fh = shift;
@@ -167,7 +177,7 @@ method.
 
 =cut
 
-sub save ($*)
+sub save
 {
     my $self = shift;
     my $fh = shift;
@@ -209,7 +219,7 @@ that nothing is known about any of the found versions.
 
 =cut
 
-sub buggy ($$$$)
+sub buggy
 {
     my $self = shift;
     my $version = shift;
@@ -267,7 +277,7 @@ number of known and interested versions.
 
 =cut
 
-sub allstates ($$$;$)
+sub allstates
 {
     my $self = shift;
     my $found = shift;