Description defaults to Name
[darcs-mirror-metainit.git] / Parse.pm
index 8c62bba..a16d745 100644 (file)
--- a/Parse.pm
+++ b/Parse.pm
@@ -1,4 +1,4 @@
-package MetaInit::Parse
+package Parse
 
 sub parse {
     my $fh = shift;
@@ -19,6 +19,12 @@ sub parse {
            die "Cannot parse $!";
        }
     }
+
+    if (not exists $parsed{Description}) {
+        $parsed{Description} = $parsed{Name}
+    }
+
+
     return %parsed;
 }