r28075 - in /trunk/dh-make-perl: dh-make-perl lib/DhMakePerl.pm

[bricas-guest at users.alioth.debian.org]

Author: bricas-guest
Date: Thu Dec 11 14:46:32 2008
New Revision: 28075

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=28075
Log:
remove use of FindBin, add strict+warnings, add a basic new() sub to DhMakePerl.pm; this makes the dh-make-perl script a little more "standard"

Modified:
    trunk/dh-make-perl/dh-make-perl
    trunk/dh-make-perl/lib/DhMakePerl.pm

Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/dh-make-perl?rev=28075&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Thu Dec 11 14:46:32 2008
@@ -1,11 +1,12 @@
-#!/usr/bin/perl -w
-
-use FindBin qw($Bin);
-use lib "$Bin/lib";
+#!/usr/bin/perl
+
+use strict;
+use warnings;
 
 use DhMakePerl;
 
-exit DhMakePerl::run();
+my $app = DhMakePerl->new;
+exit $app->run();
 
 __END__
 

Modified: trunk/dh-make-perl/lib/DhMakePerl.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/DhMakePerl.pm?rev=28075&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/DhMakePerl.pm (original)
+++ trunk/dh-make-perl/lib/DhMakePerl.pm Thu Dec 11 14:46:32 2008
@@ -112,6 +112,10 @@
 );
 
 my $mod_cpan_version;
+
+sub new {
+	return bless {}, shift;
+}
 
 sub run {
     $opt_dbflags = $> == 0 ? "" : "-rfakeroot";