r16453 - in /trunk/libcurses-ui-perl: Changes MANIFEST META.yml Makefile.PL debian/changelog debian/rules inc/ lib/Curses/UI.pm lib/Curses/UI/Label.pm t/06ui.t t/13notebook.t t/98misc.t t/99misc.t t/99template.t

rra at users.alioth.debian.org rra at users.alioth.debian.org
Tue Mar 4 05:18:08 UTC 2008


Author: rra
Date: Tue Mar  4 05:18:07 2008
New Revision: 16453

URL: http://svn.debian.org/wsvn/?sc=1&rev=16453
Log:
* New upstream release.
* Remove commented-out and unneeded debian/rules commands.

Added:
    trunk/libcurses-ui-perl/META.yml
      - copied unchanged from r16452, branches/upstream/libcurses-ui-perl/current/META.yml
    trunk/libcurses-ui-perl/inc/
      - copied from r16452, branches/upstream/libcurses-ui-perl/current/inc/
    trunk/libcurses-ui-perl/t/99misc.t
      - copied unchanged from r16452, branches/upstream/libcurses-ui-perl/current/t/99misc.t
Removed:
    trunk/libcurses-ui-perl/t/98misc.t
    trunk/libcurses-ui-perl/t/99template.t
Modified:
    trunk/libcurses-ui-perl/Changes
    trunk/libcurses-ui-perl/MANIFEST
    trunk/libcurses-ui-perl/Makefile.PL
    trunk/libcurses-ui-perl/debian/changelog
    trunk/libcurses-ui-perl/debian/rules
    trunk/libcurses-ui-perl/lib/Curses/UI.pm
    trunk/libcurses-ui-perl/lib/Curses/UI/Label.pm
    trunk/libcurses-ui-perl/t/06ui.t
    trunk/libcurses-ui-perl/t/13notebook.t

Modified: trunk/libcurses-ui-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libcurses-ui-perl/Changes?rev=16453&op=diff
==============================================================================
--- trunk/libcurses-ui-perl/Changes (original)
+++ trunk/libcurses-ui-perl/Changes Tue Mar  4 05:18:07 2008
@@ -1,4 +1,12 @@
 Changelog for the Curses::UI distribution:
+
+Version 0.9602
+==============
+	- Using Module::Install now
+	- Removed effectively null t/99template.t which was causing
+	  FAILs for CPAN testers (to be replaced with more testing
+	  at a later date)
+	- Apologies for the weird previous version number
 
 Version 0.96_01
 ===============

Modified: trunk/libcurses-ui-perl/MANIFEST
URL: http://svn.debian.org/wsvn/trunk/libcurses-ui-perl/MANIFEST?rev=16453&op=diff
==============================================================================
--- trunk/libcurses-ui-perl/MANIFEST (original)
+++ trunk/libcurses-ui-perl/MANIFEST Tue Mar  4 05:18:07 2008
@@ -15,10 +15,20 @@
 examples/mouse_focustest
 examples/pop3_reader
 examples/tutorial
+inc/Module/AutoInstall.pm
+inc/Module/Install.pm
+inc/Module/Install/AutoInstall.pm
+inc/Module/Install/Base.pm
+inc/Module/Install/Can.pm
+inc/Module/Install/Fetch.pm
+inc/Module/Install/Include.pm
+inc/Module/Install/Makefile.pm
+inc/Module/Install/Metadata.pm
+inc/Module/Install/Win32.pm
+inc/Module/Install/WriteAll.pm
 INSTALL
 lib/Curses/UI.pm
 lib/Curses/UI/Buttonbox.pm
-lib/Curses/UI/Notebook.pm
 lib/Curses/UI/Calendar.pm
 lib/Curses/UI/Checkbox.pm
 lib/Curses/UI/Color.pm
@@ -35,6 +45,7 @@
 lib/Curses/UI/Label.pm
 lib/Curses/UI/Language.pm
 lib/Curses/UI/Language/chinese.pm
+lib/Curses/UI/Language/czech.pm
 lib/Curses/UI/Language/dutch.pm
 lib/Curses/UI/Language/english.pm
 lib/Curses/UI/Language/french.pm
@@ -44,11 +55,12 @@
 lib/Curses/UI/Language/polish.pm
 lib/Curses/UI/Language/portuguese.pm
 lib/Curses/UI/Language/russian.pm
+lib/Curses/UI/Language/slovak.pm
 lib/Curses/UI/Language/spanish.pm
 lib/Curses/UI/Language/turkish.pm
-lib/Curses/UI/Language/slovak.pm
 lib/Curses/UI/Listbox.pm
 lib/Curses/UI/Menubar.pm
+lib/Curses/UI/Notebook.pm
 lib/Curses/UI/PasswordEntry.pm
 lib/Curses/UI/Popupmenu.pm
 lib/Curses/UI/Progressbar.pm
@@ -77,9 +89,7 @@
 t/11listbox.t
 t/12gpm_handler.t
 t/13notebook.t
-t/98misc.t
-t/99template.t
+t/99misc.t
 t/fakelib/Curses.pm
 t/lorem.pl
 TODO
-

Modified: trunk/libcurses-ui-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/trunk/libcurses-ui-perl/Makefile.PL?rev=16453&op=diff
==============================================================================
--- trunk/libcurses-ui-perl/Makefile.PL (original)
+++ trunk/libcurses-ui-perl/Makefile.PL Tue Mar  4 05:18:07 2008
@@ -1,17 +1,17 @@
-use ExtUtils::MakeMaker;
+# Load the Module::Install bundled in ./inc/
+use inc::Module::Install;
 
-WriteMakefile(
-    NAME         => 'Curses::UI',
-    VERSION_FROM => 'lib/Curses/UI.pm',
-    DISTNAME     => 'Curses-UI',
-    PREREQ_PM    => {
-        'Curses'           => 0,
-	'Term::ReadKey'    => 0,
-	'Test::Pod'        => 0,
-	'Test::More'       => 0,
-    },
+# Define metadata
+name            'Curses-UI';
+all_from        'lib/Curses/UI.pm';
 
-    dist         => { COMPRESS => 'gzip', SUFFIX => 'gz' },
-    clean        => { FILES => 'MANIFEST.bak' },
-);
+# Specific dependencies
+requires        'Curses'        => 0;
+requires        'Term::ReadKey' => 0;
+build_requires  'Test::More'    => 0;
+build_requires  'Test::Pod'     => 0;
 
+no_index        'directory'         => 'examples';
+
+auto_install;
+WriteAll;

Modified: trunk/libcurses-ui-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libcurses-ui-perl/debian/changelog?rev=16453&op=diff
==============================================================================
--- trunk/libcurses-ui-perl/debian/changelog (original)
+++ trunk/libcurses-ui-perl/debian/changelog Tue Mar  4 05:18:07 2008
@@ -1,3 +1,10 @@
+libcurses-ui-perl (0.9602-1) UNRELEASED; urgency=low
+
+  * New upstream release.
+  * Remove commented-out and unneeded debian/rules commands.
+
+ -- Russ Allbery <rra at debian.org>  Mon, 03 Mar 2008 21:16:09 -0800
+
 libcurses-ui-perl (0.9601-1) unstable; urgency=low
 
   [ gregor herrmann ]

Modified: trunk/libcurses-ui-perl/debian/rules
URL: http://svn.debian.org/wsvn/trunk/libcurses-ui-perl/debian/rules?rev=16453&op=diff
==============================================================================
--- trunk/libcurses-ui-perl/debian/rules (original)
+++ trunk/libcurses-ui-perl/debian/rules Tue Mar  4 05:18:07 2008
@@ -6,9 +6,6 @@
 # packages. It was created by Marc Brockschmidt <marc at dch-faq.de> for
 # the Debian Perl Group (http://pkg-perl.alioth.debian.org/) but may
 # be used freely wherever it is useful.
-
-# Use quilt to manage patches.
-#include /usr/share/quilt/quilt.make
 
 # Uncomment this to turn on verbose mode.
 # export DH_VERBOSE=1
@@ -24,7 +21,6 @@
 build: build-arch build-indep
 build-arch:
 build-indep: build-stamp
-#build-stamp: patch
 build-stamp:
 	dh_testdir
 	chmod 755 examples/demo-buttonbox
@@ -32,25 +28,21 @@
 	$(MAKE)
 	touch build-stamp
 
-#clean: unpatch
 clean:
 	dh_testdir
 	dh_testroot
 	rm -f build-stamp install-stamp
 	[ ! -f Makefile ] || $(MAKE) distclean
-#	dh_clean -XTextEditor.pm.orig
 	dh_clean
 
 install: install-stamp
 install-stamp: build-stamp
 	dh_testdir
 	dh_testroot
-#	dh_clean -k -XTextEditor.pm.orig
 	dh_clean
 	$(MAKE) test
 	$(MAKE) install DESTDIR=$(TMP) PREFIX=/usr
 	[ ! -d $(TMP)/usr/lib/perl5 ] || rmdir --ignore-fail-on-non-empty --parents --verbose $(TMP)/usr/lib/perl5
-#	rm $(TMP)/usr/share/perl5/Curses/UI/TextEditor.pm.orig
 	touch install-stamp
 
 binary: binary-arch binary-indep

Modified: trunk/libcurses-ui-perl/lib/Curses/UI.pm
URL: http://svn.debian.org/wsvn/trunk/libcurses-ui-perl/lib/Curses/UI.pm?rev=16453&op=diff
==============================================================================
--- trunk/libcurses-ui-perl/lib/Curses/UI.pm (original)
+++ trunk/libcurses-ui-perl/lib/Curses/UI.pm Tue Mar  4 05:18:07 2008
@@ -29,11 +29,11 @@
 
 =head1 VERSION
 
-Version 0.96_01
+Version 0.9602
 
 =cut
 
-$VERSION = 0.96_01;
+$VERSION = 0.9602;
 
 =head1 SYNOPSIS
 

Modified: trunk/libcurses-ui-perl/lib/Curses/UI/Label.pm
URL: http://svn.debian.org/wsvn/trunk/libcurses-ui-perl/lib/Curses/UI/Label.pm?rev=16453&op=diff
==============================================================================
--- trunk/libcurses-ui-perl/lib/Curses/UI/Label.pm (original)
+++ trunk/libcurses-ui-perl/lib/Curses/UI/Label.pm Tue Mar  4 05:18:07 2008
@@ -47,15 +47,15 @@
         -textalignment   => undef,    # left / middle / right
         -bold            => 0,        # Special attributes
         -reverse         => 0,
-        -underline       => 0,    
+        -underline       => 0,
         -dim             => 0,
         -blink           => 0,
         -paddingspaces   => 0,        # Pad text with spaces?
 	-bg              => -1,
 	-fg              => -1,
-        
+
         %userargs,
-        
+
         -nocursor        => 1,        # This widget uses no cursor
         -focusable       => 0,        # This widget can't be focused
     );
@@ -75,16 +75,16 @@
         $l = 1 if $l <= 0;
         $args{-height} = height_by_windowscrheight($l, %args);
     }
-    
+
     # No width given? Then make the width the same size
     # as the text. No initial text? Then let
     # Curses::UI::Widget figure it out.
     $args{-width} = width_by_windowscrwidth($text_dimension[0], %args)
         unless defined $args{-width} or not defined $args{-text};
 
-    # If no text was defined (how silly...) we define an empty strin. 
+    # If no text was defined (how silly...) we define an empty string.
     $args{-text} = '' unless defined $args{-text};
-    
+
     # Create the widget.
     my $this = $class->SUPER::new( %args );
 
@@ -170,10 +170,10 @@
 {
     my $this = shift;
     my $no_doupdate = shift || 0;
-        
+
     # Draw the widget.
     $this->SUPER::draw(1) or return $this;
-    
+
     # Clear all attributes.
     $this->{-canvasscr}->attroff(A_REVERSE);
     $this->{-canvasscr}->attroff(A_BOLD);
@@ -209,15 +209,15 @@
             $line = substr($line, 0, $this->canvaswidth);
             $line =~ s/.$/\$/;
         } elsif ($this->{-paddingspaces}) {
-            $this->{-canvasscr}->addstr($ypos, 0, " "x$this->canvaswidth);    
-        } 
+            $this->{-canvasscr}->addstr($ypos, 0, " "x$this->canvaswidth);
+        }
 
         my $xpos = $this->compute_xpos($line);
         $this->{-canvasscr}->addstr($ypos, $xpos, $line);
 
         $ypos++;
     }
-    
+
     $this->{-canvasscr}->noutrefresh;
     doupdate() unless $no_doupdate;
 

Modified: trunk/libcurses-ui-perl/t/06ui.t
URL: http://svn.debian.org/wsvn/trunk/libcurses-ui-perl/t/06ui.t?rev=16453&op=diff
==============================================================================
--- trunk/libcurses-ui-perl/t/06ui.t (original)
+++ trunk/libcurses-ui-perl/t/06ui.t Tue Mar  4 05:18:07 2008
@@ -1,6 +1,6 @@
-# -*- perl -*-
+use Test::More tests => 8;
 use strict;
-use Test::More tests => 8;
+use warnings;
 use FindBin;
 use lib "$FindBin::RealBin/fakelib";
 use lib "$FindBin::RealBin/../lib";

Modified: trunk/libcurses-ui-perl/t/13notebook.t
URL: http://svn.debian.org/wsvn/trunk/libcurses-ui-perl/t/13notebook.t?rev=16453&op=diff
==============================================================================
--- trunk/libcurses-ui-perl/t/13notebook.t (original)
+++ trunk/libcurses-ui-perl/t/13notebook.t Tue Mar  4 05:18:07 2008
@@ -1,14 +1,15 @@
-# -*- perl -*-
-# $Id: 13notebook.t,v 1.4 2005/03/18 10:10:51 mthies2s Exp $
+use Test::More tests => 25;
 
-use Test::More tests => 24;
+use strict;
+use warnings;
+
 use FindBin;
 use lib "$FindBin::RealBin/fakelib";
 use lib "$FindBin::RealBin/../lib";
 use Curses::UI;
 
 # Tests 1: module load.
-BEGIN { 
+BEGIN {
     $| = 1;
     # Ensure Term::ReadKey doesn't fail to get the screen size.
     $ENV{LINES} = 25;
@@ -19,10 +20,8 @@
 
 my $debug = 0;
 
-my $cui = new Curses::UI (
-    -clear_on_exit => 0,
-    -debug => $debug,
-);
+my $cui = new Curses::UI ( -clear_on_exit => 0,
+			   -debug => $debug, );
 $cui->leave_curses();
 
 my $win = $cui->add(undef, 'Window');
@@ -30,8 +29,9 @@
 
 # Tests 2-4: notebook object creation.
 my $nb1 = $win->add(undef, 'Notebook');
+isa_ok( $nb1, 'Curses::UI::Notebook');
+
 ok(
-    $nb1->isa('Curses::UI::Notebook') &&
     $nb1->{-border} == 1 && $nb1->{-sbborder} == 0 &&
     $nb1->{-padleft} == 0 && $nb1->{-ipadleft} == 1,
     'Initialization w/ defaults'




More information about the Pkg-perl-cvs-commits mailing list