X-Git-Url: http://git.maemo.org/git/?p=maemian;a=blobdiff_plain;f=minimae-2.0;h=6af452572f2890c94ab3c2aeb6fd63a94df6e5a6;hp=cfc50ff15a3423b1a8d5ecf6b35a072671483113;hb=b6dae853c757cbbe5a389c7c574e8a39a832d960;hpb=e364d2351082b7305b004f863705b2ff8f72d65b diff --git a/minimae-2.0 b/minimae-2.0 index cfc50ff..6af4525 100755 --- a/minimae-2.0 +++ b/minimae-2.0 @@ -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/