← Back to branch summary

~ubuntu-branches/ubuntu/quantal/mlt++/quantal

« back to all changes in this revision

Viewing changes to swig/perl/play.pl

  • Committer: Bazaar Package Importer
  • Author(s): Fathi Boudra
  • Date: 2008-11-14 17:35:13 UTC
  • mfrom: (0.1.3 squeeze) (1.1.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20081114173513-mjqzrkgssrm0t2f8
Tags: 0.3.2-1
* New upstream release.
* Refresh patches:
  - 01_remove_ldconfig
  - 02_custom_ldflags
* Remove 03_disable_test patch. deprecated.
* Add 04_add_valerie_ldflags patch to add mlt-valerie to LDFLAGS.
* Update debian/control:
  - Add versionned build dependency to libmlt-dev.
  - Add pkg-config build dependency.
  - Bump Standards-Version to 3.8.0. No changes needed.
  - Bump libmlt++ soname. libmlt++1 conflicts/replaces libmlt++0.2.
* Update debian/copyright: add Dan Dennedy copyrights.
* Update debian/rules: remove lintian override installation.

Show diffs side-by-side

added added

removed removed

Lines of Context:
swig/perl/play.pl
1
 
#!/bin/env perl
 
1
#!/usr/bin/env perl
2
2
 
3
3
# Import required modules
4
4
use mltpp;
6
6
# Not sure why the mltpp::Factory.init method fails...
7
7
mltpp::mlt_factory_init( undef );
8
8
 
 
9
# Establish the MLT profile
 
10
$profile = new mltpp::Profile( undef );
 
11
 
9
12
# Create the producer
10
 
$p = new mltpp::Producer( $ARGV[0] );
 
13
$p = new mltpp::Producer( $profile, $ARGV[0] );
11
14
 
12
15
if ( $p->is_valid( ) )
13
16
{
15
18
        $p->set( "eof", "loop" );
16
19
 
17
20
        # Create the consumer
18
 
        $c = new mltpp::FilteredConsumer( "sdl" );
 
21
        $c = new mltpp::FilteredConsumer( $profile, "sdl" );
19
22
 
20
23
        # Turn of the default rescaling
21
24
        $c->set( "rescale", "none" );