Skip to content
Browse files

Extract more mldistwatch::Constants

  • Loading branch information...
1 parent d9e1af5 commit 5db3e9cc0b6c9e5db0c735c095d2568f7987b6eb @xdg xdg committed Aug 13, 2011
Showing with 18 additions and 23 deletions.
  1. +0 −23 lib/PAUSE/mldistwatch.pm
  2. +18 −0 lib/PAUSE/mldistwatch/Constants.pm
View
23 lib/PAUSE/mldistwatch.pm
@@ -1281,29 +1281,6 @@ sub mlroot {
-
-{
- package PAUSE::mldistwatch::Constants;
- our $heading =
- {
- EMISSPERM() => "Permission missing",
- EDUALOLDER() => "An older dual-life module stays reference",
- EDUALYOUNGER() => "Dual-life module stays reference",
- EVERFALLING() => "Decreasing version number",
- EMTIMEFALLING() => "Decreasing mtime on a file (category to be deprecated)",
- EOLDRELEASE() => "Release seems outdated",
- EPARSEVERSION() => "Version parsing problem",
- EOPENFILE() => "Problem while reading the distribtion",
- OK() => "Successfully indexed",
- };
-
- sub heading ($) {
- my($status) = shift;
- # warn "status[$status]";
- $heading->{$status};
- }
-}
-
{
package PAUSE::pmfile;
use vars qw($AUTOLOAD);
View
18 lib/PAUSE/mldistwatch/Constants.pm
@@ -13,6 +13,24 @@ use constant EMTIMEFALLING => 3; # deprecated after rev 478
use constant EVERFALLING => 2;
use constant OK => 1;
+our $heading = {
+ EMISSPERM() => "Permission missing",
+ EDUALOLDER() => "An older dual-life module stays reference",
+ EDUALYOUNGER() => "Dual-life module stays reference",
+ EVERFALLING() => "Decreasing version number",
+ EMTIMEFALLING() => "Decreasing mtime on a file (category to be deprecated)",
+ EOLDRELEASE() => "Release seems outdated",
+ EPARSEVERSION() => "Version parsing problem",
+ EOPENFILE() => "Problem while reading the distribtion",
+ OK() => "Successfully indexed",
+};
+
+sub heading ($) {
+ my($status) = shift;
+ # warn "status[$status]";
+ $heading->{$status};
+}
+
1;

0 comments on commit 5db3e9c

Please sign in to comment.
Something went wrong with that request. Please try again.