Removing frog.
[maemian] / minimae-2.0
index cfc50ff..6af4525 100755 (executable)
@@ -41,6 +41,12 @@ use Archive::Tar;
 use Perl6::Slurp;
 use RepoUtils;
 use File::Basename;
+use Parson;
+
+# find our tarball
+my $json_object = Parson->new();              # parse json file
+my $dsc = $json_object->parse_json();
+
 
 my $tarball = $ARGV[0];                       # Orignal tarball
 my $repo = RepoUtils->new();
@@ -57,7 +63,7 @@ else {
 }
 $package_name =~ tr/_/-/;                     # translate underscore into dash
 $package_name =~ s/-[\d]$//;                  # trim package version
-$package_name =~ s/-.?maemo.$//;              # trim package version
+$package_name =~ s/-.?maemo.$//;              # trim maemo version
 chdir("lab/");                                # We're in /lab now!
 $tar->extract();                              # extracted tarball now in lab/