Rename Perl Library
authorJoachim Breitner <mail@joachim-breitner.de>
Tue, 12 Jun 2007 17:54:01 +0000 (17:54 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Tue, 12 Jun 2007 17:54:01 +0000 (17:54 +0000)
MetaInit::Parse.pm [deleted file]
Parse.pm [new file with mode: 0644]

diff --git a/MetaInit::Parse.pm b/MetaInit::Parse.pm
deleted file mode 100644 (file)
index 8c62bba..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-package MetaInit::Parse
-
-sub parse {
-    my $fh = shift;
-
-    my %parsed;
-    my $lastkey;
-    while (<$fh>) {
-        #last if /^$/;
-        if (my ($key, $value) = m/^([^ ].*): (.*)/) {
-            $parsed{$key} = $value;
-           $lastkey = $key;
-        }
-        elsif ($lastkey) {
-            s/^ //;
-            s/^\.$//;
-            $parsed{$lastkey} .= $_;
-        } else {
-           die "Cannot parse $!";
-       }
-    }
-    return %parsed;
-}
-
diff --git a/Parse.pm b/Parse.pm
new file mode 100644 (file)
index 0000000..8c62bba
--- /dev/null
+++ b/Parse.pm
@@ -0,0 +1,24 @@
+package MetaInit::Parse
+
+sub parse {
+    my $fh = shift;
+
+    my %parsed;
+    my $lastkey;
+    while (<$fh>) {
+        #last if /^$/;
+        if (my ($key, $value) = m/^([^ ].*): (.*)/) {
+            $parsed{$key} = $value;
+           $lastkey = $key;
+        }
+        elsif ($lastkey) {
+            s/^ //;
+            s/^\.$//;
+            $parsed{$lastkey} .= $_;
+        } else {
+           die "Cannot parse $!";
+       }
+    }
+    return %parsed;
+}
+